mc_kcxxtj.~pas

腾龙餐饮管理软件

unit MC_KCXXTJ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ImgList, Grids, DBGrids, Db, DBTables, ExtCtrls,
  Buttons, Qrctrls, QuickRpt;

type
  TKCXXTJ = class(TForm)
    GroupBox1: TGroupBox;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1BDEDesigner: TIntegerField;
    Query1BDEDesigner2: TIntegerField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TIntegerField;
    Query1BDEDesigner6: TFloatField;
    Query1BDEDesigner7: TStringField;
    Query1BDEDesigner8: TDateTimeField;
    Query1BDEDesigner9: TStringField;
    Query1BDEDesigner10: TIntegerField;
    Query1BDEDesigner11: TStringField;
    Query1BDEDesigner12: TIntegerField;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    BitBtn3: TBitBtn;
    Label7: TLabel;
    Label8: TLabel;
    Query2: TQuery;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    BitBtn4: TBitBtn;
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRShape1: TQRShape;
    QRLabel2: TQRLabel;
    QRShape3: TQRShape;
    QRLabel7: TQRLabel;
    QRExpr3: TQRExpr;
    TitleBand1: TQRBand;
    QRShape4: TQRShape;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    DetailBand1: TQRBand;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRShape19: TQRShape;
    QRShape20: TQRShape;
    QRShape21: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    SummaryBand1: TQRBand;
    QRShape2: TQRShape;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRExpr1: TQRExpr;
    QRExpr2: TQRExpr;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn4Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    CKM:String;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KCXXTJ: TKCXXTJ;

implementation

uses MC_TLCYGLXT, MC_DYYLBrose;

{$R *.DFM}
//系统初始化
procedure TKCXXTJ.FormShow(Sender: TObject);
begin
 ANiMateWindow(Handle,300,AW_SLIDE+AW_VER_POSITIVE);
 GroupBox1.Refresh;
 GroupBox2.Refresh;
 Treeview1.Items[0].Expanded:=True;//打开数列
 TreeView1.Refresh;
 Panel1.Refresh;
 Panel2.Refresh;
 Bevel1.Refresh;
 DBGrid1.Refresh;
 ComboBox1.ItemIndex:=0;
 ComboBox2.ItemIndex:=0;
end;
//树状显示仓库
procedure TKCXXTJ.FormCreate(Sender: TObject);
var TreeInd:array[0..1] of TTreeNode;
begin
 CKM:='All';
 TLCYGLXT.CKXXB.Open;//打开仓库信息表;
 TreeView1.Items[0].Delete;
 TreeInd[1]:=TreeView1.Items.Add(nil,'腾龙餐饮库存统计');
 TreeInd[1].ImageIndex:=1;
 TreeInd[1].SelectedIndex:=1;
 While not TLCYGLXT.CKXXB.Eof do
  begin
   TreeInd[0]:=TreeView1.Items.AddChild(TreeView1.Items[0],TLCYGLXT.CKXXB.FieldByName('仓库名称').AsString);
   TreeInd[0].ImageIndex:=0;
   TreeInd[0].SelectedIndex:=0;
   TLCYGLXT.CKXXB.Next;
  end;
 TLCYGLXT.CKXXB.CLose;
end;
//显示全部库存
procedure TKCXXTJ.BitBtn1Click(Sender: TObject);
begin
 GroupBox2.Caption:='全部库存：';
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('select * From 库存信息表');
 Query1.Open;
 Query2.Close;
 Query2.SQL.Clear;
 Query2.SQL.Add('Select Count(DisTincT 商品编号),Sum(数量),sum(数量*单价) From 库存信息表');
 Query2.Open;
 Label2.Caption:=Query2.Fields[0].AsString+'种';
 Label4.Caption:=Query2.Fields[1].AsString;
 Label6.Caption:=Query2.Fields[2].AsString;
 Query2.Close;
end;
//选择仓库
procedure TKCXXTJ.TreeView1Click(Sender: TObject);
var key_Treeview:Array[0..1] of TTreeNode;
begin
 key_TreeView[0]:=TreeView1.Selected;
 if key_TreeView[0].ImageIndex=1 then
 begin
  CKM:='All';
  GroupBox2.Caption:='全部库存：';
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * From 库存信息表');
  Query1.Open;
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('Select Count(DisTincT 商品编号),Sum(数量),sum(数量*单价) From 库存信息表');
  Query2.Open;
  Label2.Caption:=Query2.Fields[0].AsString+'种';
  Label4.Caption:=Query2.Fields[1].AsString;
  Label6.Caption:=Query2.Fields[2].AsString;
  Query2.Close;
 End
 Else
 begin
  CKM:=Key_TreeView[0].Text;
  GroupBox2.Caption:=Key_TreeView[0].Text+':';
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * From 库存信息表 where 仓库名称=:A');
  Query1.ParamByName('A').AsString:=Key_TreeView[0].Text;
  Query1.Open;
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('Select Count(DisTincT 商品编号),Sum(数量),sum(数量*单价) From 库存信息表');
  Query2.SQL.Add('where 仓库名称=:A');
  Query2.ParamByName('A').AsString:=Key_TreeView[0].Text;
  Query2.Open;
  Label2.Caption:=Query2.Fields[0].AsString+'种';
  Label4.Caption:=Query2.Fields[1].AsString;
  Label6.Caption:=Query2.Fields[2].AsString;
  Query2.Close;
 end;
end;

procedure TKCXXTJ.QuickRep1Preview(Sender: TObject);
begin
 DYYLBrose.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;
//打印库存信息
procedure TKCXXTJ.BitBtn2Click(Sender: TObject);
begin
 If Query1.RecordCount <> 0 Then
 begin
   QRLabel6.Caption:=Label2.Caption;
   DYYLBrose.Show;
   QuickRep1.Preview;
 End
Else
ShowMessage('库存为空，无法打印。');
end;
//选择条件
procedure TKCXXTJ.ComboBox2Click(Sender: TObject);
begin
 if ComboBox2.Items[ComboBox2.ItemIndex]='Like' then Edit1.text:='*'
 else Edit1.Text:='';
end;
//输入查询值
procedure TKCXXTJ.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ComboBox2.Items[ComboBox2.ItemIndex]='Like' then
begin
if not ((ComboBox1.Items[ComboBox1.ItemIndex]='经手人') or (ComboBox1.Items[ComboBox1.ItemIndex]='商品名称'))
 then
 begin
  if key=#13 then BitBtn4.Click
  Else
  if not (key='*') then //'vk_Multiply  = $6A;
  if Key=#8 then key:=#8
  Else
  if (key<'0') or (key>'9') then key:=#0
  Else
 end;
End
Else
if not ((ComboBox1.Items[ComboBox1.ItemIndex]='经手人') or (ComboBox1.Items[ComboBox1.ItemIndex]='商品名称'))
then
begin
 if key=#13 then BitBtn4.Click
 Else
 if Key=#8 then key:=#8
 Else
 if (key<'0') or (key>'9') then key:=#0;
End
Else
if key=#13 then BitBtn4.Click;
end;
//查询数据