untmgdept.dfm

资料室图书借阅管理系统

object frmmgdept: Tfrmmgdept
  Left = 0
  Top = 0
  Width = 800
  Height = 600
  HorzScrollBar.Color = clCream
  HorzScrollBar.ParentColor = False
  ConnectionMode = cmAny
  SupportedBrowsers = [brIE, brNetscape7, brOpera, brNetscape6]
  OnCreate = IWAppFormCreate
  BGColor = clWebALICEBLUE
  BrowserSecurityCheck = True
  Background.Fixed = False
  HandleTabs = False
  LockUntilLoaded = True
  LockOnSubmit = True
  UpdateMode = umAll
  DesignLeft = 164
  DesignTop = 101
  object IWLabel1: TIWLabel
    Left = 35
    Top = 56
    Width = 136
    Height = 24
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clWebBLUE
    Font.Enabled = True
    Font.Size = 14
    Font.Style = [fsBold]
    NoWrap = False
    FriendlyName = 'IWLabel1'
    Caption = ' '#37096' '#38376' '#31649' '#29702
    RawText = False
  end
  object IWHRule1: TIWHRule
    Left = 26
    Top = 104
    Width = 749
    Height = 9
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    FriendlyName = 'IWHRule1'
  end
  object IWLabel2: TIWLabel
    Left = 44
    Top = 377
    Width = 73
    Height = 16
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    FriendlyName = 'IWLabel2'
    Caption = ' '#37096#38376#21517#31216
    RawText = False
  end
  object IWDBGrid1: TIWDBGrid
    Left = 40
    Top = 144
    Width = 729
    Height = 177
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 1
    BorderStyle = tfDefault
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlAll
    OnRenderCell = IWDBGrid1RenderCell
    UseFrame = True
    UseSize = True
    Columns = <
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'DepartName'
        LinkField = 'DepartName'
        RawText = False
        OnClick = IWDBGrid1Columns0Click
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #37096#38376#21517#31216
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'memo'
        RawText = False
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #22791#27880
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end>
    DataSource = DataSource1
    FooterRowCount = 1
    FriendlyName = 'IWDBGrid1'
    FromStart = False
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 15
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clWebLIGHTBLUE
    RowAlternateColor = clWebLAVENDER
    RowCurrentColor = clWebYELLOW
    TabOrder = 3
  end
  object IWLabel3: TIWLabel
    Left = 344
    Top = 377
    Width = 38
    Height = 16
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    FriendlyName = 'IWLabel3'
    Caption = ' '#22791#27880
    RawText = False
  end
  object IWButton1: TIWButton
    Left = 48
    Top = 440
    Width = 60
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    ButtonType = btButton
    Caption = #28155' '#21152
    Color = clWebSTEELBLUE
    DoSubmitValidation = True
    Font.Color = clCream
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWButton1'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = IWButton1Click
  end
  object IWButton2: TIWButton
    Left = 692
    Top = 440
    Width = 60
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    ButtonType = btButton
    Caption = ' '#21024'  '#38500
    Color = clWebSTEELBLUE
    Confirmation = #24744#30830#23454#35201#21024#38500#36825#26465#35760#24405#21527'?'
    DoSubmitValidation = True
    Font.Color = clCream
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWButton2'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = IWButton2Click
  end
  object IWButton3: TIWButton
    Left = 131
    Top = 440
    Width = 60
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    ButtonType = btButton
    Caption = #30830' '#23450
    Color = clWebSTEELBLUE
    DoSubmitValidation = True
    Font.Color = clCream
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWButton3'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = IWButton3Click
  end
  object IWButton4: TIWButton
    Left = 195
    Top = 440
    Width = 60
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    ButtonType = btButton
    Caption = #21462' '#28040
    Color = clWebSTEELBLUE
    DoSubmitValidation = True
    Font.Color = clCream
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWButton4'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = IWButton4Click
  end
  object IWButton5: TIWButton
    Left = 288
    Top = 442
    Width = 60
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    ButtonType = btButton
    Caption = #19978#19968#26465
    Color = clWebSTEELBLUE
    DoSubmitValidation = True
    Font.Color = clCream
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWButton5'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = IWButton5Click
  end
  object IWButton6: TIWButton
    Left = 350
    Top = 442
    Width = 60
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    ButtonType = btButton
    Caption = #19979#19968#26465
    Color = clWebSTEELBLUE
    DoSubmitValidation = True
    Font.Color = clCream
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWButton6'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = IWButton6Click
  end
  object IWEdit1: TIWEdit
    Left = 120
    Top = 374
    Width = 153
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 0
    PasswordPrompt = False
    Text = ' '
  end
  object IWEdit2: TIWEdit
    Left = 419
    Top = 376
    Width = 234
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit2'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 1
    PasswordPrompt = False
    Text = ' '
  end
  object btnfirst: TIWButton
    Left = 433
    Top = 443
    Width = 60
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    ButtonType = btButton
    Caption = #31532#19968#39029
    Color = clWebSTEELBLUE
    DoSubmitValidation = True
    Font.Color = clCream
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'btnfirst'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = btnfirstClick
  end
  object btnlast: TIWButton
    Left = 616
    Top = 443
    Width = 60
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    ButtonType = btButton
    Caption = #26368#23614#39029
    Color = clWebSTEELBLUE
    DoSubmitValidation = True
    Font.Color = clCream
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'btnlast'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = btnlastClick
  end
  object btnprior: TIWButton
    Left = 494
    Top = 443
    Width = 60
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    ButtonType = btButton
    Caption = #19978#19968#39029
    Color = clWebSTEELBLUE
    DoSubmitValidation = True
    Font.Color = clCream
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWButton7'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = btnpriorClick
  end
  object btnnext: TIWButton
    Left = 554
    Top = 443
    Width = 60
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    ButtonType = btButton
    Caption = #19979#19968#39029
    Color = clWebSTEELBLUE
    DoSubmitValidation = True
    Font.Color = clCream
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWButton8'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = btnnextClick
  end
  inline IWFrame11: TIWFrame1
    Left = 0
    Top = 0
    Width = 800
    Height = 33
    Align = alTop
    TabOrder = 0
    inherited IWMenu1: TIWMenu
      Width = 800
    end
    inherited MainMenu1: TMainMenu
      Left = 488
      Top = 0
    end
  end
  object ADOQuery1: TADOQuery
    CursorType = ctStatic
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT department.*'
      'FROM department')
    Left = 352
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 392
    Top = 40
  end
end