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

📄 main.pas

📁 一个项目工程监理系统的全部源码
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    dxDBGrid13YuanCai: TdxDBGridButtonColumn;
    dxDBGrid13HNTTuZhiPing: TdxDBGridButtonColumn;
    dxDBGrid13YinBiGongCheng: TdxDBGridButtonColumn;
    Button9: TButton;
    Button10: TButton;
    Button7: TButton;
    Button8: TButton;
    dxDBGrid13HNTQiangDu: TdxDBGridButtonColumn;
    dxDBGrid14XuHao: TdxDBGridButtonColumn;
    dxDBGridMaskColumn50: TdxDBGridButtonColumn;
    dxDBGridMaskColumn56: TdxDBGridButtonColumn;
    dxDBGrid23YuanCaiJianYan: TdxDBGridButtonColumn;
    dxDBGridMaskColumn17: TdxDBGridButtonColumn;
    dxDBGrid5MingCheng: TdxDBGridButtonColumn;
    Button13: TButton;
    dxDBGrid7BianHao: TdxDBGridButtonColumn;
    dxDBGrid11Pingdingbiao: TdxDBGridButtonColumn;
    dxDBGrid23Pingdingbiao: TdxDBGridButtonColumn;
    dxDBGrid13GuoChengKongZhi: TdxDBGridButtonColumn;
    dxDBGrid23GuoChengKongZhi: TdxDBGridButtonColumn;
    dxDBGrid24GuoChengKongZhi: TdxDBGridButtonColumn;
    dxDBGridGraphicColumn1: TdxDBGridButtonColumn;
    dxDBGridGraphicColumn2: TdxDBGridButtonColumn;
    dxDBGridMaskColumn87: TdxDBGridButtonColumn;
    dxDBGrid30QuYang: TdxDBGridButtonColumn;
    dxDBGrid11BiaoGaoJianCha: TdxDBGridButtonColumn;
    procedure N8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure dxDBGrid2ZhuangHaoEditButtonClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure SpeedButton25Click(Sender: TObject);
    procedure SpeedButton33Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure SpeedButton26Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton31Click(Sender: TObject);
    procedure SpeedButton32Click(Sender: TObject);
    procedure SpeedButton34Click(Sender: TObject);
    procedure SpeedButton36Click(Sender: TObject);
    procedure SpeedButton38Click(Sender: TObject);
    procedure SpeedButton39Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure WordApplication1DocumentChange(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure dxDBGrid4BianHaoButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure SpeedButton5Click(Sender: TObject);
    procedure dxDBGrid3ZhengShuBianHaoButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid5JianDingZhengShuButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure SpeedButton3Click(Sender: TObject);
    procedure dxDBGrid6BianHaoButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure SpeedButton8Click(Sender: TObject);
    procedure dxDBGrid11WHZQXGCButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid12XuHaoButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid13YuanCaiButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid13HNTQiangDuButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid13HNTTuZhiPingButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid13YinBiGongChengButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid14XuHaoButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGridMaskColumn50ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure SpeedButton27Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure dxDBGridMaskColumn56ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid23YuanCaiJianYanButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGridMaskColumn17ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid5MingChengButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure Button13Click(Sender: TObject);
    procedure dxDBGrid7BianHaoButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid11PingdingbiaoButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid23PingdingbiaoButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid13GuoChengKongZhiButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid23GuoChengKongZhiButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid24GuoChengKongZhiButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGridGraphicColumn1ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGridGraphicColumn2ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGridMaskColumn87ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid30QuYangButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure dxDBGrid11BiaoGaoJianChaButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
  private
    AppPath,bianhao,lujing:string;
     procedure FindAcdsee;
    procedure OpenWordDoc;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Mainform: TMainform;

implementation
  uses Database,fengmian1,GuanYu,project,WenDang;

{$R *.DFM}

procedure TMainform.N8Click(Sender: TObject);
begin
 close;
end;

procedure TMainForm.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+' '+lujing;
          Winexec(PChar(ExecName),SW_RESTORE); //执行ACDSee.exe. PChar()函数是将字符窜转换成PChar类型；
          lujing:=''
         end
       else
         showmessage('没有发现ACDSee.exe，请安装');
       finally
       Reg.CloseKey;
       Reg.Free;
       inherited;
     end;
end;

procedure TMainForm.OpenWordDoc;
var OpenName,Template,NewTemplate,ItemIndex: OLEVariant;
begin
 OpenName:=lujing;
 if FileExists(OpenName) then
   begin
    wordapplication1.Visible:=true;
    WordApplication1.Documents.Open(OpenName,
                     EmptyParam,EmptyParam,EmptyParam,
                     EmptyParam,EmptyParam,EmptyParam,
                     EmptyParam,EmptyParam,EmptyParam)
    end
   else
    begin
    if MessageDlg('没有发现'+lujing+',是否创建？',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     begin
     Template := EmptyParam;
     NewTemplate := False;
     ItemIndex:=1;
     //显示word窗口
     wordapplication1.Visible:=true;
     //新建word文件
     wordapplication1.Documents.Add(Template,NewTemplate);
     //连接WordDocument1到wordapplication1文档
     WordDocument1.ConnectTo(wordapplication1.Documents.Item(ItemIndex));
     //保存
     WordDocument1.SaveAs(OpenName);
     //关闭拼写检查，因为它消耗时间较长
     WordApplication1.Options.CheckSpellingAsYouType:=false;
     WordApplication1.Options.CheckGrammarAsYouType:=false;
     //往文档中插入字符
     //WordDocument1.Range(EmptyParam,EmptyParam).InsertAfter(
     //   StringToOleStr(Edit1.text));
     end
    end
end;

procedure TMainform.FormShow(Sender: TObject);
begin
  Caption:=Projectform.XiangMuTable.fieldbyname('MingCheng').ASString+'项目';
  fengmian1form.ShowModal;
end;

procedure TMainform.SpeedButton1Click(Sender: TObject);
begin
  data1.XiuGait.Append;
end;

procedure TMainform.N62Click(Sender: TObject);
begin
  GuanYuForm.Show;
end;

procedure TMainform.N63Click(Sender: TObject);
begin
  GuanYuForm.Show;
end;

procedure TMainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 projectform.show;
end;

procedure TMainform.N1Click(Sender: TObject);
var lujing:string;
begin
 lujing:=AppPath;
 lujing:=lujing+'\data\TreeView1.sav';
 TreeView1.LoadFromFile(lujing);
 Panel35.Caption:='施工单位审查'; 
end;

procedure TMainform.FormCreate(Sender: TObject);
var lujing:string;
begin
  AppPath:=ExtractFileDir(Application.ExeName);
  lujing:=AppPath+'\data\TreeView3.sav';
  TreeView1.LoadFromFile(lujing);
  data1.XiuGaiT.Open;
  Data1.ZongBaoT.Open;
  Data1.ZBShangGangT.Open;
  Data1.ZBYiQiT.Open;
  Data1.ShiYanShiT.open;
  Data1.JiaoBanT.Open;
  Data1.CJZiZhiT.Open;
  Data1.CJShangGangT.Open;
  Data1.CJYiQiT.Open;
  Data1.XiuGaiT.Open;
  Data1.DecisionQuery1.Open;
  Data1.TuFangZT.Open;
  Data1.TuFangJT.Open;
  Data1.DianCengZT.Open;
  Data1.DianCengJT.Open;
  Data1.DingWeiT.Open;
  Data1.DiBanZT.Open;
  Data1.DiBanJT.Open;
  Data1.DiFangZT.Open;
  Data1.DiFangJT.Open;
  Data1.DiFangZiZhiT.Open;
  Data1.DiFangST.Open;
  Data1.DingBanZT.Open;
  Data1.DingBanJT.Open;
  data1.JianLiQiangZT.Open;
  data1.JianLiQiangJT.Open;
  Data1.HuiTianTuZT.Open;
  Data1.HuiTianTuJT.Open;
  Data1.CeFangJT.Open;
  Data1.CeFangZT.Open;
  Data1.CeFangZiZhiT.Open;
  Data1.CeFangST.Open;

end;

procedure TMainform.N2Click(Sender: TObject);
var lujing:string;
begin
 lujing:=AppPath;
 lujing:=lujing+'\data\TreeView2.sav';
 TreeView1.LoadFromFile(lujing);
 Panel35.Caption:='监理组内部'; 
end;

procedure TMainform.N4Click(Sender: TObject);
var lujing:string;
begin
 lujing:=AppPath;
 lujing:=lujing+'\data\TreeView3.sav';
 TreeView1.LoadFromFile(lujing);
 Panel35.Caption:='基础工程';
end;

procedure TMainform.TreeView1Change(Sender: TObject; Node: TTreeNode);
var Addr:string;
    addrint:integer;
begin
  addr:=treeview1.Selected.Text;
  addrint:=StrtoInt(copy(addr,1,2));
  Panel36.Caption:=copy(treeview1.Selected.Text,4,Length(treeview1.Selected.Text));
  case addrint of
   1: PageControl1.ActivePageIndex:=0;
   2: PageControl1.ActivePageIndex:=1;
   3: PageControl1.ActivePageIndex:=2;
   4: PageControl1.ActivePageIndex:=3;
   5: PageControl1.ActivePageIndex:=4;
   6: PageControl1.ActivePageIndex:=5;
   7: PageControl1.ActivePageIndex:=6;
   8: PageControl1.ActivePageIndex:=7;
   9: PageControl1.ActivePageIndex:=8;
   10: PageControl1.ActivePageIndex:=9;
   11: PageControl1.ActivePageIndex:=10;
   12: PageControl1.ActivePageIndex:=11;
   13: PageControl1.ActivePageIndex:=12;
   14: PageControl1.ActivePageIndex:=13;
   15: PageControl1.ActivePageIndex:=14;
   16: PageControl1.ActivePageIndex:=15;
   17: PageControl1.ActivePageIndex:=16;
 end;
end;

procedure TMainform.Button1Click(Sender: TObject);
var i,zhi: integer;
begin
  i:=1;
  data1.ZhuangShuT.close;
  data1.ZhuangShuT.Exclusive:=true;
  data1.ZhuangShuT.EmptyTable;
  data1.ZhuangShuT.Exclusive:=false;
  data1.TongJiQ.SQL.Clear;
  data1.TongJiQ.SQL.Add('INSERT INTO ZhuangShu(RiQi,ZhuangShu)');
  data1.TongJiQ.SQL.Add('SELECT RiQi, COUNT( ZhuangHao )');
  data1.TongJiQ.SQL.Add('FROM "JinDu.DB" GROUP BY RiQi');
  data1.TongjiQ.ExecSQL;
  data1.TongjiQ.Close;
  data1.ZhuangShuT.open;
  data1.ZhuangShuT.Edit;
  data1.ZhuangShuT.FieldByName('TongJi').ASInteger:=data1.ZhuangShuT.FieldByName('ZhuangShu').ASInteger;
  zhi:=data1.ZhuangShuT.FieldByName('ZhuangShu').ASInteger;
  data1.ZhuangShuT.RecNo:=2;
  while i<data1.ZhuangShuT.RecordCount do
  begin
    data1.ZhuangShuT.Edit;
    data1.ZhuangShuT.FieldByName('TongJi').ASInteger:=data1.ZhuangShuT.FieldByName('zhuangshu').ASInteger+zhi;
    zhi:=data1.ZhuangShuT.FieldByName('TongJi').ASInteger;
    i:=i+1;
    data1.ZhuangShuT.RecNo:=i+1;
  end
end;

procedure TMainform.Button5Click(Sender: TObject);
var i,zhi: integer;
begin
//--------------------------------------
  i:=1;
  data1.TuShuGuanT.close;
//  TuShuGuanT.Exclusive:=true;
  data1.TuShuGuanT.EmptyTable;
//  TuShuGuanT.Exclusive:=false;
  data1.TongJiQ.SQL.Clear;
  data1.TongJiQ.SQL.Add('INSERT INTO TuShuGuan(RiQi,ZhuangShu)');
  data1.TongJiQ.SQL.Add('SELECT RiQi, COUNT( ZhuangHao )');
  data1.TongJiQ.SQL.Add('FROM "JinDu.DB" Where Weizhi="图书馆" GROUP BY RiQi ');
  data1.TongjiQ.ExecSQL;
  data1.TongjiQ.Close;
  data1.TuShuGuanT.open;
  data1.TuShuGuanT.Edit;
  data1.TuShuGuanT.FieldByName('TongJi').ASInteger:=data1.TuShuGuanT.FieldByName('ZhuangShu').ASInteger;
  zhi:=data1.TuShuGuanT.FieldByName('ZhuangShu').ASInteger;
  data1.TuShuGuanT.RecNo:=2;
  while i<data1.TuShuGuanT.RecordCount do
  begin
    data1.TuShuGuanT.Edit;
    data1.TuShuGuanT.FieldByName('TongJi').ASInteger:=data1.TuShuGuanT.FieldByName('zhuangshu').ASInteger+zhi;
    zhi:=data1.TuShuGuanT.FieldByName('TongJi').ASInteger;
    i:=i+1;
    data1.TuShuGuanT.RecNo:=i+1;
  end;
//--------------------------------------
  i:=1;
  data1.DangAnGuanT.close;
  data1.DangAnGuanT.EmptyTable;
  data1.TongJiQ.SQL.Clear;
  data1.TongJiQ.SQL.Add('INSERT INTO DangAnGuan(RiQi,ZhuangShu)');
  data1.TongJiQ.SQL.Add('SELECT RiQi, COUNT( ZhuangHao )');
  data1.TongJiQ.SQL.Add('FROM "JinDu.DB" Where Weizhi="档案馆" GROUP BY RiQi ');
  data1.TongjiQ.ExecSQL;
  data1.TongjiQ.Close;
  data1.DangAnGuanT.open;
  data1.DangAnGuanT.Edit;
  data1.DangAnGuanT.FieldByName('TongJi').ASInteger:=data1.DangAnGuanT.FieldByName('ZhuangShu').ASInteger;
  zhi:=data1.DangAnGuanT.FieldByName('ZhuangShu').ASInteger;
  data1.DangAnGuanT.RecNo:=2;
  while i<data1.DangAnGuanT.RecordCount do
  begin
    data1.DangAnGuanT.Edit;
    data1.DangAnGuanT.FieldByName('TongJi').ASInteger:=data1.DangAnGuanT.FieldByName('zhuangshu').ASInteger+zhi;
    zhi:=data1.DangAnGuanT.FieldByName('TongJi').ASInteger;
    i:=i+1;
    data1.DangAnGuanT.RecNo:=i+1;
  end;
//--------------------------------------
  i:=1;
  data1.DiXiaShiT.close;
  data1.DiXiaShiT.EmptyTable;
  data1.TongJiQ.SQL.Clear;
  data1.TongJiQ.SQL.Add('INSERT INTO DiXiaShi(RiQi,ZhuangShu)');
  data1.TongJiQ.SQL.Add('SELECT RiQi, COUNT( ZhuangHao )');
  data1.TongJiQ.SQL.Add('FROM "JinDu.DB" Where Weizhi="地下室" GROUP BY RiQi ');
  data1.TongjiQ.ExecSQL;
  data1.TongjiQ.Close;
  data1.DiXiaShiT.open;
  data1.DiXiaShiT.Edit;
  data1.DiXiaShiT.FieldByName('TongJi').ASInteger:=data1.DiXiaShiT.FieldByName('ZhuangShu').ASInteger;
  zhi:=data1.DiXiaShiT.FieldByName('ZhuangShu').ASInteger;
  data1.DiXiaShiT.RecNo:=2;
  while i<data1.DiXiaShiT.RecordCount do
  begin
    data1.DiXiaShiT.Edit;
    data1.DiXiaShiT.FieldByName('TongJi').ASInteger:=data1.DiXiaShiT.FieldByName('zhuangshu').ASInteger+zhi;
    zhi:=data1.DiXiaShiT.FieldByName('TongJi').ASInteger;
    i:=i+1;
    data1.DiXiaShiT.RecNo:=i+1;
  end;

end;

procedure TMainform.dxDBGrid2ZhuangHaoEditButtonClick(Sender: TObject);
begin
   WenDangForm.show;
end;

procedure TMainform.Timer1Timer(Sender: TObject);
begin
  label3.Left:=label3.Left-1;
  if label3.Left=-1012 then
    label3.Left:=404;
1234

⌨️ 快捷键说明

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