youhuiquanunit.dfm

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

object youhuiquanForm: TyouhuiquanForm
  Left = 185
  Top = 180
  Width = 762
  Height = 500
  ActiveControl = DBEdit3
  Caption = #20248#24800#21048
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 754
    Height = 473
    ActivePage = TabSheet2
    Align = alClient
    TabIndex = 1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #26597#35810#20248#24800#21048#20449#24687
      object Label1: TLabel
        Left = 24
        Top = 392
        Width = 84
        Height = 13
        Alignment = taCenter
        Caption = #35831#36755#20837#20248#24800#21048#21495
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 745
        Height = 385
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DBNavigator1: TDBNavigator
        Left = 242
        Top = 416
        Width = 370
        Height = 25
        TabOrder = 1
      end
      object Button1: TButton
        Left = 622
        Top = 411
        Width = 97
        Height = 25
        Caption = #36864#20986
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = Button2Click
      end
      object MaskEdit: TMaskEdit
        Left = 14
        Top = 408
        Width = 124
        Height = 21
        TabOrder = 3
      end
      object Button4: TButton
        Left = 160
        Top = 407
        Width = 67
        Height = 25
        Caption = #30830#23450
        TabOrder = 4
        OnClick = Button4Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20462#25913#20248#24800#21048#20449#24687
      ImageIndex = 1
      object Label4: TLabel
        Left = 16
        Top = 29
        Width = 80
        Height = 20
        AutoSize = False
        BiDiMode = bdLeftToRight
        Caption = #20248#24800#21048#21495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentBiDiMode = False
        ParentFont = False
      end
      object Label5: TLabel
        Left = 16
        Top = 105
        Width = 80
        Height = 20
        AutoSize = False
        Caption = #21457#21345#26085#26399#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 16
        Top = 66
        Width = 80
        Height = 20
        AutoSize = False
        Caption = #31867#22411#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 16
        Top = 145
        Width = 80
        Height = 20
        AutoSize = False
        Caption = #25130#27490#26085#26399#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 16
        Top = 186
        Width = 80
        Height = 20
        AutoSize = False
        Caption = #20248#24800#20449#24687#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object DBEdit3: TDBEdit
        Left = 91
        Top = 26
        Width = 201
        Height = 24
        DataField = #20248#24800#21048#21495
        DataSource = DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object DBComboBox1: TDBComboBox
        Left = 91
        Top = 63
        Width = 113
        Height = 24
        DataField = #31867#22411
        DataSource = DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          #25171#25240
          #20813#36153
          #36192#21697)
        ParentFont = False
        TabOrder = 1
      end
      object DBEdit4: TDBEdit
        Left = 91
        Top = 100
        Width = 97
        Height = 24
        DataField = #21457#34892#26085#26399
        DataSource = DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object DBEdit5: TDBEdit
        Left = 91
        Top = 140
        Width = 97
        Height = 24
        DataField = #25130#27490#26085#26399
        DataSource = DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object DBMemo2: TDBMemo
        Left = 16
        Top = 224
        Width = 313
        Height = 121
        DataField = #20248#24800#21048#20449#24687
        DataSource = DataSource2
        TabOrder = 4
      end
      object Button2: TButton
        Left = 416
        Top = 280
        Width = 81
        Height = 25
        Caption = #21462#28040
        TabOrder = 5
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 416
        Top = 240
        Width = 81
        Height = 25
        Caption = #25552#20132
        TabOrder = 6
        OnClick = Button3Click
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 312
    Top = 8
  end
  object Query1: TQuery
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select *'
      'from '#20248#24800#21048
      'where '
      #20248#24800#21048#21495'=:cnumber')
    Left = 272
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'cnumber'
        ParamType = ptUnknown
      end>
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'mydb'
    TableName = #20248#24800#21048
    Left = 352
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 384
    Top = 8
  end
end