ckdm_unit.pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit CKDM_Unit;

interface

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

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

var
  CKDM_Form: TCKDM_Form;

implementation

uses DMUnit, U_CheckRights;

{$R *.dfm}

procedure TCKDM_Form.BitBtn6Click(Sender: TObject);
begin
  DM.CKDM_ADOQ.First;
end;

procedure TCKDM_Form.BitBtn7Click(Sender: TObject);
begin
  DM.CKDM_ADOQ.Prior;
end;

procedure TCKDM_Form.BitBtn8Click(Sender: TObject);
begin
  DM.CKDM_ADOQ.Next;
end;

procedure TCKDM_Form.BitBtn9Click(Sender: TObject);
begin
  DM.CKDM_ADOQ.Last;
end;

procedure TCKDM_Form.BitBtn3Click(Sender: TObject);
begin
  DM.CKDM_ADOQ.Refresh;
end;

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

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

procedure TCKDM_Form.FormDestroy(Sender: TObject);
begin
  CKDM_FORM:=nil;
end;

procedure TCKDM_Form.FormCreate(Sender: TObject);
begin
  with DM.CKDM_ADOQ do
  begin
    Close;
    Open;
  end;
  with DM.CKDP_ADOT do
  begin
    close;
    Open;
  end;
end;

procedure TCKDM_Form.FormShow(Sender: TObject);
begin
  BitBtn6.Enabled:=CheckRights('出库单管理','最前');
  BitBtn7.Enabled:=CheckRights('出库单管理','向前');
  BitBtn8.Enabled:=CheckRights('出库单管理','向后');
  BitBtn9.Enabled:=CheckRights('出库单管理','最后');
  BitBtn3.Enabled:=CheckRights('出库单管理','刷新');
end;

end.