【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-CK_info_Browser_U.pas，希望本篇文章对您学习有所帮助。

    {
     unit name  : CK_info_Browser_U
     Author     : 李涛
     Create date: 2004-05-06 14:46:03
     description: 仓库信息编辑单元
    }
    unit CK_info_Browser_U;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, BaseBrowser_Form_U, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls,
      Public_unit_U, ADODB;
    
    type
      TCK_info_Browser = class(TBaseBrowser_Form)
        GroupBox1: TGroupBox;
        Label1: TLabel;
        Label2: TLabel;
        DBEdit1: TDBEdit;
        Label3: TLabel;
        DBEdit2: TDBEdit;
        Label4: TLabel;
        DBEdit3: TDBEdit;
        Label5: TLabel;
        DBEdit4: TDBEdit;
        DBComboBox1: TDBComboBox;
        LX_CheckBox: TCheckBox;
        Label6: TLabel;
        CheckBox1: TCheckBox;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure DBComboBox1Enter(Sender: TObject);
        procedure DBComboBox1Exit(Sender: TObject);
        procedure ADD_BitClick(Sender: TObject);
        procedure FormShow(Sender: TObject);
      private
        { Private declarations }
      public
        State: String;
        TempComponent: TComponent;
        { Public declarations }
      end;
    
    var
      CK_info_Browser: TCK_info_Browser;
    
    implementation
    
    uses CK_info_Set_U,MainDataModule_u;
    
    {$R *.dfm}
    
    procedure TCK_info_Browser.FormClose(Sender: TObject;
      var Action: TCloseAction);
    begin
      inherited;
      Action:=caFree;
      CK_info_Browser:=nil;
    end;
    
    procedure TCK_info_Browser.DBComboBox1Enter(Sender: TObject);
    begin
      inherited;
      EnterColor(Sender);
    end;
    
    procedure TCK_info_Browser.DBComboBox1Exit(Sender: TObject);
    begin
      inherited;
      ExitColor(Sender);
    end;
    
    procedure TCK_info_Browser.ADD_BitClick(Sender: TObject);
    var
      Kind: STring;
    begin
      inherited;
      if (Length(DBComboBox1.Text)=0) or
         (Length(DBEdit1.Text)=0) or
         (Length(DBEdit2.Text)=0) or
         (Length(DBEdit4.Text)=0) then
      begin
         ShowMessage('请将红色信息填写完整！！');
         DBComboBox1.SetFocus;
         Exit;
      end;
      with MainDataModule.Temp_Query do
      begin
           Close;
           SQL.Clear;
           SQL.Add('select * from T_sys_dia');
           SQL.Add('where C_stop='''+'0'+''' and C_name=''仓库信息设置'' and C_flag='''+'5'+'''');
           Open;
           Kind:=FieldByName('C_code').AsString;
      end;
      with TADOQuery(TempComponent) do
      begin
         FieldByName('C_kind').AsString:=Kind;
         if CheckBox1.Checked then FIeldByName('C_stop').AsString:='1'
         else FieldByName('C_stop').AsString:='0';
         post;
         if LX_checkBox.Checked then
         begin
            Append;
            DBComboBox1.SetFocus;
            Exit;
         end;
      end;
      Cancel_Bit.Click;
    end;
    
    procedure TCK_info_Browser.FormShow(Sender: TObject);
    begin
      inherited;
      TempComponent:=GetComponent(Fun_Form.TempForm,'CK_ADO',TADOQuery);
      if TADOQuery(TempComponent).FieldByName('C_stop').AsString='1' then
         CheckBox1.Checked:=True
      else
         CheckBox1.Checked:=False;
    end;
    
    end.
    

上一篇：DlgTOOL.cpp
下一篇：基于web二手汽车交易管理系统(含录像)