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

📄 main.pas

📁 一个项目工程监理系统的全部源码
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
     OpenWordDoc;
     end;
   end
 else
   showmessage('没有发现目录：'+lujing);

end;

procedure TMainform.dxDBGridMaskColumn50ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption;
 Lujing:=Lujing+'\底板防水\分包商审查\资质';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DiFangZiZhiT.FieldByName('bianhao').ASString);
   if DirectoryExists(lujing) then
     begin
     Lujing:=Lujing+'\'+bianhao+'.doc';
     OpenWordDoc;
     end;
   end
 else
   showmessage('没有发现目录：'+lujing);

end;

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

end;

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

end;

procedure TMainform.dxDBGridMaskColumn56ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption;
 Lujing:=Lujing+'\底板防水\分包商审查\上岗证';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DiFangST.FieldByName('zhengshubianhao').ASString);
   if DirectoryExists(lujing) then
     begin
     Lujing:=Lujing+'\'+bianhao+'.doc';
     OpenWordDoc;
     end;
   end
 else
   showmessage('没有发现目录：'+lujing);

end;

procedure TMainform.dxDBGrid23YuanCaiJianYanButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption;
 Lujing:=Lujing+'\底板防水\质量控制\原材检验';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DiFangZT.FieldByName('yuancaijianyan').ASString);
   if DirectoryExists(lujing) then
     begin
     Lujing:=Lujing+'\'+bianhao+'.doc';
     OpenWordDoc;
     end;
   end
 else
   showmessage('没有发现目录：'+lujing);

end;

procedure TMainform.dxDBGridMaskColumn17ButtonClick(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';
     OpenWordDoc;
     end;
   end
 else
   showmessage('没有发现目录：'+lujing);

end;

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

end;

procedure TMainform.Button13Click(Sender: TObject);
var XLsMingCheng:string;
    MsExcel: Variant;
begin
  XLsMingCheng:=projectform.XMMuLu+'\print.XLS';
  case PageControl1.ActivePageIndex of
   0:begin
       case PageControl4.ActivePageIndex of
        0:dxDBGrid4.SaveToXLS(XLsMingCheng,False);
        2:dxDBGrid3.SaveToXLS(XLsMingCheng,False);
        3:dxDBGrid5.SaveToXLS(XLsMingCheng,False);
       end;
      end;
   1:begin
       case PageControl5.ActivePageIndex of
        0:dxDBGrid6.SaveToXLS(XLsMingCheng,False);
       end;
      end;
   2:begin
       case PageControl6.ActivePageIndex of
        0:dxDBGrid7.SaveToXLS(XLsMingCheng,False);
       end;
      end;
   3:begin
       case PageControl4.ActivePageIndex of
        0:dxDBGrid8.SaveToXLS(XLsMingCheng,False);
        2:dxDBGrid9.SaveToXLS(XLsMingCheng,False);
        3:dxDBGrid10.SaveToXLS(XLsMingCheng,False);
       end;
      end;
   15:begin
       case PageControl2.ActivePageIndex of
        0,1:dxDBGrid2.SaveToXLS(XLsMingCheng,False);
       end;
      end;
   16:begin
       case PageControl3.ActivePageIndex of
       0:begin
          case PageControl8.ActivePageIndex of
          0:dxDBGrid11.SaveToXLS(XLsMingCheng,False);
          1:dxDBGrid12.SaveToXLS(XLsMingCheng,False);
          end;
         end;
       2:begin
          case PageControl9.ActivePageIndex of
          0:dxDBGrid13.SaveToXLS(XLsMingCheng,False);
          1:dxDBGrid14.SaveToXLS(XLsMingCheng,False);
          end;
         end;
       3:begin
          case PageControl10.ActivePageIndex of
          0:begin
            case PageControl11.ActivePageIndex of
            0:dxDBGrid21.SaveToXLS(XLsMingCheng,False);
            1:dxDBGrid22.SaveToXLS(XLsMingCheng,False);
            end;
            end;
          1:dxDBGrid23.SaveToXLS(XLsMingCheng,False);
          2:dxDBGrid15.SaveToXLS(XLsMingCheng,False);
          end;
         end;
       5:begin
          case PageControl12.ActivePageIndex of
          0:dxDBGrid24.SaveToXLS(XLsMingCheng,False);
          1:dxDBGrid16.SaveToXLS(XLsMingCheng,False);
          end;
         end;
       6:begin
          case PageControl13.ActivePageIndex of
          0:dxDBGrid25.SaveToXLS(XLsMingCheng,False);
          1:dxDBGrid17.SaveToXLS(XLsMingCheng,False);
          end;
         end;
       7:begin
          case PageControl4.ActivePageIndex of
          0:dxDBGrid26.SaveToXLS(XLsMingCheng,False);
          1:dxDBGrid18.SaveToXLS(XLsMingCheng,False);
          end;
         end;
       8:begin
          case PageControl15.ActivePageIndex of
          0:begin
            case PageControl16.ActivePageIndex of
            0:dxDBGrid27.SaveToXLS(XLsMingCheng,False);
            1:dxDBGrid28.SaveToXLS(XLsMingCheng,False);
            end;
            end;
          1:dxDBGrid29.SaveToXLS(XLsMingCheng,False);
          2:dxDBGrid19.SaveToXLS(XLsMingCheng,False);
          end;
         end;
       9:begin
          case PageControl7.ActivePageIndex of
          0:dxDBGrid30.SaveToXLS(XLsMingCheng,False);
          1:dxDBGrid20.SaveToXLS(XLsMingCheng,False);
          end;
         end;
       end;
      end;
  end;
  try
  except
    ShowMessage('不能启动Excle，请确认Excle已经安装.');
    Exit;
   end;
   if FileExists(XLsMingCheng) then
    begin
     MsExcel := CreateOleObject('Excel.Application');
     MsExcel.workbooks.open(XLsMingcheng);
     MsExcel.visible:=true;
    end
   else
    showmessage('没有发现文件：'+XLsMingCheng);
end;

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

end;

procedure TMainform.dxDBGrid11PingdingbiaoButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\土方工程\质量控制\质量检验评定表';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.TuFangZT.FieldByName('Pingdingbiao').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid23PingdingbiaoButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\底板防水\质量控制\质量检验评定表';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DiFangZT.FieldByName('Pingdingbiao').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

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

procedure TMainform.dxDBGrid23GuoChengKongZhiButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\底板防水\质量控制\过程控制';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DiFangZT.FieldByName('GuoChengKongzhi').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid24GuoChengKongZhiButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\底板\质量控制\过程控制';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DiBanZT.FieldByName('GuoChengKongzhi').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGridGraphicColumn1ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\剪力墙\质量控制\过程控制';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.JianLiQiangZT.FieldByName('GuoChengKongzhi').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGridGraphicColumn2ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\顶板板\质量控制\过程控制';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.DingBanZT.FieldByName('GuoChengKongzhi').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGridMaskColumn87ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\侧壁防水\质量控制\过程控制';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.CeFangZT.FieldByName('GuoChengKongzhi').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid30QuYangButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\回填土\质量控制\取样';
 if DirectoryExists(lujing) then
   begin
   bianhao:=trim(data1.HuiTianTuZT.FieldByName('GuoChengKongzhi').ASString);
   Lujing:=Lujing+'\'+bianhao+'.jpg';
   if FileExists(lujing) then
     FindAcdsee
   else
     showmessage('没有发现'+lujing);
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

procedure TMainform.dxDBGrid11BiaoGaoJianChaButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
 lujing:=ProjectForm.XMMuLu+'\'+Panel35.Caption;
 Lujing:=Lujing+'\'+Panel36.Caption+'\土方工程\质量控制\标高检查';
 if DirectoryExists(lujing) then
   begin
   Lujing:=Lujing+'\'+data1.TuFangZT.fieldbyName('biaogaojiancha').ASString+'.doc';
   OpenWordDoc;
   end
 else
   showmessage('没有发现目录：'+lujing);
end;

end.
1234

⌨️ 快捷键说明

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