⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.pas

📁 一个项目工程监理系统的全部源码
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
  label4.Top:=label4.Top-1;
  if label4.Top=-171 then
    label4.Top:=285;
end;

procedure TMainform.Button6Click(Sender: TObject);
begin
if PrinterSetupDialog1.Execute then
   DecisionGraph1.Print;
end;

procedure TMainform.Button3Click(Sender: TObject);
begin
if PrinterSetupDialog1.Execute then
   DBChart1.Print;
end;

procedure TMainform.Button4Click(Sender: TObject);
begin
  if PrinterSetupDialog1.Execute then
   DBChart2.Print;
end;

procedure TMainform.SpeedButton2Click(Sender: TObject);
begin
 Data1.ZongBaoT.Append;
end;

procedure TMainform.SpeedButton4Click(Sender: TObject);
begin
 Data1.ZBShangGangT.Append;
end;

procedure TMainform.SpeedButton6Click(Sender: TObject);
begin
 Data1.ZBYiQiT.Append;
end;

procedure TMainform.SpeedButton7Click(Sender: TObject);
begin
 Data1.ShiYanShiT.Append;
end;

procedure TMainform.SpeedButton9Click(Sender: TObject);
begin
 Data1.JiaoBanT.Append;
end;

procedure TMainform.SpeedButton11Click(Sender: TObject);
begin
 Data1.CJZiZhiT.Append;
end;

procedure TMainform.SpeedButton13Click(Sender: TObject);
begin
 Data1.CJShangGangT.Append;
end;

procedure TMainform.SpeedButton16Click(Sender: TObject);
begin
data1.TuFangZT.Append;
end;

procedure TMainform.SpeedButton17Click(Sender: TObject);
begin
data1.TuFangJT.Append;
end;

procedure TMainform.SpeedButton18Click(Sender: TObject);
begin
data1.DiancengZT.Append;
end;

procedure TMainform.SpeedButton19Click(Sender: TObject);
begin
data1.DianCengJT.Append;
end;

procedure TMainform.SpeedButton20Click(Sender: TObject);
begin
data1.DiFangJT.Append;
end;

procedure TMainform.SpeedButton21Click(Sender: TObject);
begin
data1.DiBanJT.Append;
end;

procedure TMainform.SpeedButton22Click(Sender: TObject);
begin
data1.JianLiQiangJT.Append;
end;

procedure TMainform.SpeedButton23Click(Sender: TObject);
begin
data1.DingBanJT.Append;
end;

procedure TMainform.SpeedButton24Click(Sender: TObject);
begin
data1.CeFangJT.Append;
end;

procedure TMainform.SpeedButton25Click(Sender: TObject);
begin
data1.HuiTianTuJT.Append;
end;

procedure TMainform.SpeedButton33Click(Sender: TObject);
begin
data1.DingBanZT.Append;
end;

procedure TMainform.SpeedButton30Click(Sender: TObject);
begin
data1.DiFangZT.Append;
end;

procedure TMainform.SpeedButton26Click(Sender: TObject);
begin
data1.DiFangZiZhiT.Append;
end;

procedure TMainform.SpeedButton28Click(Sender: TObject);
begin
data1.DiFangST.Append;
end;

procedure TMainform.SpeedButton31Click(Sender: TObject);
begin
data1.DiBanZT.Append;
end;

procedure TMainform.SpeedButton32Click(Sender: TObject);
begin
data1.jianLiQiangZT.Append;
end;

procedure TMainform.SpeedButton34Click(Sender: TObject);
begin
data1.CeFangZiZhiT.Append;
end;

procedure TMainform.SpeedButton36Click(Sender: TObject);
begin
data1.CeFangST.Append;
end;

procedure TMainform.SpeedButton38Click(Sender: TObject);
begin
data1.CeFangZT.append;
end;

procedure TMainform.SpeedButton39Click(Sender: TObject);
begin
data1.HuiTianTuZT.Append;
end;

procedure TMainform.Button11Click(Sender: TObject);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\施工方案审核';
 if DirectoryExists(lujing) then
   begin
   Lujing:=Lujing+'\施工组织设计.doc';
   OpenWordDoc;
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.Button12Click(Sender: TObject);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\施工方案审核';
 if DirectoryExists(lujing) then
   begin
   Lujing:=Lujing+'\审核记录.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.WordApplication1DocumentChange(Sender: TObject);
begin
   WordApplication1.Disconnect;
end;

procedure TMainform.Button7Click(Sender: TObject);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\方案';
 if DirectoryExists(lujing) then
   begin
   Lujing:=Lujing+'\施工组织设计.doc';
   OpenWordDoc;
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.Button8Click(Sender: TObject);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\方案';
 if DirectoryExists(lujing) then
   begin
   Lujing:=Lujing+'\审核记录.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid4BianHaoButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\资质';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.ZongBaoT.FieldByName('BianHao').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.SpeedButton5Click(Sender: TObject);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\上岗证';
 if DirectoryExists(lujing) then
   begin
   Lujing:=Lujing+'\审核记录.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid3ZhengShuBianHaoButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\上岗证';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.ZBShangGangT.FieldByName('ZhengShuBianHao').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid5JianDingZhengShuButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\仪器设备';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.ZBYiQiT.FieldByName('JianDingZhengShu').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.SpeedButton3Click(Sender: TObject);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\资质';
 if DirectoryExists(lujing) then
   begin
   Lujing:=Lujing+'\审核记录.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid6BianHaoButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption;
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.ShiYanShiT.FieldByName('BianHao').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.SpeedButton8Click(Sender: TObject);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption;
 if DirectoryExists(lujing) then
   begin
   Lujing:=Lujing+'\审核记录.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid11WHZQXGCButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\土方工程\质量控制\维护桩倾斜观测';
 if DirectoryExists(lujing) then
   begin
   Lujing:=Lujing+'\'+data1.TuFangZT.fieldbyName('WHZQXGC').ASString+'.doc';
   OpenWordDoc;
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid12XuHaoButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\土方工程';
 if DirectoryExists(lujing) then
   begin
   Lujing:=Lujing+'\进度控制.doc';
   OpenWordDoc;
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid13YuanCaiButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption;
 Lujing:=Lujing+'\垫层\质量控制\原材';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DianCengZT.FieldByName('Yuancai').ASString);
   if DirectoryExists(lujing) then
     begin
     Lujing:=Lujing+'\'+bianhao+'.doc';
     OpenWordDoc;
     end;
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid13HNTQiangDuButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption;
 Lujing:=Lujing+'\垫层\质量控制\混凝土强度报告';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DianCengZT.FieldByName('HNTQiangDu').ASString);
   if DirectoryExists(lujing) then
     begin
     Lujing:=Lujing+'\'+bianhao+'.doc';
     OpenWordDoc;
     end;
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid13HNTTuZhiPingButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption;
 Lujing:=Lujing+'\垫层\质量控制\混凝土质评表';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DianCengZT.FieldByName('HNTTuZhiPing').ASString);
   if DirectoryExists(lujing) then
     begin
     Lujing:=Lujing+'\'+bianhao+'.doc';
     OpenWordDoc;
     end;
   end
 else
   showmessage('没有发现目录：'+lujing);

end;

procedure TMainform.dxDBGrid13YinBiGongChengButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\垫层\质量控制\隐蔽工程记录';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DianCengZT.FieldByName('yinbigongcheng').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid14XuHaoButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption;
 Lujing:=Lujing+'\垫层\进度控制';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DianCengjT.FieldByName('XuHao').ASString);
   if DirectoryExists(lujing) then
     begin
     Lujing:=Lujing+'\'+bianhao+'.doc';
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -