unit19.pas

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

unit Unit19;

interface

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

type
  Tlychaxun = class(TForm)
    Label10: TLabel;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lychaxun: Tlychaxun;

implementation

uses Unit1, Unit17, Unit18, Unit2;

{$R *.dfm}

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


if (edit1.Text<>'') and (edit2.Text='') and (edit3.Text='') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygluyong where 签约合同号='''+edit1.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='签约合同号';
 dbgrid1.Columns[1].FieldName:='员工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:='备注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 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 (edit3.Text='') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygluyong where 签约合同号='''+edit1.Text+''' and 员工id='''+edit2.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='签约合同号';
 dbgrid1.Columns[1].FieldName:='员工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:='备注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 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 (edit3.Text<>'') then
begin
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygluyong where 签约合同号='''+edit1.Text+''' and 员工id='''+edit2.Text+''' and 姓名='''+edit3.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='签约合同号';
 dbgrid1.Columns[1].FieldName:='员工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:='备注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 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 (edit3.Text<>'') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygluyong where 员工id='''+edit2.Text+''' and 姓名='''+edit3.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='签约合同号';
 dbgrid1.Columns[1].FieldName:='员工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:='备注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 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 (edit3.Text='') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygluyong where 员工id='''+edit2.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='签约合同号';
 dbgrid1.Columns[1].FieldName:='员工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:='备注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 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 (edit3.Text<>'') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygluyong where 姓名='''+edit3.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='签约合同号';
 dbgrid1.Columns[1].FieldName:='员工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:='备注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
end;

procedure Tlychaxun.FormCreate(Sender: TObject);
begin

 dm.ADOQuery1.SQL.Clear;
end;

procedure Tlychaxun.Button3Click(Sender: TObject);
begin
  application.CreateForm(Tlyxiugai,lyxiugai);
lyxiugai.ShowModal;
lyxiugai.Free;
end;

procedure Tlychaxun.Button4Click(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 Tlychaxun.Button5Click(Sender: TObject);
begin
lychaxun.Close;
end;

end.