u_xygdj.pas

人力资源管理系统自动计算员工工资。自动生成员工工资报表。实现员工岗位调动操作。实现员工离职、复职操作。支持数据的模糊查询机制。运行环境 操作系统：Windows 2000/NT/XP/ME 开发工

      parameters.ParamByName('v').Value:=trim(combobox3.Text);
      parameters.ParamByName('w').Value:=trim(combobox5.Text);
      parameters.ParamByName('x').Value:=trim(combobox6.Text);
      parameters.ParamByName('y').Value:=strtodate(maskedit1.Text);
      parameters.ParamByName('z').Value:=memo1.Text;
      parameters.ParamByName('aa').Value:=strtodate(maskedit2.Text);
      parameters.ParamByName('ab').Value:=trim(edit16.Text);
      parameters.ParamByName('ac').Value:='否';
      parameters.ParamByName('ad').Value:=null;
      parameters.ParamByName('ae').Value:=null;
      parameters.ParamByName('af').Value:=null;
      execsql; 
   end;
   editclear;
   application.MessageBox('保存成功！','提示',64);
if frm_main.log=2 then
   frm_ypll.BitBtn2.OnClick(sender);
except
   application.MessageBox('系统出错！','提示',64);
   {with data1.yp do
   begin
      close;
      sql.Clear;
      sql.Add('delete 应聘信息表 where 姓名=:aaa');
      parameters.ParamByName('aaa').Value:=trim(frm_yp.Edit1.Text);
      execsql;
   end; }
end;
end;

procedure Tfrm_xygdj.BitBtn4Click(Sender: TObject);
begin
editclear;
end;

procedure Tfrm_xygdj.BitBtn5Click(Sender: TObject);
begin
if messagebox(self.Handle,'确定要修改吗？','提示',mb_yesno+mb_iconquestion)= idyes then
begin
try
with data1.ADOQuery1 do
   begin
      edit;
      fieldbyname('bh').Value:=trim(edit1.Text);
      fieldbyname('xm').Value:=trim(edit2.Text);
      fieldbyname('mz').Value:=trim(combobox1.Text);
      fieldbyname('xb').Value:=trim(combobox8.Text);
      fieldbyname('csrq').Value:=trim(maskedit3.Text);
      fieldbyname('hyzk').Value:=trim(combobox7.Text);
      fieldbyname('whcd').Value:=trim(combobox9.Text);
      fieldbyname('zzmm').Value:=trim(combobox2.Text);
      fieldbyname('byyx').Value:=trim(edit6.Text);
      fieldbyname('zy').Value:=trim(edit7.Text);
      fieldbyname('tc').Value:=trim(edit8.Text);
      fieldbyname('dzyx').Value:=trim(edit13.Text);
      fieldbyname('lxdh').Value:=trim(maskedit4.Text);
      fieldbyname('sjhm').Value:=trim(edit9.Text);
      fieldbyname('jg').Value:=trim(edit5.Text);
      fieldbyname('sfzh').Value:=trim(edit10.Text);
      fieldbyname('jtdz').Value:=trim(edit12.Text);
      fieldbyname('cjgzsj').Value:=trim(maskedit5.Text);
      fieldbyname('gz').Value:=trim(combobox3.Text);
      fieldbyname('gl').Value:=trim(edit15.Text);
      fieldbyname('ssbm').Value:=trim(combobox4.Text);
      fieldbyname('zw').Value:=trim(combobox5.Text);
      fieldbyname('zc').Value:=trim(combobox6.Text);
      fieldbyname('djrq').Value:=trim(maskedit2.Text);
      fieldbyname('djr').Value:=trim(edit16.Text);
      fieldbyname('drsj').Value:=trim(maskedit1.Text);
      fieldbyname('jl').Value:=trim(memo1.Text);
      fieldbyname('zp').Assign(image1.Picture.Bitmap);
      post;
   end;
      application.MessageBox('修改成功','提示',64);
except
   application.MessageBox('修改失败','提示',64);
end;
   close;
end;
end;

procedure Tfrm_xygdj.Edit1Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit2Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.ComboBox8Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.ComboBox1Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.MaskEdit3Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.ComboBox7Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.ComboBox9Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.ComboBox2Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit6Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit7Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit8Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit13Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.MaskEdit4Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit9Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit5Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit10Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
if length(trim(edit10.Text))=18 then
   begin
      maskedit3.Text:=copy(trim(edit10.Text),7,4)+'-'+copy(trim(edit10.Text),11,2)+'-'+copy(trim(edit10.Text),13,2);
   end
else
   if length(trim(edit10.Text))=15 then
      begin
         maskedit3.Text:='19'+copy(trim(edit10.Text),7,2)+'-'+copy(trim(edit10.Text),9,2)+'-'+copy(trim(edit10.Text),11,2);
      end;
end;

procedure Tfrm_xygdj.Edit12Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.MaskEdit5Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.ComboBox3Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit15Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.ComboBox6Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;