【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“Employee_info_Browser_U.pas”一文，供大家参考学习

    {
     unit name  : Employee_info_Browser_U
     Author     : 李涛
     Create date: 2004-03-23 10:11:13
     description: 员工信息浏览单元
    }
    unit Employee_info_Browser_U;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, BaseBrowser_Form_U, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask,
      Public_Unit_U, ADODB, ComCtrls;
    
    type
      TEmployee_info_Browser = class(TBaseBrowser_Form)
        GroupBox1: TGroupBox;
        Label1: TLabel;
        DBEdit1: TDBEdit;
        Label2: TLabel;
        DBEdit2: TDBEdit;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        DBEdit5: TDBEdit;
        Label6: TLabel;
        DBEdit6: TDBEdit;
        Label7: TLabel;
        DBLookupComboBox1: TDBLookupComboBox;
        Label8: TLabel;
        DBLookupComboBox2: TDBLookupComboBox;
        Label9: TLabel;
        DBEdit7: TDBEdit;
        Label10: TLabel;
        DBLookupComboBox3: TDBLookupComboBox;
        Label11: TLabel;
        Label12: TLabel;
        DBLookupComboBox4: TDBLookupComboBox;
        Label13: TLabel;
        DBLookupComboBox5: TDBLookupComboBox;
        Label14: TLabel;
        DBLookupComboBox6: TDBLookupComboBox;
        Label17: TLabel;
        DBEdit11: TDBEdit;
        Label16: TLabel;
        DBEdit10: TDBEdit;
        DBComboBox1: TDBComboBox;
        LX_checked: TCheckBox;
        Csrq_DT: TDateTimePicker;
        Pyrq_DT: TDateTimePicker;
        procedure LX_checkedEnter(Sender: TObject);
        procedure LX_checkedExit(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure ADD_BitClick(Sender: TObject);
        procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
        procedure FormShow(Sender: TObject);
        procedure Csrq_DTChange(Sender: TObject);
        procedure Pyrq_DTChange(Sender: TObject);
      private
        { Private declarations }
      public
        State:  string;   //描述当前窗口处于什么状态。insert添加update修改delete删除
        Csrq_t: TDateTime; //出生日期
        Pyrq_t: TDateTime; //聘用日期
        { Public declarations }
      end;
    
    var
      Employee_info_Browser: TEmployee_info_Browser;
    
    implementation
    
    uses Employee_info_U;
    
    {$R *.dfm}
    
    procedure TEmployee_info_Browser.LX_checkedEnter(Sender: TObject);
    begin
         EnterColor(Sender);
      inherited;
    end;
    
    procedure TEmployee_info_Browser.LX_checkedExit(Sender: TObject);
    begin
         ExitColor(Sender);
      inherited;
    end;
    
    procedure TEmployee_info_Browser.FormClose(Sender: TObject;
      var Action: TCloseAction);
    var
         TempComponent: TComponent;
    begin
       TempComponent:=GetComponent(Fun_Form.TempForm,'Employee_ADO',TADOQuery);
       With TADOQuery(TempComponent) do
            if Modified=True then Cancel;
       inherited;
       Employee_info_Browser:=nil;
    end;
    
    procedure TEmployee_info_Browser.ADD_BitClick(Sender: TObject);
    var
         TempComponent: TComponent;
    begin
      inherited;
         //-------检查信息完整度----------------
         if (Length(DBEdit1.Text)=0) or (Length(DBEdit2.Text)=0) then
         begin
            ShowMessage('请将员工[编号]和[]填写完整!');
            DBEdit1.SetFocus;
            Exit;
         end;
         //-------------------------------------
         TempComponent:=GetComponent(Fun_Form.TempForm,'Employee_ADO',TADOQuery);
         With TADOQuery(TempComponent) do
         begin
              FieldByName('Dt_csrq').Value:=Csrq_t;
              FieldByName('Dt_pyrq').Value:=Pyrq_t;
              FieldByName('C_mod').Value:='ALL';
              //FieldByName('C_mod').Value:=MySelf.ModuleCode;
              post;
              if Self.State='append' then
                 if Self.LX_checked.Checked=True then
                 begin
                    Append;
                    //---填写默认值-------------------
                    //--------------------------------
                    DBEdit1.SetFocus;
                    Exit;
                 end;
              Cancel_Bit.Click;
         end;
    end;
    
    procedure TEmployee_info_Browser.DBComboBox1KeyPress(Sender: TObject;
      var Key: Char);
    begin
      inherited;
         if key=#13 then Csrq_Dt.SetFocus;
    end;
    
    procedure TEmployee_info_Browser.FormShow(Sender: TObject);
    begin
      inherited;
         Csrq_Dt.DateTime:=Csrq_t;
         Pyrq_Dt.DateTime:=Pyrq_t;
         DBEdit1.SetFocus;
    end;
    
    procedure TEmployee_info_Browser.Csrq_DTChange(Sender: TObject);
    begin
      inherited;
         Csrq_t:=Csrq_DT.DateTime;
    end;
    
    procedure TEmployee_info_Browser.Pyrq_DTChange(Sender: TObject);
    begin
      inherited;
         Pyrq_T:=Pyrq_DT.DateTime;
    end;
    
    end.
    

上一篇：employee_impl.pas
下一篇：青青子衿，悠悠我心