cx_renshi.pas

人事管理系统的源代码

unit Cx_RenShi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;

type
  TCX_Renshi_Form = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    ADOConnection2: TADOConnection;
    ADOTable4: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    BitBtn2: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure  initdbgrid();
  end;

var
  CX_Renshi_Form: TCX_Renshi_Form;
  case_flag:integer;

implementation

uses Main;

{$R *.dfm}



procedure TCX_Renshi_Form.initdbgrid();
begin
    dbgrid1.Columns[0].Width:=80;
    dbgrid1.Columns[1].Width:=90;
    dbgrid1.Columns[2].Width:=90;
    dbgrid1.Columns[3].Width:=80;
    dbgrid1.Columns[4].Width:=100;
    dbgrid1.Columns[5].Width:=100;
    dbgrid1.Columns[6].Width:=100;

    dbgrid1.Columns[7].Width:=100;
    dbgrid1.Columns[8].Width:=100;
    dbgrid1.Columns[9].Width:=100;
    dbgrid1.Columns[10].Width:=80;
    //dbgrid1.Columns[11].Width:=80;
   // dbgrid1.Columns[12].Width:=80;
   // dbgrid1.Columns[13].Width:=80;
   // dbgrid1.Columns[14].Width:=80;
    //dbgrid1.Columns[15].Width:=80;
   // dbgrid1.Columns[16].Width:=80;
   // dbgrid1.Columns[17].Width:=80;
   // dbgrid1.Columns[18].Width:=160;
   // dbgrid1.Columns[19].Width:=80;
end;

procedure TCX_Renshi_Form.FormActivate(Sender: TObject);
begin
    combobox1.Items.Clear;
    combobox1.Items.Add('按身份证号');
    combobox1.Items.Add('按职工编号');
    combobox1.Items.Add('按职工姓名');

    label1.Visible:=false;
    edit1.Visible:=false;
    case_flag:=0;

    ADOConnection1:=MAIN_FORM.ADOConnection1;
    adoquery1.Connection:=ADOConnection1;
    adoquery1.Close;
    dbgrid1.DataSource:=DataSource1;
    DataSource1.DataSet:=adotable1;
    adotable1.Close;
    adotable1.Connection:=ADOConnection1;
    adotable1.TableName:='职工信息表';
    adotable1.Active:=true;
    initdbgrid();
    dbgrid1.ReadOnly:=true;
end;

procedure TCX_Renshi_Form.ComboBox1Click(Sender: TObject);
begin
  label1.Visible:=true;
    label1.Width:=200;
    edit1.Visible:=true;
    edit1.Text:='';
   case ComboBox1.ItemIndex of
       0:
       begin
         //
         label1.Caption:='请输入身份证号';
         case_flag:=1;
       end;
       1:
       begin
         //
         label1.Caption:='请输入职工编号';
         case_flag:=2;
       end;
       2:
       begin
         //
         label1.Caption:='请输入职工姓名';
         case_flag:=3;
       end;
       else
   end;
end;

procedure TCX_Renshi_Form.Edit1Exit(Sender: TObject);
begin
   if edit1.Text<>'' then
   begin
   case case_flag of
       1:
       begin

        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select * from  职工信息表 '+
                          ' where 身份证号=:ZgNo order by 职工编号 '
                          );
        adoquery1.Parameters.Clear;
        adoquery1.Parameters.AddParameter;
        adoquery1.Parameters[0].Name:='ZgNo';
        adoquery1.Parameters[0].DataType:=ftstring;
        adoquery1.Parameters[0].Direction:=pdinput;
        adoquery1.Parameters[0].Value:=edit1.Text;
        adoquery1.Active:=true;
        adotable1.Recordset:=adoquery1.Recordset;
        initdbgrid;
        adoquery1.Close;
        end;

       2:
       begin
         //
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select * from  职工信息表 '+
                          ' where 职工编号=:ZgNo order by 职工编号 '
                          );
        adoquery1.Parameters.Clear;
        adoquery1.Parameters.AddParameter;
        adoquery1.Parameters[0].Name:='ZgNo';
        adoquery1.Parameters[0].DataType:=ftstring;
        adoquery1.Parameters[0].Direction:=pdinput;
        adoquery1.Parameters[0].Value:=strtoint(edit1.Text);
        adoquery1.Active:=true;
        adotable1.Recordset:=adoquery1.Recordset;
        initdbgrid;
        adoquery1.Close;
       end;
       3:
       begin
         //
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select * from  职工信息表 '+
                          ' where 职工姓名=:ZgName order by 职工编号 '
                          );
        adoquery1.Parameters.Clear;
        adoquery1.Parameters.AddParameter;
        adoquery1.Parameters[0].Name:='ZgName';
        adoquery1.Parameters[0].DataType:=ftstring;
        adoquery1.Parameters[0].Direction:=pdinput;
        adoquery1.Parameters[0].Value:=edit1.Text;
        adoquery1.Active:=true;
        adotable1.Recordset:=adoquery1.Recordset;
        initdbgrid;
        adoquery1.Close;
       end;
       else
   end;
 end
 else
        begin
         adoquery1.Close;
         application.MessageBox('输入不正确！','提示',48);
        end;
end;

procedure TCX_Renshi_Form.Edit1Change(Sender: TObject);
begin
   case case_flag of
       1:
       begin
        adotable1.Locate('身份证号',edit1.Text,[lopartialkey]);
        //edit1.Text:=adotable1.Fieldbyname('身份证号').AsString;
        //initdbgrid;
       end;
       2:
       begin
        adotable1.Locate('职工编号',edit1.Text,[lopartialkey]);
        //edit1.Text:=adotable1.Fieldbyname('职工编号').AsString;
        //initdbgrid;
       end;
       3:
       begin
        adotable1.Locate('职工姓名',edit1.Text,[lopartialkey]);
        //edit1.Text:=adotable1.Fieldbyname('职工姓名').AsString;
        //initdbgrid;
       end;
       else
   end;
end;

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

end.