jzunit.pas

很好用的一个票据管理系统

unit JzUnit;

interface

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

type
  TJzForm = class(TForm)
    Panel1: TPanel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JzForm: TJzForm;

implementation
uses dm,mainunit;
{$R *.dfm}

procedure TJzForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TJzForm.BitBtn1Click(Sender: TObject);
var
 iacc_id,iyear,id:integer;
begin
  iacc_id:=dmdata.qsjzADOQuery.fieldbyname('iacc_id').AsInteger;
  iyear:=dmdata.qsjzADOQuery.fieldbyname('iyear').AsInteger;
  id:=dmdata.qsjzADOQuery.fieldbyname('id').AsInteger-1;
  if dmdata.qsjzADOQuery.fieldbyname('id').AsInteger <> 1 then
  begin
   with dmdata.JzADOQuery do
    begin
     close;
     sql.Clear;
     sql.Add('select * from g_period where (iacc_id=:a)and(iyear=:b)and(id=:c)');
     parameters.ParamByName('a').Value := iacc_id;
     parameters.ParamByName('b').Value:=iyear;
     parameters.ParamByName('c').Value :=id;
     open;
     if dmdata.jzADOQuery.fieldByName('bflag').AsBoolean = true then
     begin
      dmdata.qsjzADOQuery.Next;
      dmdata.qsjzADOQuery.edit;
      dmdata.qsjzADOQuery['bflag']:=-1;
      dmdata.qsjzADOQuery.Post;
      showmessage('结账完成');
     end
     else
     begin
       showmessage('上月未结账，请重新注册结账。');
       exit;
     end;
    end;
  end
  else
  begin
      dmdata.qsjzADOQuery.edit;
      dmdata.qsjzADOQuery['bflag']:=-1;
      dmdata.qsjzADOQuery.Post;
      showmessage('结账完成');
  end;
  mainform.ymjz;
end;

end.