?? initial.pas
字號(hào):
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=('保安排班',
'保安排班明細(xì)',
'保證金',
'保證金明細(xì)',
'保潔項(xiàng)目',
'保潔任務(wù)清潔檢查',
'部門聯(lián)系方式',
'采購(gòu)計(jì)劃',
'采購(gòu)計(jì)劃明細(xì)',
'常規(guī)費(fèi)用',
'抄表費(fèi)用',
'抄表費(fèi)用公攤',
'車輛信息',
'出庫(kù)單',
'出庫(kù)單明細(xì)',
'出入證',
'出入證收費(fèi)',
'代租合同',
'代租合同租金',
'調(diào)拔單',
'調(diào)拔單明細(xì)',
'定期服務(wù)',
'房產(chǎn)驗(yàn)收',
'房產(chǎn)驗(yàn)收項(xiàng)目',
'房間',
'房間收費(fèi)項(xiàng)目設(shè)置',
'房間收費(fèi)項(xiàng)目設(shè)置明細(xì)',
'房間抄表',
'管理區(qū)公攤抄表',
'房間儀表',
'服務(wù)類別',
'服務(wù)派工單',
'服務(wù)派工單服務(wù)人員',
'服務(wù)派工單派工房間',
'服務(wù)派工驗(yàn)收',
'公司文檔',
'公攤儀表',
'管理區(qū)',
'客戶車位',
'工程圖紙',
'客戶遷出',
'客戶遷入',
'客戶入伙收費(fèi)表',
'客戶設(shè)置',
'客戶事件',
'客戶資料',
'客戶資料家庭成員',
'客戶資料賬號(hào)',
'庫(kù)存',
'領(lǐng)料用途',
'樓宇',
'盤點(diǎn)表',
'盤點(diǎn)明細(xì)表',
'票據(jù)領(lǐng)用登記',
'器材配備',
'器材配備明細(xì)',
'清潔綠化處理',
'清潔綠化檢查',
'清潔綠化任務(wù)',
'綠化任務(wù)綠化項(xiàng)目',
'綠化任務(wù)清潔檢查',
'綠化項(xiàng)目',
'入伙登記',
'入伙登記明細(xì)',
'入庫(kù)單',
'入庫(kù)單明細(xì)',
'設(shè)備保養(yǎng)計(jì)劃',
'設(shè)備保養(yǎng)記錄',
'設(shè)備檔案',
'設(shè)備檔案?jìng)淦穫浼?#039;,
'設(shè)備檔案明細(xì)',
'設(shè)備故障記錄',
'設(shè)備類別',
'收費(fèi)標(biāo)準(zhǔn)',
'收費(fèi)標(biāo)準(zhǔn)設(shè)置',
'收費(fèi)時(shí)間',
'收費(fèi)項(xiàng)目',
'收費(fèi)項(xiàng)目設(shè)置',
'停車場(chǎng)',
'投訴處理',
'投訴單',
'圖紙類別',
'外部人員',
'物料檔案',
'物料分組',
'消防片區(qū)',
'消防器材',
'消防片區(qū)消防器材配備',
'新增車輛',
'儀表種類',
'員工培訓(xùn)',
'值班記錄單',
'治安事件',
'質(zhì)量文檔',
'滯納金計(jì)算方式',
'周例會(huì)',
'主任安全工作檢查',
'主任工作檢查',
'主任周計(jì)劃',
'裝修申請(qǐng)',
'裝修收費(fèi)',
'裝修驗(yàn)收',
'租賃合同',
'退款明細(xì)',
'應(yīng)收款',
'租賃合同收費(fèi)',
'租賃合同租金',
'車位');
sTable2:Array[0..9] of AnsiString=('部門',
'倉(cāng)庫(kù)',
'裝修公司',
'承建商',
'職員',
'供應(yīng)商',
'組織機(jī)構(gòu)',
'計(jì)量單位',
'開發(fā)商',
'系統(tǒng)參數(shù)設(shè)置');
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('你確實(shí)要初始化嗎?') ,'提示',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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -