unitphb.dfm

这是一个用DELPHI编写的信息系统,为KTV管理信息系统,对很多学习信息的同学有很大帮助

      236C4BD78ECF85A8B1F031C266BBBB3A82B20DC36DB76E578D3DFD4D5173634A
      861E47265643F112C4BE0B2FDF26926CA85E08A55568627663E49EC58E596E6E
      3B3B34C2363C258D86A5A8BFD242DD6EB1A5C595B27173220F0CCE5431B7A4BE
      42977856EECE4D55D48A1A6E04751EAD16200AF5A28A0FEA1A9A49A3E3671589
      6101503F4A555AEF2B4F8E51087656BCA82E2DAED493B911AEDEBA018B3C517A
      01A955B8FF00DB7EA48F0329A7CCCB0D16623C238B8BBE330C92798925FAC6C8
      C4C9759A173288C02162901D8E952C8CCEBEEE8FD45A62D98EC4C85802CCCD5B
      A45DB66887BDB38C94B7D0A88BFDF791BFD3D2459F96311BE9F1AA6198900790
      56D686465B39245FCBFEFE9E58E6487824A7092395D5CB24DC29D524B57E2DFA
      B716698C524A445844584060BE6722792B2CAFB3B7B350CBF546796690F1056D
      B670F94D0583E2F83CCD34989951BA6308E348D8324B216EB2BAA1FD26EFB9B4
      F8FF0050BD228644E531D18D84DCDBAE6B5F8FB2DD483E90991242197E4E05E9
      2BD48BA19194DEBB3937C57EB25DA25E494C98ED81217BA2068526B859C9C7FE
      278F53C79089940A08E059998F1B1A79D02AB772AAF8B66A225183CA2F058820
      A76EDB377C40FA06BE8F469A4958BBB9B9D98D4927D6DF6506ABE9FBF4B92508
      C7958A2BF84BA6E64FDCBB50CD95118E3CA52D0BD410EAA686D652DA59166639
      4CE43C36D15500DB272D77333782DD0F9A0FC04EF115037EE5FB74DCF4B51485
      20F52C7E19F7F49138090921A66B82B2A26E94C5C8CBE65BDA9E3D64A7D36679
      30AA4C12CC28CC29F99A38883CB95B949750FC9247F06EBD5B647ECEA05C5853
      1E5C6904CF2DB7169C56E913917C95DDFF00AE9E56A6C886615A3644B248CB13
      1A6F964B3B2FBBB225EFD49878B214C1964122FCC14146B5ADE79E81565B2FD4
      0608B8D31252133230448BC82BC2F9096AFB4E9F99A91F29DF1209AAC99728E7
      150BCB1C3CB07FB891BE27B1A1194009375D4A354F87D3D9A4002CA5A3329589
      8395515BB96DF86CB4DCBA91A2466112DEE47A157A2966FDE6FB24E4844D7A15
      4B891631F44AB6F732FBDA4C9C67E39A3EA8E00342453C5ACA8626554CE8F8E7
      AA2B92B5BA8977C3DDE24D509F47AB4F33CD20C959562C48D97C96E9C935D932
      32C513A2EEE3D2A136DC69502BFD9D349F578A5C59E695A484E148BC8C8A45BC
      EF130B377E56B233E1819F171687225036A5C68BA8DF11C4B3CB1B2CC648C796
      49A71C57DCADB77F3AF989A49E70FF002F2496B3AD092450C96D7C76B6B1A3FA
      549F3672EA9163F5132356DB670BE5DD2782C6D4384F0A44D8CCFC9292D562E4
      29E55BADF27FC35D1299516444253107426E200079844E15F8BF16A05C79795D
      C334C45C29D691AB46C2D56B3D879358CD2BAB41989CE91C6F7D0036DD2A21F2
      A4FC5A861C3C9C631644B2C717D37258158EE4F3329965011766D49FE2726863
      48EF2240CCAAE3A0B49DDC48DED36A37C48F8F202C8934AD470EB20B4058A452
      B1D89AE9E83F76AA0FA7A6B1A260817163E3428810915BBCD65F8ADFE23FD94F
      EDD2B38BD410596B4A8F5ADDA64854A44EE5A382E2CA2BFB5BB9ADF1EB682050
      56BD7AFAF51FD30E342A125329C90B498D45BC6D27E9EA4C78E574824EB24618
      85603DA5ED6D1636AF4F428B47414ED5D178E358528291A9247414F196EFD2C9
      84EA632A8E04658846237C7E76F6646EED23F287692ACE801161AF6B545BBBBB
      668C61D5C034BD4D54FF0041D2C9342B9118E8D13122A3DD65DCAEBE1D4FF24B
      F290E4A08A58518B0641434767AB35ECB7BE867C98F23613968965EAA85E9DA2
      4F73420C81CB2456A4329624A46B7792817658D768D4D3EE1F7E9DA045557564
      0B2524A06143B9C77FB2FF00608D5950904DCE42AF4177737FC38567CA7255AF
      E0E5F99F4FFBDE5FE1FF00C9F97D2538ABD7E3D38FD07BEEFF009BFECEB4A7ED
      AD3FB347D1FF003F76A3B3E5A9C51D7E52FE3ADBD7939B77CC7EBF8393ECC7E3
      E0F82B77CBDFE9EB5F98E6FF0073FABC5E4FD9352965F1DDDB5AEEB6DBBCEFF4
      F67EA68F272DDC8DC7F337FCBD6BD7F9670F97F3BFAFF35E5F1F67D82B4A57AD
      6B4FEBB77E8D294EB4FBBFAAEFB7FFD9}
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 673
    Height = 97
    Caption = #27468#26354#25490#34892#27036
    Color = clInfoBk
    ParentColor = False
    TabOrder = 0
    object Button1: TButton
      Left = 16
      Top = 24
      Width = 137
      Height = 65
      Cursor = crHandPoint
      Caption = 'TOP10'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -32
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 600
      Top = 48
      Width = 65
      Height = 41
      Cursor = crHandPoint
      Caption = #36864#20986
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #24188#22278
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
    object PageControl1: TPageControl
      Left = 202
      Top = 17
      Width = 289
      Height = 73
      ActivePage = TabSheet1
      TabIndex = 0
      TabOrder = 2
      object TabSheet1: TTabSheet
        Caption = #25353#27468#26354#21517#31216
        object Edit1: TEdit
          Left = 20
          Top = 14
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object Button3: TButton
          Left = 176
          Top = 12
          Width = 75
          Height = 25
          Caption = #30830#23450
          TabOrder = 1
          OnClick = Button3Click
        end
      end
      object TabSheet2: TTabSheet
        Caption = #25353#27468#25163#22995#21517
        ImageIndex = 1
        object Edit2: TEdit
          Left = 16
          Top = 15
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object Button4: TButton
          Left = 176
          Top = 14
          Width = 75
          Height = 25
          Caption = #30830#23450
          TabOrder = 1
          OnClick = Button4Click
        end
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 160
    Width = 281
    Height = 257
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 424
    Width = 670
    Height = 25
    TabOrder = 2
  end
  object DBGrid2: TDBGrid
    Left = 309
    Top = 160
    Width = 361
    Height = 257
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 176
    Top = 120
  end
  object Query1: TQuery
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select *'
      'from db2'
      'where number<11')
    Left = 232
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 512
    Top = 24
  end
  object Query2: TQuery
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select *'
      'from db2'
      'where '#27468#26354#21517#31216'=:cname')
    Left = 552
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'cname'
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select *'
      'from db2'
      'where '#27468#25163#21517#23383'=:gname')
    Left = 552
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'gname'
        ParamType = ptUnknown
      end>
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 512
    Top = 64
  end
end