yggb.pas

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

bmstr,bzstr,numberstr,rsbmstr,number_text,yggbstr:string;
i_len:integer;
begin
if key=13 then
begin
if length(dbedit2.text)<2 then
begin
showmessage('请先输入编码');
with datamodule1.rsbms do
begin
close;
sql.clear;
sql.Add('select *from rsbm');
prepare;
open;
end;
dbedit2.text:=datamodule1.rsbms.fieldbyname('a_number').asstring;
end
else
begin
number_text:=copy(dbedit2.text,1,2);
rsbmstr:='select *from rsbm where a_number='+''''+number_text+'''';
with datamodule1.rsbms do
begin
close;
sql.clear;
sql.add(rsbmstr);
prepare;
open;
end;
if datamodule1.rsbms.eof then
begin
showmessage('没有此部门编号，请检查一下输入是否正确');
with datamodule1.rsbms do
begin
close;
sql.clear;
sql.Add('select *from rsbm');
prepare;
open;
end;
dbedit2.text:=datamodule1.rsbms.fieldbyname('a_number').asstring;
dbedit2.setfocus;
end//if
else
begin
if length(dbedit2.text)<5 then
begin
i_len:=1;
number_text:=copy(dbedit2.text,1,2);
while i_len<=5-length(dbedit2.text) do
begin
number_text:=number_text+'0';
i_len:=i_len+1;
end;//while
number_text:=number_text+copy(dbedit2.text,3,length(dbedit2.text));
dbedit2.text:='';
dbedit2.text:=number_text;
end;//if <6
bmstr:=dbedit12.Text;
bzstr:=dbedit3.text;
numberstr:=dbedit2.text;
if length(dbedit2.text)>5 then
showmessage('编号不能多于六位，请重新输入')
else
begin
yggbstr:='select *from yggb where a_number='+''''+dbedit2.text+'''';
with datamodule1.yggb do
begin
close;
sql.clear;
sql.add(yggbstr);
prepare;
open;
end;
if datamodule1.yggb.eof then
 if messagedlg('没有编号为'+numberstr+'的员工档案，你要添加吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
 begin
 toolbutton3.click;
 dbedit12.SetFocus;
 dbedit12.text:=bmstr;
 dbedit3.setfocus;
 dbedit3.text:=bzstr;
 treeview2.visible:=false;
 dbedit2.text:=numberstr;
 dbedit1.setfocus;
 end;//if messagedlg }

end;//else没有此部门编号

end;
end;
end;//if key=13
end;

procedure Tyggbb.Button4Click(Sender: TObject);
var
rsbmstr:string;
begin
dbedit12.color:=clwhite;
dbedit3.color:=clwhite;
rsbmstr:='select *from rsbm where a_bm='+''''+dbedit12.text+'''';
rsbmstr:=rsbmstr+' and a_bz='+''''+dbedit3.text+'''';
with datamodule1.rsbms do
begin
close;
sql.clear;
sql.add(rsbmstr);
prepare;
open;
end;
dbedit2.text:=datamodule1.rsbms.fieldbyname('a_number').asstring;
dbedit2.setfocus;
end;

procedure Tyggbb.ListBox1Click(Sender: TObject);
var
yggbstr:string;
begin
//datamodule1.yggb.Locate('a_name',dblistbox1.Items[dblistbox1.ItemIndex],[locaseinsensitive]);
if edit1.text<>'' then
begin
yggbstr:='select *from yggb where a_name='+''''+listbox1.Items[listbox1.itemindex]+'''';
yggbstr:=yggbstr+' and a_bm='+''''+edit1.text+'''';
yggbstr:=yggbstr+' and a_bz='+''''+edit2.text+'''';
end
else
begin
yggbstr:='select *from yggb where a_name='+''''+listbox1.items[listbox1.itemindex]+'''';

end;
with datamodule1.yggb do
begin
close;
sql.clear;
sql.add(yggbstr);
prepare;
open;
end;
datetimepicker1.Date:=datamodule1.yggb.fieldbyname('a_bir').asdatetime;
datetimepicker2.date:=datamodule1.yggb.fieldbyname('a_hzsj').asdatetime;
dbedit2.setfocus;
end;

procedure Tyggbb.DBEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
dbcombobox1.setfocus;
end;

procedure Tyggbb.DBComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
dblookupcombobox1.setfocus;
end;

procedure Tyggbb.DBLookupComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
datetimepicker1.SetFocus;
end;

procedure Tyggbb.DateTimePicker1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 dblookupcombobox2.setfocus;
end;

procedure Tyggbb.DBLookupComboBox2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 dbcombobox5.setfocus;
end;

procedure Tyggbb.DBComboBox5KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 dbedit4.setfocus;
end;

procedure Tyggbb.DBEdit5KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 datetimepicker2.setfocus;
end;

procedure Tyggbb.DBEdit4KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 dbedit5.setfocus;
end;

procedure Tyggbb.DateTimePicker2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 dbedit6.setfocus;
end;

procedure Tyggbb.DBEdit7KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 dblookupcombobox3.setfocus;
end;

procedure Tyggbb.DBEdit6KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
dbedit7.setfocus;
end;

procedure Tyggbb.DBLookupComboBox3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
dblookupcombobox4.SetFocus;
end;

procedure Tyggbb.DBLookupComboBox4KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 dbcombobox6.setfocus;
end;

procedure Tyggbb.DBEdit8KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
dbedit9.setfocus;
end;

procedure Tyggbb.DBEdit9KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
dbedit10.setfocus;
end;

procedure Tyggbb.DBEdit10KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
dbedit11.setfocus;
end;

procedure Tyggbb.DBEdit11KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
pagecontrol1.ActivePageIndex :=1;

end;

procedure Tyggbb.DBComboBox6KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 dbedit8.setfocus;
end;

procedure Tyggbb.DBEdit1Enter(Sender: TObject);
begin
dbedit1.color:=cllime;
end;

procedure Tyggbb.DBEdit8Enter(Sender: TObject);
begin
dbedit8.color:=cllime;
end;

procedure Tyggbb.DBEdit9Enter(Sender: TObject);
begin
dbedit9.color:=cllime;
end;

procedure Tyggbb.DBEdit10Enter(Sender: TObject);
begin
dbedit10.color:=cllime;
end;

procedure Tyggbb.DBEdit11Enter(Sender: TObject);
begin
dbedit11.color:=cllime;
end;

procedure Tyggbb.DBEdit6Enter(Sender: TObject);
begin
dbedit6.color:=cllime;
end;

procedure Tyggbb.DBEdit7Enter(Sender: TObject);
begin
dbedit7.color:=cllime;
end;

procedure Tyggbb.DBEdit4Enter(Sender: TObject);
begin
dbedit4.color:=cllime;
end;

procedure Tyggbb.DBEdit5Enter(Sender: TObject);
begin
dbedit5.color:=cllime;
end;

procedure Tyggbb.DBComboBox1Enter(Sender: TObject);
begin
dbcombobox1.color:=cllime;
end;

procedure Tyggbb.DBLookupComboBox1Enter(Sender: TObject);
begin
dblookupcombobox1.color:=cllime;
end;

procedure Tyggbb.DateTimePicker1Enter(Sender: TObject);
begin
datetimepicker1.color:=cllime;
end;

procedure Tyggbb.DateTimePicker2Enter(Sender: TObject);
begin
datetimepicker2.color:=cllime;
end;

procedure Tyggbb.DBLookupComboBox2Enter(Sender: TObject);
begin
dblookupcombobox2.color:=cllime;
end;

procedure Tyggbb.DBComboBox5Enter(Sender: TObject);
begin
dbcombobox5.color:=cllime;
end;

procedure Tyggbb.DBComboBox6Enter(Sender: TObject);
begin
dbcombobox6.color:=cllime;
end;

procedure Tyggbb.DBLookupComboBox4Enter(Sender: TObject);
begin
dblookupcombobox4.color:=cllime;
end;

procedure Tyggbb.DBLookupComboBox3Enter(Sender: TObject);
begin
dblookupcombobox3.color:=cllime;
end;

procedure Tyggbb.DBEdit1Exit(Sender: TObject);
begin
dbedit1.color:=clwhite;
end;

procedure Tyggbb.DBComboBox1Exit(Sender: TObject);
begin
dbcombobox1.color:=clwhite;
end;

procedure Tyggbb.DBLookupComboBox1Exit(Sender: TObject);
begin
dblookupcombobox1.color:=clwhite;
end;

procedure Tyggbb.DateTimePicker1Exit(Sender: TObject);
begin
datetimepicker1.color:=clwhite;
end;

procedure Tyggbb.DBLookupComboBox2Exit(Sender: TObject);
begin
dblookupcombobox2.color:=clwhite;
end;

procedure Tyggbb.DBComboBox5Exit(Sender: TObject);
begin
dbcombobox5.color:=clwhite;
end;

procedure Tyggbb.DBEdit4Exit(Sender: TObject);
begin
dbedit4.color:=clwhite;
end;

procedure Tyggbb.DBEdit5Exit(Sender: TObject);
begin
dbedit5.color:=clwhite;
end;

procedure Tyggbb.DateTimePicker2Exit(Sender: TObject);
begin
datetimepicker2.color:=clwhite;
end;

procedure Tyggbb.DBEdit6Exit(Sender: TObject);
begin
dbedit6.color:=clwhite;
end;

procedure Tyggbb.DBEdit7Exit(Sender: TObject);
begin
dbedit7.color:=clwhite;
end;

procedure Tyggbb.DBLookupComboBox3Exit(Sender: TObject);
begin
dblookupcombobox3.color:=clwhite;
end;

procedure Tyggbb.DBLookupComboBox4Exit(Sender: TObject);
begin
dblookupcombobox4.color:=clwhite;
end;

procedure Tyggbb.DBComboBox6Exit(Sender: TObject);
begin
dbcombobox6.color:=clwhite;
end;

procedure Tyggbb.DBEdit8Exit(Sender: TObject);
begin
dbedit8.color:=clwhite;
end;

procedure Tyggbb.DBEdit9Exit(Sender: TObject);
begin
dbedit9.color:=clwhite;
end;

procedure Tyggbb.DBEdit10Exit(Sender: TObject);
begin
dbedit10.color:=clwhite;
end;

procedure Tyggbb.DBEdit11Exit(Sender: TObject);
begin
dbedit1.color:=clwhite;
end;

procedure Tyggbb.DBRichEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=113 then
 begin
 toolbutton4.Click;
 end;
 end;

procedure Tyggbb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self.release;
end;

end.