sjcsh.~pas

仓库管理信息系统

unit sjcsh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, Spin;

type
  Tsjcshfrm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    CLckb_CLLX: TCheckBox;
    CLCKB_CLZL: TCheckBox;
    CLCKB_LYBM: TCheckBox;
    CLCKB_CCLX: TCheckBox;
    CPCKB_CPLX: TCheckBox;
    CPCKB_CPZL: TCheckBox;
    CPCKB_JCLX: TCheckBox;
    CPCKB_JCYSR: TCheckBox;
    GYSCKB_CGLX: TCheckBox;
    GYSCKB_YSRZL: TCheckBox;
    GYSCKB_GYSZL: TCheckBox;
    XSCKB_XSLX: TCheckBox;
    XSCKB_XSYZL: TCheckBox;
    XSCKB_KHZL: TCheckBox;
    HKCKB_PJLX: TCheckBox;
    HKCKB_JSFS: TCheckBox;
    HKCKB_JSR: TCheckBox;
    HKCKB_CQYH: TCheckBox;
    DJCKB_CLJCD: TCheckBox;
    DJCKB_CLCCD: TCheckBox;
    DJCKB_CPJCD: TCheckBox;
    DJCKB_CPCCD: TCheckBox;
    DJCKB_SKD: TCheckBox;
    DJCKB_FKD: TCheckBox;
    QCCKB_CLQCKC: TCheckBox;
    QCCKB_CPQCKC: TCheckBox;
    QCCKB_GYSQCHK: TCheckBox;
    QCCKB_KHQCHK: TCheckBox;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    nf_spe: TSpinEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjcshfrm: Tsjcshfrm;

implementation
uses data;
{$R *.dfm}

procedure Tsjcshfrm.BitBtn1Click(Sender: TObject);
begin
if MessageDlg('再次提醒你：执行数据初始化操作会清除数据库中的数据。'+#13+#13+
   '确定你已经备份好数据库。真的要初始化吗 ?', mtConfirmation,
   [mbYes, mbNo], 0) = mrno then
   begin
     abort;
   end;
try
dm.adocn.BeginTrans;
//单据初始化
if DJCKB_CLCCD.Checked then
begin
  dm.adocn.Execute('delete from 材料领料明细表');
  dm.adocn.Execute('delete from 材料领料单');
end;
if djckb_cljcd.Checked then
begin
  dm.adocn.Execute('delete from 材料进仓明细表');
  dm.adocn.Execute('delete from 材料进仓单');
end;
if djckb_cpccd.Checked then
begin
  dm.adocn.Execute('delete from 成品出仓明细表');
  dm.adocn.Execute('delete from 成品出仓单');
end;
if djckb_cpjcd.Checked then
begin
  dm.adocn.Execute('delete from 成品进仓明细表');
  dm.adocn.Execute('delete from 成品进仓单');
end;
if djckb_fkd.Checked then
begin
  dm.adocn.Execute('delete from 付款单');
end;
if djckb_skd.Checked then
begin
  dm.adocn.Execute('delete from 收款单');
end;
//期初、年、月结存
if qcckb_cpkcjc.Checked then
begin
  dm.adocn.Execute('delete from 产品每年库存表');
  dm.adocn.Execute('delete from 产品每月结存表');
end;
  dm.adocn.Execute('delete from 产品每年库存表');
  dm.adocn.Execute('delete from 产品每月结存表');
dm.adocn.CommitTrans;
except
  dm.adocn.RollbackTrans;
end;
end;

end.