cx_dy_gz.pas

人事管理系统的源代码

unit Cx_Dy_Gz;

interface

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

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

var
  CX_DYGZ_Form: TCX_DYGZ_Form;
  case_flag:integer;

implementation

uses Main;

{$R *.dfm}




procedure TCX_DYGZ_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_DYGZ_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_DYGZ_Form.ComboBox1Click(Sender: TObject);
begin
    label1.Visible:=true;
    label1.Width:=200;
    edit1.Visible:=true;
   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_DYGZ_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:=strtoint(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_DYGZ_Form.BitBtn2Click(Sender: TObject);
begin
 close;
end;

end.