unit1.pas

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

                        + trim(LabeledEdit40.Text) + ljf + trim(LabeledEdit41.Text) + ljf
                        + trim(LabeledEdit42.Text) + ljf + trim(LabeledEdit43.Text) + ljf
                        + trim(LabeledEdit44.Text) + ljf + ComboBox11.Text + ljf
                        + trim(LabeledEdit45.Text) + ljf + trim(LabeledEdit46.text) + '''' + ')';
    showmessage(ado_new.SQL.Text);
    ado_new.ExecSQL ;
    showmessage(A);
    LabeledEdit39.Text := '';
    LabeledEdit40.Text := '';
    LabeledEdit41.Text := '';
    LabeledEdit42.Text := '';
    LabeledEdit43.Text := '';
    LabeledEdit44.Text := '';
    LabeledEdit45.Text := '';
  except
    showmessage('新增监理单位信息失败！！！');
  end;

end;

procedure TForm1.new_wwktdwExecute(Sender: TObject);
begin
  try
    if gcid = 0 then
      form2.ShowModal ;
    ado_new.SQL.Text := 'select * from wwktdw_info where gcid = ' + inttostr(gcid) ;
    ado_new.Open;
    if ado_new.RecordCount >= 1 then
      begin
        showmessage('此工程的文物勘探单位信息已经录入！！！');
        exit;
      end;
    ado_new.SQL.Text := 'insert into wwktdw_info(gcid,wwktdw,zzdj,jsfzr,htjk,hbdw) values('''
                        + inttostr(gcid) + ljf + trim(LabeledEdit32.Text) + ljf
                        + trim(LabeledEdit33.Text) + ljf + trim(LabeledEdit34.Text) + ljf
                        + trim(LabeledEdit35.Text) +  ljf + ComboBox10.text + '''' + ')';
    ado_new.ExecSQL ;
    showmessage(A);
    LabeledEdit32.Text := '';
    LabeledEdit33.Text := '';
    LabeledEdit34.Text := '';
    LabeledEdit35.Text := '';
  except
    showmessage('新增文物勘探单位信息失败！！！');
  end;

end;

procedure TForm1.SJDWExecute(Sender: TObject);
begin
  saveproject(dm.DataModule2.AT_SJDW,'设计',gcid);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  button3.Enabled := false;
  button1.Enabled := false;
  button2.Enabled := true;
  ismodify := false;
  if radiobutton1.Checked then
    begin
      edit1.SetFocus;
      
      {dbedit1.DataSource := dm.DataModule2.DS_GCMC;
      dm.DataModule2.AT_GCMC.Active := true;
      dm.DataModule2.AT_GCMC.Append ;}
    end;
  if radiobutton2.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_GCZGK;
      dm.DataModule2.AT_GCZGK.Active := true;
      dm.DataModule2.AT_GCZGK.Append ;
      dbedit1.EditText := edit5.Text;
    end;
  if radiobutton3.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_ZTSGDW;
      dm.DataModule2.AT_ZTSGDW.Active := true;
      dm.DataModule2.AT_ZTSGDW.Append ;
      dbedit1.EditText := edit5.Text;
    end;
  if radiobutton4.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_DKDW;
      dm.DataModule2.AT_DKDW.Active := true;
      dm.DataModule2.AT_DKDW.Append ;
      dbedit1.EditText := edit5.Text;
    end;
  if radiobutton5.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_WWKTDW;
      dm.DataModule2.AT_WWKTDW.Active := true;
      dm.DataModule2.AT_WWKTDW.Append ;
      dbedit1.EditText := edit5.Text;
    end;
  if radiobutton6.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_JZGC;
      dm.DataModule2.AT_JZGC.Active := true;
      dm.DataModule2.AT_JZGC.Append ;
      dbedit1.EditText := edit5.Text;
    end;
  if radiobutton7.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_JZJCDW;
      dm.DataModule2.AT_JZJCDW.Active := true;
      dm.DataModule2.AT_JZJCDW.Append ;
      dbedit1.EditText := edit5.Text;
    end;
  if radiobutton8.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_LHJGC;
      dm.DataModule2.AT_LHJGC.Active := true;
      dm.DataModule2.AT_LHJGC.Append ;
      dbedit1.EditText := edit5.Text;
    end;
  if radiobutton9.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_SJDW;
      dm.DataModule2.AT_SJDW.Active := true;
      dm.DataModule2.AT_SJDW.Append ;
      dbedit1.EditText := edit5.Text;
    end;
  if radiobutton10.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_JLDW;
      dm.DataModule2.AT_JLDW.Active := true;
      dm.DataModule2.AT_JLDW.Append ;
      dbedit1.EditText := edit5.Text;
    end;
  if radiobutton11.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_JFDW;
      dm.DataModule2.AT_JFDW.Active := true;
      dm.DataModule2.AT_JFDW.Append ;
      dbedit1.EditText := edit5.Text;
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if gcid = 0 then form2.ShowModal;
  button1.Enabled := false;
  button2.Enabled := true;
  ismodify := true;
  if radiobutton1.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_GCMC;
      dm.DataModule2.AT_GCMC.Active := true;
      dm.DataModule2.AT_GCMC.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_GCMC.Open ;
      dm.DataModule2.AT_GCMC.Filtered := true;
    end;
  if radiobutton2.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_GCZGK;
      dm.DataModule2.AT_GCZGK.Active := true;
      dm.DataModule2.AT_GCZGK.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_GCZGK.Open ;
      dm.DataModule2.AT_GCZGK.Filtered := true;
      dm.DataModule2.AT_GCZGK.Edit;
      if dm.DataModule2.AT_GCZGK.RecordCount <= 0 then
         begin
           messagedlg('此工程的工程总概况信息尚未输入！！！',mtError ,[mbOK],0);
           dm.DataModule2.AT_GCZGK.close;
           button1.Enabled := true;
           button2.Enabled := false;
           exit;
         end;
    end;
  if radiobutton3.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_ZTSGDW;
      dm.DataModule2.AT_ZTSGDW.Active := true;
      dm.DataModule2.AT_ZTSGDW.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_ZTSGDW.Open ;
      dm.DataModule2.AT_ZTSGDW.Filtered := true;
      dm.DataModule2.AT_ZTSGDW.Edit;
      if dm.DataModule2.AT_ZTSGDW.RecordCount <= 0 then
         begin
           messagedlg('此工程的主体施工单位信息尚未输入！！！',mtError ,[mbOK],0);
           dm.DataModule2.AT_ZTSGDW.close;
           button1.Enabled := true;
           button2.Enabled := false;
           exit;
         end;
    end;
  if radiobutton4.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_DKDW;
      dm.DataModule2.AT_DKDW.Active := true;
      dm.DataModule2.AT_DKDW.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_DKDW.Open ;
      dm.DataModule2.AT_DKDW.Filtered := true;
      dm.DataModule2.AT_DKDW.Edit;
      if dm.DataModule2.AT_DKDW.RecordCount <= 0 then
         begin
           messagedlg('此工程的地勘单位信息尚未输入！！！',mtError ,[mbOK],0);
           dm.DataModule2.AT_DKDW.close;
           button1.Enabled := true;
           button2.Enabled := false;
           exit;
         end;
    end;
  if radiobutton5.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_WWKTDW;
      dm.DataModule2.AT_WWKTDW.Active := true;
      dm.DataModule2.AT_WWKTDW.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_WWKTDW.Open ;
      dm.DataModule2.AT_WWKTDW.Filtered := true;
      dm.DataModule2.AT_WWKTDW.Edit;
      if dm.DataModule2.AT_WWKTDW.RecordCount <= 0 then
         begin
           messagedlg('此工程的文物勘探单信息尚未输入！！！',mtError ,[mbOK],0);
           dm.DataModule2.AT_WWKTDW.close;
           button1.Enabled := true;
           button2.Enabled := false;
           exit;
         end;
    end;
  if radiobutton6.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_JZGC;
      dm.DataModule2.AT_JZGC.Active := true;
      dm.DataModule2.AT_JZGC.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_JZGC.Open ;
      dm.DataModule2.AT_JZGC.Filtered := true;
      dm.DataModule2.AT_JZGC.Edit;
      if dm.DataModule2.AT_JZGC.RecordCount <= 0 then
         begin
           messagedlg('此工程的桩基工程信息尚未输入！！！',mtError ,[mbOK],0);
           dm.DataModule2.AT_JZGC.close;
           button1.Enabled := true;
           button2.Enabled := false;
           exit;
         end;
    end;
  if radiobutton7.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_JZJCDW;
      dm.DataModule2.AT_JZJCDW.Active := true;
      dm.DataModule2.AT_JZJCDW.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_JZJCDW.Open ;
      dm.DataModule2.AT_JZJCDW.Filtered := true;
      dm.DataModule2.AT_JZJCDW.Edit;
      if dm.DataModule2.AT_JZJCDW.RecordCount <= 0 then
         begin
           messagedlg('此工程的桩基检测单位信息尚未输入！！！',mtError ,[mbOK],0);
           dm.DataModule2.AT_JZJCDW.close;
           button1.Enabled := true;
           button2.Enabled := false;
           exit;
         end;
    end;
  if radiobutton8.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_LHJGC;
      dm.DataModule2.AT_LHJGC.Active := true;
      dm.DataModule2.AT_LHJGC.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_LHJGC.Open ;
      dm.DataModule2.AT_LHJGC.Filtered := true;
      dm.DataModule2.AT_LHJGC.Edit;
      if dm.DataModule2.AT_LHJGC.RecordCount <= 0 then
         begin
           messagedlg('此工程的铝合金工程单位信息尚未输入！！！',mtError ,[mbOK],0);
           dm.DataModule2.AT_LHJGC.close;
           button1.Enabled := true;
           button2.Enabled := false;
           exit;
         end;
    end;
  if radiobutton9.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_SJDW;
      dm.DataModule2.AT_SJDW.Active := true;
      dm.DataModule2.AT_SJDW.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_SJDW.Open ;
      dm.DataModule2.AT_SJDW.Filtered := true;
      dm.DataModule2.AT_SJDW.Edit;
      if dm.DataModule2.AT_SJDW.RecordCount <= 0 then
         begin
           messagedlg('此工程的设计单位信息尚未输入！！！',mtError ,[mbOK],0);
           dm.DataModule2.AT_SJDW.close;
           button1.Enabled := true;
           button2.Enabled := false;
           exit;
         end;
    end;
  if radiobutton10.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_JLDW;
      dm.DataModule2.AT_JLDW.Active := true;
      dm.DataModule2.AT_JLDW.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_JLDW.Open ;
      dm.DataModule2.AT_JLDW.Filtered := true;
      dm.DataModule2.AT_JLDW.Edit;
      if dm.DataModule2.AT_JLDW.RecordCount <= 0 then
         begin
           messagedlg('此工程的监理单位信息尚未输入！！！',mtError ,[mbOK],0);
           dm.DataModule2.AT_JLDW.close;
           button1.Enabled := true;
           button2.Enabled := false;
           exit;
         end;
    end;
  if radiobutton11.Checked then
    begin
      dbedit1.DataSource := dm.DataModule2.DS_JFDW;
      dm.DataModule2.AT_JFDW.Active := true;
      dm.DataModule2.AT_JFDW.Filter := 'gcid = ' + inttostr(gcid);
      dm.DataModule2.AT_JFDW.Open ;
      dm.DataModule2.AT_JFDW.Filtered := true;
      dm.DataModule2.AT_JFDW.Edit;
      if dm.DataModule2.AT_JFDW.RecordCount <= 0 then
         begin
           messagedlg('此工程的甲方单位信息尚未输入！！！',mtError ,[mbOK],0);
           dm.DataModule2.AT_JFDW.close;
           button1.Enabled := true;
           button2.Enabled := false;
           exit;
         end;
    end;
end;

procedure TForm1.Edit5Change(Sender: TObject);
begin
  dbedit1.EditText := edit5.Text ;
end;
procedure TForm1.saveproject(adotable:Tadotable;projectname:string;gcid:integer);
//var ss : Exception;
begin
  try
    if not radiobutton1.Checked then
       if gcid = 0 then
          form2.ShowModal;

    if not ismodify then
      begin
        //此段代码用于判断该工程的这个信息是否录入
        ado_new.SQL.Text := 'select * from ' + adotable.TableName + ' where gcid = ' + inttostr(gcid);
        ado_new.Open;
        if ado_new.RecordCount >= 1 then
          begin
            messagedlg('该工程的' + projectname + '信息已经录入！！！',mtInformation,[mbOk],0);
            exit;
          end;
       ado_new.Close;
       //dbedit1.EditText := inttostr(gcid);
       adotable.Post;
       messagedlg(A,mtInformation ,[mbOK],0);
       adotable.Active := false;
       button3.Enabled := true;
       button2.Enabled := false;
       button1.Enabled := true;
      end
    else
      begin
       adotable.Post ;
       messagedlg(B,mtInformation ,[mbOK],0);
       adotable.Active := false;
       button1.Enabled := true;
       button2.Enabled := false;
       button3.Enabled := true;
       ismodify := false;

      end;
  except



    if not ismodify then
       messagedlg('新增' + projectname + '单位失败，请与管理员联系！！！',mtError ,[mbOK],0)
      else
       messagedlg('修改' + projectname + '单位失败，请与管理员联系！！！',mtError ,[mbOK],0);
    adotable.Active := false;
    //messagedlg(ss.Message ,mtError,[mbOK],0);
  end;
end;
procedure TForm1.ZTSGDWExecute(Sender: TObject);
begin
  saveproject(dm.DataModule2.AT_ZTSGDW,'主体施工',gcid);
end;

procedure TForm1.JLDWExecute(Sender: TObject);
begin
  saveproject(dm.DataModule2.AT_JLDW,'监理',gcid);
end;

procedure TForm1.LHJDWExecute(Sender: TObject);
begin
  saveproject(dm.DataModule2.AT_LHJGC,'铝合金工程',gcid);
end;

procedure TForm1.JZJCDWExecute(Sender: TObject);
begin
  saveproject(dm.DataModule2.AT_JZJCDW,'桩基检测',gcid);
end;


procedure TForm1.JZGCDWExecute(Sender: TObject);
begin
  saveproject(dm.DataModule2.AT_JZGC ,'桩基工程',gcid);
end;

procedure TForm1.WWKTDWExecute(Sender: TObject);
begin
  saveproject(dm.DataModule2.AT_WWKTDW ,'文物勘探',gcid);
end;

procedure TForm1.DKDWExecute(Sender: TObject);
begin
  saveproject(dm.DataModule2.AT_D