gzxx.pas

本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4.工资打印报表 5.到处数据

unit GZXX;

interface

uses
  Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
  Dialogs, DBCtrls, DB, DBTables, Mask, ExtCtrls, Grids, DBGrids;

type
  TForm5 = class(TForm)
    z: TScrollBox;
    Label1: TLabel;
    EditDBEdit: TDBEdit;
    Label2: TLabel;
    EditDBEdit2: TDBEdit;
    Label3: TLabel;
    EditDBEdit3: TDBEdit;
    Label4: TLabel;
    EditDBEdit4: TDBEdit;
    Label5: TLabel;
    EditDBEdit5: TDBEdit;
    Label6: TLabel;
    EditDBEdit6: TDBEdit;
    Label7: TLabel;
    EditDBEdit7: TDBEdit;
    Label8: TLabel;
    EditDBEdit8: TDBEdit;
    Label9: TLabel;
    EditDBEdit9: TDBEdit;
    Label10: TLabel;
    EditDBEdit10: TDBEdit;
    Label11: TLabel;
    EditDBEdit11: TDBEdit;
    Label12: TLabel;
    EditDBEdit12: TDBEdit;
    Label13: TLabel;
    EditDBEdit13: TDBEdit;
    Label14: TLabel;
    EditDBEdit14: TDBEdit;
    Label15: TLabel;
    EditDBEdit15: TDBEdit;
    Label16: TLabel;
    EditDBEdit16: TDBEdit;
    Label17: TLabel;
    EditDBEdit17: TDBEdit;
    Label18: TLabel;
    EditDBEdit18: TDBEdit;
    Label19: TLabel;
    EditDBEdit19: TDBEdit;
    Label20: TLabel;
    EditDBEdit20: TDBEdit;
    Label21: TLabel;
    EditDBEdit21: TDBEdit;
    Label22: TLabel;
    EditDBEdit22: TDBEdit;
    Label23: TLabel;
    EditDBEdit23: TDBEdit;
    Label24: TLabel;
    EditDBEdit24: TDBEdit;
    Label25: TLabel;
    EditDBEdit25: TDBEdit;
    Label26: TLabel;
    EditDBEdit26: TDBEdit;
    Label27: TLabel;
    EditDBEdit27: TDBEdit;
    Label28: TLabel;
    EditDBEdit28: TDBEdit;
    Label29: TLabel;
    EditDBEdit29: TDBEdit;
    Label30: TLabel;
    EditDBEdit30: TDBEdit;
    Label31: TLabel;
    EditDBEdit31: TDBEdit;
    Label32: TLabel;
    EditDBEdit32: TDBEdit;
    Label33: TLabel;
    EditDBEdit33: TDBEdit;
    Label34: TLabel;
    EditDBEdit34: TDBEdit;
    Label35: TLabel;
    EditDBEdit35: TDBEdit;
    Label36: TLabel;
    EditDBEdit36: TDBEdit;
    Label37: TLabel;
    EditDBEdit37: TDBEdit;
    Label38: TLabel;
    EditDBEdit38: TDBEdit;
    Label39: TLabel;
    EditDBEdit39: TDBEdit;
    Label40: TLabel;
    EditDBEdit40: TDBEdit;
    Label41: TLabel;
    EditDBEdit41: TDBEdit;
    Label42: TLabel;
    EditDBEdit42: TDBEdit;
    Label43: TLabel;
    EditDBEdit43: TDBEdit;
    Label44: TLabel;
    EditDBEdit44: TDBEdit;
    Label45: TLabel;
    EditDBEdit45: TDBEdit;
    Label46: TLabel;
    EditDBEdit46: TDBEdit;
    Label47: TLabel;
    EditDBEdit47: TDBEdit;
    Label48: TLabel;
    EditDBEdit48: TDBEdit;
    Label49: TLabel;
    EditDBEdit49: TDBEdit;
    Label50: TLabel;
    EditDBEdit50: TDBEdit;
    Label51: TLabel;
    EditDBEdit51: TDBEdit;
    Label52: TLabel;
    EditDBEdit52: TDBEdit;
    Label53: TLabel;
    EditDBEdit53: TDBEdit;
    Label54: TLabel;
    EditDBEdit54: TDBEdit;
    Label55: TLabel;
    EditDBEdit55: TDBEdit;
    Label56: TLabel;
    EditDBEdit56: TDBEdit;
    Label57: TLabel;
    EditDBEdit57: TDBEdit;
    Label58: TLabel;
    EditDBEdit58: TDBEdit;
    Label59: TLabel;
    EditDBEdit59: TDBEdit;
    Label60: TLabel;
    EditDBEdit60: TDBEdit;
    Label61: TLabel;
    EditDBEdit61: TDBEdit;
    Label62: TLabel;
    EditDBEdit62: TDBEdit;
    Label63: TLabel;
    EditDBEdit63: TDBEdit;
    Label64: TLabel;
    EditDBEdit64: TDBEdit;
    Label65: TLabel;
    EditDBEdit65: TDBEdit;
    Label66: TLabel;
    EditDBEdit66: TDBEdit;
    Label67: TLabel;
    EditDBEdit67: TDBEdit;
    Label68: TLabel;
    EditDBEdit68: TDBEdit;
    Label69: TLabel;
    EditDBEdit69: TDBEdit;
    Label70: TLabel;
    EditDBEdit70: TDBEdit;
    Label71: TLabel;
    EditDBEdit71: TDBEdit;
    Label72: TLabel;
    EditDBEdit72: TDBEdit;
    Label73: TLabel;
    EditDBEdit73: TDBEdit;
    Label74: TLabel;
    EditDBEdit74: TDBEdit;
    Label75: TLabel;
    EditDBEdit75: TDBEdit;
    Label76: TLabel;
    EditDBEdit76: TDBEdit;
    Label77: TLabel;
    EditDBEdit77: TDBEdit;
    Label78: TLabel;
    EditDBEdit78: TDBEdit;
    Label79: TLabel;
    EditDBEdit79: TDBEdit;
    Label80: TLabel;
    EditDBEdit80: TDBEdit;
    Label81: TLabel;
    EditDBEdit81: TDBEdit;
    Label82: TLabel;
    EditDBEdit82: TDBEdit;
    Label83: TLabel;
    EditDBEdit83: TDBEdit;
    Label84: TLabel;
    EditDBEdit84: TDBEdit;
    Label85: TLabel;
    EditDBEdit85: TDBEdit;
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Label86: TLabel;
    DBEdit1: TDBEdit;
    Label87: TLabel;
    DBEdit2: TDBEdit;
    DBGrid1: TDBGrid;
    Label88: TLabel;
    Label89: TLabel;
    ComboBox4: TComboBox;
    Label91: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Table1: TTable;
    ComboBox2: TComboBox;
    Button2: TButton;
    ComboBox3: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
    procedure FormCreate(Sender: TObject);
    //procedure Button1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label2DblClick(Sender: TObject);
    procedure Label4DblClick(Sender: TObject);
    procedure Label86DblClick(Sender: TObject);
    procedure Label3DblClick(Sender: TObject);
    procedure Label6DblClick(Sender: TObject);
    procedure Label5DblClick(Sender: TObject);
    procedure Label7DblClick(Sender: TObject);
    procedure Label8DblClick(Sender: TObject);
    procedure Label48DblClick(Sender: TObject);
    procedure Label9DblClick(Sender: TObject);
    procedure Label11DblClick(Sender: TObject);
    procedure Label16DblClick(Sender: TObject);
    procedure Label14DblClick(Sender: TObject);
    procedure Label15DblClick(Sender: TObject);
    procedure Label19DblClick(Sender: TObject);
    procedure Label12DblClick(Sender: TObject);
    procedure Label46DblClick(Sender: TObject);
    procedure Label35DblClick(Sender: TObject);
    procedure Label39DblClick(Sender: TObject);
    procedure Label38DblClick(Sender: TObject);
    procedure Label13DblClick(Sender: TObject);
    procedure Label52DblClick(Sender: TObject);
    procedure Label10DblClick(Sender: TObject);
    procedure Label66DblClick(Sender: TObject);
    procedure Label17DblClick(Sender: TObject);
    procedure Label21DblClick(Sender: TObject);
    procedure Label40DblClick(Sender: TObject);
    procedure Label56DblClick(Sender: TObject);
    procedure Label41DblClick(Sender: TObject);
    procedure Label58DblClick(Sender: TObject);
    procedure Label59DblClick(Sender: TObject);
    procedure Label60DblClick(Sender: TObject);
    procedure Label18DblClick(Sender: TObject);
    procedure Label49DblClick(Sender: TObject);
    procedure Label50DblClick(Sender: TObject);
    procedure Label22DblClick(Sender: TObject);
    procedure Label42DblClick(Sender: TObject);
    procedure Label43DblClick(Sender: TObject);
    procedure Label61DblClick(Sender: TObject);
    procedure Label62DblClick(Sender: TObject);
    procedure Label87DblClick(Sender: TObject);
    procedure Label65DblClick(Sender: TObject);
    procedure Label63DblClick(Sender: TObject);
    procedure Label64DblClick(Sender: TObject);
    procedure Label67DblClick(Sender: TObject);
    procedure Label68DblClick(Sender: TObject);
    procedure Label69DblClick(Sender: TObject);
    procedure Label70DblClick(Sender: TObject);
    procedure Label71DblClick(Sender: TObject);
    procedure Label72Click(Sender: TObject);
    procedure Label44DblClick(Sender: TObject);
    procedure Label23DblClick(Sender: TObject);
    procedure Label24DblClick(Sender: TObject);
    procedure Label25DblClick(Sender: TObject);
    procedure Label27DblClick(Sender: TObject);
    procedure Label29DblClick(Sender: TObject);
    procedure Label78DblClick(Sender: TObject);
    procedure Label79DblClick(Sender: TObject);
    procedure Label45DblClick(Sender: TObject);
    procedure Label26DblClick(Sender: TObject);
    procedure Label30DblClick(Sender: TObject);
    procedure Label31DblClick(Sender: TObject);
    procedure Label74DblClick(Sender: TObject);
    procedure Label76DblClick(Sender: TObject);
    procedure Label32DblClick(Sender: TObject);
    procedure Label28DblClick(Sender: TObject);
    procedure Label33DblClick(Sender: TObject);
    procedure Label34DblClick(Sender: TObject);
    procedure Label80DblClick(Sender: TObject);
    procedure Label81DblClick(Sender: TObject);
    procedure Label82DblClick(Sender: TObject);
    procedure Label83DblClick(Sender: TObject);
    procedure Label84DblClick(Sender: TObject);
    procedure Label85DblClick(Sender: TObject);
    procedure Label20DblClick(Sender: TObject);
    procedure Label36DblClick(Sender: TObject);
    procedure Label37DblClick(Sender: TObject);
    procedure Label47DblClick(Sender: TObject);
    procedure Label51DblClick(Sender: TObject);
    procedure Label53DblClick(Sender: TObject);
    procedure Label54DblClick(Sender: TObject);
    procedure Label55DblClick(Sender: TObject);
    procedure Label57DblClick(Sender: TObject);
    procedure Label73DblClick(Sender: TObject);
    procedure Label75DblClick(Sender: TObject);
    procedure Label77DblClick(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure ComboBox5Click(Sender: TObject);
    procedure ComboBox6Click(Sender: TObject);
    procedure ComboBox7Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
   // procedure Label4Click(Sender: TObject);
   // procedure Label4Click(Sender: TObject);
  private
    { private declarations }
    function Match(str1,str2:string):Boolean;
    function Min(len1,len2:integer):integer;
  public
    { public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.DFM}

function Tform5.Min(len1,len2:integer):integer;
begin
  if len1<=len2
    then
      result:=len1 else
      result:=len2;
end;



function TForm5.Match(str1,str2:string):Boolean;
var
  len,i:integer;

begin
  len:=Min(length(str1),length(str2));
  result:=true;
  for i:=1 to len do
  begin
    if str1[i]<>str2[i]
      then
        begin
          result:=false;
          Exit;
        end;
  end;
end;





procedure TForm5.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  strtemp:string;
  begin
  if Edit2.Text<>'' then
    begin

    //ss:='Table1'+'姓名';

      strtemp:=table1.FieldValues[combobox4.Text];
      //strtemp:=table1.fieldbyname('姓名').AsString;//Table1XM为代表姓名的字段
      Accept:=Match(Edit2.Text,strtemp);
    end;


end;



procedure TForm5.FormCreate(Sender: TObject);
begin



  Table1.Open;

  form5.Top:=0;
  form5.Left:=0;

end;

{procedure TForm5.Button1Click(Sender: TObject);
begin



if combobox4.Text<>'' then
begin


table1.Filter:=combobox4.Text+combobox1.Text+''''+edit2.text+'''';
table1.Filtered:=true;




end;



end;  }

procedure TForm5.ComboBox2Click(Sender: TObject);
begin

table1.Edit;

editdbedit3.Text:=combobox2.Text;

table1.Post;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin

table1.Filtered:=false;



end;

procedure TForm5.Label2DblClick(Sender: TObject);
begin

table1.Edit;

if editdbedit2.ReadOnly=true then
begin
 table1.Edit;
label2.Font.Color:=rgb(255,0,0);
editdbedit2.ReadOnly:=false;

end
else
   begin
 table1.Post;
label2.Font.Color:=rgb(0,0,0);
editdbedit2.ReadOnly:=true;
end;



end;

procedure TForm5.Label4DblClick(Sender: TObject);
begin

table1.Edit;
if editdbedit4.ReadOnly=true then
begin

table1.Edit;
label4.Font.Color:=rgb(255,0,0);
editdbedit4.ReadOnly:=false;


end
else
   begin

   table1.Post;
label4.Font.Color:=rgb(0,0,0);
editdbedit4.ReadOnly:=true;
end;


end;

procedure TForm5.Label86DblClick(Sender: TObject);

begin
table1.Edit;

  if dbedit1.ReadOnly=true then
begin

 table1.Edit;

label86.Font.Color:=rgb(255,0,0);
dbedit1.ReadOnly:=false;


end
else
   begin

   table1.Post;
label86.Font.Color:=rgb(0,0,0);
dbedit1.ReadOnly:=true;
end;


end;

procedure TForm5.Label3DblClick(Sender: TObject);
begin



table1.Edit;

  if editdbedit3.ReadOnly=true then
begin

 table1.Edit;

label3.Font.Color:=rgb(255,0,0);
editdbedit3.ReadOnly:=false;


end
else
   begin

   table1.Post;
label3.Font.Color:=rgb(0,0,0);
editdbedit3.ReadOnly:=true;
end;



end;

procedure TForm5.Label6DblClick(Sender: TObject);
begin


   table1.Edit;

  if editdbedit6.ReadOnly=true then
begin

 table1.Edit;

label6.Font.Color:=rgb(255,0,0);
editdbedit6.ReadOnly:=false;


end
else
   begin

   table1.Post;
label6.Font.Color:=rgb(0,0,0);
editdbedit6.ReadOnly:=true;
end;


end;

procedure TForm5.Label5DblClick(Sender: TObject);
begin





   table1.Edit;

  if editdbedit5.ReadOnly=true then
begin

 table1.Edit;

label5.Font.Color:=rgb(255,0,0);
editdbedit5.ReadOnly:=false;


end
else
   begin

   table1.Post;
label5.Font.Color:=rgb(0,0,0);
editdbedit5.ReadOnly:=true;
end;






end;

procedure TForm5.Label7DblClick(Sender: TObject);
begin



   table1.Edit;

  if editdbedit7.ReadOnly=true then
begin

 table1.Edit;

label7.Font.Color:=rgb(255,0,0);
editdbedit7.ReadOnly:=false;


end
else
   begin

   table1.Post;
label7.Font.Color:=rgb(0,0,0);
editdbedit7.ReadOnly:=true;
end;




end;

procedure TForm5.Label8DblClick(Sender: TObject);
begin




   table1.Edit;

  if editdbedit8.ReadOnly=true then
begin

 table1.Edit;

label8.Font.Color:=rgb(255,0,0);
editdbedit8.ReadOnly:=false;


end
else
   begin

   table1.Post;
label8.Font.Color:=rgb(0,0,0);
editdbedit8.ReadOnly:=true;
end;




end;

procedure TForm5.Label48DblClick(Sender: TObject);
begin



   table1.Edit;

  if editdbedit48.ReadOnly=true then
begin

 table1.Edit;

label48.Font.Color:=rgb(255,0,0);
editdbedit48.ReadOnly:=false;


end
else
   begin

   table1.Post;
label48.Font.Color:=rgb(0,0,0);
editdbedit48.ReadOnly:=true;
end;



end;

procedure TForm5.Label9DblClick(Sender: TObject);
begin




   table1.Edit;

  if editdbedit9.ReadOnly=true then
begin

 table1.Edit;

label9.Font.Color:=rgb(255,0,0);
editdbedit9.ReadOnly:=false;


end
else
   begin

   table1.Post;
label9.Font.Color:=rgb(0,0,0);
editdbedit9.ReadOnly:=true;
end;





end;

procedure TForm5.Label11DblClick(Sender: TObject);
begin



   table1.Edit;

  if editdbedit11.ReadOnly=true then
begin

 table1.Edit;

label11.Font.Color:=rgb(255,0,0);
editdbedit11.ReadOnly:=false;


end
else
   begin

   table1.Post;
label11.Font.Color:=rgb(0,0,0);
editdbedit11.ReadOnly:=true;
end;





end;

procedure TForm5.Label16DblClick(Sender: TObject);
begin




   table1.Edit;

  if editdbedit16.ReadOnly=true then
begin

 table1.Edit;

label16.Font.Color:=rgb(255,0,0);
editdbedit16.ReadOnly:=false;


end
else
   begin

   table1.Post;
label16.Font.Color:=rgb(0,0,0);
editdbedit16.ReadOnly:=true;
end;





end;

procedure TForm5.Label14DblClick(Sender: TObject);
begin




   table1.Edit;

  if editdbedit14.ReadOnly=true then
begin

 table1.Edit;

label14.Font.Color:=rgb(255,0,0);
editdbedit14.ReadOnly:=false;


end
else
   begin

   table1.Post;
label14.Font.Color:=rgb(0,0,0);
editdbedit14.ReadOnly:=true;
end;




end;

procedure TForm5.Label15DblClick(Sender: TObject);
begin



   table1.Edit;

  if editdbedit15.ReadOnly=true then
begin

 table1.Edit;

label15.Font.Color:=rgb(255,0,0);
editdbedit15.ReadOnly:=false;


end
else
   begin

   table1.Post;
label15.Font.Color:=rgb(0,0,0);
editdbedit15.ReadOnly:=true;
end;





end;

procedure TForm5.Label19DblClick(Sender: TObject);
begin



   table1.Edit;

  if editdbedit19.ReadOnly=true then
begin

 table1.Edit;

label19.Font.Color:=rgb(255,0,0);
editdbedit19.ReadOnly:=false;


end
else
   begin

   table1.Post;
label19.Font.Color:=rgb(0,0,0);
editdbedit19.ReadOnly:=true;
end;





end;

procedure TForm5.Label12DblClick(Sender: TObject);
begin




   table1.Edit;

  if editdbedit12.ReadOnly=true then
begin

 table1.Edit;

label12.Font.Color:=rgb(255,0,0);
editdbedit12.ReadOnly:=false;


end
else
   begin

   table1.Post;
label12.Font.Color:=rgb(0,0,0);
editdbedit12.ReadOnly:=true;
end;







end;

procedure TForm5.Label46DblClick(Sender: TObject);
begin



table1.Edit;

  if editdbedit46.ReadOnly=true then
begin

 table1.Edit;

label46.Font.Color:=rgb(255,0,0);
editdbedit46.ReadOnly:=false;


end
else
   begin

   table1.Post;
label46.Font.Color:=rgb(0,0,0);
editdbedit46.ReadOnly:=true;
end;




end;

procedure TForm5.Label35DblClick(Sender: TObject);
begin



table1.Edit;

  if editdbedit35.ReadOnly=true then
begin

 table1.Edit;

label35.Font.Color:=rgb(255,0,0);
editdbedit35.ReadOnly:=false;


end
else
   begin

   table1.Post;
label35.Font.Color:=rgb(0,0,0);
editdbedit35.ReadOnly:=true;
end;







end;

procedure TForm5.Label39DblClick(Sender: TObject);
begin


table1.Edit;

  if editdbedit39.ReadOnly=true then
begin

 table1.Edit;

label39.Font.Color:=rgb(255,0,0);
editdbedit39.ReadOnly:=false;


end
else
   begin

   table1.Post;
label39.Font.Color:=rgb(0,0,0);
editdbedit39.ReadOnly:=true;
end;






end;

procedure TForm5.Label38DblClick(Sender: TObject);
begin




table1.Edit;

  if editdbedit38.ReadOnly=true then
begin

 table1.Edit;

label38.Font.Color:=rgb(255,0,0);
editdbedit38.ReadOnly:=false;


end
else
   begin

   table1.Post;
label38.Font.Color:=rgb(0,0,0);
editdbedit38.ReadOnly:=true;
end;





end;

procedure TForm5.Label13DblClick(Sender: TObject);
begin


table1.Edit;

  if editdbedit13.ReadOnly=true then
begin

 table1.Edit;