salehz_unit.~pas

来自「餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述」· ~PAS 代码 · 共 101 行

unit SALEHZ_Unit;

interface

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

type
  TSALEHZ_Form = class(TForm)
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    DBGridEh2: TDBGridEh;
    CoolBar1: TCoolBar;
    ScrollBox3: TScrollBox;
    BitBtn3: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SALEHZ_Form: TSALEHZ_Form;

implementation

uses DMUnit, SALEHZFIND_Unit, U_CheckRights, RPTUnit;

{$R *.dfm}

procedure TSALEHZ_Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Action:=cafree;
end;

procedure TSALEHZ_Form.FormDestroy(Sender: TObject);
begin
  SALEHZ_Form:=nil;
end;

procedure TSALEHZ_Form.FormCreate(Sender: TObject);
begin
  with DM.LCSALEHZ_ADOQ do
  begin
    Close;
    SQl.Clear;
    SQl.Add('SELECT * FROM LCSALE_HZ');
    OPEN;
  end;
end;

procedure TSALEHZ_Form.BitBtn10Click(Sender: TObject);
begin
Close;
end;

procedure TSALEHZ_Form.BitBtn3Click(Sender: TObject);
begin
DM.LCSALEHZ_ADOQ.Close;
DM.LCSALEHZ_ADOQ.Open;
end;

procedure TSALEHZ_Form.BitBtn7Click(Sender: TObject);
begin
  if Application.FindComponent('SALEHZFIND_Form')<>nil then
    SALEHZFIND_Form.ShowModal
  else
  begin
    SALEHZFIND_Form:=TSALEHZFIND_Form.Create(Application);
    SALEHZFIND_Form.ShowModal;
  end;
end;

procedure TSALEHZ_Form.FormShow(Sender: TObject);
begin
  BitBtn6.Enabled:=CheckRights('销售汇总单','打印');
  BitBtn7.Enabled:=CheckRights('销售汇总单','查找');
  BitBtn3.Enabled:=CheckRights('销售汇总单','刷新');
end;

procedure TSALEHZ_Form.BitBtn6Click(Sender: TObject);
begin
  RPTDM.SALEHZ_Rpt.LoadFromFile(ExtractFilePath(ParamStr(0)) +   'RPT/销售汇总.frf');
  RPTDM.SALEHZ_Rpt.ShowReport;
end;

end.