fzunit.pas

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

unit FzUnit;

interface

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

type
  TFzForm = 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
  FzForm: TFzForm;

implementation

uses dm, MainUnit;

{$R *.dfm}

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

procedure TFzForm.BitBtn1Click(Sender: TObject);
begin
  //dmdata.qsjzADOQuery.Prior;
  if dmdata.qsjzADOQuery.fieldByName('bflag').AsBoolean = true then
  begin
    //dmdata.qsjzADOQuery.Next;
    dmdata.qsjzADOQuery.edit;
    dmdata.qsjzADOQuery['bflag']:=0;
    dmdata.qsjzADOQuery.Post;
    showmessage('反结完成');
  end
  else
  begin
    showmessage('本月未结账，不能反结账，请重新注册反结账。');
    exit;
  end;
  mainform.ymjz;
end;

end.