qtmain.pas

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

unit qtmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ComCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, ImgList,
  DBTables, DB, QRCtrls, QuickRpt, ADODB, Spin, printers, OleCtrls;

type
  TqtForm = class(TForm)
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    SpeedButtona: TSpeedButton;
    SpeedButtonb: TSpeedButton;
    SpeedButtonc: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    ImageList1: TImageList;
    Query1: TQuery;
    UpdateSQL1: TUpdateSQL;
    Query2: TQuery;
    Query4: TQuery;
    DataSource1: TDataSource;
    CheckBox1: TCheckBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    Bevel2: TBevel;
    SpeedButtond: TSpeedButton;
    SpeedButtone: TSpeedButton;
    SpeedButtonf: TSpeedButton;
    SpeedButtong: TSpeedButton;
    SpeedButtonh: TSpeedButton;
    SpeedButtonj: TSpeedButton;
    TreeView1: TTreeView;
    Query6: TQuery;
    SpeedButtoni: TSpeedButton;
    tcwj: TQuery;
    tclsQ: TQuery;
    UpdateSQL3: TUpdateSQL;
    DataSource2: TDataSource;
    Query6id: TIntegerField;
    Query6qsh: TIntegerField;
    Query6djh: TIntegerField;
    Query6bclx: TStringField;
    Query4id: TIntegerField;
    Query4lbbm: TStringField;
    Query4mc: TStringField;
    Query4ywmc: TStringField;
    Query4ys: TIntegerField;
    Query4zt: TStringField;
    Query4zh: TIntegerField;
    Query4bz: TStringField;
    Query4dycdbh: TStringField;
    Query4zxh: TIntegerField;
    Query4cxh: TIntegerField;
    tcwjid: TIntegerField;
    tcwjzcbh: TStringField;
    tcwjpcbh: TStringField;
    tcwjpclb: TStringField;
    tcwjsl: TIntegerField;
    Panel3: TPanel;
    QuickRep1: TQuickRep;
    PageHeaderBand2: TQRBand;
    ColumnHeaderBand2: TQRBand;
    DetailBand2: TQRBand;
    SummaryBand2: TQRBand;
    QRSysData3: TQRSysData;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRDBText7: TQRDBText;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRSysData4: TQRSysData;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRExpr2: TQRExpr;
    lsQ: TADOQuery;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    CheckBox2: TCheckBox;
    Label4: TLabel;
    Bevel21: TBevel;
    Bevel22: TBevel;
    Label5: TLabel;
    Edit4: TEdit;
    Timerx: TTimer;
    fkwj: TADOQuery;
    fkwjid: TAutoIncField;
    fkwjdjh: TIntegerField;
    fkwjrq: TDateTimeField;
    fkwjfkfsbm: TStringField;
    fkwjfkfsmc: TStringField;
    fkwjfkje: TBCDField;
    SpeedButton1: TSpeedButton;
    SZ7: TSpeedButton;
    SZ8: TSpeedButton;
    SZ9: TSpeedButton;
    SZ4: TSpeedButton;
    SZ5: TSpeedButton;
    sz6: TSpeedButton;
    SZ1: TSpeedButton;
    SZ2: TSpeedButton;
    SZ3: TSpeedButton;
    SZ0: TSpeedButton;
    SZC: TSpeedButton;
    Bevel23: TBevel;
    LabeledEdit4: TLabeledEdit;
    fkwjhykbh: TStringField;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Shape1: TShape;
    QRExpr1: TQRExpr;
    yhfaADO: TADOQuery;
    yhfaADOid: TAutoIncField;
    yhfaADObm: TStringField;
    yhfaADOmc: TStringField;
    yhfaADOksrq: TDateTimeField;
    yhfaADOzzrq: TDateTimeField;
    yhfaADOzoubie: TStringField;
    yhfaADOkssj: TStringField;
    yhfaADOzzsh: TStringField;
    yhfaADOcdlb: TStringField;
    yhfaADOcdbh: TStringField;
    yhfaADOyhbl: TFloatField;
    yhfaADOzdje: TBCDField;
    QRDBText1: TQRDBText;
    fkwjszdd: TStringField;
    fkwjyhqje: TBCDField;
    Query5: TADOQuery;
    SpinButton1: TSpinButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    fkwjyhh: TStringField;
    SpeedButton8: TSpeedButton;
    Panel2: TPanel;
    cfdy: TADOQuery;
    AutoIncField1: TAutoIncField;
    IntegerField1: TIntegerField;
    StringField1: TStringField;
    StringField2: TStringField;
    DateTimeField1: TDateTimeField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    BCDField1: TBCDField;
    IntegerField2: TIntegerField;
    BCDField2: TBCDField;
    BooleanField1: TBooleanField;
    BooleanField2: TBooleanField;
    StringField7: TStringField;
    IntegerField3: TIntegerField;
    BCDField3: TBCDField;
    IntegerField4: TIntegerField;
    BCDField4: TBCDField;
    IntegerField5: TIntegerField;
    BCDField5: TBCDField;
    StringField8: TStringField;
    StringField9: TStringField;
    BooleanField3: TBooleanField;
    BooleanField4: TBooleanField;
    StringField10: TStringField;
    BooleanField5: TBooleanField;
    Edit5: TEdit;
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    Query2bh: TStringField;
    Query2lbbm: TStringField;
    Query2mc: TStringField;
    Query2ywmc: TStringField;
    Query2gg: TStringField;
    Query2dj: TFloatField;
    Query2tcbz: TBooleanField;
    Query2zt: TBooleanField;
    Query2sfkj: TBooleanField;
    Query2zkdl: TBooleanField;
    Query2zkl: TIntegerField;
    Query2fwfdl: TBooleanField;
    Query2fwfl: TIntegerField;
    Query2shuilu: TIntegerField;
    Query2cfdy: TBooleanField;
    selport: TADOQuery;
    selprt: TADOQuery;
    selprtdjh: TIntegerField;
    selprtdyjmc: TStringField;
    SpeedButton9: TSpeedButton;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    Bevel3: TBevel;
    Edit6: TEdit;
    ADOQuery1: TADOQuery;
    ADOQuery1id: TAutoIncField;
    ADOQuery1ctbh: TStringField;
    ADOQuery1ctmc: TStringField;
    ADOQuery1twbh: TStringField;
    ADOQuery1twmc: TStringField;
    ADOQuery1twrs: TIntegerField;
    ADOQuery1twfwf: TBCDField;
    ADOQuery1twcwf: TBCDField;
    ADOQuery1twzt: TStringField;
    ADOQuery1djh: TIntegerField;
    ADOQuery1kssj: TDateTimeField;
    ADOQuery1xfje: TBCDField;
    Querydetail: TQuery;
    Queryupdateflg: TQuery;
    Queryposs: TQuery;
    QuickRep2: TQuickRep;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRBand2: TQRBand;
    QRBand3: TQRBand;
    QRDBText3: TQRDBText;
    QRDBText5: TQRDBText;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRDBText4: TQRDBText;
    QRSysData1: TQRSysData;
    QRDBText2: TQRDBText;
    QRLabel2: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel8: TQRLabel;
    QRDBText12: TQRDBText;
    QRLabel7: TQRLabel;
    QRLabel5: TQRLabel;
    QRDBText13: TQRDBText;
    QRShape1: TQRShape;
    QRDBText6: TQRDBText;
    QRLabel24: TQRLabel;
    QRDBText20: TQRDBText;
    QRBand4: TQRBand;
    QuickRep3: TQuickRep;
    QRBand5: TQRBand;
    QRLabel3: TQRLabel;
    QRSysData2: TQRSysData;
    QRLabel21: TQRLabel;
    QRDBText17: TQRDBText;
    QRLabel6: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel26: TQRLabel;
    QRBand6: TQRBand;
    QRBand7: TQRBand;
    QRDBText14: TQRDBText;
    QRDBText15: TQRDBText;
    QRDBText16: TQRDBText;
    QRDBText19: TQRDBText;
    QRDBText21: TQRDBText;
    QRBand8: TQRBand;
    QRLabel23: TQRLabel;
    QRDBText18: TQRDBText;
    BitBtn2: TBitBtn;
    Button1: TButton;
    QRDBText22: TQRDBText;
    QRDBText23: TQRDBText;
    QRLabel27: TQRLabel;
    SpeedButton10: TSpeedButton;
    Edit7: TEdit;
    sumdcdQ: TADOQuery;
    sumdcdQjje: TBCDField;
    sumdcdQminrq: TDateTimeField;
    cantaiq: TADOQuery;
    Query2cfdyjhm: TStringField;
    Query2ccjdyjhm: TStringField;
    selportID: TAutoIncField;
    selportdjh: TIntegerField;
    selportth: TStringField;
    selportyhh: TStringField;
    selportbc: TStringField;
    selporttwbh: TStringField;
    selportrq: TDateTimeField;
    selportlb: TStringField;
    selportbh: TStringField;
    selportmc: TStringField;
    selportgg: TStringField;
    selportdj: TBCDField;
    selportsl: TBCDField;
    selportje: TBCDField;
    selportfkbz: TBooleanField;
    selportzfbz: TBooleanField;
    selportzcbz: TStringField;
    selportzkl: TIntegerField;
    selportzke: TBCDField;
    selportfwfl: TIntegerField;
    selportfwfe: TBCDField;
    selportshuilv: TIntegerField;
    selportse: TBCDField;
    selportzsbz: TBooleanField;
    selportwmbz: TBooleanField;
    selportszdd: TStringField;
    selportcfdy: TBooleanField;
    selportcfdyjhm: TStringField;
    selportccjdyjhm: TStringField;
    prtsetQ: TADOQuery;
    prtQ: TADOQuery;
    tclsQID: TIntegerField;
    tclsQdjh: TIntegerField;
    tclsQth: TStringField;
    tclsQyhh: TStringField;
    tclsQbc: TStringField;
    tclsQtwbh: TStringField;
    tclsQrq: TDateTimeField;
    tclsQlb: TStringField;
    tclsQbh: TStringField;
    tclsQmc: TStringField;
    tclsQgg: TStringField;
    tclsQdj: TFloatField;
    tclsQsl: TFloatField;
    tclsQje: TFloatField;
    tclsQfkbz: TBooleanField;
    tclsQzfbz: TBooleanField;
    tclsQzcbz: TStringField;
    tclsQzkl: TIntegerField;
    tclsQzke: TFloatField;
    tclsQfwfl: TIntegerField;
    tclsQfwfe: TFloatField;
    tclsQshuilv: TIntegerField;
    tclsQse: TFloatField;
    tclsQzsbz: TBooleanField;
    tclsQwmbz: TBooleanField;
    tclsQszdd: TStringField;
    tclsQcfdy: TBooleanField;
    tclsQcfdyjhm: TStringField;
    tclsQccjdyjhm: TStringField;
    lsQID: TAutoIncField;
    lsQdjh: TIntegerField;
    lsQth: TStringField;
    lsQyhh: TStringField;
    lsQbc: TStringField;
    lsQtwbh: TStringField;
    lsQrq: TDateTimeField;
    lsQlb: TStringField;
    lsQbh: TStringField;
    lsQmc: TStringField;
    lsQgg: TStringField;
    lsQdj: TBCDField;
    lsQsl: TBCDField;
    lsQje: TBCDField;
    lsQfkbz: TBooleanField;
    lsQzfbz: TBooleanField;
    lsQzcbz: TStringField;
    lsQzkl: TIntegerField;
    lsQzke: TBCDField;
    lsQfwfl: TIntegerField;
    lsQfwfe: TBCDField;
    lsQshuilv: TIntegerField;
    lsQse: TBCDField;
    lsQzsbz: TBooleanField;
    lsQwmbz: TBooleanField;
    lsQszdd: TStringField;
    lsQcfdy: TBooleanField;
    lsQcfdyjhm: TStringField;
    lsQccjdyjhm: TStringField;
    Updcddy: TADOQuery;
    LabeledEdit7: TLabeledEdit;
    LabeledEdit8: TLabeledEdit;
    Bevel4: TBevel;
    ADOQuery1zdxf: TBCDField;
    selportmemo: TStringField;
    Query3: TADOQuery;