jibenxinxichaxun.pas

企业人事信息管理系统开发

unit jibenxinxichaxun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, DBCtrls, Mask, ExtCtrls;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBComboBoxDepartment: TDBComboBox;
    DBComboBoxName: TDBComboBox;
    DBComboBoxID: TDBComboBox;
    Panel3: TPanel;
    Label9: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label19: TLabel;
    Label18: TLabel;
    Label16: TLabel;
    Label15: TLabel;
    Label14: TLabel;
    Label13: TLabel;
    Label12: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    DBEditFormer: TDBEdit;
    DBComboBoxSex: TDBComboBox;
    DBComboBoxEdu: TDBComboBox;
    DBEditNative: TDBEdit;
    DBEditBirthday: TDBEdit;
    DBEditSpeciality: TDBEdit;
    DBEditBeginDate: TDBEdit;
    DBEditStartDate: TDBEdit;
    DBEditEnter: TDBEdit;
    DBEditClanDate: TDBEdit;
    DBMemoRemark: TDBMemo;
    DBNavigator1: TDBNavigator;
    DBEditIntoDate: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBComboBoxNo: TDBComboBox;
    DBComboBoxPosition: TDBComboBox;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOTable1ID: TWideStringField;
    ADOTable1Name: TWideStringField;
    ADOTable1Sex: TWideStringField;
    ADOTable1Birthday: TDateTimeField;
    ADOTable1Department: TWideStringField;
    ADOTable1Native: TWideStringField;
    ADOTable1Edu: TWideStringField;
    ADOTable1Speciality: TWideStringField;
    ADOTable1StartDate: TDateTimeField;
    ADOTable1EnterDate: TDateTimeField;
    ADOTable1Former: TWideStringField;
    ADOTable1BeginDate: TDateTimeField;
    ADOTable1IntoDate: TDateTimeField;
    ADOTable1Position: TWideStringField;
    ADOTable1ClanDate: TDateTimeField;
    ADOTable1No: TWideStringField;
    ADOTable1Remark: TWideStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses jibenxinxixiugai;


{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
form4.ShowModal;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.