clkcjz.pas

仓库管理信息系统

unit clkcjz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin,ADODB,DB, ExtCtrls;

type
  Tclkcjzfrm = class(TForm)
    GroupBox2: TGroupBox;
    Label3: TLabel;
    jzts: TLabel;
    nf_spe: TSpinEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel1: TPanel;
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure nf_speChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  clkcjzfrm: Tclkcjzfrm;

implementation
uses data;
{$R *.dfm}

procedure Tclkcjzfrm.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tclkcjzfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action := cafree;
clkcjzfrm:=nil;
end;

procedure Tclkcjzfrm.FormCreate(Sender: TObject);
begin
dm.jzxxbads.Close;
dm.jzxxbads.Open;
dm.jzxxbads.Filtered:=false;
dm.jzxxbads.Filter:='结转项目='+''''+'材料'+'''';
dm.jzxxbads.Filtered:=true;
nf_spe.MinValue:=dm.jzxxbads.fieldbyname('开始年份').Value;
nf_spe.MaxValue:=dm.jzxxbads.fieldbyname('最后年份').Value;
nf_spe.Value:=dm.jzxxbads.fieldbyname('最后年份').Value;
end;

procedure Tclkcjzfrm.nf_speChange(Sender: TObject);
begin
if nf_spe.Value>nf_spe.MaxValue then
  nf_spe.Value:=nf_spe.MaxValue;
if nf_spe.Value<nf_spe.MinValue then
  nf_spe.Value:=nf_spe.MinValue;
button1.Enabled:=(nf_spe.Value=nf_spe.MaxValue);
button3.Enabled:=(nf_spe.Value+1=nf_spe.MaxValue);
if not button1.Enabled then
begin
  jzts.Caption:='当年数据已结转';
  jzts.Color:=clred;
end
else
begin
  jzts.Caption:='当年数据未结转';
  jzts.Color:=clbtnface;
end;
end;

procedure Tclkcjzfrm.Button1Click(Sender: TObject);
var ts:string;
begin
if MessageDlg('注意！结转后，不能再修改当年的数据，你确定吗 ?', mtWarning,
   [mbYes, mbNo], 0) = mrno then
   begin
     abort;
   end;
try
ts:=jzts.Caption;
jzts.Font.Color:=clFuchsia;
jzts.Caption:='正在整理年末库存...';
clkcjzfrm.Refresh;
dm.ASP_KCZL.Close;
dm.ASP_KCZL.ProcedureName:='clkc_update;1';
dm.ASP_KCZL.Parameters.Clear;
with dm.ASP_KCZL.Parameters.AddParameter do
begin
Name:='@return_value';
Direction:=pdReturnValue;
DataType:=ftInteger;
end;
with dm.ASP_KCZL.Parameters.AddParameter do
begin
Name:='@nf';
Direction:=pdInput;
DataType:=ftInteger;
end;
dm.ASP_KCZL.Parameters.ParamByName('@nf').Value:=nf_spe.Value;
dm.ASP_KCZL.Prepared;
dm.ASP_KCZL.ExecProc;
jzts.Caption:='正在将年末库存转入下一年年初...';
clkcjzfrm.Refresh;
dm.adocn.BeginTrans ;
dm.adocn.Execute('delete from 材料每年库存表 where 年份>'+
  inttostr(nf_spe.Value));
dm.adocn.Execute('insert 材料每年库存表(年份,'+
  '材料编码,材料名称,单位,'+
  '材料规格,参考价格,类型ID,初始数量,初始金额)'+
  ' select 年份+1,材料编码,材料名称,单位,'+
  '材料规格,参考价格,类型ID,库存数量,库存金额'+
  ' from 材料每年库存表 where 年份='+inttostr(nf_spe.Value));
dm.jzxxbads.Edit;
dm.jzxxbads.fieldbyname('最后年份').Value:=
  dm.jzxxbads.fieldbyname('最后年份').Value+1;
dm.jzxxbads.Post;
nf_spe.MaxValue:=dm.jzxxbads.fieldbyname('最后年份').Value;
dm.adocn.CommitTrans;
jzts.Font.Color:=clblack;
button1.Enabled:=(nf_spe.Value=nf_spe.MaxValue);
button3.Enabled:=(nf_spe.Value+1=nf_spe.MaxValue);
if not button1.Enabled then
begin
  jzts.Caption:='当年数据已结转';
  jzts.Color:=clred;
end
else
begin
  jzts.Caption:='当年数据未结转';
  jzts.Color:=clbtnface;
end;
except
  jzts.Caption:=ts;
  jzts.Font.Color:=clblack;
  dm.adocn.RollbackTrans;
  showmessage('无法完成结转!请联系系统管理员')
end;
end;

procedure Tclkcjzfrm.Button3Click(Sender: TObject);
begin
if MessageDlg('注意！执行反结转，可能会影响后续年份的数据！'+#13+
  '你确定要反结转吗 ?', mtWarning,
   [mbNo,mbYes],0 ) = mrno then
   begin
     abort;
   end;
dm.jzxxbads.Edit;
dm.jzxxbads.fieldbyname('最后年份').Value:=
  dm.jzxxbads.fieldbyname('最后年份').Value-1;
dm.jzxxbads.Post;
nf_spe.MaxValue:=dm.jzxxbads.fieldbyname('最后年份').Value;
button1.Enabled:=(nf_spe.Value=nf_spe.MaxValue);
button3.Enabled:=(nf_spe.Value+1=nf_spe.MaxValue);
if not button1.Enabled then
begin
  jzts.Caption:='当年数据已结转';
  jzts.Color:=clred;
end
else
begin
  jzts.Caption:='当年数据未结转';
  jzts.Color:=clbtnface;
end;
end;

end.