jxztj_unit.~pas

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

unit JXZTJ_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DBCtrlsEh, TFlatComboBoxUnit;

type
  TJXZTJ_Form = class(TForm)
    Label1: TLabel;
    FlatComboBox1: TFlatComboBox;
    Label2: TLabel;
    FlatComboBox2: TFlatComboBox;
    Label5: TLabel;
    FlatComboBox3: TFlatComboBox;
    Label3: TLabel;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    Label4: TLabel;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    FlatComboBox4: TFlatComboBox;
    FlatComboBox5: TFlatComboBox;
    Label8: TLabel;
    FlatComboBox6: TFlatComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JXZTJ_Form: TJXZTJ_Form;

implementation

uses DMUnit, RPTUnit;

{$R *.dfm}

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

procedure TJXZTJ_Form.FormDestroy(Sender: TObject);
begin
JXZTJ_ForM:=nil;
end;

procedure TJXZTJ_Form.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TJXZTJ_Form.BitBtn1Click(Sender: TObject);
var
  S:String;
begin
  S:='SELECT JM.JXZ_NO,JM.JXZ_TIME,C.CLASS_NAME,LC.LC_NAME,LC1.LC_NAME,C1.CLASS_NAME, '+
     'LCI.ITEM_NAME,JP.JXZ_ITEMSORT,JP.JXZ_ITEMUNIT,JP.JXZ_ITEMPRICE,JP.JXZ_ITEMNUM, '+
     'JP.JXZ_ITEMMON FROM JXZ_M JM LEFT JOIN LCBASE LC ON JM.JXZ_CARNO=LC.LC_NO '+
     'LEFT JOIN LCBASE LC1 ON JM.JXZ_JCARNO=LC1.LC_NO LEFT JOIN CLASS_ITEM C ON '+
     'C.CLASS_ID=JM.JXZ_JBZ LEFT JOIN CLASS_ITEM C1 ON C1.CLASS_ID=JM.JXZ_JSBZ '+
     'LEFT JOIN JXZ_P JP ON JM.JXZ_NO=JP.JXZ_NO LEFT JOIN LCITEM_ITEM LCI ON '+
     'LCI.ITEM_NO=JP.JXZ_ITEMNO WHERE 2>1';
     if FlatComBoBox1.ItemIndex>=0 then
       S:=S+' AND JM.JXZ_NO='''+FlatComBoBox1.Text+'''';
     if FlatComBoBox2.ItemIndex>=0 then
       S:=S+' AND C.CLASS_NAME='''+FlatComBoBox2.Text+'''';
     if FlatComBOBox3.ItemIndex>=0 then
       S:=S+' AND LC.LC_NAME='''+FlatComBOBox3.Text+'''';
     if FlatComBoBox4.ItemIndex>=0 then
       S:=S+' AND C1.CLASS_NAME='''+FlatComBoBox4.Text+'''';
     if FlatComBoBox5.ItemIndex>=0 then
       S:=S+' AND LC1.LC_NAME='''+FlatComBoBox5.Text+'''';
     if FlatComBoBox6.ItemIndex>=0 then
       S:=S+' AND LCI.ITEM_NAME='''+FlatComBoBox6.Text+'''';
     if (Trim(Copy(DBDateTimeEditEh1.Text,0,1))<>'') and (Trim(Copy(DBDateTimeEditEh2.Text,0,1))<>'') then
       S:=S+' AND JM.JXZ_TIME>='''+DBDateTimeEditEh1.Text+''' AND JM.JXZ_TIME<='''+DBDateTimeEditEh2.Text+'''';
     with DM.JXZTJADOQ do
     begin
       Close;
       SQL.Clear;
       SQL.Add(S);
       open;
     end;
     RPTDM.JXZTJ_Rpt.LoadFromFile(ExtractFilePath(ParamStr(0)) +   'RPT/交下组统计单.frf');
     RPTDM.JXZTJ_Rpt.ShowReport;
end;

procedure TJXZTJ_Form.FormCreate(Sender: TObject);
begin
  with DM.JXZM_ADOQ do
  begin
    Close;
    OPen;
  end;
  while not DM.JXZM_ADOQ.Eof do
  begin
    Flatcombobox1.Items.Add(DM.JXZM_ADOQ.FieldBYName('JXZ_NO').AsString);
    DM.JXZM_ADOQ.Next;
  end;
  with DM.LCBASE_ADOQ do
  begin
    Close;
    Open;
  end;
  while not DM.LCBASE_ADOQ.Eof do
  begin
    FlatComBoBox2.Items.Add(DM.LCBASE_ADOQ.FieldByName('LC_NAME').AsString);
    FlatComBoBox4.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
    FlatComBoBox3.Items.Add(DM.CLASS_ADOQ.FieldByName('CLASS_NAME').AsString);
    FlatComBoBox5.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
    FlatComBoBox6.Items.Add(DM.LCITEM_ADOQ.FieldByName('ITEM_NAME').AsString);
    DM.LCITEM_ADOQ.Next;
  end;
end;

procedure TJXZTJ_Form.BitBtn3Click(Sender: TObject);
begin
  flatComBoBox1.Items.Clear;
  flatComBoBox2.Items.Clear;
  flatComBoBox3.Items.Clear;
  flatComBoBox4.Items.Clear;
  flatComBoBox5.Items.Clear;
  flatComBoBox6.Items.Clear;
  DBDateTimeEditEh1.Clear;
  DBDateTimeEditEh2.Clear;
  with DM.JXZM_ADOQ do
  begin
    Close;
    OPen;
  end;
  while not DM.JXZM_ADOQ.Eof do
  begin
    Flatcombobox1.Items.Add(DM.JXZM_ADOQ.FieldBYName('JXZ_NO').AsString);
    DM.JXZM_ADOQ.Next;
  end;
  with DM.LCBASE_ADOQ do
  begin
    Close;
    Open;
  end;
  while not DM.LCBASE_ADOQ.Eof do
  begin
    FlatComBoBox2.Items.Add(DM.LCBASE_ADOQ.FieldByName('LC_NAME').AsString);
    FlatComBoBox4.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
    FlatComBoBox3.Items.Add(DM.CLASS_ADOQ.FieldByName('CLASS_NAME').AsString);
    FlatComBoBox5.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
    FlatComBoBox6.Items.Add(DM.LCITEM_ADOQ.FieldByName('ITEM_NAME').AsString);
    DM.LCITEM_ADOQ.Next;
  end;
end;

end.