unit1.~pas

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

end;

procedure TForm1.RadioButton6Click(Sender: TObject);
begin
   panel1.Visible := false;
   panel2.Visible := false;
   panel3.Visible := false;
   panel4.Visible := false;
   panel5.Visible := false;
   panel6.Visible := true;
   panel7.Visible := false;
   panel8.Visible := false;
   panel9.Visible := false;
   panel10.Visible := false;
   panel11.Visible := false;
   panel6.Top := groupbox1.Top + 5 ;
   panel6.Left := groupbox1.Left + groupbox1.Width + 20;
   panel6.Caption := '';
   //LabeledEdit59.SetFocus ;
end;

procedure TForm1.RadioButton7Click(Sender: TObject);
begin
   panel1.Visible := false;
   panel2.Visible := false;
   panel3.Visible := false;
   panel4.Visible := false;
   panel5.Visible := false;
   panel6.Visible := false;
   panel7.Visible := true;
   panel8.Visible := false;
   panel9.Visible := false;
   panel10.Visible := false;
   panel11.Visible := false;
   panel7.Top := groupbox1.Top + 5 ;
   panel7.Left := groupbox1.Left + groupbox1.Width + 20;
   panel7.Caption := '';
   //LabeledEdit56.SetFocus ;
end;

procedure TForm1.RadioButton8Click(Sender: TObject);
begin
   panel1.Visible := false;
   panel2.Visible := false;
   panel3.Visible := false;
   panel4.Visible := false;
   panel5.Visible := false;
   panel6.Visible := false;
   panel7.Visible := false;
   panel8.Visible := true;
   panel9.Visible := false;
   panel10.Visible := false;
   panel11.Visible := false;
   panel8.Top := groupbox1.Top + 5 ;
   panel8.Left := groupbox1.Left + groupbox1.Width + 20;
   panel8.Caption := '';
   //LabeledEdit53.SetFocus ;
end;

procedure TForm1.RadioButton9Click(Sender: TObject);
begin
   panel1.Visible := false;
   panel2.Visible := false;
   panel3.Visible := false;
   panel4.Visible := false;
   panel5.Visible := false;
   panel6.Visible := false;
   panel7.Visible := false;
   panel8.Visible := false;
   panel9.Visible := true;
   panel10.Visible := false;
   panel11.Visible := false;
   panel9.Top := groupbox1.Top + 5 ;
   panel9.Left := groupbox1.Left + groupbox1.Width + 20;
   panel9.Caption := '';
   //LabeledEdit47.SetFocus ;
end;

procedure TForm1.RadioButton10Click(Sender: TObject);
begin
   panel1.Visible := false;
   panel2.Visible := false;
   panel3.Visible := false;
   panel4.Visible := false;
   panel5.Visible := false;
   panel6.Visible := false;
   panel7.Visible := false;
   panel8.Visible := false;
   panel9.Visible := false;
   panel10.Visible := true;
   panel11.Visible := false;
   panel10.Top := groupbox1.Top + 5 ;
   panel10.Left := groupbox1.Left + groupbox1.Width + 20;
   panel10.Caption := '';
   //LabeledEdit39.SetFocus ;
end;

procedure TForm1.RadioButton11Click(Sender: TObject);
begin
   panel1.Visible := false;
   panel2.Visible := false;
   panel3.Visible := false;
   panel4.Visible := false;
   panel5.Visible := false;
   panel6.Visible := false;
   panel7.Visible := false;
   panel8.Visible := false;
   panel9.Visible := false;
   panel10.Visible := false;
   panel11.Visible := true;
   panel11.Top := groupbox1.Top + 5 ;
   panel11.Left := groupbox1.Left + groupbox1.Width + 20;
   panel11.Caption := '';
   //LabeledEdit36.SetFocus ;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   combobox2.ItemIndex := combobox1.ItemIndex ;
   combobox3.ItemIndex := combobox1.ItemIndex ;
   combobox4.ItemIndex := combobox1.ItemIndex ;
   combobox5.ItemIndex := combobox1.ItemIndex ;
   combobox6.ItemIndex := combobox1.ItemIndex ;
   combobox7.ItemIndex := combobox1.ItemIndex ;
end;

procedure TForm1.new_gcmcExecute(Sender: TObject);
begin
  if trim(edit1.Text) = '' then
    begin
      showmessage('工程名称不能为空，请重新输入！！！');
      exit;
    end;
  try
    ado_new.SQL.Text := 'select * from project where gcname = ''' + trim(edit1.Text) + '''';
    ado_new.Open;
    if ado_new.RecordCount >=1 then
      begin
        showmessage('此工程名称已存在！！！');
        exit;
      end;
    //ado_new.SQL.Text := 'insert into project(gcname,zjm) values(''' + trim(edit1.text) + '''' + ',' +  '''' + trim(edit2.text) + '''' + ')';
    ado_new.SQL.Text := 'insert into project(gcname) values(''' + trim(edit1.text) + '''' + ')';
    ado_new.ExecSQL ;
    showmessage(A);

    //下面部分代码是给全局变量gcid和gcname赋值
    gcname := trim(edit1.text);
    ado_new.SQL.Text := 'select gcid from project where gcname = ''' + gcname + '''';
    ado_new.Open;
    gcid := strtoint(ado_new.FieldValues['gcid']);

    edit1.text := '';
    StaticText10.Caption := '当前工程：' +  gcname;
    button1.Enabled := true;
    button2.Enabled := false;
    button3.Enabled := true;
  except
    showmessage('新增工程名称失败，请与系统管理员联系！！！');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if RadioButton1.Checked then new_gcmc.Execute;//gcmc.Execute ;
  if RadioButton2.Checked then gczgk.Execute ;
  if RadioButton3.Checked then ztsgdw.Execute ;
  if RadioButton4.Checked then dkdw.Execute ;
  if RadioButton5.Checked then wwktdw.Execute ;
  if RadioButton6.Checked then jzgcdw.Execute ;
  if RadioButton7.Checked then jzjcdw.Execute ;
  if RadioButton8.Checked then lhjdw.Execute ;
  if RadioButton9.Checked then sjdw.Execute ;
  if RadioButton10.Checked then jldw.Execute ;
  if RadioButton11.Checked then jfdw.Execute ;
end;

procedure TForm1.new_gczgkExecute(Sender: TObject);
begin
  try
    if trim(LabeledEdit1.Text) = '' then
      begin
        showmessage('批准文号不能为空！！！');
        LabeledEdit1.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit2.Text) = '' then
      begin
        showmessage('资金来源不能为空！！！');
        LabeledEdit2.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit3.Text) = '' then
      begin
        showmessage('计划投资不能为空！！！');
        LabeledEdit3.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit4.Text) = '' then
      begin
        showmessage('实际投资不能为空！！！');
        LabeledEdit4.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit5.Text) = '' then
      begin
        showmessage('标底价款不能为空！！！');
        LabeledEdit5.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit6.Text) = '' then
      begin
        showmessage('中标预算价不能为空！！！');
        LabeledEdit6.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit7.Text) = '' then
      begin
        showmessage('投标报价不能为空！！！');
        LabeledEdit7.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit8.Text) = '' then
      begin
        showmessage('中标价款不能为空！！！');
        LabeledEdit8.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit9.Text) = '' then
      begin
        showmessage('单方造价不能为空！！！');
        LabeledEdit9.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit10.Text) = '' then
      begin
        showmessage('下浮比例不能为空！！！');
        LabeledEdit10.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit11.Text) = '' then
      begin
        showmessage('建筑面积不能为空！！！');
        LabeledEdit11.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit12.Text) = '' then
      begin
        showmessage('建筑层数不能为空！！！');
        LabeledEdit12.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit13.Text) = '' then
      begin
        showmessage('建筑物高度不能为空！！！');
        LabeledEdit13.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit14.Text) = '' then
      begin
        showmessage('抗震等级不能为空！！！');
        LabeledEdit14.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit15.Text) = '' then
      begin
        showmessage('抗震烈度不能为空！！！');
        LabeledEdit15.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit16.Text) = '' then
      begin
        showmessage('耐火等级不能为空！！！');
        LabeledEdit16.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit17.Text) = '' then
      begin
        showmessage('层高不能为空！！！');
        LabeledEdit17.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit18.Text) = '' then
      begin
        showmessage('占地面积不能为空！！！');
        LabeledEdit18.SetFocus ;
        exit;
      end;
    if trim(edit4.Text) = '' then
      begin
        showmessage('结构形式不能为空！！！');
        edit4.SetFocus ;
        exit;
      end;
    if trim(edit3.Text) = '' then
      begin
        showmessage('备注不能为空！！！');
        edit3.SetFocus ;
        exit;
      end;

    if gcid = 0 then
      form2.ShowModal ;
    ado_new.SQL.Text := 'select * from project_info where gcid = ' + inttostr(gcid) ;
    ado_new.Open;
    if ado_new.RecordCount >= 1 then
      begin
        showmessage('此工程的工程总概况信息已经录入！！！');
        exit;
      end;
    ado_new.SQL.Text := 'insert into project_info (gcid,pzwh,zjly,jhtz,jhhbdw,sjtz,tzhbdw,bdjk,bdhbdw,zbysj,zbyshbdw,tbbj,tbhbdw,zbjk,zbhbdw,dfzj,dfhbdw,xfbl,jzcs,jzmj,jzwgd,kzdj,kzld,nhdj,cg,zdmj,jgxs,memo1) values('''
                        + inttostr(gcid) +ljf + trim(LabeledEdit1.Text) +ljf +trim(LabeledEdit2.Text) +ljf
                        + trim(LabeledEdit3.Text) + ljf + combobox1.Text  +ljf
                        + trim(LabeledEdit4.Text) + ljf + combobox2.Text + ljf
                        + trim(LabeledEdit5.Text) + ljf + combobox3.text + ljf
                        + trim(LabeledEdit6.Text) + ljf + combobox4.Text + ljf
                        + trim(LabeledEdit7.Text) + ljf + combobox5.Text + ljf
                        + trim(LabeledEdit8.Text) + ljf + combobox6.Text + ljf
                        + trim(LabeledEdit9.Text) + ljf + combobox7.Text + ljf
                        + trim(LabeledEdit10.Text) + ljf + trim(LabeledEdit12.Text) + ljf
                        + trim(LabeledEdit11.Text) + ljf + trim(LabeledEdit13.Text) + ljf
                        + trim(LabeledEdit14.Text) + ljf + trim(LabeledEdit15.Text) + ljf
                        + trim(LabeledEdit16.Text) + ljf + trim(LabeledEdit17.Text) + ljf
                        + trim(LabeledEdit18.Text) +  ljf + trim(Edit4.Text) + ljf + trim(Edit3.Text) +  '''' + ')';
    //showmessage(inttostr(length(ado_new.SQL.Text)));
    //showmessage(ado_new.SQL.Text);
    //dm.DataModule2.ADOConnection1.BeginTrans ;
    ado_new.ExecSQL ;
    showmessage(A);
    //dm.DataModule2.ADOConnection1.CommitTrans ;
    LabeledEdit1.Text := '';
    LabeledEdit2.Text := '';
    LabeledEdit3.Text := '';
    LabeledEdit4.Text := '';
    LabeledEdit5.Text := '';
    LabeledEdit6.Text := '';
    LabeledEdit7.Text := '';
    LabeledEdit8.Text := '';
    LabeledEdit9.Text := '';
    LabeledEdit10.Text := '';
    LabeledEdit11.Text := '';
    LabeledEdit12.Text := '';
    LabeledEdit13.Text := '';
    LabeledEdit14.Text := '';
    LabeledEdit15.Text := '';
    LabeledEdit16.Text := '';
    LabeledEdit17.Text := '';
    LabeledEdit18.Text := '';
    edit3.Text := '';
    edit4.Text := '';
  except
    showmessage('新增工程总概况信息失败！！！');
    //dm.DataModule2.ADOConnection1.RollbackTrans ;
  end;

end;

procedure TForm1.new_ztsgdwExecute(Sender: TObject);
begin
  try
    if trim(LabeledEdit19.Text) = '' then
      begin
        showmessage('单位名称不能为空！！！');
        LabeledEdit19.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit20.Text) = '' then
      begin
        showmessage('资质等级不能为空！！！');
        LabeledEdit20.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit21.Text) = '' then
      begin
        showmessage('法人代表不能为空！！！');
        LabeledEdit21.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit22.Text) = '' then
      begin
        showmessage('项目经理不能为空！！！');
        LabeledEdit22.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit23.Text) = '' then
      begin
        showmessage('合同工期不能为空！！！');
        LabeledEdit23.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit24.Text) = '' then
      begin
        showmessage('合同价款不能为空！！！');
        LabeledEdit24.SetFocus ;
        exit;
      end;
    if trim(LabeledEdit25.Text) = '' then
      begin
        showmessage('五大员不能为空！！！');
        LabeledEdit25.SetFocus ;
        exit;
      end;
    if gcid = 0 then
      form2.ShowModal ;
    ado_new.SQL.Text := 'select * from ztsgdw where gcid = ' + inttostr(gcid) ;
    ado_new.Open;
    if ado_new.RecordCount >= 1 then
      begin
        showmessage('此工程的主体施工单位信息已经录入！！！');
        exit;
      end;
    ado_new.SQL.Text := 'insert into ztsgdw (gcid,dwmc,zzdj,frdb,xmjl,htgq,htjk,hbdw,htkgrq,htjgrq,wdy) values ( '''
                        + inttostr(gcid) + ljf + trim(LabeledEdit19.Text) + ljf