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('請(qǐng)輸入查詢條件！！','錯(cuò)誤',mb_iconhand+mb_yesno);
edit1.SetFocus;
end; //都為空，出錯(cuò) 焦點(diǎn)放到部門代碼上面


if (edit1.Text<>'') and (edit2.Text='') and (edit3.Text='') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygluyong where 簽約合同號(hào)='''+edit1.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='簽約合同號(hào)';
 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:='聘用標(biāo)志';
 dbgrid1.Columns[8].FieldName:='備注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('對(duì)不起，數(shù)據(jù)庫(kù)中沒(méi)有您所要的信息。請(qǐng)與管理員聯(lián)系！！','錯(cuò)誤',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 簽約合同號(hào)='''+edit1.Text+''' and 員工id='''+edit2.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='簽約合同號(hào)';
 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:='聘用標(biāo)志';
 dbgrid1.Columns[8].FieldName:='備注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('對(duì)不起，數(shù)據(jù)庫(kù)中沒(méi)有您所要的信息。請(qǐng)與管理員聯(lián)系！！','錯(cuò)誤',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 簽約合同號(hào)='''+edit1.Text+''' and 員工id='''+edit2.Text+''' and 姓名='''+edit3.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='簽約合同號(hào)';
 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:='聘用標(biāo)志';
 dbgrid1.Columns[8].FieldName:='備注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('對(duì)不起，數(shù)據(jù)庫(kù)中沒(méi)有您所要的信息。請(qǐng)與管理員聯(lián)系！！','錯(cuò)誤',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:='簽約合同號(hào)';
 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:='聘用標(biāo)志';
 dbgrid1.Columns[8].FieldName:='備注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('對(duì)不起，數(shù)據(jù)庫(kù)中沒(méi)有您所要的信息。請(qǐng)與管理員聯(lián)系！！','錯(cuò)誤',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:='簽約合同號(hào)';
 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:='聘用標(biāo)志';
 dbgrid1.Columns[8].FieldName:='備注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('對(duì)不起，數(shù)據(jù)庫(kù)中沒(méi)有您所要的信息。請(qǐng)與管理員聯(lián)系！！','錯(cuò)誤',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:='簽約合同號(hào)';
 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:='聘用標(biāo)志';
 dbgrid1.Columns[8].FieldName:='備注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
 end;
 if dm.ADOQuery1.Eof then
begin
application.MessageBox('對(duì)不起，數(shù)據(jù)庫(kù)中沒(méi)有您所要的信息。請(qǐng)與管理員聯(lián)系！！','錯(cuò)誤',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;
end;

procedure Tlychaxun.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Add('勞動(dòng)合同');
ComboBox1.Items.Add('勞務(wù)合同');
ComboBox2.Items.Add('錄用');
ComboBox2.Items.Add('續(xù)聘');
ComboBox2.Items.Add('解聘');
 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('確實(shí)要?jiǎng)h除當(dāng)前數(shù)據(jù)嗎?','提示',mb_iconquestion+mb_yesno)=id_yes then
begin
try
 dm.ADOQuery1.Delete;
 dm.ADOQuery1.Refresh;

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

 except
 application.MessageBox('系統(tǒng)出錯(cuò)!','提示',64);
 end;
 end;
end;

procedure Tlychaxun.Button5Click(Sender: TObject);
begin
lychaxun.Close;
end;

end.