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.