database.pas

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

unit DataBase;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, mxDB, mxtables, mxstore;

type
  TData1 = class(TDataModule)
    ZongBaoT: TTable;
    ZongBaoTDS: TDataSource;
    ZBShangGangT: TTable;
    ZBShangGangTDS: TDataSource;
    ZBYiQiT: TTable;
    ZBYiQiTDS: TDataSource;
    ShiYanShiT: TTable;
    ShiYanShiTDS: TDataSource;
    JiaoBanTDS: TDataSource;
    JiaoBanT: TTable;
    CJZiZhiT: TTable;
    CJZiZhiTDS: TDataSource;
    CJShangGangT: TTable;
    CJShangGangTDS: TDataSource;
    CJYiQiT: TTable;
    CJYiQiTDS: TDataSource;
    XiuGaiT: TTable;
    XiuGaiTDS: TDataSource;
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    DecisionSource1: TDecisionSource;
    TongJiQ: TQuery;
    ZhuangShuT: TTable;
    ZhuangShuTDS: TDataSource;
    TuShuGuanT: TTable;
    DiXiaShiT: TTable;
    DangAnGuanT: TTable;
    TuFangZT: TTable;
    TuFangZTDS: TDataSource;
    TuFangJT: TTable;
    TuFangJTDS: TDataSource;
    DianCengZT: TTable;
    DianCengZTDS: TDataSource;
    DianCengJT: TTable;
    DianCengJTDS: TDataSource;
    DingWeiT: TTable;
    DingWeiTDS: TDataSource;
    DiBanZT: TTable;
    DiBanZTDS: TDataSource;
    DiBanJT: TTable;
    DiBanJTDS: TDataSource;
    DiFangZT: TTable;
    DiFangZTDS: TDataSource;
    DiFangJT: TTable;
    DiFangJDS: TDataSource;
    DiFangZiZhiT: TTable;
    DiFangZiZhiTDS: TDataSource;
    DiFangST: TTable;
    DiFangSTDS: TDataSource;
    DingBanZT: TTable;
    DingBanZTDS: TDataSource;
    DingBanJT: TTable;
    DingBanJTDS: TDataSource;
    HuiTianTuZT: TTable;
    HuiTianTuZTDS: TDataSource;
    HuiTianTuJT: TTable;
    HuiTianTuJTDS: TDataSource;
    CeFangJT: TTable;
    CeFangJTDS: TDataSource;
    CeFangZT: TTable;
    CeFangZTDS: TDataSource;
    CeFangZiZhiT: TTable;
    CeFangZiZhiTDS: TDataSource;
    CeFangST: TTable;
    CeFangSTDS: TDataSource;
    JianLiQiangZT: TTable;
    JianLiQiangZTDS: TDataSource;
    JianLiQiangJT: TTable;
    JianLiQiangJTDS: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data1: TData1;

implementation
  uses project;
{$R *.DFM}

procedure TData1.DataModuleCreate(Sender: TObject);
var DataPath: string;
begin
  DataPath:=projectform.XMMuLu+'\data';

  ZongBaoT.DatabaseName:=DataPath+'\施工单位';
  ZongBaoT.TableName:='ZBZiZhi.db';

  ZBShangGangT.DatabaseName:=DataPath+'\施工单位';
  ZBShangGangT.TableName:='ZBShangGangZheng.db';

  ZBYiQiT.DatabaseName:=DataPath+'\施工单位';
  ZBYiQiT.TableName:='ZBYiQiSheBei.db';

  ShiYanShiT.DatabaseName:=DataPath+'\施工单位';
  ShiYanShiT.TableName:='ShiYanShiZiZhi.db';

  JiaoBanT.DatabaseName:=DataPath+'\施工单位';
  JiaoBanT.TableName:='JiaoBanZhanZiZhi.db';

  CJZiZhiT.DatabaseName:=DataPath+'\施工单位';
  CJZiZhiT.TableName:='CJZiZhi.db';

  CJShangGangT.DatabaseName:=DataPath+'\施工单位';
  CJShangGangT.TableName:='CJShangGangZheng.db';

  CJYiQiT.DatabaseName:=DataPath+'\施工单位';
  CJYiQiT.TableName:='CJYiQiSheBei.db';


  XiuGaiT.DatabaseName:=DataPath+'\桩基';
  XiuGaiT.TableName:='JinDu.DB';

  DecisionQuery1.DatabaseName:=DataPath+'\桩基';

  ZhuangShuT.DatabaseName:=DataPath+'\桩基';
  ZhuangShuT.TableName:='ZhuangShu.db';

  TongJiQ.DatabaseName:=DataPath+'\桩基';

  TuShuGuanT.DatabaseName:=DataPath+'\桩基';
  TuShuGuanT.TableName:='TuShuGuan.db';

  DiXiaShiT.DatabaseName:=DataPath+'\桩基';
  DiXiaShiT.TableName:='DiXiaShi.db';

  DangAnGuanT.DatabaseName:=DataPath+'\桩基';
  DangAnGuanT.TableName:='DangAnGuan.db';

  TuFangZT.DatabaseName:=DataPath+'\地下室';
  TuFangZT.TableName:='土方质量控制.db';

  TuFangJT.DatabaseName:=DataPath+'\地下室';
  TuFangJT.TableName:='土方进度控制.db';

  DianCengZT.DatabaseName:=DataPath+'\地下室';
  DianCengZT.TableName:='垫层质量控制.DB';

  DianCengJT.DatabaseName:=DataPath+'\地下室';
  DianCengJT.TableName:='垫层进度控制.DB';

  DingWeiT.DatabaseName:=DataPath+'\地下室';
  DingWeiT.TableName:='定位验线记录.db';

  DiBanZT.DatabaseName:=DataPath+'\地下室';
  DiBanZT.TableName:='底板质量控制.db';

  DiBanJT.DatabaseName:=DataPath+'\地下室';
  DiBanJT.TableName:='底板进度控制.db';

  DiFangZT.DatabaseName:=DataPath+'\地下室';
  DiFangZT.TableName:='底防质量控制.db';

  DiFangJT.DatabaseName:=DataPath+'\地下室';
  DiFangJT.TableName:='底防进度控制.db';

  DiFangZiZhiT.DatabaseName:=DataPath+'\地下室';
  DiFangZiZhiT.TableName:='底防资质.db';

  DiFangST.DatabaseName:=DataPath+'\地下室';
  DiFangST.TableName:='底防上岗证.db';

  DingBanZT.DatabaseName:=DataPath+'\地下室';
  DingBanZT.TableName:='顶板质量控制.dB';

  DingBanJT.DatabaseName:=DataPath+'\地下室';
  DingBanJT.TableName:='顶板进度控制.db';

  JianLiQiangZT.DatabaseName:=DataPath+'\地下室';
  JianLiQiangZT.TableName:='剪力墙质量控制.dB';

  JianLiQiangJT.DatabaseName:=DataPath+'\地下室';
  JianLiQiangJT.TableName:='剪力墙进度控制.db';

  HuiTianTuZT.DatabaseName:=DataPath+'\地下室';
  HuiTianTuZT.TableName:='回填土质量控制.db';

  HuiTianTuJT.DatabaseName:=DataPath+'\地下室';
  HuiTianTuJT.TableName:='回填土进度控制.db';

  CeFangJT.DatabaseName:=DataPath+'\地下室';
  CeFangJT.TableName:='侧防进度控制.db';

  CeFangZT.DatabaseName:=DataPath+'\地下室';
  CeFangZT.TableName:='侧防质量控制.dB';

  CeFangZiZhiT.DatabaseName:=DataPath+'\地下室';
  CeFangZiZhiT.TableName:='侧防资质.db';

  CeFangST.DatabaseName:=DataPath+'\地下室';
  CeFangST.TableName:='侧防上岗证.db';

end;

end.