⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 mc_kcxxgl.pas

📁 异洲酒店管理系统
💻 PAS
字号:
🔍 
unit MC_KCXXGL;

interface

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

type
  TKCXXGL = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    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;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn1: TBitBtn;
    Query2: TQuery;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn5: TBitBtn;
    Bevel3: TBevel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Query3: TQuery;
    DataSource2: TDataSource;
    Query3BDEDesigner: TIntegerField;
    Query3BDEDesigner2: TStringField;
    Query3BDEDesigner3: TStringField;
    Label8: TLabel;
    Label9: TLabel;
    GroupBox2: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit2: TDBEdit;
    Label12: TLabel;
    DBEdit3: TDBEdit;
    DBText1: TDBText;
    DBLookupComboBox2: TDBLookupComboBox;
    Label13: TLabel;
    Bevel4: TBevel;
    BitBtn6: TBitBtn;
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRShape1: TQRShape;
    TitleBand1: TQRBand;
    QRShape2: TQRShape;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    DetailBand1: TQRBand;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRShape19: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    SummaryBand1: TQRBand;
    QRShape20: TQRShape;
    QRLabel11: TQRLabel;
    QRExpr1: TQRExpr;
    QRLabel12: TQRLabel;
    QRExpr2: TQRExpr;
    QRLabel14: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel13: TQRLabel;
    QRLabel15: TQRLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure DBLookupComboBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBEdit2Enter(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KCXXGL: TKCXXGL;

implementation

uses MC_DYYLBrose;

{$R *.DFM}
 procedure TKCXXGL.FormShow(Sender: TObject);
begin
 ANimateWindow(Handle,300,AW_SLIDE+AW_VER_POSITIVE);
 Panel1.Refresh;
 Panel2.Refresh;
 GroupBox1.Refresh;
 DBGrid1.Refresh;
 Label4.RefResh;
 Label7.Refresh;
 DBLookupCombobox1.Refresh;
 Query2.Close;
 Query2.SQL.Clear;
 Query2.SQL.Add('Select Sum(数量),Sum(数量*单价),Count(DisTinct 商品编号) From 库存信息表');
 Query2.Open;
 Label5.Caption:=Query2.Fields[0].AsString;
 Label6.Caption:=Query2.Fields[1].AsString;
 Label9.Caption:=Query2.Fields[2].AsString+'种商品';
 Query2.Close;
end;
// 显示所有仓库库存信息
procedure TKCXXGL.BitBtn5Click(Sender: TObject);
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('Select * From 库存信息表');
 Query1.Open;
 Query2.Close;
 Query2.SQL.Clear;
 Query2.SQL.Add('Select Sum(数量),Sum(数量*单价),Count(DisTinct 商品编号) From 库存信息表');
 Query2.Open;
 Label5.Caption:=Query2.Fields[0].AsString;
 Label6.Caption:=Query2.Fields[1].AsString;
 Label9.Caption:=Query2.Fields[2].AsString+'种商品';
 Query2.Close;
end;

procedure TKCXXGL.DBLookupComboBox1Click(Sender: TObject);
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('Select * From 库存信息表');
 Query1.SQL.Add('Where 仓库编号=:A');
 Query1.Params[0].AsInteger:=Query3.FieldByName('仓库编号').AsInteger;
 Query1.Open;
 Query2.Close;
 Query2.SQL.Clear;
 Query2.SQL.Add('Select Sum(数量),Sum(数量*单价),Count(DisTinct 商品编号) From 库存信息表');
 Query2.SQL.Add('Where 仓库编号=:A');
 Query2.Params[0].AsInteger:=Query3.FieldByName('仓库编号').AsInteger;
 Query2.Open;
 Label5.Caption:=Query2.Fields[0].AsString;
 Label6.Caption:=Query2.Fields[1].AsString;
 Label9.Caption:=Query2.Fields[2].AsString+'种商品';
 Query2.Close;
end;

procedure TKCXXGL.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if BitBtn2.Enabled=False then Abort;
end;
//修改库存村信息
procedure TKCXXGL.BitBtn4Click(Sender: TObject);
begin
 If Query1.RecordCount <> 0 Then
  begin
   Query1.Edit;
   DBGrid1.Enabled:=False;
   Panel2.Enabled:=False;
   BitBtn2.Enabled:=False;
   BitBtn5.Enabled:=False;
   BitBtn1.Enabled:=False;
   GroupBox2.Visible:=True;
   DBEdit3.SetFocus;
  end;
end;

procedure TKCXXGL.DBEdit2Enter(Sender: TObject);
begin
 TEdit(sender).color:=ClAqua;
end;

procedure TKCXXGL.DBEdit2Exit(Sender: TObject);
begin
 TDBEdit(Sender).Color:=ClWindow;
end;

procedure TKCXXGL.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then DBedit2.SetFocus;
end;

procedure TKCXXGL.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then DBLookupCombobox2.SetFocus;
end;

procedure TKCXXGL.DBLookupComboBox2KeyPress(Sender: TObject;
var Key: Char);
begin
 if key=#13 then BitBtn6.SetFocus;
end;
//取消库存设置
procedure TKCXXGL.BitBtn3Click(Sender: TObject);
begin
 If GroupBox2.Visible = True Then
  begin
   Query1.Cancel;
   DBGrid1.Enabled:=True;
   GroupBox2.Visible:=False;
   BitBtn5.Enabled:=True;
   bitBtn1.Enabled:=True;
   BitBtn2.Enabled:=True;
   Panel2.enabled:=True;
  end;
end;
//保存商品信息
procedure TKCXXGL.BitBtn6Click(Sender: TObject);
begin
 Query1.FieldByName('仓库编号').AsInteger:=Query3.FieldByName('仓库编号').AsInteger;
 Query1.Post;
 DBGrid1.Enabled:=True;
 GroupBox2.Visible:=False;
 BitBtn5.Enabled:=True;
 bitBtn1.Enabled:=True;
 BitBtn2.Enabled:=True;
 Panel2.enabled:=True;
end;
//预览报表
procedure TKCXXGL.QuickRep1Preview(Sender: TObject);
begin
 DYYLBrose.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
end;
//打印库存信息
procedure TKCXXGL.BitBtn1Click(Sender: TObject);
begin
 DYYLBrose.Show;
 QuickRep1.Preview;
end;
//关闭窗体
procedure TKCXXGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ANimateWindow(Handle,300,AW_HIDE+AW_SLIDE+AW_VER_NEGATIVE);
 KCXXGL.Release;
 KCXXGL:=Nil;
end;
//关系程序
procedure TKCXXGL.BitBtn2Click(Sender: TObject);
begin
 Close;
end;
end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -