begstock_unit.pas

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

unit BEGSTOCK_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatGroupBoxUnit, StdCtrls, Buttons, ToolWin, ComCtrls,
  TFlatSpeedButtonUnit, ExtCtrls, Mask, DBCtrlsEh, TFlatComboBoxUnit, DB,
  ADODB;

type
  TBEGSTOCK_Form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    FlatComboBox3: TFlatComboBox;
    FlatComboBox4: TFlatComboBox;
    FlatComboBox5: TFlatComboBox;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    queryQry: TADOQuery;
    BitBtn4: TBitBtn;
    Label8: TLabel;
    Label9: TLabel;
    DBDateTimeEditEh3: TDBDateTimeEditEh;
    DBDateTimeEditEh4: TDBDateTimeEditEh;
    Label10: TLabel;
    FlatComboBox6: TFlatComboBox;
    Label11: TLabel;
    FlatComboBox7: TFlatComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BEGSTOCK_Form: TBEGSTOCK_Form;

implementation

uses DMUnit, RPTUnit, SALESM_Unit;

{$R *.dfm}

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

procedure TBEGSTOCK_Form.FormDestroy(Sender: TObject);
begin
  BEGSTOCK_FORM:=nil;
end;

procedure TBEGSTOCK_Form.BitBtn10Click(Sender: TObject);
begin
Close;
end;

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

procedure TBEGSTOCK_Form.BitBtn2Click(Sender: TObject);
begin
FlatCombobox1.Clear;
FlatCombobox2.Clear;
FlatCombobox3.Clear;
FlatCombobox4.Clear;
FlatCombobox5.Clear;
Flatcombobox6.Clear;
DBDateTimeEditEh1.Clear;
DBDateTimeEditEh2.Clear;
DBDateTimeEditEh3.Clear;
DBDateTimeEditEh4.Clear;
with queryQry do
begin
  Close;
  SQl.Clear;
  SQL.Add('SELECT DISTINCT ITEM_CARNO FROM SALE');
  OPen;
end;
while not queryQry.Eof do
begin
  Flatcombobox1.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
with queryQry do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT DISTINCT ITEM_BZ FROM SALE');
  Open;
end;
while not queryQry.Eof do
begin
  Flatcombobox2.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
with queryQry do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT DISTINCT ITEM_CSJNO FROM SALE');
  Open;
end;
while not queryQry.Eof do
begin
  Flatcombobox3.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
with queryQry do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT DISTINCT ITEM_NO FROM SALE');
  Open;
end;
while not queryQry.Eof do
begin
  Flatcombobox4.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
with queryQry do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT DISTINCT ITEM_MEN FROM SALE');
  Open;
end;
while not queryQry.Eof do
begin
  Flatcombobox5.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
with queryQry do
begin
  Close;
  SQl.Clear;
  SQl.Add('SELECT DISTINCT ITEM_MARKS FROM LCITEM_ITEM');
  open;
end;
while not queryQry.Eof do
begin
  Flatcombobox6.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
end;

procedure TBEGSTOCK_Form.FormCreate(Sender: TObject);
begin
with queryQry do
begin
  Close;
  SQl.Clear;
  SQL.Add('SELECT DISTINCT ITEM_CARNO FROM SALE');
  OPen;
end;
while not queryQry.Eof do
begin
  Flatcombobox1.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
with queryQry do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT DISTINCT ITEM_BZ FROM SALE ORDER BY ITEM_BZ');
  Open;
end;
while not queryQry.Eof do
begin
  Flatcombobox2.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
with queryQry do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT DISTINCT ITEM_CSJNO FROM SALE');
  Open;
end;
while not queryQry.Eof do
begin
  Flatcombobox3.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
with queryQry do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT DISTINCT ITEM_NO FROM SALE');
  Open;
end;
while not queryQry.Eof do
begin
  Flatcombobox4.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
with queryQry do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT DISTINCT ITEM_MEN FROM SALE');
  Open;
end;
while not queryQry.Eof do
begin
  Flatcombobox5.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
with queryQry do
begin
  Close;
  Sql.Clear;
  Sql.Add('SELECT DISTINCT ITEM_MARKS FROM LCITEM_ITEM');
  OPEN;
end;
while not queryQry.Eof do
begin
  Flatcombobox6.Items.Add(queryQry.Fields[0].asstring);
  queryQry.Next;
end;
end;

procedure TBEGSTOCK_Form.BitBtn1Click(Sender: TObject);
var
  S,S1,P:string;
begin
  S:='SELECT S.ITEM_CARNO,S.ITEM_BZ,S.ITEM_CSJNO,S.ITEM_LSNO,S.ITEM_NO,LI.ITEM_NAME,S.ITEM_PRICE,S.ITEM_NUM,S.ITEM_MON,S.ITEM_TIME,S.ITEM_DATE,'+
     'S.ITEM_MEN,S.ITEM_BS,S.ITEM_MARKS FROM SALE S LEFT JOIN LCITEM_ITEM LI ON LI.ITEM_NO=S.ITEM_NO WHERE 2>1';
  P:=' ORDER BY SALENO';
  if FlatCombobox1.ItemIndex>=0 then
     S:=S+' AND S.ITEM_CARNO='''+Flatcombobox1.Text+'''';
  if Flatcombobox2.ItemIndex>=0 then
     S:=S+' AND S.ITEM_BZ='''+Flatcombobox2.Text+'''';
  if Flatcombobox3.ItemIndex>=0 then
     S:=S+' AND S.ITEM_CSJNO='''+Flatcombobox3.Text+'''';
  if Flatcombobox4.ItemIndex>=0 then
     S:=S+' AND S.ITEM_NO='''+Flatcombobox4.Text+'''';
  if Flatcombobox5.ItemIndex>=0 then
     S:=S+' AND S.ITEM_MEN='''+Flatcombobox5.Text+'''';
  if (Trim(Copy(DBDateTimeEditEh1.Text,0,1))<>'') and (Trim(Copy(DBDateTimeEditEh2.Text,0,1))<>'') then
    S:=S+' AND S.ITEM_TIME>='''+DBDateTimeEditEh1.Text+''' AND S.ITEM_TIME<='''+DBDateTimeEditEh2.Text+'''';
  if (Trim(Copy(DBDateTimeEditEh3.Text,0,1))<>'') and (Trim(Copy(DBDateTimeEditEh4.Text,0,1))<>'') then
    S:=S+' AND S.ITEM_DATE>='''+DBDateTimeEditEh3.Text+''' AND S.ITEM_DATE<='''+DBDateTimeEditEh4.Text+'''';
  if Flatcombobox6.ItemIndex>=0 then
    S:=S+' AND LI.ITEM_MARKS='''+Flatcombobox6.Text+'''';
  if Flatcombobox7.ItemIndex>0 then
    S:=S+' AND S.ITEM_BS='''+Flatcombobox7.Text+'''';
  with DM.SALECX_ADOQ do
  begin
    Close;
    SQL.Clear;
    SQL.Add(S);
   // sql.SaveToFile('d:\a.txt');
    OPen;
  end;
  SALESM_FORM.DBGridEh3.BringToFront;
  ////////////销售表统计为传输数据使用
  S1:='SELECT * FROM SALE WHERE 2>1';
  if Flatcombobox1.ItemIndex>=0 then
    S1:=S1+' AND ITEM_CARNO='''+Flatcombobox1.Text+'''';
  if Flatcombobox2.ItemIndex>=0 then
    S1:=S1+' AND ITEM_BZ='''+Flatcombobox2.Text+'''';
  if Flatcombobox3.ItemIndex>=0 then
    S1:=S1+' AND ITEM_CSJNO='''+Flatcombobox3.Text+'''';
  if Flatcombobox4.ItemIndex>=0 then
    S1:=S1+' AND ITEM_NO='''+Flatcombobox4.Text+'''';
  if Flatcombobox5.ItemIndex>=0 then
    S1:=S1+' AND ITEM_MEN='''+Flatcombobox5.Text+'''';
  if (Trim(Copy(DBDateTimeEditEh1.Text,0,1))<>'') and (Trim(Copy(DBDateTimeEditEh2.Text,0,1))<>'') then
    S1:=S1+' AND ITEM_TIME>='''+DBDateTimeEditEh1.Text+''' AND ITEM_TIME<='''+DBDateTimeEditEh2.Text+'''';
  if (Trim(Copy(DBDateTimeEditEh3.Text,0,1))<>'') and (Trim(Copy(DBDateTimeEditEh4.Text,0,1))<>'') then
    S1:=S1+' AND ITEM_DATE>='''+DBDateTimeEditEh3.Text+''' AND ITEM_DATE<='''+DBDateTimeEditEh4.Text+'''';
  if Flatcombobox7.ItemIndex>0 then
    S1:=S1+' AND ITEM_BS='''+Flatcombobox7.Text+'''';
  with DM.SALE_ADOQ do
  begin
    Close;
    Sql.Clear;
    SQl.Add(S1);
    Open;
  end;
  BEGSTOCK_Form.Close;
end;

procedure TBEGSTOCK_Form.BitBtn4Click(Sender: TObject);
var
 S:String;
 N:String;
begin
  S:='SELECT S.ITEM_CARNO,S.ITEM_BZ,S.ITEM_CSJNO,LC.ITEM_NAME,LC.ITEM_PLIAO,LC.ITEM_FLIAO,S.ITEM_NO,ITEM_NUM=SUM(S.ITEM_NUM),ITEM_MON=SUM(S.ITEM_MON),ITEM_DATE '+
     ' FROM SALE S LEFT JOIN LCITEM_ITEM LC ON LC.ITEM_NO=S.ITEM_NO WHERE 2>1 AND ITEM_BS=''可用'' ';
  N:=' GROUP BY ITEM_CARNO,ITEM_BZ,ITEM_CSJNO,LC.ITEM_NAME,LC.ITEM_PLIAO,LC.ITEM_FLIAO,S.ITEM_NO,ITEM_DATE ';
  if FlatCombobox1.ItemIndex>=0 then
     S:=S+' AND ITEM_CARNO='''+Flatcombobox1.Text+'''';
  if Flatcombobox2.ItemIndex>=0 then
     S:=S+' AND ITEM_BZ='''+Flatcombobox2.Text+'''';
  if Flatcombobox3.ItemIndex>=0 then
     S:=S+' AND ITEM_CSJNO='''+Flatcombobox3.Text+'''';
  if Flatcombobox4.ItemIndex>=0 then
     S:=S+' AND ITEM_NO='''+Flatcombobox4.Text+'''';
  if Flatcombobox5.ItemIndex>=0 then
     S:=S+' AND ITEM_MEN='''+Flatcombobox5.Text+'''';
  if (Trim(Copy(DBDateTimeEditEh3.Text,0,1))<>'') and (Trim(Copy(DBDateTimeEditEh4.Text,0,1))<>'') then
    S:=S+' AND ITEM_DATE>='''+DBDateTimeEditEh3.Text+''' AND ITEM_DATE<='''+DBDateTimeEditEh4.Text+'''';
  if Flatcombobox6.ItemIndex>=0 then
    S:=S+' AND LC.ITEM_MARKS='''+Flatcombobox6.Text+'''';
  with DM.CXTJQry DO
  Begin
    Close;
    SQL.Clear;
    sql.Add(S+N);
    Open;
  end;

  RPTDM.CXTJ_Rpt.LoadFromFile(ExtractFilePath(ParamStr(0)) +   'RPT/销售统计查询.frf');
  RPTDM.CXTJ_Rpt.ShowReport;
end;

end.