?? sysreset.pas
字號:
unit SysReset;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Base, StdCtrls, Buttons;
type
TSysResetForm = class(TBaseForm)
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
CheckBox11: TCheckBox;
bbOk: TBitBtn;
bbNo: TBitBtn;
procedure bbNoClick(Sender: TObject);
procedure bbOkClick(Sender: TObject);
private
bReturn: Boolean;
procedure LoadGrid;
procedure DeleteData;
procedure MainShow;
procedure LoadData;
public
{ Public declarations }
end;
function SysResetFormShow: Boolean;
implementation
uses SysPublic, DataM;
{$R *.dfm}
function SysResetFormShow: Boolean;
var
SysResetForm: TSysResetForm;
begin
SysResetForm := TSysResetForm.Create(Application);
with SysResetForm do
begin
MainShow;
Result := bReturn;
Free;
end;
end;
procedure TSysResetForm.DeleteData;
var
sSql: string;
begin
sSql := 'DELETE FROM 部門資料';
if CheckBox1.Checked = True then
ExecSql(sSql);
sSql := 'DELETE FROM 員工資料';
if CheckBox2.Checked = True then
ExecSql(sSql);
sSql := 'DELETE FROM 會員卡級';
if CheckBox3.Checked = True then
ExecSql(sSql);
sSql := 'DELETE FROM 項目類別';
if CheckBox4.Checked = True then
ExecSql(sSql);
sSql := 'DELETE FROM 服務項目';
if CheckBox5.Checked = True then
ExecSql(sSql);
sSql := 'DELETE FROM 產品類別';
if CheckBox6.Checked = True then
ExecSql(sSql);
sSql := 'DELETE FROM 產品資料';
if CheckBox7.Checked = True then
ExecSql(sSql);
sSql := 'DELETE FROM 會員資料';
if CheckBox8.Checked = True then
ExecSql(sSql);
sSql := 'DELETE FROM 項目產品單主表';
if CheckBox9.Checked = True then
ExecSql(sSql);
sSql := 'DELETE FROM 預約單';
if CheckBox10.Checked = True then
ExecSql(sSql);
sSql := 'DELETE FROM 開單主表';
if CheckBox11.Checked = True then
ExecSql(sSql);
end;
procedure TSysResetForm.LoadData;
begin
end;
procedure TSysResetForm.LoadGrid;
begin
bReturn := False;
end;
procedure TSysResetForm.MainShow;
begin
LoadGrid;
LoadData;
ShowModal;
end;
procedure TSysResetForm.bbNoClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TSysResetForm.bbOkClick(Sender: TObject);
begin
inherited;
if MsgBox('數據刪除后不可恢復,確認要刪除?', MB_OKCancel) = IDOK then
begin
try
DeleteData;
except
ShowMessage('系統重建失敗請退出后重試!');
exit;
end;
ShowMsg('系統重建成功!');
bReturn := True;
Close;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -