📄 unit3.pas
字号:
edit7.Enabled:=true;
edit9.Enabled:=true;
edit10.Enabled:=true;
edit11.Enabled:=true;
//--------合同情况
edit12.Enabled:=true;
DateTimePicker3.Enabled:=true;
DateTimePicker5.Enabled:=true;
pase:='1';
PageControl1.ActivePageIndex:=0;
with dm.QPerson do
begin
close;
sql.Clear;
sql.Add('select max(EMPID) from Person');
open;
end;
str:=dm.QPerson.Fields[0].AsString;
if str='' then
str:='00001'
else
begin
str:=inttostr(strtoint(str)+1);
while length(str)<5 do
str:='0'+str;
end;
//----------基本信息
edit5.Text:=str;
edit4.Text:='';
Image1.Visible:=false;
ComboBox2.Text:='';
ComboBox1.Text:='';
ComboBox3.Text:='';
memo1.Lines.Clear;
edit1.Text:='';
dateTimePicker1.DateTime:=now;
edit2.Text:='';
ComboBox4.Text:='';
ComboBox5.Text:='';
ComboBox6.Text:='';
ComboBox7.Text:='';
ComboBox8.Text:='';
//--------职务信息
ComboBox10.Text:='';
ComboBox12.Text:='';
//--------受教育情况
ComboBox15.Text:='';
edit3.Text:='';
edit6.Text:='';
DateTimePicker2.DateTime:=now;
//--------联系方式
edit8.Text:='';
edit7.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
//--------合同情况
edit12.Text:='';
DateTimePicker3.DateTime:=now;
DateTimePicker5.DateTime:=now;
ToolButton1.Enabled:=false;
ToolButton2.Enabled:=false;
ToolButton3.Enabled:=false;
ToolButton4.Enabled:=false;
ToolButton5.Enabled:=false;
ToolButton6.Enabled:=false;
ToolButton7.Enabled:=true;
ToolButton8.Enabled:=false;
end;
procedure Tbase_people.ToolButton9Click(Sender: TObject);
begin
close;
end;
procedure Tbase_people.ToolButton6Click(Sender: TObject);
begin
// 激活
memo1.Enabled:=true;
edit5.Enabled:=true;
edit4.Enabled:=true;
ComboBox2.Enabled:=true;
ComboBox1.Enabled:=true;
ComboBox3.Enabled:=true;
edit1.Enabled:=true;
dateTimePicker1.Enabled:=true;
edit2.Enabled:=true;
ComboBox4.Enabled:=true;
ComboBox5.Enabled:=true;
ComboBox6.Enabled:=true;
ComboBox7.Enabled:=true;
ComboBox8.Enabled:=true;
//--------职务信息
ComboBox10.Enabled:=true;
ComboBox12.Enabled:=true;
//--------受教育情况
ComboBox15.Enabled:=true;
edit3.Enabled:=true;
edit6.Enabled:=true;
DateTimePicker2.Enabled:=true;
//--------联系方式
edit8.Enabled:=true;
edit7.Enabled:=true;
edit9.Enabled:=true;
edit10.Enabled:=true;
edit11.Enabled:=true;
//--------合同情况
edit12.Enabled:=true;
DateTimePicker3.Enabled:=true;
DateTimePicker5.Enabled:=true;
pase:='0';
PageControl1.ActivePageIndex:=0;
ToolButton1.Enabled:=false;
ToolButton2.Enabled:=false;
ToolButton3.Enabled:=false;
ToolButton4.Enabled:=false;
ToolButton5.Enabled:=false;
ToolButton6.Enabled:=false;
ToolButton7.Enabled:=true;
ToolButton8.Enabled:=false;
end;
procedure Tbase_people.ToolButton7Click(Sender: TObject);
begin
if pase='1' then
begin
//信息简单判误
if (edit5.Text='')or(edit4.Text='')or(ComboBox2.ItemIndex=-1) then
begin
showmessage('信息不完整');
exit;
end;
if (ComboBox1.ItemIndex=-1) or (ComboBox3.ItemIndex=-1) or(ComboBox4.ItemIndex=-1) or (ComboBox5.ItemIndex=-1) or (ComboBox6.ItemIndex=-1) or (ComboBox7.ItemIndex=-1) or (ComboBox8.ItemIndex=-1 )or(edit1.Text='') or (edit2.Text='')then
begin
showmessage('基本信息不完整');
PageControl1.ActivePageIndex:=0;
exit;
end;
if (ComboBox10.ItemIndex=-1) or (ComboBox12.ItemIndex=-1) then
begin
showmessage('职务信息不完整');
PageControl1.ActivePageIndex:=1;
exit;
end;
if (ComboBox15.ItemIndex=-1) or (edit3.Text='') or(edit6.Text='') then
begin
showmessage('受教育信息不完整');
PageControl1.ActivePageIndex:=2;
exit;
end;
if edit12.Text='' then
begin
showmessage('合同信息不完整');
PageControl1.ActivePageIndex:=4;
exit;
end;
with DM.QPerson do
begin
close;
sql.Clear;
sql.Add('insert Person values (:EMPID,:EMPNAME,:EMPDEPT,:SEX,:BIRTHDAY,:IDCARD,:NATIVE,:HOMEADDRESS,:MARRIAGE,:EDU,:POLITY,:NATION,:DEGREE,:HEALTH,:PHONE,:OFFICE,:MOBILEPHONE,:ZIP,:PS,:DELECT)');
ParamByName('EMPID').AsString:=edit5.Text;
ParamByName('EMPNAME').AsString:=Edit4.Text;
ParamByName('EMPDEPT').AsString:=ComboBox2.Text;
ParamByName('SEX').AsString:=ComboBox1.Text;
ParamByName('BIRTHDAY').AsDateTime:=strtodate(datetostr(DateTimePicker1.DateTime));
ParamByName('IDCARD').AsString:=edit2.Text;
ParamByName('NATIVE').AsString:=ComboBox3.Text;
ParamByName('HOMEADDRESS').AsString:=edit11.Text;
ParamByName('MARRIAGE').AsString:=ComboBox2.Text;
ParamByName('EDU').AsString:=ComboBox4.Text;
ParamByName('POLITY').AsString:=ComboBox6.Text;
ParamByName('NATION').AsString:=ComboBox3.Text;
ParamByName('DEGREE').AsString:=ComboBox5.Text;
ParamByName('HEALTH').AsString:=ComboBox7.Text;
ParamByName('PHONE').AsString:=EDIT8.Text;
ParamByName('OFFICE').AsString:=edit7.Text;
ParamByName('MOBILEPHONE').AsString:=edit9.Text;
ParamByName('ZIP').AsString:=edit10.Text;
ParamByName('PS').AsString:=memo1.Text;
ParamByName('DELECT').AsString:='1';
prepare;
execsql;
end;
with DM.TPerson do
begin
close;
open;
end;
with dm.QPersonExp do
begin
close;
sql.Clear;
sql.Add('insert PersonExp values (:EMPID,:EMPNAME,:EMPDEPT,:EDUDEGREE,:SPECIALITY,:SCHOOL,:SEDDATE,:HTTIMELIMIT,:STARTDATE,:EDDDate,:DELECT)');
ParamByName('EMPID').AsString:=edit5.Text;
ParamByName('EMPNAME').AsString:=Edit4.Text;
ParamByName('EMPDEPT').AsString:=ComboBox2.Text;
ParamByName('EDUDEGREE').AsString:=ComboBox15.Text;
ParamByName('SPECIALITY').AsString:=edit3.Text;
ParamByName('SCHOOL').AsString:=edit6.Text;
ParamByName('SEDDATe').AsDateTime:=strtodate(datetostr(DateTimePicker2.DateTime));
ParamByName('HTTIMELIMIT').AsString:=edit12.Text;
ParamByName('STARTDATE').AsDateTime:=strtodate(datetostr(DateTimePicker3.DateTime));
ParamByName('EDDDate').AsDateTime:=strtodate(datetostr(DateTimePicker5.DateTime));
ParamByName('DELECT').AsString:='1';
prepare;
execsql;
end;
with dm.TPersonExp do
begin
close;
open;
end;
with dm.QTitleExp do
begin
close;
sql.Clear;
sql.Add('insert TitleExp values (:EMPID,:EMPNAME,:EMPDEPT,:TECHPOSITION,:ADMINPOSITION,:DELECT)');
ParamByName('EMPID').AsString:=edit5.Text;
ParamByName('EMPNAME').AsString:=Edit4.Text;
ParamByName('EMPDEPT').AsString:=ComboBox2.Text;
ParamByName('TECHPOSITION').AsString:=ComboBox10.Text;
ParamByName('ADMINPOSITION').AsString:=ComboBox12.Text;
ParamByName('DELECT').AsString:='1';
prepare;
execsql;
end;
with dm.TTitleExp do
begin
close;
open;
end;
end;
if pase='0' then
begin
//信息简单判误
if (edit5.Text='') or (edit4.Text='')or(ComboBox2.ItemIndex=-1) then
begin
showmessage('信息不完整');
exit;
end;
if (ComboBox1.ItemIndex=-1) or (ComboBox3.ItemIndex=-1) or (ComboBox4.ItemIndex=-1) or (ComboBox5.ItemIndex=-1) or (ComboBox6.ItemIndex=-1) or(ComboBox7.ItemIndex=-1) or (ComboBox8.ItemIndex=-1 )or(edit1.Text='') or (edit2.Text='') then
begin
showmessage('基本信息不完整');
PageControl1.ActivePageIndex:=0;
exit;
end;
if (ComboBox10.ItemIndex=-1) or (ComboBox12.ItemIndex=-1) then
begin
showmessage('职务信息不完整');
PageControl1.ActivePageIndex:=1;
exit;
end;
if (ComboBox15.ItemIndex=-1) or (edit3.Text='') or (edit6.Text='') then
begin
showmessage('受教育信息不完整');
PageControl1.ActivePageIndex:=2;
exit;
end;
if edit12.Text='' then
begin
showmessage('合同信息不完整');
PageControl1.ActivePageIndex:=4;
exit;
end;
with DM.QPerson do
begin
close;
sql.Clear;
sql.Add('update Person set EMPNAME=:EMPNAME,EMPDEPT=:EMPDEPT,SEX=:SEX,BIRTHDAY=:BIRTHDAY,IDCARD=:IDCARD,NATIVE=:NATIVE,HOMEADDRESS=:HOMEADDRESS,MARRIAGE=:MARRIAGE,EDU=:EDU');
sql.Add(',POLITY=:POLITY,NATION=:NATION,DEGREE=:DEGREE,HEALTH=:HEALTH,PHONE=:PHONE,OFFICE=:OFFICE,MOBILEPHONE=:MOBILEPHONE,ZIP=:ZIP,PS=:PS,DELECT=:DELECT');
sql.Add('where EMPID=:EMPID');
ParamByName('EMPID').AsString:=edit5.Text;
ParamByName('EMPNAME').AsString:=Edit4.Text;
ParamByName('EMPDEPT').AsString:=ComboBox2.Text;
ParamByName('SEX').AsString:=ComboBox1.Text;
ParamByName('BIRTHDAY').AsDateTime:=strtodate(datetostr(DateTimePicker1.DateTime));
ParamByName('IDCARD').AsString:=edit2.Text;
ParamByName('NATIVE').AsString:=ComboBox3.Text;
ParamByName('HOMEADDRESS').AsString:=edit11.Text;
ParamByName('MARRIAGE').AsString:=ComboBox2.Text;
ParamByName('EDU').AsString:=ComboBox4.Text;
ParamByName('POLITY').AsString:=ComboBox6.Text;
ParamByName('NATION').AsString:=ComboBox3.Text;
ParamByName('DEGREE').AsString:=ComboBox5.Text;
ParamByName('HEALTH').AsString:=ComboBox7.Text;
ParamByName('PHONE').AsString:=EDIT8.Text;
ParamByName('OFFICE').AsString:=edit7.Text;
ParamByName('MOBILEPHONE').AsString:=edit9.Text;
ParamByName('ZIP').AsString:=edit10.Text;
ParamByName('PS').AsString:=memo1.Text;
ParamByName('DELECT').AsString:='1';
prepare;
execsql;
end;
with DM.TPerson do
begin
close;
open;
end;
with dm.QPersonExp do
begin
close;
sql.Clear;
sql.Add('UPDATE PersonExp set EMPID=:EMPID,EMPNAME=:EMPNAME,EMPDEPT=:EMPDEPT,EDUDEGREE=:EDUDEGREE,SPECIALITY=:SPECIALITY,SCHOOL=:SCHOOL,SEDDATE=:SEDDATE,HTTIMELIMIT=:HTTIMELIMIT,STARTDATE=:STARTDATE,EDDDate=:EDDDate,DELECT=:DELECT');
sql.Add('where EMPID=:EMPID');
ParamByName('EMPID').AsString:=edit5.Text;
ParamByName('EMPNAME').AsString:=Edit4.Text;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -