jxzitemaddunit.~pas

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

unit JXZITEMADDUnit;

interface

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

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

var
  JXZITEMADDForm: TJXZITEMADDForm;

implementation

uses DMUnit;

{$R *.dfm}

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

procedure TJXZITEMADDForm.FormDestroy(Sender: TObject);
begin
JXZITEMADDForm:=nil;
end;

procedure TJXZITEMADDForm.FlatSpeedButton2Click(Sender: TObject);
begin
DM.JXZP_ADOT.Cancel;
Close;
end;

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

procedure TJXZITEMADDForm.FlatSpeedButton1Click(Sender: TObject);
begin
  if DM.JXZP_ADOT.State in [DSINSERT,DSEDIT] then
     DM.JXZP_ADOT.FieldByName('JXZ_ITEMMON').AsCurrency:=StrtoCurr(DBEditEh3.Text)*StrtoCurr(DBEditEh4.Text);
     DM.JXZP_ADOT.Post;
     JXZITEMADDForm.Close;
end;

end.