audit.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit Audit;

interface

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

type
  TAuditFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    mskDate: TMaskEdit;
    dtpAudit: TDateTimePicker;
    procedure cmdOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AuditFrm: TAuditFrm;

implementation

uses datamodule1;

{$R *.dfm}

procedure TAuditFrm.cmdOKClick(Sender: TObject);
begin
  try
    with datae2 do
    begin
      AdoStp1.Close;
      AdoStp1.ProcedureName :='dbo.pcdMonthAudit;1';
      try
        AdoStp1.Parameters.Refresh;
        AdoStp1.Parameters[1].value:=dtpAudit.Date;
      except
      end;
      Adostp1.execproc;
    end;
    Application.MessageBox('月结成功！','提示',64);
  except
    on E:exception do
    Application.MessageBox(Pchar(e.Message),'提示',64);
  end;
end;

procedure TAuditFrm.FormShow(Sender: TObject);
begin
  dtpAudit.Date:=date;
  with datae2.QueryTmp do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select AuditDate from bank');
    Open;
    mskDate.Text:=DateToStr(FieldByName('AuditDate').AsDateTime);
  end;
  cmdOK.Enabled:=datae2.QueryTmp.FieldByName('AuditDate').AsDateTime<date;
end;

end.