unit26.~pas

来自「一个完整的工资管理系统 主要走查询 添加 删除 管理等功能」· ~PAS 代码 · 共 281 行

unit Unit26;

interface

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

type
  Tkqkhchaxun = class(TForm)
    GroupBox1: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kqkhchaxun: Tkqkhchaxun;

implementation

uses Unit1, Unit2, Unit24, Unit25, Unit3;

{$R *.dfm}

procedure Tkqkhchaxun.Button4Click(Sender: TObject);
begin
kqkhchaxun.Close;
end;

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

procedure Tkqkhchaxun.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 Tkqkhchaxun.FormCreate(Sender: TObject);
var
  i:integer;
begin
ComboBox1.Items.Add('A型');
ComboBox1.Items.Add('B型');
    with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from kqxinxi,kqkaohexinxi where kqxinxi.考勤id=kqkaohexinxi.考勤id ');
Open;
dbgrid1.Columns[0].FieldName:='kqxinxi.考勤id';
 dbgrid1.Columns[1].FieldName:='kqxinxi.员工id';
 dbgrid1.Columns[2].FieldName:='考勤日期';
 dbgrid1.Columns[3].FieldName:='考勤类型';
 dbgrid1.Columns[4].FieldName:='天数';
 dbgrid1.Columns[5].FieldName:='考核日期';
 dbgrid1.Columns[6].FieldName:='奖励';
 dbgrid1.Columns[7].FieldName:='惩罚';
 dbgrid1.Columns[8].FieldName:='加班费';
 dbgrid1.Columns[9].FieldName:='扣考核';
 dbgrid1.Columns[10].FieldName:='考核人员';
  for i:=0 to 10 do
  dbgrid1.Columns[i].Width:=66;
  end;
end;

procedure Tkqkhchaxun.Button1Click(Sender: TObject);
var
  i:integer;
begin
 if (edit1.Text='') and (edit2.Text='') and (ComboBox1.Text='ComboBox1') then
begin
application.MessageBox('请输入查询条件！！','错误',mb_iconhand+mb_yesno);
edit1.SetFocus;
end; //都为空，出错 焦点放到部门代码上面


if (edit1.Text<>'') and (edit2.Text='')  and (ComboBox1.Text='ComboBox1') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from kqxinxi,kqkaohexinxi where kqxinxi.考勤id=kqkaohexinxi.考勤id and kqxinxi.考勤id='''+edit1.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='kqxinxi.考勤id';
 dbgrid1.Columns[1].FieldName:='kqxinxi.员工id';
 dbgrid1.Columns[2].FieldName:='考勤日期';
 dbgrid1.Columns[3].FieldName:='考勤类型';
 dbgrid1.Columns[4].FieldName:='天数';
 dbgrid1.Columns[5].FieldName:='考核日期';
 dbgrid1.Columns[6].FieldName:='奖励';
 dbgrid1.Columns[7].FieldName:='惩罚';
 dbgrid1.Columns[8].FieldName:='加班费';
 dbgrid1.Columns[9].FieldName:='扣考核';
 dbgrid1.Columns[10].FieldName:='考核人员';
 for i:=0 to 10 do
  dbgrid1.Columns[i].Width:=66;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
if (edit1.Text<>'') and (edit2.Text<>'')  and (ComboBox1.Text='ComboBox1') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from kqxinxi,kqkaohexinxi where kqxinxi.考勤id=kqkaohexinxi.考勤id and kqxinxi.考勤id='''+edit1.Text+''' and kqxinxi.员工id='''+edit2.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='kqxinxi.考勤id';
 dbgrid1.Columns[1].FieldName:='kqxinxi.员工id';
 dbgrid1.Columns[2].FieldName:='考勤日期';
 dbgrid1.Columns[3].FieldName:='考勤类型';
 dbgrid1.Columns[4].FieldName:='天数';
 dbgrid1.Columns[5].FieldName:='考核日期';
 dbgrid1.Columns[6].FieldName:='奖励';
 dbgrid1.Columns[7].FieldName:='惩罚';
 dbgrid1.Columns[8].FieldName:='加班费';
 dbgrid1.Columns[9].FieldName:='扣考核';
 dbgrid1.Columns[10].FieldName:='考核人员';
 for i:=0 to 10 do
  dbgrid1.Columns[i].Width:=66;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
if (edit1.Text<>'') and (edit2.Text<>'')  and (ComboBox1.Text<>'ComboBox1') then
begin
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from kqxinxi,kqkaohexinxi where kqxinxi.考勤id=kqkaohexinxi.考勤id and kqxinxi.考勤id='''+edit1.Text+''' and kqxinxi.员工id='''+edit2.Text+''' and kqxinxi.考勤类型='''+ComboBox1.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='kqxinxi.考勤id';
 dbgrid1.Columns[1].FieldName:='kqxinxi.员工id';
 dbgrid1.Columns[2].FieldName:='考勤日期';
 dbgrid1.Columns[3].FieldName:='考勤类型';
 dbgrid1.Columns[4].FieldName:='天数';
 dbgrid1.Columns[5].FieldName:='考核日期';
 dbgrid1.Columns[6].FieldName:='奖励';
 dbgrid1.Columns[7].FieldName:='惩罚';
 dbgrid1.Columns[8].FieldName:='加班费';
 dbgrid1.Columns[9].FieldName:='扣考核';
 dbgrid1.Columns[10].FieldName:='考核人员';
 for i:=0 to 10 do
  dbgrid1.Columns[i].Width:=66;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
if (edit1.Text='') and (edit2.Text<>'')  and (ComboBox1.Text<>'ComboBox1') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from kqxinxi,kqkaohexinxi where kqxinxi.考勤id=kqkaohexinxi.考勤id  and kqxinxi.员工id='''+edit2.Text+''' and kqxinxi.考勤类型='''+ComboBox1.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='kqxinxi.考勤id';
 dbgrid1.Columns[1].FieldName:='kqxinxi.员工id';
 dbgrid1.Columns[2].FieldName:='考勤日期';
 dbgrid1.Columns[3].FieldName:='考勤类型';
 dbgrid1.Columns[4].FieldName:='天数';
 dbgrid1.Columns[5].FieldName:='考核日期';
 dbgrid1.Columns[6].FieldName:='奖励';
 dbgrid1.Columns[7].FieldName:='惩罚';
 dbgrid1.Columns[8].FieldName:='加班费';
 dbgrid1.Columns[9].FieldName:='扣考核';
 dbgrid1.Columns[10].FieldName:='考核人员';
 for i:=0 to 10 do
  dbgrid1.Columns[i].Width:=66;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
if (edit1.Text='') and (edit2.Text<>'')  and (ComboBox1.Text='ComboBox1') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from kqxinxi,kqkaohexinxi where kqxinxi.考勤id=kqkaohexinxi.考勤id  and kqxinxi.员工id='''+edit2.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='kqxinxi.考勤id';
 dbgrid1.Columns[1].FieldName:='kqxinxi.员工id';
 dbgrid1.Columns[2].FieldName:='考勤日期';
 dbgrid1.Columns[3].FieldName:='考勤类型';
 dbgrid1.Columns[4].FieldName:='天数';
 dbgrid1.Columns[5].FieldName:='考核日期';
 dbgrid1.Columns[6].FieldName:='奖励';
 dbgrid1.Columns[7].FieldName:='惩罚';
 dbgrid1.Columns[8].FieldName:='加班费';
 dbgrid1.Columns[9].FieldName:='扣考核';
 dbgrid1.Columns[10].FieldName:='考核人员';
 for i:=0 to 10 do
  dbgrid1.Columns[i].Width:=66;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
if (edit1.Text='') and (edit2.Text='')  and (ComboBox1.Text<>'ComboBox1') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from kqxinxi,kqkaohexinxi where kqxinxi.考勤id=kqkaohexinxi.考勤id  and kqxinxi.考勤类型='''+ComboBox1.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='kqxinxi.考勤id';
 dbgrid1.Columns[1].FieldName:='kqxinxi.员工id';
 dbgrid1.Columns[2].FieldName:='考勤日期';
 dbgrid1.Columns[3].FieldName:='考勤类型';
 dbgrid1.Columns[4].FieldName:='天数';
 dbgrid1.Columns[5].FieldName:='考核日期';
 dbgrid1.Columns[6].FieldName:='奖励';
 dbgrid1.Columns[7].FieldName:='惩罚';
 dbgrid1.Columns[8].FieldName:='加班费';
 dbgrid1.Columns[9].FieldName:='扣考核';
 dbgrid1.Columns[10].FieldName:='考核人员';
 for i:=0 to 10 do
  dbgrid1.Columns[i].Width:=66;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
end;

end.