itemadd_unit.pas

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

unit ITEMADD_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatSpeedButtonUnit, StdCtrls, TFlatGroupBoxUnit, DBGridEh,
  DBCtrlsEh, Mask, DBLookupEh, Buttons,DB, ADODB, Tabenter;

type
  TITEMADD_FORM = class(TForm)
    FlatSpeedButton1: TFlatSpeedButton;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatGroupBox1: TFlatGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBLookupComboboxEh1: TDBLookupComboboxEh;
    DBEditEh1: TDBEditEh;
    DBEditEh2: TDBEditEh;
    DBEditEh3: TDBEditEh;
    DBEditEh4: TDBEditEh;
    DBEditEh5: TDBEditEh;
    ITEMFINDADOQ: TADOQuery;
    kEnterAsTab1: TkEnterAsTab;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure DBLookupComboboxEh1CheckDrawRequiredState(Sender: TObject;
      var DrawState: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ITEMADD_FORM: TITEMADD_FORM;

implementation

uses DMUnit;

{$R *.dfm}

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

procedure TITEMADD_FORM.FormDestroy(Sender: TObject);
begin
ITEMADD_FORM:=nil;
end;

procedure TITEMADD_FORM.FlatSpeedButton2Click(Sender: TObject);
begin
DM.JHP_ADOT.Cancel;
Close;
end;

procedure TITEMADD_FORM.BitBtn1Click(Sender: TObject);
begin
DM.JHP_ADOT.Cancel;
end;

procedure TITEMADD_FORM.FlatSpeedButton1Click(Sender: TObject);
begin
  if DM.JHP_ADOT.State in [DSINSERT,DSEDIT] then
     //DM.JHP_ADOT.FieldByName('ITEM_MON').AsCurrency:=DM.JHP_ADOT.FieldbyName('ITEM_PRICE').AsCurrency*DM.JHP_ADOT.FieldbyName('ITEM_NUM').AsFloat;
     DM.JHP_ADOT.FieldByName('ITEM_MON').AsCurrency:=StrtoCurr(DBEditEh3.Text)*StrtoCurr(DBEditEh4.Text);
     DM.JHP_ADOT.Post;
     ITEMADD_FORM.Close;
end;

procedure TITEMADD_FORM.DBLookupComboboxEh1CheckDrawRequiredState(
  Sender: TObject; var DrawState: Boolean);
begin
  if Trim(DBLookupComboboxEh1.Text)='' then Exit;
  with ITEMFINDADOQ do
  begin
    Close;
    SQL.Clear;
    SQL.Add(' SELECT IU.NUIT_NAME,II.ITEM_UNIT,ITS.SORTNAME,II.ITEM_SOTR,II.ITEM_PRICE FROM ITEM_ITEM II ');
    SQL.Add(' LEFT JOIN ITEM_UNIT IU ON II.ITEM_UNIT=IU.NUIT_ID ');
    SQL.Add(' LEFT JOIN ITEM_SORT ITS ON II.ITEM_SOTR=ITS.SORTID ');
    SQL.Add(' WHERE II.ITEM_NAME='''+DBLookupComboboxEh1.Text+'''');
    OPEN;
  end;
   DBEditEh1.Text:=ITEMFINDADOQ.Fields[2].AsString;
   DBEditEh2.Text:=ITEMFINDADOQ.Fields[0].AsString;
   DBEditEh3.Text:=ITEMFINDADOQ.Fields[4].AsString;
end;

end.