cw_kfbb.dfm

结于初学者来说这对数据库是一个很好的例子

object Form52: TForm52
  Left = 394
  Top = 225
  Width = 375
  Height = 246
  BorderIcons = [biSystemMenu]
  Caption = #36130#21153#32479#35745#25253#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 136
    Top = 16
    Width = 121
    Height = 19
    AutoSize = False
    Caption = #36130#21153#32479#35745#25253#34920
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 296
    Top = 16
    Width = 33
    Height = 33
    Glyph.Data = {
      B60C0000424DB60C000000000000360000002800000021000000200000000100
      180000000000800C0000C40E0000C40E00000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000C0C0
      C0C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0
      C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0000000000000000000
      C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C000C0C0C0C0C0C0C6C6C6C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0
      C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0000000FFFF
      00FFFF00000000C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C000C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0C6C6
      C6C6C6C6C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0C6C6C600
      0000FFFF00FFFF00848400000000C6C6C6C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6
      C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0
      C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0
      C0C0C0000000FFFF00FFFF00848400848400000000C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C6C6C6C6C6C6C0C0C000C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0
      C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0
      C0C6C6C6C6C6C6000000FFFF00FFFF00848400848400848400000000C0C0C0C6
      C6C6C6C6C6C0C0C0C0C0C0C0C0C0C0C0C000C6C6C6C0C0C0C0C0C0C0C0C0C6C6
      C6C6C6C6C0C0C0C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0C6C6C6C6
      C6C6C0C0C0C0C0C0C0C0C0000000FFFF00FFFF00848400848400848400848400
      000000C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C00000000000000000000000
      0000000000000000000000000000000000000000000000000000000000C0C0C0
      C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0000000FFFF00FFFF008484008484008484
      00848400848400000000000000000000000000000000C0C0C000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000
      00C6C6C6C6C6C6C0C0C0C0C0C0C0C0C0C6C6C6000000FFFF00FFFF0084840084
      8400848400848400848400000000848484C6C6C6C0C0C0C0C0C0C0C0C000C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0000000C0C0C0C0C0C0C6C6C6C6C6C6C0C0C0C0C0C0000000FFFF00FFFF00
      848400848400848400848400848400000000848484C6C6C6C0C0C0C0C0C0C0C0
      C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C6C6C6C0C0C0000000000000000000000000000000000000000000000000FFFF
      00FFFF00848400848400848400848400848400000000848484C6C6C6C0C0C0C0
      C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0000000C6C6C6C6C6C600000084848484848484848484848484848484848400
      0000FFFF00FFFF00848400848400848400848400848400000000848484C6C6C6
      C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0000000000000C6C6C6000000848484848484848484848484848484
      848484000000FFFF00FFFF008484008484008484008484008484000000008484
      84C6C6C6C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C00000008484000000000000008484848484848484848484
      84848484848484000000FFFF00FFFF0084840084840084840084840084840000
      0000848484C6C6C6C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C000000084840084840000000084848484848484
      8484848484848484848484000000FFFF00FFFF00848400000000000000848400
      848400000000848484C6C6C6C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0
      C0C0C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6000000FFFF00848400848400000000
      848484848484848484848484848484000000FFFF00FFFF000000008484840000
      00848400848400000000848484C6C6C6C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0
      C0C0C0C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6000000FFFF00FFFF008484
      00848400000000848484848484848484848484000000FFFF00FFFF00000000FF
      FFFF000000848400848400000000848484C6C6C6C0C0C0C0C0C0C0C0C000C0C0
      C0C0C0C0000000000000000000000000000000000000000000000000FFFF00FF
      FF00FFFF00848400848400000000848484848484848484000000FFFF00FFFF00
      848400000000000000848400848400000000848484C6C6C6C0C0C0C0C0C0C0C0
      C000C0C0C0000000848400848400848400848400848400848400848400848400
      FFFF00FFFF00FFFF00FFFF00848400848400000000848484848484000000FFFF
      00FFFF00848400848400848400848400848400000000848484C6C6C6C0C0C0C0
      C0C0C0C0C000C0C0C0000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0084840084840000000084848400
      0000FFFF00FFFF00848400848400848400848400848400000000848484C6C6C6
      C0C0C0C0C0C0C0C0C000C0C0C0000000FFFF00FFFF00FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFF00848400000000
      848484000000FFFF00FFFF008484008484008484008484008484000000008484
      84C6C6C6C0C0C0C0C0C0C0C0C000C0C0C0000000FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFFFFFFFF00FFFF008484000000
      00848484848484000000FFFF00FFFF0084840084840084840084840084840000
      0000848484C6C6C6C0C0C0C0C0C0C0C0C000C0C0C0C0C0C00000000000000000
      00000000000000000000000000000000FFFF00FFFFFFFFFF00FFFF0084840000
      0000848484848484848484000000FFFF00FFFF00848400848400848400848400
      848400000000848484C6C6C6C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFF00FFFF00FFFF00848400
      000000848484848484848484848484000000FFFF00FFFF008484008484008484
      00848400848400000000848484C6C6C6C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFF00FFFF008484
      00000000848484848484848484848484848484000000FFFF00FFFF0084840084
      8400848400848400848400000000848484C6C6C6C0C0C0C0C0C0C0C0C000C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFF0084
      8400000000848484848484848484848484848484848484000000FFFF00FFFF00
      848400848400848400848400848400000000848484C6C6C6C0C0C0C0C0C0C0C0
      C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000
      8484000000000000008484848484848484848484848484848484848484840000
      00FFFF00FFFF00848400848400848400848400000000848484C6C6C6C0C0C0C0
      C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0000000000000C0C0C000000084848484848484848484848484848484848484
      8484848484000000FFFF00FFFF00848400848400848400000000848484C6C6C6
      C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000848484848484848484848484848484
      848484848484848484848484000000FFFF00FFFF008484008484000000008484
      84C6C6C6C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000008484848484848484848484
      84848484848484848484848484848484848484000000FFFF00FFFF0084840000
      0000848484C6C6C6C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000084848484848484
      8484848484848484848484848484848484848484848484848484000000FFFF00
      FFFF00000000848484C0C0C0C0C0C0C0C0C0C0C0C000C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000}
    OnClick = SpeedButton1Click
  end
  object GroupBox1: TGroupBox
    Left = 32
    Top = 48
    Width = 305
    Height = 153
    TabOrder = 0
    object Label2: TLabel
      Left = 16
      Top = 40
      Width = 12
      Height = 12
      Caption = #20174
    end
    object Label3: TLabel
      Left = 160
      Top = 40
      Width = 12
      Height = 12
      Caption = #33267
    end
    object Button3: TButton
      Left = 80
      Top = 88
      Width = 145
      Height = 25
      Caption = #36130#21153#32479#35745#25253#34920
      TabOrder = 0
      OnClick = Button3Click
    end
    object rqq: TDateTimePicker
      Left = 32
      Top = 32
      Width = 121
      Height = 20
      CalAlignment = dtaLeft
      Date = 37539.3541666667
      Time = 37539.3541666667
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object rqh: TDateTimePicker
      Left = 176
      Top = 32
      Width = 121
      Height = 20
      CalAlignment = dtaLeft
      Date = 37539.3541666667
      Time = 37539.3541666667
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
  end
  object Q_Room: TQuery
    DatabaseName = 'hotel'
    SQL.Strings = (
      
        'select count(AccountNo) as L1,sum(PersonSum) as L2,sum(Type1) as' +
        ' L3,sum(Type2) as L5,sum(Type3) as L6,sum(Type4) as L7,sum(Type5' +
        ') as L4,sum(Type6) as L8,sum(ysje) as L9,sum(ysje) as L10,sum(zk' +
        'je) as L11,sum(mlje) as L12,sum(kdje) as L13,sum(dzje) as L14,su' +
        'm(sfje) as L15,sum(rmbje) as L16,sum(zpje) as L17,sum(xykje) as ' +
        'L18 from H_Account where endtime is not null and cstr(endtime) b' +
        'etween :aaa and :bbb')
    Left = 72
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'aaa'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'bbb'
        ParamType = ptUnknown
      end>
  end
  object Q_sn: TQuery
    DatabaseName = 'hotel'
    SQL.Strings = (
      
        'select sum(PersonSum) as X1,sum(Type2) as X3,sum(Type3) as X4,su' +
        'm(Type4) as X5,sum(Type5) as X6,sum(Type6) as X7,sum(Type7) as X' +
        '8,sum(Type8) as X9,sum(Type9) as X10,sum(Type10) as X11,sum(Type' +
        '11) as x12,sum(ysje) as X13,sum(ysje) as X14,sum(zkje) as X15,su' +
        'm(mlje) as X16,sum(kdje) as X17,Sum(dzje) as X18,sum(sfje) as X1' +
        '9,sum(rmbje) as X20,sum(zpje) as X21,sum(xykje) as X22 from H_SN' +
        '_Account where endtime is not null and cstr(endtime) between :aa' +
        ' and :bb'
      '')
    Left = 120
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'aa'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'bb'
        ParamType = ptUnknown
      end>
  end
  object Q_ckxf: TQuery
    DatabaseName = 'hotel'
    SQL.Strings = (
      
        'select * from h_sn_dinlist where menuname='#39#38376#31080#39' and quantity=-1 a' +
        'nd endtime between :aaaa and :bbbb')
    Left = 24
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'aaaa'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'bbbb'
        ParamType = ptUnknown
      end>
  end
end