rkhzfind_unit.~pas

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

unit RKHZFIND_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatButtonUnit, StdCtrls, TFlatComboBoxUnit, DB, ADODB;

type
  TRKHZFIND_Form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    FlatComboBox3: TFlatComboBox;
    FlatComboBox4: TFlatComboBox;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    ADOQF: TADOQuery;
    FlatButton3: TFlatButton;
    FDS: TDataSource;
    ADOQ: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RKHZFIND_Form: TRKHZFIND_Form;

implementation

uses DMUnit, LCRKDTIT_Unit;

{$R *.dfm}

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

procedure TRKHZFIND_Form.FormDestroy(Sender: TObject);
begin
RKHZFIND_Form:=nil;
end;

procedure TRKHZFIND_Form.FormCreate(Sender: TObject);
begin
with DM.LCBASE_ADOQ do
begin
  Close;
  OPen;
end;
while not DM.LCBASE_ADOQ.Eof do
begin
  FlatCombobox1.Items.Add(DM.LCBASE_ADOQ.FieldBYName('LC_NAME').AsString);
  DM.LCBASE_ADOQ.Next;
end;
with DM.CLASS_ADOQ do
begin
  Close;
  OPen;
end;
while not DM.CLASS_ADOQ.Eof do
begin
  Flatcombobox2.Items.Add(DM.CLASS_ADOQ.FieldByName('CLASS_NAME').AsString);
  DM.CLASS_ADOQ.Next;
end;
with ADOQ do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT DISTINCT(LC_HZ) FROM LCRKD_HZ');
  open;
end;
while not ADOQ.Eof do
begin
  Flatcombobox3.Items.Add(ADOQ.FieldBYName('LC_HZ').AsString);
  ADOQ.Next;
end;

with DM.ITEM_ADOQ do
begin
  Close;
  OPen;
end;
while not DM.ITEM_ADOQ.Eof do
begin
  Flatcombobox4.Items.Add(DM.ITEM_ADOQ.FieldByName('ITEM_NAME').AsString);
  DM.ITEM_ADOQ.Next;
end;
end;

procedure TRKHZFIND_Form.FlatButton2Click(Sender: TObject);
begin
Close;
end;

procedure TRKHZFIND_Form.FlatButton3Click(Sender: TObject);
begin
  Flatcombobox1.Items.Clear;
  Flatcombobox2.Items.Clear;
  Flatcombobox3.Items.Clear;
  Flatcombobox4.Items.Clear;
with DM.LCBASE_ADOQ do
begin
  Close;
  OPen;
end;
while not DM.LCBASE_ADOQ.Eof do
begin
  FlatCombobox1.Items.Add(DM.LCBASE_ADOQ.FieldBYName('LC_NAME').AsString);
  DM.LCBASE_ADOQ.Next;
end;
with DM.CLASS_ADOQ do
begin
  Close;
  OPen;
end;
while not DM.CLASS_ADOQ.Eof do
begin
  Flatcombobox2.Items.Add(DM.CLASS_ADOQ.FieldByName('CLASS_NAME').AsString);
  DM.CLASS_ADOQ.Next;
end;
with ADOQ do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT DISTINCT(LC_HZ) FROM LCRKD_HZ');
  open;
end;
while not ADOQ.Eof do
begin
  Flatcombobox3.Items.Add(ADOQ.FieldBYName('LC_HZ').AsString);
  ADOQ.Next;
end;

with DM.ITEM_ADOQ do
begin
  Close;
  OPen;
end;
while not DM.ITEM_ADOQ.Eof do
begin
  Flatcombobox4.Items.Add(DM.ITEM_ADOQ.FieldByName('ITEM_NAME').AsString);
  DM.ITEM_ADOQ.Next;
end;
end;

procedure TRKHZFIND_Form.FlatButton1Click(Sender: TObject);
var
  S:String;
begin
  S:='SELECT LCB.LC_NAME,LCC.CLASS_NAME,LCH.LC_HZ,I.ITEM_NAME,LCH.LC_ITEMSORT,LCH.LC_ITEMUNIT, '+
    'LCH.LC_NUM,LCH.LC_MON FROM LCRKD_HZ LCH LEFT JOIN LCBASE LCB ON LCB.LC_NO=LCH.LC_CARNO '+
    'LEFT JOIN CLASS_ITEM LCC ON LCC.CLASS_ID=LCH.LC_BZ LEFT JOIN ITEM_ITEM I ON I.ITEM_ID=LCH.LC_ITEMNO WHERE 2>1 ';
  if Flatcombobox1.ItemIndex>=0 then
    S:=S+' AND LC_NAME='''+Flatcombobox1.Text+'''';
  if Flatcombobox2.ItemIndex>=0 then
    S:=S+' AND CLASS_NAME='''+Flatcombobox2.Text+'''';
  if Flatcombobox3.ItemIndex>=0 then
    S:=S+' AND LC_HZ='''+Flatcombobox3.Text+'''';
  if Flatcombobox4.ItemIndex>=0 then
    S:=S+' AND ITEM_NAME='''+Flatcombobox4.Text+'''';
    with ADOQF do
    begin
      Close;
      SQL.Clear;
      SQL.Add(S);
      open;
    end;
    LCRKDTIT_Form.DBGridEh1.BringToFront;
    RKHZFIND_Form.Close;
end;

end.