usong.~dfm

模块名称: 一、基础信息管理 碟片管理 歌曲管理 歌星管理 人员管理 二、借阅管理 借出登记 归还登记 借阅查询 其它管理 三、系统管理 权限设置 更改密

      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 12
      Style = nbsSaveBookmark
    end
    object wwDBNavigator1RestoreBookmark: TwwNavButton
      Left = 325
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Go back to saved bookmark'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1RestoreBookmark'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 13
      Style = nbsRestoreBookmark
    end
    object wwDBNavigator1FilterDialog: TwwNavButton
      Left = 350
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Filter the dataset'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1FilterDialog'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 14
      Style = nbsFilterDialog
    end
    object wwDBNavigator1RecordViewDialog: TwwNavButton
      Left = 375
      Top = 0
      Width = 25
      Height = 25
      Hint = 'View current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1RecordViewDialog'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 15
      Style = nbsRecordViewDialog
    end
    object wwDBNavigator1LocateDialog: TwwNavButton
      Left = 400
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Locate a specific record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1LocateDialog'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 16
      Style = nbsLocateDialog
    end
    object wwDBNavigator1SearchDialog: TwwNavButton
      Left = 425
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Search the dataset'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1SearchDialog'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 17
      Style = nbsSearchDialog
    end
  end
  object wwDBEdit1: TwwDBEdit
    Left = 64
    Top = 274
    Width = 121
    Height = 21
    DataField = #27468#26354#32534#30721
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 1
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object wwDBEdit2: TwwDBEdit
    Left = 273
    Top = 273
    Width = 121
    Height = 21
    DataField = #27468#26354#21517#31216
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 2
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
    OnExit = wwDBEdit2Exit
    OnKeyDown = wwDBEdit2KeyDown
  end
  object wwDBEdit3: TwwDBEdit
    Left = 475
    Top = 270
    Width = 121
    Height = 21
    DataField = #27468#26354#23383#25968
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 3
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
    OnKeyDown = wwDBEdit3KeyDown
  end
  object wwDBLookupCombo1: TwwDBLookupCombo
    Left = 65
    Top = 304
    Width = 121
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      #25340#38899#30721#9'10'#9#25340#38899#30721#9'F'
      #27468#26143#21517#9'15'#9#27468#26143#21517#9'F')
    DataField = #27468#26143
    DataSource = DataSource1
    LookupTable = ado_Singer
    LookupField = #27468#26143#21517
    Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 4
    AutoDropDown = False
    ShowButton = True
    AllowClearKey = False
    OnCloseUp = wwDBLookupCombo1CloseUp
    OnKeyDown = wwDBLookupCombo1KeyDown
  end
  object Button1: TButton
    Left = 558
    Top = 444
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 5
    OnClick = Button1Click
  end
  object wwDBGrid1: TwwDBGrid
    Left = 24
    Top = 32
    Width = 599
    Height = 217
    Selected.Strings = (
      #27468#26354#32534#30721#9'6'#9#27468#26354#32534#30721
      #27468#26354#21517#31216#9'20'#9#27468#26354#21517#31216
      #27468#26354#23383#25968#9'4'#9#27468#26354#23383#25968
      #27468#26143#9'10'#9#27468#26143
      #35821#31181#9'8'#9#35821#31181
      #19987#36753#21517#9'15'#9#19987#36753#21517
      #25340#38899#30721#9'10'#9#25340#38899#30721
      #20116#31508#30721#9'10'#9#20116#31508#30721
      #22791#27880#9'20'#9#22791#27880)
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 6
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
  end
  object wwDBComboBox1: TwwDBComboBox
    Left = 272
    Top = 304
    Width = 121
    Height = 21
    ShowButton = True
    Style = csDropDown
    MapList = False
    AllowClearKey = False
    DataField = #35821#31181
    DataSource = DataSource1
    DropDownCount = 8
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    ItemHeight = 0
    Items.Strings = (
      #22269#35821
      #31908#35821
      #21488#35821
      #33521#35821
      #26085#35821
      #38889#35821
      #20854#20182)
    ItemIndex = 0
    Sorted = False
    TabOrder = 7
    UnboundDataType = wwDefault
    OnKeyDown = wwDBComboBox1KeyDown
  end
  object wwDBLookupCombo2: TwwDBLookupCombo
    Left = 476
    Top = 303
    Width = 121
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      #25340#38899#30721#9'8'#9#25340#38899#30721#9'F'
      #30879#29255#19987#36753#21517#9'10'#9#30879#29255#19987#36753#21517#9'F'
      #27468#26143#9'10'#9#27468#26143#9'F')
    DataField = #19987#36753#21517
    DataSource = DataSource1
    LookupTable = ado_disk
    LookupField = #30879#29255#19987#36753#21517
    Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 8
    AutoDropDown = False
    ShowButton = True
    AllowClearKey = False
    OnCloseUp = wwDBLookupCombo2CloseUp
    OnKeyDown = wwDBLookupCombo2KeyDown
  end
  object wwDBEdit4: TwwDBEdit
    Left = 64
    Top = 336
    Width = 121
    Height = 21
    DataField = #25340#38899#30721
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 9
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object wwDBEdit5: TwwDBEdit
    Left = 272
    Top = 336
    Width = 121
    Height = 21
    DataField = #20116#31508#30721
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 10
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object DBMemo1: TDBMemo
    Left = 64
    Top = 360
    Width = 529
    Height = 73
    DataField = #22791#27880
    DataSource = DataSource1
    TabOrder = 11
    OnKeyDown = DBMemo1KeyDown
  end
  object ADOTable1: TADOTable
    Connection = DM.ADO_Con
    CursorType = ctStatic
    TableName = #27468#26354#34920
    Left = 616
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 624
    Top = 80
  end
  object ado_disk: TADOQuery
    Active = True
    Connection = DM.ADO_Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select '#30879#29255#19987#36753#21517','#27468#26143','#25340#38899#30721' from '#30879#29255#34920
      'order by '#25340#38899#30721)
    Left = 616
    Top = 176
  end
  object ado_Singer: TADOQuery
    Active = True
    Connection = DM.ADO_Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#27468#26143#34920' order by '#25340#38899#30721)
    Left = 616
    Top = 216
  end
end