unit24.~pas

一个完整的工资管理系统 主要走查询 添加 删除 管理等功能

unit Unit24;

interface

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

type
  Tkqkhxiugai = class(TForm)
    GroupBox1: TGroupBox;
    Button3: TButton;
    Button5: TButton;
    Button4: TButton;
    Button2: TButton;
    Label15: TLabel;
    Label14: TLabel;
    Label13: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Button7: TButton;
    Button8: TButton;
    Button6: TButton;
    Button9: TButton;
    DBGrid2: TDBGrid;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    procedure Button3Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kqkhxiugai: Tkqkhxiugai;

implementation

uses Unit1, Unit2, Unit25, Unit3, Unit26;

{$R *.dfm}

procedure Tkqkhxiugai.Button3Click(Sender: TObject);
begin
  if application.MessageBox('确实要删除当前数据吗?','提示',mb_iconquestion+mb_yesno)=id_yes then
begin
try
 dm.ADOQuery1.Delete;
 dm.ADOQuery1.Refresh;

 application.MessageBox('删除成功!','提示',64);

 except
 application.MessageBox('系统出错!','提示',64);
 end;
 end;
end;

procedure Tkqkhxiugai.Button9Click(Sender: TObject);
begin
  if application.MessageBox('确实要删除当前数据吗?','提示',mb_iconquestion+mb_yesno)=id_yes then
begin
try
 dm.ADOQuery2.Delete;
 dm.ADOQuery2.Refresh;

 application.MessageBox('删除成功!','提示',64);

 except
 application.MessageBox('系统出错!','提示',64);
 end;
 end;
end;

procedure Tkqkhxiugai.Button4Click(Sender: TObject);
begin
kqkhxiugai.Close;
end;

procedure Tkqkhxiugai.Button8Click(Sender: TObject);
begin
  kqkhxiugai.Close;
end;

procedure Tkqkhxiugai.FormCreate(Sender: TObject);
var
  i:integer;
begin
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from kqxinxi ');
Open;
dbgrid1.Columns[0].FieldName:='考勤id';
 dbgrid1.Columns[1].FieldName:='员工id';
 dbgrid1.Columns[2].FieldName:='考勤日期';
 dbgrid1.Columns[3].FieldName:='考勤类型';
 dbgrid1.Columns[4].FieldName:='天数';
 dbgrid1.Columns[5].FieldName:='备注';
  for i:=0 to 5 do
  dbgrid1.Columns[i].Width:=66;
  dbedit1.DataField:='考勤id';
dbedit2.DataField:='员工id';
dbedit3.DataField:='考勤日期';
dbedit13.DataField:='考勤类型';
dbedit14.DataField:='天数';
dbedit4.DataField:='备注';
 end;
 with dm.ADOQuery2 do
begin
sql.Clear;
sql.Add('select *  from kqkaohexinxi ');
Open;
dbgrid2.Columns[0].FieldName:='考勤id';
 dbgrid2.Columns[1].FieldName:='员工id';
 dbgrid2.Columns[2].FieldName:='考核日期';
 dbgrid2.Columns[3].FieldName:='奖励';
 dbgrid2.Columns[4].FieldName:='惩罚';
 dbgrid2.Columns[5].FieldName:='加班费';
 dbgrid2.Columns[6].FieldName:='扣考核';
 dbgrid2.Columns[7].FieldName:='考核人员';
  for i:=0 to 7 do
  dbgrid2.Columns[i].Width:=66;
  dbedit5.DataField:='考勤id';
dbedit6.DataField:='员工id';
dbedit7.DataField:='考核日期';
dbedit8.DataField:='奖励';
dbedit9.DataField:='惩罚';
dbedit10.DataField:='加班费';
dbedit11.DataField:='扣考核';
dbedit12.DataField:='考核人员';
 end;
end;

procedure Tkqkhxiugai.Button7Click(Sender: TObject);
begin
   with dm.ADOQuery2 do
begin
edit;
FieldByName('考勤id').AsString:=dbedit5.Text;
FieldByName('员工id').AsString:=dbedit6.Text;
FieldByName('考核日期').AsString:=dbedit7.Text;
FieldByName('奖励').AsString:=dbedit8.Text;
FieldByName('惩罚').AsString:=dbedit9.Text;
FieldByName('加班费').AsString:=dbedit10.Text;
FieldByName('扣考核').AsString:=dbedit11.Text;
FieldByName('考核人员').AsString:=dbedit12.Text;
post;
end;
application.MessageBox('修改成功!','提示',64);
end;

procedure Tkqkhxiugai.Button2Click(Sender: TObject);
begin
 with dm.ADOQuery1 do
begin
edit;
FieldByName('考勤id').AsString:=dbedit1.Text;
FieldByName('员工id').AsString:=dbedit2.Text;
FieldByName('考勤日期').AsString:=dbedit3.Text;
FieldByName('考勤类型').AsString:=dbedit13.Text;
FieldByName('天数').AsString:=dbedit14.Text;
FieldByName('备注').AsString:=dbedit4.Text;
post;
end;
application.MessageBox('修改成功!','提示',64);
end;

procedure Tkqkhxiugai.Button5Click(Sender: TObject);
begin
 application.CreateForm(Tkqkhchaxun,kqkhchaxun);
kqkhchaxun.ShowModal;
kqkhchaxun.Free;

end;

procedure Tkqkhxiugai.Button6Click(Sender: TObject);
begin
application.CreateForm(Tkqkhchaxun,kqkhchaxun);
kqkhchaxun.ShowModal;
kqkhchaxun.Free;
end;

end.