rkitemadd_unit.pas

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

unit RKITEMADD_Unit;

interface

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

type
  TRKITEMADD_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;
    RKDITEMFINDADOQ: TADOQuery;
    kEnterAsTab1: TkEnterAsTab;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure DBLookupComboboxEh1CheckDrawRequiredState(Sender: TObject;
      var DrawState: Boolean);
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RKITEMADD_Form: TRKITEMADD_Form;

implementation

uses DMUnit;

{$R *.dfm}

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

procedure TRKITEMADD_Form.FormDestroy(Sender: TObject);
begin
  RKITEMADD_Form:=nil;
end;

procedure TRKITEMADD_Form.DBLookupComboboxEh1CheckDrawRequiredState(
  Sender: TObject; var DrawState: Boolean);
begin
  if Trim(DBLookupComboboxEh1.Text)='' then Exit;
  with RKDITEMFINDADOQ 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:=RKDITEMFINDADOQ.Fields[2].AsString;
   DBEditEh2.Text:=RKDITEMFINDADOQ.Fields[0].AsString;
   DBEditEh3.Text:=RKDITEMFINDADOQ.Fields[4].AsString;
end;

procedure TRKITEMADD_Form.FlatSpeedButton2Click(Sender: TObject);
begin
  DM.RKDP_ADOT.Cancel;
  Close;
end;

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

end.