udisk.dfm

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

      Top = 0
      Width = 25
      Height = 25
      Hint = 'Bookmark current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1SaveBookmark'
      Enabled = False
      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 = 67
    Top = 312
    Width = 121
    Height = 21
    DataField = #30879#29255#32534#30721
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 2
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object wwDBEdit2: TwwDBEdit
    Left = 273
    Top = 312
    Width = 121
    Height = 21
    DataField = #30879#29255#19987#36753#21517
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 3
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
    OnExit = wwDBEdit2Exit
    OnKeyDown = wwDBEdit2KeyDown
  end
  object wwDBComboBox1: TwwDBComboBox
    Left = 473
    Top = 312
    Width = 121
    Height = 21
    ShowButton = True
    Style = csDropDown
    MapList = False
    AllowClearKey = False
    DataField = #30879#29255#31867#22411
    DataSource = DataSource1
    DropDownCount = 8
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    ItemHeight = 0
    Items.Strings = (
      'CD'
      'VCD'
      'DVD')
    ItemIndex = 1
    Sorted = False
    TabOrder = 4
    UnboundDataType = wwDefault
    OnKeyDown = wwDBComboBox1KeyDown
  end
  object wwDBEdit3: TwwDBEdit
    Left = 67
    Top = 348
    Width = 121
    Height = 21
    DataField = #30879#29255#20215#26684
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 5
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
    OnKeyDown = wwDBEdit3KeyDown
  end
  object wwDBLookupCombo1: TwwDBLookupCombo
    Left = 473
    Top = 344
    Width = 121
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      #25340#38899#30721#9'10'#9#25340#38899#30721#9'F'
      #27468#26143#21517#9'10'#9#27468#26143#21517#9'F')
    DataField = #27468#26143
    DataSource = DataSource1
    LookupTable = ADOQuery1
    LookupField = #27468#26143#21517
    Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 6
    AutoDropDown = False
    ShowButton = True
    AllowClearKey = False
    OnCloseUp = wwDBLookupCombo1CloseUp
    OnKeyDown = wwDBLookupCombo1KeyDown
  end
  object wwDBComboBox2: TwwDBComboBox
    Left = 67
    Top = 376
    Width = 121
    Height = 21
    ShowButton = True
    Style = csDropDown
    MapList = False
    AllowClearKey = False
    DataField = #30879#29255#29366#24577
    DataSource = DataSource1
    DropDownCount = 8
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    ItemHeight = 0
    Items.Strings = (
      #22312#23478
      #20511#20986
      #20511#20986#20002#22833
      #20511#20986#25439#22351
      #20002#22833
      #25439#22351)
    ItemIndex = 0
    Sorted = False
    TabOrder = 7
    UnboundDataType = wwDefault
    OnKeyDown = wwDBComboBox2KeyDown
  end
  object wwDBEdit4: TwwDBEdit
    Left = 273
    Top = 376
    Width = 121
    Height = 21
    DataField = #25340#38899#30721
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 8
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object wwDBEdit5: TwwDBEdit
    Left = 473
    Top = 376
    Width = 121
    Height = 21
    DataField = #20116#31508#30721
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 9
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object Button1: TButton
    Left = 566
    Top = 457
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 10
    OnClick = Button1Click
  end
  object DBMemo1: TDBMemo
    Left = 65
    Top = 404
    Width = 529
    Height = 41
    DataField = #22791#27880
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    TabOrder = 11
    OnKeyDown = DBMemo1KeyDown
  end
  object wwDBGrid1: TwwDBGrid
    Left = 16
    Top = 24
    Width = 577
    Height = 273
    Selected.Strings = (
      #30879#29255#32534#30721#9'8'#9#30879#29255#32534#30721
      #30879#29255#19987#36753#21517#9'15'#9#30879#29255#19987#36753#21517
      #30879#29255#31867#22411#9'8'#9#30879#29255#31867#22411
      #30879#29255#20215#26684#9'10'#9#30879#29255#20215#26684
      #36141#20080#26102#38388#9'18'#9#36141#20080#26102#38388
      #27468#26143#9'10'#9#27468#26143
      #30879#29255#29366#24577#9'10'#9#30879#29255#29366#24577
      #25340#38899#30721#9'10'#9#25340#38899#30721
      #20116#31508#30721#9'10'#9#20116#31508#30721
      #22791#27880#9'10'#9#22791#27880)
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = DataSource1
    TabOrder = 12
    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 DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 616
    Top = 112
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADO_Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#27468#26143#34920' order by '#25340#38899#30721)
    Left = 616
    Top = 152
  end
  object ADOTable1: TADOTable
    Connection = DM.ADO_Con
    CursorType = ctStatic
    TableName = #30879#29255#34920
    Left = 616
    Top = 64
  end
  object qry: TADOQuery
    Connection = DM.ADO_Con
    Parameters = <
      item
        Name = 'P_name'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from '
      #27468#26143#34920' where '#27468#26143#21517'=:P_name')
    Left = 616
    Top = 200
  end
end