wendang.pas

一个项目工程监理系统的全部源码

unit WenDang;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Word97, OleServer, ComCtrls, ExtCtrls, StdCtrls, ExtDlgs, Buttons,
  DBCtrls;

type
  TWenDangForm = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    WordApplication1: TWordApplication;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    OpenDialog1: TOpenDialog;
    OpenPictureDialog1: TOpenPictureDialog;
    Button1: TButton;
    Button5: TButton;
    GroupBox2: TGroupBox;
    ComboBox2: TComboBox;
    Button9: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button6: TButton;
    GroupBox3: TGroupBox;
    ComboBox3: TComboBox;
    Button7: TButton;
    GroupBox4: TGroupBox;
    ComboBox4: TComboBox;
    Button8: TButton;
    Label21: TLabel;
    DBText21: TDBText;
    Label22: TLabel;
    DBText22: TDBText;
    Label23: TLabel;
    DBText23: TDBText;
    Label24: TLabel;
    DBText24: TDBText;
    Panel2: TPanel;
    Label1: TLabel;
    DBText3: TDBText;
    Label3: TLabel;
    DBText1: TDBText;
    Label2: TLabel;
    DBText2: TDBText;
    Label4: TLabel;
    DBText4: TDBText;
    Button10: TButton;
    Button12: TButton;
    GroupBox5: TGroupBox;
    ComboBox5: TComboBox;
    Button11: TButton;
    DBNavigator1: TDBNavigator;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    GroupBox6: TGroupBox;
    ComboBox6: TComboBox;
    GroupBox7: TGroupBox;
    ComboBox7: TComboBox;
    Panel3: TPanel;
    RB12: TRadioButton;
    RB8: TRadioButton;
    RB14: TRadioButton;
    RB18: TRadioButton;
    RB20: TRadioButton;
    PageControl2: TPageControl;
    Button14: TButton;
    GroupBox9: TGroupBox;
    ComboBox9: TComboBox;
    GroupBox10: TGroupBox;
    ComboBox10: TComboBox;
    Button17: TButton;
    Button18: TButton;
    PageControl3: TPageControl;
    TabSheet12: TTabSheet;
    TabSheet13: TTabSheet;
    GroupBox8: TGroupBox;
    ComboBox8: TComboBox;
    Panel4: TPanel;
    RBh18: TRadioButton;
    RBh20: TRadioButton;
    GroupBox11: TGroupBox;
    ComboBox11: TComboBox;
    RBh25: TRadioButton;
    Button20: TButton;
    Button13: TButton;
    RB25: TRadioButton;
    TabSheet14: TTabSheet;
    TabSheet15: TTabSheet;
    GroupBox12: TGroupBox;
    ComboBox12: TComboBox;
    GroupBox13: TGroupBox;
    ComboBox13: TComboBox;
    Button15: TButton;
    Button16: TButton;
    procedure ComboBox1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure WordApplication1Quit(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure FormActivate(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
  private
    MuLuName: string;
    OpenName: OLEVariant;
    procedure FindAcdsee;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WenDangForm: TWenDangForm;
implementation
  uses Project,Main,MuLu,registry, DataBase;
{$R *.DFM}
//-----------------------------------------------------------
procedure TWenDangForm.FindAcdsee;
var Reg: TRegistry;
    ExecName:string;
begin
 Reg := TRegistry.Create; //创建注册表
     try
       Reg.RootKey := HKEY_CLASSES_ROOT; //定位注册表跟目录
       if Reg.OpenKey('ACDSee.JPG\shell\Open\Command',True) then //打开键值所在目录
         begin
          ExecName:=Reg.ReadString(''); //取默认键值：ACDSee.exe 所在位置
          ExecName:=ExecName+' '+MuLuName;
          Winexec(PChar(ExecName),SW_RESTORE); //执行ACDSee.exe. PChar()函数是将字符窜转换成PChar类型；
          MuLuName:=''
         end
       else
         showmessage('没有发现ACDSee.exe，请安装');
       finally
       Reg.CloseKey;
       Reg.Free;
       inherited;
     end;
end;
//-----------------------------------------------------------
procedure TWenDangForm.ComboBox1Change(Sender: TObject);
begin
  ProjectForm.AppPath:=ProjectForm.AppPath+'\\data\桩基\ZhuangWeiTu.sav';
  ComboBox1.Items.SaveToFile(ProjectForm.AppPath);
  //ShowMessage(ProjectForm.AppPath);
end;
//------------------------------------------------------------
procedure TWenDangForm.Button2Click(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
   0: ComboBox1.Text:='E:\新建文件夹\泰达图书馆\桩机工程';
   1: ComboBox2.Text:='E:\新建文件夹\泰达图书馆\桩机工程';
   2: ComboBox3.Text:='E:\新建文件夹\泰达图书馆\桩机工程\打桩纪录';
   3: ComboBox4.Text:='E:\新建文件夹\泰达图书馆\桩机工程\隐蔽工程\隐蔽报验';
   4: ComboBox5.Text:='E:\新建文件夹\泰达图书馆\桩机工程\隐蔽工程\隐蔽纪录';
   5: case PageControl2.ActivePageIndex of
        0:ComboBox6.Text:='E:\新建文件夹\泰达图书馆\桩机工程\进料情况\钢筋\检验报告';
        1:ComboBox7.Text:='E:\新建文件夹\泰达图书馆\桩机工程\进料情况\钢筋\材质证明书';
      end;
   6: ComboBox8.Text:='E:\新建文件夹\泰达图书馆\桩机工程\进料情况\焊接\焊接报告';
   7: ComboBox9.Text:='E:\新建文件夹\泰达图书馆\桩机工程\进料情况\混凝土检测';
   8: ComboBox10.Text:='E:\新建文件夹\泰达图书馆\桩机工程\超声波检测';
  end;
end;
//-----------------------------------------------------------
procedure TWenDangForm.Button3Click(Sender: TObject);
var LuJing:string;
begin
  case PageControl1.ActivePageIndex of
   0:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\ZhuangWeiTu.sav';
     ComboBox1.Items.LoadFromFile(LuJing);
     ComboBox1.text:=trim(ComboBox1.Items.text);
     end;
   1:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\ZhuangXiangTu.sav';
     ComboBox2.Items.LoadFromFile(LuJing);
     ComboBox2.text:=trim(ComboBox2.Items.text);
     end;
   2:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\DaZhuangJiLu.sav';
     ComboBox3.Items.LoadFromFile(LuJing);
     ComboBox3.text:=trim(ComboBox3.Items.text);
     end;
   3:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\YinBiBaoYan.sav';
     ComboBox4.Items.LoadFromFile(LuJing);
     ComboBox4.text:=trim(ComboBox4.Items.text);
     end;
   4:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\YinBiJiLu.sav';
     ComboBox5.Items.LoadFromFile(LuJing);
     ComboBox5.text:=trim(ComboBox5.Items.text);
     end;
   5:case PageControl2.ActivePageIndex of
     0:begin
       LuJing:=ProjectForm.AppPath+'\data\桩基\JianYanBaoGao.sav';
       ComboBox6.Items.LoadFromFile(LuJing);
       ComboBox6.text:=trim(ComboBox6.Items.text);
       end;
     1:begin
       LuJing:=ProjectForm.AppPath+'\data\桩基\ZhengMingShu.sav';
       ComboBox7.Items.LoadFromFile(LuJing);
       ComboBox7.text:=trim(ComboBox7.Items.text);
       end;
     end;
   6:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\HanJieBaoGao.sav';
     ComboBox8.Items.LoadFromFile(LuJing);
     ComboBox8.text:=trim(ComboBox8.Items.text);
     end;
   7:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\KangYaBaoGao.sav';
     ComboBox9.Items.LoadFromFile(LuJing);
     ComboBox9.text:=trim(ComboBox9.Items.text);
     end;
   8:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\ChaoShengBo.sav';
     ComboBox10.Items.LoadFromFile(LuJing);
     ComboBox10.text:=trim(ComboBox10.Items.text);
     end;
  end;
end;
//-----------------------------------------------------------
procedure TWenDangForm.Button1Click(Sender: TObject);
begin
  //定位目录
  //MuLuName:='';
  MuLuName:=ComboBox1.Text+'\ZhuangWeiTu.jpg';
//open file
  if FileExists(MuLuName) then
     FindAcdsee
  else
    ShowMessage(MuLuName+'不存在');
end;
//----------------------------------------------------------
procedure TWenDangForm.Button4Click(Sender: TObject);
var LuJing:string;
begin
  case PageControl1.ActivePageIndex of
   0:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\ZhuangWeiTu.sav';
     ComboBox1.Items.SaveToFile(LuJing);
     end;
   1:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\ZhuangXiangTu.sav';
     ComboBox2.Items.SaveToFile(LuJing);
     end;
   2:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\DaZhuangJiLu.sav';
     ComboBox3.Items.SaveToFile(LuJing);
     end;
   3:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\YinBiBaoYan.sav';
     ComboBox4.Items.SaveToFile(LuJing);
     end;
   4:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\YinBiJiLu.sav';
     ComboBox5.Items.SaveToFile(LuJing);
     end;
   5:case PageControl2.ActivePageIndex of
      0:begin
        LuJing:=ProjectForm.AppPath+'\data\桩基\JianYanBaoGao.sav';
        ComboBox6.Items.SaveToFile(LuJing);
        end;
      1:begin
        LuJing:=ProjectForm.AppPath+'\data\桩基\ZhengMingShu.sav';
        ComboBox7.Items.SaveToFile(LuJing);
        end;
     end;
   6:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\HanJieBaoGao.sav';
     ComboBox8.Items.SaveToFile(LuJing);
     end;
   7:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\KangYaBaoGao.sav';
     ComboBox9.Items.SaveToFile(LuJing);
     end;
   8:begin
     LuJing:=ProjectForm.AppPath+'\data\桩基\ChaoShengBo.sav';
     ComboBox10.Items.SaveToFile(LuJing);
     end;
   end;
end;
//-----------------------------------------------------------
procedure TWenDangForm.Button6Click(Sender: TObject);
begin
  MuLuForm.Show;
end;
//-----------------------------------------------------------
procedure TWenDangForm.Button9Click(Sender: TObject);
begin
 OpenDialog1.InitialDir:=ComboBox2.Text;
 if OpenDialog1.Execute then
end;

procedure TWenDangForm.Button5Click(Sender: TObject);
begin
  OpenName:=ComboBox2.Text+'\\700灌注桩详图.doc';
  if FileExists(OpenName) then
   begin
    wordapplication1.Visible:=true;
    WordApplication1.Documents.Open(OpenName,
                     EmptyParam,EmptyParam,EmptyParam,
                     EmptyParam,EmptyParam,EmptyParam,
                     EmptyParam,EmptyParam,EmptyParam)
    end
   else
    ShowMessage(OpenName+'不存在');
end;
//-------------------------------------------------------------
procedure TWenDangForm.WordApplication1Quit(Sender: TObject);
begin
   WordApplication1.Disconnect;
end;
//------------------------------------------------------------
procedure TWenDangForm.Button7Click(Sender: TObject);
var Yue,Ri,DToS,LianJie,ZhuangH: string;
begin
//定位目录
  DToS:=DateToStr(DBText3.field.Value);
  Yue:=Copy(DToS,6,2);
  Ri:=Copy(DTos,9,2);