uborrow.dfm

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

object frmBorrow: TfrmBorrow
  Left = 54
  Top = 131
  Width = 705
  Height = 450
  Caption = #20511#20986#30331#35760
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 401
    Height = 353
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object Btn_Right: TSpeedButton
      Left = 369
      Top = 63
      Width = 32
      Height = 31
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFF333333333333000333333333
        3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
        3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
        0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
        BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
        33337777773FF733333333333300033333333333337773333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = Btn_RightClick
    end
    object Btn_Left: TSpeedButton
      Left = 369
      Top = 133
      Width = 32
      Height = 31
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333333333333333333333333333333333FF333333333333
        3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
        E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
        E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
        E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
        000033333373FF77777733333330003333333333333777333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = Btn_LeftClick
    end
    object Btn_AllLeft: TSpeedButton
      Left = 369
      Top = 168
      Width = 32
      Height = 31
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        300033FFFFFF3333377739999993333333333777777F3333333F399999933333
        3300377777733333337733333333333333003333333333333377333333333333
        3333333333333333333F333333333333330033333F33333333773333C3333333
        330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
        333333377F33333333FF3333C333333330003333733333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = Btn_AllLeftClick
    end
    object Label5: TLabel
      Left = 24
      Top = 4
      Width = 75
      Height = 13
      Caption = #29616#26377'CD'#21015#34920#65306
    end
    object wwDBGrid1: TwwDBGrid
      Left = 9
      Top = 25
      Width = 352
      Height = 288
      Selected.Strings = (
        #30879#29255#32534#30721#9'6'#9#30879#29255#32534#30721
        #30879#29255#19987#36753#21517#9'10'#9#30879#29255#19987#36753#21517
        #30879#29255#31867#22411#9'4'#9#30879#29255#31867#22411
        #30879#29255#20215#26684#9'5'#9#30879#29255#20215#26684
        #36141#20080#26102#38388#9'10'#9#36141#20080#26102#38388
        #27468#26143#9'8'#9#27468#26143
        #30879#29255#29366#24577#9'8'#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'20'#9#22791#27880)
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      DataSource = DSDisk
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      OnDblClick = wwDBGrid1DblClick
    end
    object wwDBNavigator1: TwwDBNavigator
      Left = 113
      Top = 323
      Width = 200
      Height = 25
      DataSource = DSDisk
      RepeatInterval.InitialDelay = 500
      RepeatInterval.Interval = 100
      object wwDBNavigator1First: TwwNavButton
        Left = 0
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Move to first record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1First'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 0
        Style = nbsFirst
      end
      object wwDBNavigator1Prior: TwwNavButton
        Left = 25
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Move to prior record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Prior'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 1
        Style = nbsPrior
      end
      object wwDBNavigator1Next: TwwNavButton
        Left = 50
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Move to next record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Next'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 2
        Style = nbsNext
      end
      object wwDBNavigator1Last: TwwNavButton
        Left = 75
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Move to last record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Last'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 3
        Style = nbsLast
      end
      object wwDBNavigator1FilterDialog: TwwNavButton
        Left = 100
        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 = 4
        Style = nbsFilterDialog
      end
      object wwDBNavigator1RecordViewDialog: TwwNavButton
        Left = 125
        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 = 5
        Style = nbsRecordViewDialog
      end
      object wwDBNavigator1LocateDialog: TwwNavButton
        Left = 150
        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 = 6
        Style = nbsLocateDialog
      end
      object wwDBNavigator1SearchDialog: TwwNavButton
        Left = 175
        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 = 7
        Style = nbsSearchDialog
      end
    end
  end
  object Panel2: TPanel
    Left = 401
    Top = 0
    Width = 296
    Height = 353
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 13
      Top = 253
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #20511' '#38405' '#20154#65306
    end
    object Label2: TLabel
      Left = 13
      Top = 283
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #20511#38405#26102#38388#65306
    end
    object Label3: TLabel
      Left = 24
      Top = 4
      Width = 60
      Height = 13
      Caption = #20511#38405#21015#34920#65306
    end
    object Label4: TLabel
      Left = 14
      Top = 311
      Width = 36
      Height = 13
      Caption = #22791#27880#65306
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 73
      Top = 248
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        #25340#38899#30721#9'6'#9#25340#38899#30721#9'F'
        #20511#38405#20154#22995#21517#9'15'#9#20511#38405#20154#22995#21517#9'F')
      LookupTable = ADO_Staff
      LookupField = #20511#38405#20154#22995#21517
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight]
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
      OnCloseUp = wwDBLookupCombo1CloseUp
      OnKeyDown = wwDBLookupCombo1KeyDown
    end
    object DateTimePicker1: TDateTimePicker
      Left = 73
      Top = 278
      Width = 121
      Height = 21
      CalAlignment = dtaLeft
      Date = 38028.0624574421
      Time = 38028.0624574421
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object wwDBGrid2: TwwDBGrid
      Left = 16
      Top = 23
      Width = 239
      Height = 210
      Selected.Strings = (
        #19987#36753#21517#9'14'#9#19987#36753#21517
        #27468#26143#9'10'#9#27468#26143)
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      DataSource = DS_Borrow
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      TabOrder = 2
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      OnDblClick = wwDBGrid2DblClick
    end
    object Memo1: TMemo
      Left = 74
      Top = 308
      Width = 179
      Height = 37
      TabOrder = 3
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 353
    Width = 697
    Height = 70
    Align = alBottom
    TabOrder = 2
    object Button1: TButton
      Left = 592
      Top = 24
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 184
      Top = 24
      Width = 75
      Height = 25
      Caption = #28155#21152
      TabOrder = 1
      Visible = False
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 280
      Top = 24
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 2
      Visible = False
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 376
      Top = 24
      Width = 75
      Height = 25
      Caption = #25918#24323
      TabOrder = 3
      Visible = False
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 480
      Top = 24
      Width = 75
      Height = 25
      Caption = #20511#20986
      TabOrder = 4
      OnClick = Button5Click
    end
  end
  object ADO_Disk: TADOQuery
    Connection = DM.ADO_Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#30879#29255#34920' where '#30879#29255#29366#24577'='#39#22312#23478#39)
    Left = 336
    Top = 248
  end
  object DSDisk: TDataSource
    DataSet = ADO_Disk
    Left = 368
    Top = 256
  end
  object ADO_Borrow: TADOQuery
    Connection = DM.ADO_Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select Temp,Temp1 As '#19987#36753#21517',Temp2 As '#27468#26143
      'from Temp')
    Left = 288
    Top = 224
  end
  object DS_Borrow: TDataSource
    DataSet = ADO_Borrow
    Left = 256
    Top = 232
  end
  object ADO_Staff: TADOQuery
    Connection = DM.ADO_Con
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select '#25340#38899#30721','#20511#38405#20154#22995#21517' from '#20511#38405#20154#34920' '
      'order by '#25340#38899#30721)
    Left = 640
    Top = 16
  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 '
      #20511#38405#20154#34920' where '#20511#38405#20154#22995#21517'=:P_name')
    Left = 640
    Top = 48
  end
end