npyj.pas

2004090611144625767.rar 资源名称:通用工资管理

begin
thb.show;
end;

procedure Tnpyjb.Button7Click(Sender: TObject);
begin
myb.show;
end;

procedure Tnpyjb.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 var
  str:string;
begin
if inttostr(key)='13' then
begin
str:='select *from yggb where a_number like ';
str:=str+''''+'%'+edit1.text+'%'+'''';
  with datamodule1.yggb do
  begin
  close;
  sql.clear;
  sql.add(str);
  prepare;
  open;
  end;
  if datamodule1.yggb.eof then
   showmessage('查无此人，请重新输入，谢谢!')
   else
   begin
   dbgrid1.visible:=true;
   dbgrid1.setfocus;
   end;
  end;
  end;

procedure Tnpyjb.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 var
  str:string;
begin
if inttostr(key)='13' then
begin
str:='select *from yggb where a_name like ';
str:=str+''''+'%'+edit2.text+'%'+'''';
  with datamodule1.yggb do
  begin
  close;
  sql.clear;
  sql.add(str);
  prepare;
  open;
  end;
  if datamodule1.yggb.eof then
   showmessage('查无此人，请重新输入，谢谢!')
   else
   begin
   dbgrid1.visible:=true;
   dbgrid1.setfocus;
   end;
  end;
  end;

procedure Tnpyjb.Edit5KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 var
  str:string;
begin
if inttostr(key)='13' then
begin
str:='select *from yggb where a_number like ';
str:=str+''''+'%'+edit5.text+'%'+'''';
  with datamodule1.yggb do
  begin
  close;
  sql.clear;
  sql.add(str);
  prepare;
  open;
  end;
  if datamodule1.yggb.eof then
   showmessage('查无此人，请重新输入，谢谢!')
   else
   begin
   dbgrid2.visible:=true;
   dbgrid2.setfocus;
   end;
  end;
  end;

procedure Tnpyjb.Edit6KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 var
  str:string;
begin
if inttostr(key)='13' then
begin
str:='select *from yggb where a_name like ';
str:=str+''''+'%'+edit6.text+'%'+'''';
  with datamodule1.yggb do
  begin
  close;
  sql.clear;
  sql.add(str);
  prepare;
  open;
  end;
  if datamodule1.yggb.eof then
   showmessage('查无此人，请重新输入，谢谢!')
   else
   begin
   dbgrid2.visible:=true;
  dbgrid2.setfocus;
  end;
  end;
  end;
procedure Tnpyjb.Edit7KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 var
  str:string;
begin
if inttostr(key)='13' then
begin
str:='select *from yggb where a_number like ';
str:=str+''''+'%'+edit7.text+'%'+'''';
  with datamodule1.yggb do
  begin
  close;
  sql.clear;
  sql.add(str);
  prepare;
  open;
  end;
  if datamodule1.yggb.eof then
   showmessage('查无此人，请重新输入，谢谢!')
   else
   begin
   dbgrid3.visible:=true;
  dbgrid3.setfocus;
  end;
  end;
  end;
procedure Tnpyjb.Edit9KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 var
  str:string;
begin
if inttostr(key)='13' then
begin
str:='select *from yggb where a_name like ';
str:=str+''''+'%'+edit9.text+'%'+'''';
  with datamodule1.yggb do
  begin
  close;
  sql.clear;
  sql.add(str);
  prepare;
  open;
  end;
  if datamodule1.yggb.eof then
   showmessage('查无此人，请重新输入，谢谢!')
   else
   begin
   dbgrid3.visible:=true;
  dbgrid3.setfocus;
  end;
  end;
  end;

procedure Tnpyjb.DBGrid2CellClick(Column: TColumn);
begin
edit5.text:=datamodule1.yggb.fieldbyname('a_number').asstring;
edit6.text:=datamodule1.yggb.fieldbyname('a_name').asstring;
dbgrid2.visible:=false;
end;

procedure Tnpyjb.DBGrid1CellClick(Column: TColumn);
begin
edit1.text:=datamodule1.yggb.fieldbyname('a_number').asstring;
edit2.text:=datamodule1.yggb.fieldbyname('a_name').asstring;
dbgrid1.visible:=false;
end;

procedure Tnpyjb.DBGrid3CellClick(Column: TColumn);
begin
edit7.text:=datamodule1.yggb.fieldbyname('a_number').asstring;
edit9.text:=datamodule1.yggb.fieldbyname('a_name').asstring;
dbgrid3.visible:=false;
end;

procedure Tnpyjb.Button4Click(Sender: TObject);
begin
htyjb.show;
end;


procedure Tnpyjb.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 lastcolor: TColor;
begin
 with (Sender as TDBGrid) do
 begin
   lastcolor := clred;

   case DataSource.DataSet.RecNo mod 2 of
     1: lastcolor := $00F5FEFD;
     0: lastcolor := clwhite;
   end;

   if gdSelected in State then
     lastcolor := clred;      //选中行背景为绿色

   Canvas.Brush.Color := lastcolor;
   DefaultDrawDataCell(Rect, Column.Field, State);
 end;
end;

procedure Tnpyjb.DBGrid2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
begin
edit5.text:=datamodule1.yggb.fieldbyname('a_number').asstring;
edit6.text:=datamodule1.yggb.fieldbyname('a_name').asstring;
dbgrid2.visible:=false;
end;
if key=27 then
dbgrid2.visible:=false;
end;

procedure Tnpyjb.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
begin
edit1.text:=datamodule1.yggb.fieldbyname('a_number').asstring;
edit2.text:=datamodule1.yggb.fieldbyname('a_name').asstring;
dbgrid1.visible:=false;
end;
if key=27 then
dbgrid1.visible:=false;

end;

procedure Tnpyjb.DBGrid3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
begin
edit7.text:=datamodule1.yggb.fieldbyname('a_number').asstring;
edit9.text:=datamodule1.yggb.fieldbyname('a_name').asstring;
dbgrid3.visible:=false;
end;
if key=27 then
dbgrid3.visible:=false;
end;

procedure Tnpyjb.Edit7Enter(Sender: TObject);
begin
with (sender as tedit) do
color:=cllime;
//dbgrid3.setfocus;
edit7.setfocus;
end;

procedure Tnpyjb.Edit7Exit(Sender: TObject);
begin
with (sender as tedit) do
color:=cllime;
end;

procedure Tnpyjb.Edit5Enter(Sender: TObject);
begin
with (sender as tedit) do
color:=cllime;
//dbgrid2.setfocus;

end;

procedure Tnpyjb.Edit5Exit(Sender: TObject);
begin
with (sender as tedit) do
color:=clwhite;

end;

procedure Tnpyjb.Edit1Enter(Sender: TObject);
begin
with (sender as tedit) do
color:=cllime;
//dbgrid1.SetFocus;
end;

procedure Tnpyjb.Edit1Exit(Sender: TObject);
begin
with (sender as tedit) do
color:=clwhite;
end;

procedure Tnpyjb.TabSheet2Enter(Sender: TObject);
begin
edit5.setfocus;
end;

procedure Tnpyjb.TabSheet1Enter(Sender: TObject);
begin
edit1.setfocus;
end;

end.