initial.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit Initial;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,db,adodb;

type
  TInitialform = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button5: TButton;
    Button6: TButton;
    Button1: TButton;
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Initialform: TInitialform;

implementation

uses data, MAIN;

{$R *.dfm}


const
      sTable1:Array[0..107] of AnsiString=('保安排班',
                                         '保安排班明细',
                                         '保证金',
                                         '保证金明细',


                                         '保洁项目',
                                         '保洁任务清洁检查',



                                         '部门联系方式',
                                         '采购计划',
                                         '采购计划明细',

                                         '常规费用',
                                         '抄表费用',
                                         '抄表费用公摊',

                                         '车辆信息',
                                         '出库单',
                                         '出库单明细',
                                         '出入证',
                                         '出入证收费',

                                         '代租合同',
                                         '代租合同租金',


                                         '调拔单',
                                         '调拔单明细',

                                         '定期服务',
                                         '房产验收',
                                         '房产验收项目',
                                         '房间',

                                         '房间收费项目设置',
                                         '房间收费项目设置明细',

                                         '房间抄表',
                                         '管理区公摊抄表',

                                         '房间仪表',
                                         '服务类别',
                                         '服务派工单',
                                         '服务派工单服务人员',
                                         '服务派工单派工房间',

                                         '服务派工验收',
                                         '公司文档',
                                         '公摊仪表',
                                         '管理区',
                                         '客户车位',

                                         '工程图纸',


                                         '客户迁出',
                                         '客户迁入',
                                         '客户入伙收费表',
                                         '客户设置',

                                         '客户事件',
                                         '客户资料',
                                         '客户资料家庭成员',
                                         '客户资料账号',
                                         '库存',

                                         '领料用途',
                                         '楼宇',
                                         '盘点表',
                                         '盘点明细表',
                                         '票据领用登记',

                                         '器材配备',
                                         '器材配备明细',
                                         '清洁绿化处理',
                                         '清洁绿化检查',
                                         '清洁绿化任务',


                                         '绿化任务绿化项目',
                                         '绿化任务清洁检查',
                                         '绿化项目',


                                         '入伙登记',
                                         '入伙登记明细',
                                         '入库单',
                                         '入库单明细',
                                         '设备保养计划',

                                         '设备保养记录',
                                         '设备档案',
                                         '设备档案备品备件',
                                         '设备档案明细',
                                         '设备故障记录',

                                         '设备类别',
                                         '收费标准',
                                         '收费标准设置',
                                         '收费时间',
                                         '收费项目',

                                         '收费项目设置',
                                         '停车场',
                                         '投诉处理',
                                         '投诉单',
                                         '图纸类别',

                                         '外部人员',
                                         '物料档案',
                                         '物料分组',

                                         '消防片区',
                                         '消防器材',
                                         '消防片区消防器材配备',

                                         '新增车辆',
                                         '仪表种类',

                                         '员工培训',
                                         '值班记录单',
                                         '治安事件',

                                         '质量文档',
                                         '滞纳金计算方式',
                                         '周例会',
                                         '主任安全工作检查',
                                         '主任工作检查',

                                         '主任周计划',
                                         '装修申请',
                                         '装修收费',
                                         '装修验收',
                                         '租赁合同',

                                         '退款明细',
                                         '应收款',
                                         '租赁合同收费',
                                         '租赁合同租金',
                                         '车位');

      sTable2:Array[0..9] of AnsiString=('部门',
                                         '仓库',

                                         '装修公司',
                                         '承建商',
                                         '职员',
                                         '供应商',
                                         '组织机构',

                                         '计量单位',
                                         '开发商',
                                         '系统参数设置');

procedure TInitialform.Button5Click(Sender: TObject);
var
    Query:TADOQuery;
    i:integer;
begin
    if (CheckBox1.Checked = false) and  (CheckBox2.Checked = false) then exit;
    if(Application.MessageBox(PChar('你确实要初始化吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=2) then exit;


    Query:=TADOQuery.Create(nil);
    Query.Connection := DataModuleADO.ADOConnection1;

    if CheckBox1.Checked=true then
    begin
        for i:=0 to 107 do
        begin
            DataModuleADO.ADOConnection1.BeginTrans;
            Query.SQL.Text:='delete from '+sTable1[i];
            query.ExecSQL;
            DataModuleADO.ADOConnection1.CommitTrans;
        end;
    end;

    if CheckBox2.Checked=true then
    begin
        for i:=0 to 9 do
        begin
            DataModuleADO.ADOConnection1.BeginTrans;
            Query.SQL.Text:='delete from '+sTable2[i];
            query.ExecSQL;
            DataModuleADO.ADOConnection1.CommitTrans;
        end;

        DataModuleADO.ADOConnection1.BeginTrans;
        Query.SQL.Text:='delete from 操作员 where 姓名<>'''+'administrator'+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        DataModuleADO.ADOConnection1.BeginTrans;
        Query.SQL.Text:='delete from 辅助资料 where 名称<>'''+'管理处'+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;
    end;     

    query.Close ;
    query.Free ;

    showmessage('初始化操作成功。');
end;


procedure TInitialform.Button6Click(Sender: TObject);
begin
    close;
end;

end.