salehzfind_unit.~pas

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

unit SALEHZFIND_Unit;

interface

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

type
  TSALEHZFIND_Form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    FlatComboBox3: TFlatComboBox;
    FlatComboBox4: TFlatComboBox;
    ADOQuery1: TADOQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SALEHZFIND_Form: TSALEHZFIND_Form;

implementation

uses DMUnit;

{$R *.dfm}

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

procedure TSALEHZFIND_Form.FormDestroy(Sender: TObject);
begin
SALEHZFIND_Form:=nil;
end;

procedure TSALEHZFIND_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_CARNO').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 DM.LCITEM_ADOQ do
  begin
    Close;
    OPen;
  end;
  while not DM.LCITEM_ADOQ.Eof do
  begin
    FlatComboBox4.Items.Add(DM.LCITEM_ADOQ.FieldbyName('ITEM_NO').AsString);
    DM.LCITEM_ADOQ.Next;
  end;
  with adoquery1 do
  begin
    Close;
    SQl.Clear;
    SQl.Add('SELECT DISTINCT SALE_HZ FROM LCSALE_HZ');
    Open;
  end;
  while not adoquery1.Eof do
  begin
    FlatCombobox3.Items.Add(adoquery1.Fieldbyname('SALE_HZ').AsString);
    adoquery1.Next;
  end;
end;

procedure TSALEHZFIND_Form.BitBtn3Click(Sender: TObject);
begin
Close;
end;

procedure TSALEHZFIND_Form.BitBtn2Click(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_CARNO').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 DM.LCITEM_ADOQ do
  begin
    Close;
    OPen;
  end;
  while not DM.LCITEM_ADOQ.Eof do
  begin
    FlatComboBox4.Items.Add(DM.LCITEM_ADOQ.FieldbyName('ITEM_NO').AsString);
    DM.LCITEM_ADOQ.Next;
  end;
  with adoquery1 do
  begin
    Close;
    SQl.Clear;
    SQl.Add('SELECT DISTINCT SALE_HZ FROM LCSALE_HZ');
    Open;
  end;
  while not adoquery1.Eof do
  begin
    FlatCombobox3.Items.Add(adoquery1.Fieldbyname('SALE_HZ').AsString);
    adoquery1.Next;
  end;
end;

procedure TSALEHZFIND_Form.BitBtn1Click(Sender: TObject);
var
  S:string;
begin
  S:='SELECT * FROM LCSALE_HZ WHERE 2>1 ';
  if Flatcombobox1.ItemIndex>=0 then
    S:=S+ 'AND SALE_CARNO='''+Flatcombobox1.Text+'''';
  if Flatcombobox2.ItemIndex>=0 then
    S:=S+ 'AND SALE_BZ='''+Flatcombobox2.Text+'''';
  if Flatcombobox3.ItemIndex>=0 then
    S:=S+ 'AND SALE_HZ='''+Flatcombobox3.Text+'''';
  if Flatcombobox4.ItemIndex>=0 then
    S:=S+ 'AND SALE_ITEMNO='''+Flatcombobox4.Text+'''';
  with DM.LCSALEHZ_ADOQ do
  begin
    Close;
    SQl.Clear;
    SQl.Add(s);
    open;
  end;
  SALEHZFIND_Form.Close;
end;

end.