unit1.~pas

此程序是应朋友的 老婆单位的要求写的

                        + trim(LabeledEdit20.Text) + ljf + trim(LabeledEdit21.Text) + ljf
                        + trim(LabeledEdit22.Text) + ljf + trim(LabeledEdit23.Text) + ljf
                        + trim(LabeledEdit24.Text) + ljf + combobox8.Text + ljf
                        + maskedit1.Text + ljf + maskedit2.Text + ljf
                        + trim(LabeledEdit25.Text) + '''' + ')';
    ado_new.ExecSQL ;
    LabeledEdit19.Text := '';
    LabeledEdit20.Text := '';
    LabeledEdit21.Text := '';
    LabeledEdit22.Text := '';
    LabeledEdit23.Text := '';
    LabeledEdit24.Text := '';
    LabeledEdit25.Text := '';
    maskedit1.Text := '';
    maskedit2.Text := '';
    showmessage(A);
  except
    showmessage('新增主体施工单位信息失败！！！');
  end;

end;

procedure TForm1.new_dkdwExecute(Sender: TObject);
begin
  try
    if trim(LabeledEdit26.Text) = '' then
      begin
        showmessage('单位名称不能为空！！！');
        LabeledEdit26.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit27.Text) = '' then
      begin
        showmessage('资质等级不能为空！！！');
        LabeledEdit27.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit28.Text) = '' then
      begin
        showmessage('法人代表不能为空！！！');
        LabeledEdit28.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit29.Text) = '' then
      begin
        showmessage('项目经理不能为空！！！');
        LabeledEdit29.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit30.Text) = '' then
      begin
        showmessage('技术负责人不能为空！！！');
        LabeledEdit30.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit31.Text) = '' then
      begin
        showmessage('合同价款不能为空！！！');
        LabeledEdit31.SetFocus ;
        exit;
      end;
    if gcid = 0 then
      form2.ShowModal ;
    ado_new.SQL.Text := 'select * from dkdw_info where gcid = ' + inttostr(gcid) ;
    ado_new.Open;
    if ado_new.RecordCount >= 1 then
      begin
        showmessage('此工程的地勘单位信息已经录入！！！');
        exit;
      end;
    ado_new.SQL.Text := 'insert into dkdw_info (gcid,dkdwmc,zzdj,frdb,xmjl,jsfzr,htjk,hbdw) values('''
                        + inttostr(gcid) + ljf + trim(LabeledEdit26.Text) + ljf
                        + trim(LabeledEdit27.Text) + ljf + trim(LabeledEdit28.text) + ljf
                        + trim(LabeledEdit29.Text) + ljf + trim(LabeledEdit30.Text) + ljf
                        + trim(LabeledEdit31.Text) + ljf + ComboBox9.Text + '''' + ')';
    ado_new.ExecSQL ;
    LabeledEdit26.Text := '';
    LabeledEdit27.Text := '';
    LabeledEdit28.Text := '';
    LabeledEdit29.Text := '';
    LabeledEdit30.Text := '';
    LabeledEdit31.Text := '';
    showmessage(A);
  except
    showmessage('新增地勘单位信息失败！！！');
  end;

end;

procedure TForm1.new_jfdwExecute(Sender: TObject);
begin
  try
    if trim(LabeledEdit36.Text) = '' then
      begin
        showmessage('土建代表不能为空！！！');
        LabeledEdit36.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit37.Text) = '' then
      begin
        showmessage('电气代表不能为空！！！');
        LabeledEdit37.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit38.Text) = '' then
      begin
        showmessage('水暖代表不能为空！！！');
        LabeledEdit38.SetFocus ;
        exit;
      end;
    if gcid = 0 then
      form2.ShowModal ;
    ado_new.SQL.Text := 'select * from jf_info where gcid = ' + inttostr(gcid) ;
    ado_new.Open;
    if ado_new.RecordCount >= 1 then
      begin
        showmessage('此工程的甲方单位信息已经录入！！！');
        exit;
      end;
    ado_new.SQL.Text := 'insert into jf_info (gcid,jfdb,dqdb,sndb) values ('''
                        + inttostr(gcid) + ljf + trim(LabeledEdit36.Text) + ljf + trim(LabeledEdit37.Text) + ljf + trim(LabeledEdit38.Text) + '''' + ')';
    ado_new.ExecSQL ;
    LabeledEdit36.Text := '';
    LabeledEdit37.Text := '';
    LabeledEdit38.Text := '';
    showmessage(A);
  except
    showmessage('新增甲方单位信息失败！！！');
  end;

end;

procedure TForm1.new_sjdwExecute(Sender: TObject);
begin
  try
    if trim(LabeledEdit47.Text) = '' then
      begin
        showmessage('单位名称不能为空！！！');
        LabeledEdit47.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit48.Text) = '' then
      begin
        showmessage('资质等级不能为空！！！');
        LabeledEdit48.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit49.Text) = '' then
      begin
        showmessage('证书编号不能为空！！！');
        LabeledEdit49.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit50.Text) = '' then
      begin
        showmessage('法人代表不能为空！！！');
        LabeledEdit50.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit51.Text) = '' then
      begin
        showmessage('委托人不能为空！！！');
        LabeledEdit51.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit52.Text) = '' then
      begin
        showmessage('合同价款不能为空！！！');
        LabeledEdit52.SetFocus ;
        exit;
      end;
    if gcid = 0 then
      form2.ShowModal ;
    ado_new.SQL.Text := 'select * from sjdw_info where gcid = ' + inttostr(gcid) ;
    ado_new.Open;
    if ado_new.RecordCount >= 1 then
      begin
        showmessage('此工程的设计单位信息已经录入！！！');
        exit;
      end;
    ado_new.SQL.Text := 'insert into sjdw_info (gcid,sjdwmc,zzdj,zsbh,frdb,wtr,htjk,hbdw) values('''
                        + inttostr(gcid) + ljf + trim(LabeledEdit47.Text) + ljf
                        + trim(LabeledEdit48.Text) + ljf + trim(LabeledEdit49.Text) + ljf
                        + trim(LabeledEdit50.Text) + ljf + trim(LabeledEdit51.Text) + ljf
                        + trim(LabeledEdit52.Text) + ljf + ComboBox12.Text + '''' + ')';
    showmessage(ado_new.SQL.Text);
    ado_new.ExecSQL ;
    LabeledEdit47.Text := '';
    LabeledEdit48.Text := '';
    LabeledEdit49.Text := '';
    LabeledEdit50.Text := '';
    LabeledEdit51.Text := '';
    LabeledEdit52.Text := '';
    showmessage(A);
  except
    showmessage('新增设计单位信息失败！！！');
  end;

end;

procedure TForm1.new_lhjgcExecute(Sender: TObject);
begin
  try
    if trim(LabeledEdit53.Text) = '' then
      begin
        showmessage('单位名称不能为空！！！');
        LabeledEdit53.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit54.Text) = '' then
      begin
        showmessage('项目经理不能为空！！！');
        LabeledEdit54.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit55.Text) = '' then
      begin
        showmessage('合同价款不能为空！！！');
        LabeledEdit55.SetFocus ;
        exit;
      end;
    if gcid = 0 then
      form2.ShowModal ;
    ado_new.SQL.Text := 'select * from lhjgc_info where gcid = ' + inttostr(gcid) ;
    ado_new.Open;
    if ado_new.RecordCount >= 1 then
      begin
        showmessage('此工程的铝合金工程单位信息已经录入！！！');
        exit;
      end;
    ado_new.SQL.Text := 'insert into lhjgc_info (gcid,lhjgcdw,xmjl,htjk,hbdw) values ('''
                        + inttostr(gcid) + ljf + trim(LabeledEdit53.Text) + ljf
                        + trim(LabeledEdit54.Text) + ljf + trim(LabeledEdit55.Text) + ljf
                        + ComboBox13.Text + '''' + ')';
    ado_new.ExecSQL ;
    showmessage(A);
    LabeledEdit53.Text := '';
    LabeledEdit54.Text := '';
    LabeledEdit55.Text := '';
  except
    showmessage('新增铝合金工程单位信息失败！！！');
  end;

end;

procedure TForm1.new_zjjcdwExecute(Sender: TObject);
begin
  try
    if trim(LabeledEdit56.Text) = '' then
      begin
        showmessage('单位名称不能为空！！！');
        LabeledEdit56.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit57.Text) = '' then
      begin
        showmessage('技术负责人不能为空！！！');
        LabeledEdit57.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit58.Text) = '' then
      begin
        showmessage('合同价款不能为空！！！');
        LabeledEdit58.SetFocus ;
        exit;
      end;
    if gcid = 0 then
      form2.ShowModal ;
    ado_new.SQL.Text := 'select * from zjjcdw_info where gcid = ' + inttostr(gcid) ;
    ado_new.Open;
    if ado_new.RecordCount >= 1 then
      begin
        showmessage('此工程的桩基检测单位信息已经录入！！！');
        exit;
      end;
    ado_new.SQL.Text := 'insert into zjjcdw_info (gcid,zjjcdwmc,jsfzr,htjk,hbdw) values ('''
                        + inttostr(gcid) + ljf + trim(LabeledEdit56.Text) + ljf
                        + trim(LabeledEdit57.Text) + ljf + trim(LabeledEdit58.Text) + ljf + ComboBox14.Text + '''' + ')';
    ado_new.ExecSQL ;
    LabeledEdit56.Text := '';
    LabeledEdit57.Text := '';
    LabeledEdit58.Text := '';
    showmessage(A);
  except
    showmessage('新增桩基检测单位信息失败！！！');
  end;

end;

procedure TForm1.new_jzgcExecute(Sender: TObject);
begin
  try
    if trim(LabeledEdit59.Text) = '' then
      begin
        showmessage('单位名称不能为空！！！');
        LabeledEdit59.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit60.Text) = '' then
      begin
        showmessage('资质等级不能为空！！！');
        LabeledEdit60.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit61.Text) = '' then
      begin
        showmessage('法人代表不能为空！！！');
        LabeledEdit61.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit62.Text) = '' then
      begin
        showmessage('项目经理不能为空！！！');
        LabeledEdit62.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit63.Text) = '' then
      begin
        showmessage('桩基形式不能为空！！！');
        LabeledEdit63.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit64.Text) = '' then
      begin
        showmessage('桩径不能为空！！！');
        LabeledEdit64.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit65.Text) = '' then
      begin
        showmessage('桩长不能为空！！！');
        LabeledEdit65.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit66.Text) = '' then
      begin
        showmessage('桩数不能为空！！！');
        LabeledEdit66.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit67.Text) = '' then
      begin
        showmessage('工期不能为空！！！');
        LabeledEdit67.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit68.Text) = '' then
      begin
        showmessage('单方造价不能为空！！！');
        LabeledEdit68.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit69.Text) = '' then
      begin
        showmessage('合同价款不能为空！！！');
        LabeledEdit69.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit70.Text) = '' then
      begin
        showmessage('备注不能为空！！！');
        LabeledEdit70.SetFocus ;
        exit;
      end;
    if gcid = 0 then
      form2.ShowModal ;
    ado_new.SQL.Text := 'select * from zjdw_info where gcid = ' + inttostr(gcid) ;
    ado_new.Open;
    if ado_new.RecordCount >= 1 then
      begin
        showmessage('此工程的桩基单位信息已经录入！！！');
        exit;
      end;
    ado_new.SQL.Text := 'insert into zjdw_info (gcid,zjdwmc,zjdj,frdb,xmjl,zjxs,zj,zc,zs,gq,dfzj,dfhbdw,htjk,hthbdw,memo1) values('''
                        + inttostr(gcid) + ljf + trim(LabeledEdit59.Text) + ljf + trim(LabeledEdit60.Text) + ljf
                        + trim(LabeledEdit61.Text) + ljf + trim(LabeledEdit62.Text) + ljf
                        + trim(LabeledEdit63.Text) + ljf + trim(LabeledEdit64.Text) + ljf
                        + trim(LabeledEdit65.Text) + ljf + trim(LabeledEdit66.Text) + ljf
                        + trim(LabeledEdit67.Text) + ljf + trim(LabeledEdit68.Text) + ljf + ComboBox15.Text + ljf
                        + trim(LabeledEdit69.Text) + ljf + ComboBox16.Text + ljf + trim(LabeledEdit70.Text) + '''' + ')';
    ado_new.ExecSQL ;
    LabeledEdit59.Text := '';
    LabeledEdit60.Text := '';
    LabeledEdit61.Text := '';
    LabeledEdit62.Text := '';
    LabeledEdit63.Text := '';
    LabeledEdit64.Text := '';
    LabeledEdit65.Text := '';
    LabeledEdit66.Text := '';
    LabeledEdit67.Text := '';
    LabeledEdit68.Text := '';
    LabeledEdit69.Text := '';
    LabeledEdit70.Text := '';
    showmessage(A);
  except
    showmessage('新增桩基单位信息失败！！！');
  end;
end;

procedure TForm1.new_jldwExecute(Sender: TObject);
begin
  try
    if gcid = 0 then
      form2.ShowModal ;
    ado_new.SQL.Text := 'select * from jldw_info where gcid = ' + inttostr(gcid) ;
    ado_new.Open;
    if ado_new.RecordCount >= 1 then
      begin
        showmessage('此工程的监理单位信息已经录入！！！');
        exit;
      end;
    ado_new.SQL.Text := 'insert into jldw_info (gcid,jldwmc,zzdj,zj,fr,wtr,jlgcs,htjk,hbdw,jlsffl) values('''
                        + inttostr(gcid) + ljf + trim(LabeledEdit39.Text) + ljf