⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sysreset.pas

📁 中小企业管理系统------ ERP系统原代码
💻 PAS
字号:
🔍 
unit SysReset;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseForm, StdCtrls, Buttons, KsSkinButtons, KsSkinSpeedButtons,
  KsSkinForms, DBData, KsSkinLabels, KsSkinCheckBoxs,
  KsSkinGroupBoxs, se_controls;

type
  TfrmSysReset = class(TfrmBaseForm)
    Label4: TSeSkinLabel;
    bbOk: TSeSkinButton;
    bbExit: TSeSkinButton;
    sbAllBase: TSeSkinSpeedButton;
    sbUnAllBase: TSeSkinSpeedButton;
    sbAllBill: TSeSkinSpeedButton;
    sbUnAllBill: TSeSkinSpeedButton;
    sbAllFix: TSeSkinSpeedButton;
    sbUnAllFix: TSeSkinSpeedButton;
    bbBak: TSeSkinButton;
    GroupBox1: TSeSkinGroupBox;
    CheckBox1: TSeSkinCheckBox;
    CheckBox2: TSeSkinCheckBox;
    CheckBox3: TSeSkinCheckBox;
    CheckBox4: TSeSkinCheckBox;
    CheckBox5: TSeSkinCheckBox;
    CheckBox6: TSeSkinCheckBox;
    CheckBox7: TSeSkinCheckBox;
    CheckBox8: TSeSkinCheckBox;
    CheckBox9: TSeSkinCheckBox;
    CheckBox10: TSeSkinCheckBox;
    CheckBox11: TSeSkinCheckBox;
    CheckBox12: TSeSkinCheckBox;
    CheckBox13: TSeSkinCheckBox;
    CheckBox14: TSeSkinCheckBox;
    CheckBox15: TSeSkinCheckBox;
    CheckBox16: TSeSkinCheckBox;
    GroupBox2: TSeSkinGroupBox;
    CheckBox17: TSeSkinCheckBox;
    CheckBox18: TSeSkinCheckBox;
    CheckBox19: TSeSkinCheckBox;
    GroupBox3: TSeSkinGroupBox;
    CheckBox20: TSeSkinCheckBox;
    CheckBox21: TSeSkinCheckBox;
    CheckBox22: TSeSkinCheckBox;
    CheckBox23: TSeSkinCheckBox;
    GroupBox4: TSeSkinGroupBox;
    sbAllVoucher: TSeSkinSpeedButton;
    sbUnAllVoucher: TSeSkinSpeedButton;
    CheckBox24: TSeSkinCheckBox;
    procedure sbAllBaseClick(Sender: TObject);
    procedure bbExitClick(Sender: TObject);
    procedure bbOkClick(Sender: TObject);
    procedure sbUnAllBaseClick(Sender: TObject);
    procedure sbAllBillClick(Sender: TObject);
    procedure sbUnAllBillClick(Sender: TObject);
    procedure sbAllFixClick(Sender: TObject);
    procedure sbUnAllFixClick(Sender: TObject);
    procedure sbAllVoucherClick(Sender: TObject);
    procedure sbUnAllVoucherClick(Sender: TObject);
    procedure bbBakClick(Sender: TObject);
  private
    { Private declarations }
    bReturn: Boolean;
    procedure LoadGrid;
    procedure DeleteData;
    procedure MainShow;
    procedure LoadData;
  public
    { Public declarations }
  end;
function SysResetShow: Boolean;
implementation
{$R *.DFM}
uses SysPublic, UserLimitForm;

function SysResetShow: Boolean;
var
  frmSysReset: TfrmSysReset;
begin
  frmSysReset := TfrmSysReset.Create(Application);
  with frmSysReset do
  begin
    MainShow;
    Result := bReturn;
    Free;
  end;
end;

procedure TfrmSysReset.MainShow;
begin
  if not CheckLimit(SYSTEM_RESET) then
  begin
    ShowMsg('对不起，你没有权限使用此功能！');
    Exit;
  end;
  LoadGrid;
  LoadData;
  ShowModal;
end;

procedure TfrmSysReset.LoadGrid;
begin
  bReturn := False;
  //重建的基础资料
  CheckBox1.Caption := '地区';
  CheckBox2.Caption := '部门';
  CheckBox3.Caption := '员工类别';
  CheckBox4.Caption := '学历';
  CheckBox5.Caption := '商品类别';
  CheckBox6.Caption := '商品单位';
  CheckBox7.Caption := '收付款方式';
  CheckBox8.Caption := '外币种类';
  CheckBox9.Caption := '收入支出类别';
  CheckBox10.Caption := '现金银行';
  CheckBox11.Caption := '库存变动类型';
  CheckBox12.Caption := '客户';
  CheckBox13.Caption := '供应商';
  CheckBox14.Caption := '员工';
  CheckBox15.Caption := '商品';
  CheckBox16.Caption := '仓库';
  //重建的库存单据
  CheckBox17.Caption := '销售进货单据';
  CheckBox18.Caption := '所有库存单据';
  CheckBox19.Caption := '所有仓库库存';
  //重建的固定资产
  CheckBox20.Caption := '资产类别';
  CheckBox21.Caption := '增减方式';
  CheckBox22.Caption := '使用状况';
  CheckBox23.Caption := '详细资料';
  //记账凭证
  CheckBox24.Caption := '记账凭证';
end;

procedure TfrmSysReset.DeleteData;
var
  sSql: string;
begin
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_AREA);
  if CheckBox1.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_DEPT);
  if CheckBox2.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_EMPLOYE_SORT);
  if CheckBox3.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_LEARNING);
  if CheckBox4.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_WARE_SORT);
  if CheckBox5.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_WARE_UNIT);
  if CheckBox6.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_INCOME_TYPE);
  if CheckBox7.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_CURRENCY_STYLE);
  if CheckBox8.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_INCOME_SORT);
  if CheckBox9.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_CASH_BANK);
  if CheckBox10.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_CHANGE_TYPE);
  if CheckBox11.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM Unit WHERE Mode=' + IntToStr(BASE_CLIENT);
  if CheckBox12.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM Unit WHERE Mode=' + IntToStr(BASE_PROVIDE);
  if CheckBox13.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM Employe';
  if CheckBox14.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM Ware';
  if CheckBox15.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM Depot';
  if CheckBox16.Checked = True then
    ExecSql(sSql);

  if CheckBox17.Checked = True then
  begin
    sSql := 'DELETE FROM BillIndex ';
    ExecSql(sSql);
    sSql := 'DELETE FROM BillSale ';
    ExecSql(sSql);
    sSql := 'DELETE FROM BillStock ';
    ExecSql(sSql);
  end;
  if CheckBox18.Checked = True then
  begin
    sSql := 'DELETE FROM ExistIndex ';
    ExecSql(sSql);
    sSql := 'DELETE FROM ExistList ';
    ExecSql(sSql);
  end;
  if CheckBox19.Checked = True then
  begin
    sSql := 'DELETE FROM WareStock ';
    ExecSql(sSql);
  end;

  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_FIXED_SORT);
  if CheckBox20.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_FIXED_MODE);
  if CheckBox21.Checked = True then
    ExecSql(sSql);
  sSql := 'DELETE FROM BaseInfo WHERE Mode=' + IntToStr(BASE_FIXED_USE);
  if CheckBox22.Checked = True then
    ExecSql(sSql);
  if CheckBox23.Checked = True then
  begin
    sSql := 'DELETE FROM FixedAssets ';
    ExecSql(sSql);
    sSql := 'DELETE FROM FixedAssetsDec ';
    ExecSql(sSql);
    sSql := 'DELETE FROM FixedAssetsPlus ';
    ExecSql(sSql);
  end;
  if CheckBox24.Checked = True then
  begin
    sSql := 'DELETE FROM AccountIndex ';
    ExecSql(sSql);
    sSql := 'DELETE FROM AccountTable ';
    ExecSql(sSql);
  end;
end;

procedure TfrmSysReset.LoadData;
begin

end;

procedure TfrmSysReset.sbAllBaseClick(Sender: TObject);
var
  i: Integer;
begin
  inherited;
  for i := 1 to 16 do
  begin
    TSeSkinCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked := True;
  end;
end;

procedure TfrmSysReset.bbExitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmSysReset.bbOkClick(Sender: TObject);
begin
  inherited;
  if MsgBox('系统重建后所有数据将删除并不能恢复，确认要重建？', '提示',
    MB_OKCancel) = IDOK then
  begin
    try
      DeleteData;
    except
      ShowMsg('系统重建失败请退出后重试！');
      exit;
    end;
    ShowMsg('系统重建成功！');
    bReturn := True;
    Close;
  end;
end;

procedure TfrmSysReset.sbUnAllBaseClick(Sender: TObject);
var
  i: Integer;
begin
  inherited;
  for i := 1 to 16 do
  begin
    TSeSkinCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked := False;
  end;
end;

procedure TfrmSysReset.sbAllBillClick(Sender: TObject);
var
  i: Integer;
begin
  inherited;
  for i := 17 to 19 do
  begin
    TSeSkinCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked := True;
  end;
end;

procedure TfrmSysReset.sbUnAllBillClick(Sender: TObject);
var
  i: Integer;
begin
  inherited;
  for i := 17 to 19 do
  begin
    TSeSkinCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked := False;
  end;
end;

procedure TfrmSysReset.sbAllFixClick(Sender: TObject);
var
  i: Integer;
begin
  inherited;
  for i := 20 to 23 do
  begin
    TSeSkinCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked := True;
  end;
end;

procedure TfrmSysReset.sbUnAllFixClick(Sender: TObject);
var
  i: Integer;
begin
  inherited;
  for i := 20 to 23 do
  begin
    TSeSkinCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked := False;
  end;
end;

procedure TfrmSysReset.sbAllVoucherClick(Sender: TObject);
var
  i: Integer;
begin
  inherited;
  for i := 24 to 24 do
  begin
    TSeSkinCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked := True;
  end;
end;

procedure TfrmSysReset.sbUnAllVoucherClick(Sender: TObject);
var
  i: integer;
begin
  inherited;
  for i := 24 to 24 do
  begin
    TSeSkinCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked := False;
  end;

end;

procedure TfrmSysReset.bbBakClick(Sender: TObject);
var
  sNewFile: string;
begin
  inherited;
  sNewFile := GetExePath + FILE_BACKUP_DIR + '\' + SYSAccountBookName +
    DateToStr2(Now) + FILE_DATA_TAIL;
  if CopyFile(pchar(SYSAccountBookPath), pchar(sNewFile), False) then
    ShowMsg('备份数据成功！文件路径是' + sNewFile)
  else
    ShowMsg('备份数据失败，建议你备份成功后再做系统重建！');
end;

end.



//此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
//╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//说明：
//专业提供VB、．NET、Delphi、ASP、PB源码下载
//包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -