mainfrm.dfm

来自「好多上载非界面和非WEB源码」· DFM 代码 · 共 554 行

object mainform: Tmainform
  Left = 226
  Top = 195
  Width = 682
  Height = 482
  BorderIcons = [biMinimize, biMaximize]
  Caption = #22270#20070#39302#22270#20070#20449#24687#31649#29702#31995#32479
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter13: TSplitter
    Left = 0
    Top = 81
    Width = 674
    Height = 1
    Cursor = crVSplit
    Align = alTop
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 674
    Height = 81
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 38
        Width = 670
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 38
        Visible = False
        Width = 670
      end
      item
        Control = ToolBar3
        ImageIndex = -1
        MinHeight = 38
        Visible = False
        Width = 670
      end>
    Color = clSkyBlue
    ParentColor = False
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 657
      Height = 38
      ButtonHeight = 31
      Caption = 'ToolBar1'
      Color = clSkyBlue
      ParentColor = False
      TabOrder = 0
      object loginbtn: TBitBtn
        Left = 0
        Top = 2
        Width = 75
        Height = 31
        Cursor = crHandPoint
        Caption = #30331#24405#31995#32479
        TabOrder = 0
        OnClick = k_loginClick
      end
      object Splitter2: TSplitter
        Left = 75
        Top = 2
        Width = 5
        Height = 31
        Beveled = True
      end
      object exitbtn: TBitBtn
        Left = 80
        Top = 2
        Width = 75
        Height = 31
        Cursor = crHandPoint
        Caption = #36864#20986#31995#32479
        TabOrder = 1
        OnClick = k_exitClick
      end
    end
    object ToolBar2: TToolBar
      Left = 9
      Top = 40
      Width = 657
      Height = 38
      ButtonHeight = 31
      Caption = 'ToolBar2'
      Color = clSkyBlue
      ParentColor = False
      TabOrder = 1
      Visible = False
      object querybtn: TBitBtn
        Left = 0
        Top = 2
        Width = 75
        Height = 31
        Caption = #26597'    '#35810
        TabOrder = 0
        OnClick = k_queryClick
      end
      object Splitter3: TSplitter
        Left = 75
        Top = 2
        Width = 5
        Height = 31
        Beveled = True
      end
      object borrowbtn: TBitBtn
        Left = 80
        Top = 2
        Width = 75
        Height = 31
        Caption = #20511'    '#20070
        TabOrder = 1
        OnClick = k_borrowClick
      end
      object Splitter4: TSplitter
        Left = 155
        Top = 2
        Width = 5
        Height = 31
        Beveled = True
      end
      object returnbtn: TBitBtn
        Left = 160
        Top = 2
        Width = 75
        Height = 31
        Caption = #36824'    '#20070
        TabOrder = 2
        OnClick = k_returnClick
      end
      object Splitter5: TSplitter
        Left = 235
        Top = 2
        Width = 5
        Height = 31
        Beveled = True
      end
      object user_encfbtn: TBitBtn
        Left = 240
        Top = 2
        Width = 105
        Height = 31
        Caption = #21152#23494#29992#25143#30028#38754
        TabOrder = 3
        OnClick = k_encfClick
      end
    end
    object ToolBar3: TToolBar
      Left = 9
      Top = 80
      Width = 657
      Height = 38
      ButtonHeight = 31
      Caption = 'ToolBar3'
      TabOrder = 2
      Visible = False
      object newbtn: TBitBtn
        Left = 0
        Top = 2
        Width = 75
        Height = 31
        Caption = #26032#20070#20837#24211
        TabOrder = 0
        OnClick = k_newClick
      end
      object Splitter6: TSplitter
        Left = 75
        Top = 2
        Width = 5
        Height = 31
        Beveled = True
      end
      object arrangebtn: TBitBtn
        Left = 80
        Top = 2
        Width = 75
        Height = 31
        Caption = #25972#29702#22270#20070
        TabOrder = 1
        OnClick = k_arrangeClick
      end
      object Splitter7: TSplitter
        Left = 155
        Top = 2
        Width = 5
        Height = 31
        Beveled = True
      end
      object modifybtn: TBitBtn
        Left = 160
        Top = 2
        Width = 105
        Height = 31
        Caption = #20462#25913#22270#20070#20449#24687
        TabOrder = 2
        OnClick = k_modifyClick
      end
      object Splitter8: TSplitter
        Left = 265
        Top = 2
        Width = 5
        Height = 31
        Beveled = True
      end
      object queryuserbtn: TBitBtn
        Left = 270
        Top = 2
        Width = 83
        Height = 31
        Caption = #26597'    '#35810
        TabOrder = 3
        OnClick = k_queryuserClick
      end
      object Splitter9: TSplitter
        Left = 353
        Top = 2
        Width = 5
        Height = 31
        Beveled = True
      end
      object regbtn: TBitBtn
        Left = 358
        Top = 2
        Width = 83
        Height = 31
        Caption = #35268#21017#31649#29702
        TabOrder = 4
        OnClick = k_regClick
      end
      object Splitter10: TSplitter
        Left = 441
        Top = 2
        Width = 5
        Height = 31
        Beveled = True
      end
      object infomgrbtn: TBitBtn
        Left = 446
        Top = 2
        Width = 99
        Height = 31
        Caption = #29992#25143#20449#24687#31649#29702
        TabOrder = 5
        OnClick = k_infomgrClick
      end
      object Splitter11: TSplitter
        Left = 545
        Top = 2
        Width = 5
        Height = 31
        Beveled = True
      end
      object setpathbtn: TBitBtn
        Left = 550
        Top = 2
        Width = 115
        Height = 31
        Caption = #25968#25454#24211#36335#24452#31649#29702
        TabOrder = 6
        OnClick = k_setpathClick
      end
      object Splitter12: TSplitter
        Left = 665
        Top = 2
        Width = 5
        Height = 31
      end
      object mgr_encfbtn: TBitBtn
        Left = 670
        Top = 2
        Width = 75
        Height = 31
        Caption = #21152#23494#30028#38754
        TabOrder = 7
        OnClick = k_encfClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 417
    Width = 674
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Text = #27809#26377#29992#25143#30331#24405#65281
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 82
    Width = 674
    Height = 335
    Align = alClient
    TabOrder = 2
    Visible = False
    object Splitter1: TSplitter
      Left = 1
      Top = 41
      Width = 1
      Height = 293
    end
    object Panel3: TPanel
      Left = 792
      Top = 41
      Width = 9
      Height = 344
      Align = alCustom
      BevelOuter = bvLowered
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 672
      Height = 40
      Align = alTop
      BorderStyle = bsSingle
      Color = clSkyBlue
      TabOrder = 1
      object Label1: TLabel
        Left = 24
        Top = 12
        Width = 42
        Height = 13
        Caption = #29992'  '#25143#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 184
        Top = 12
        Width = 63
        Height = 13
        Caption = #20320#22909#65281'         '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 72
        Top = 8
        Width = 97
        Height = 21
        BevelInner = bvLowered
        BevelOuter = bvNone
        Enabled = False
        TabOrder = 0
      end
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 41
      Width = 671
      Height = 293
      Align = alClient
      Color = clSkyBlue
      DataSource = DataSource1
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object MainMenu1: TMainMenu
    Left = 128
    Top = 248
    object N1: TMenuItem
      Caption = #25805#20316
      object k_login: TMenuItem
        Caption = #30331#24405
        ShortCut = 16460
        OnClick = k_loginClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object k_encf: TMenuItem
        Caption = #21152#23494#30028#38754
        ShortCut = 16453
        Visible = False
        OnClick = k_encfClick
      end
      object N5: TMenuItem
        Caption = '-'
        Visible = False
      end
      object k_exit: TMenuItem
        Caption = #36864#20986#31995#32479
        OnClick = k_exitClick
      end
    end
    object N2: TMenuItem
      Caption = #22270#20070#31649#29702
      Visible = False
      object k_new: TMenuItem
        Caption = #26032#22270#20070#20837#24211
        ShortCut = 16462
        OnClick = k_newClick
      end
      object k_arrange: TMenuItem
        Caption = #25972#29702#22270#20070#20837#24211
        ShortCut = 16454
        OnClick = k_arrangeClick
      end
      object k_modify: TMenuItem
        Caption = #20462#25913#22270#20070#20449#24687
        ShortCut = 16469
        OnClick = k_modifyClick
      end
      object k_queryuser: TMenuItem
        Caption = #26597#35810
        ShortCut = 49233
        OnClick = k_queryuserClick
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object k_reg: TMenuItem
        Caption = #35268#21017#31649#29702
        OnClick = k_regClick
      end
      object k_infomgr: TMenuItem
        Caption = #29992#25143#20449#24687#31649#29702
        OnClick = k_infomgrClick
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object k_setpath: TMenuItem
        Caption = #25968#25454#36335#24452#35774#32622
        OnClick = k_setpathClick
      end
    end
    object N3: TMenuItem
      Caption = #22270#20070#20449#24687#26381#21153
      Visible = False
      object k_query: TMenuItem
        Caption = #26597#35810#22270#20070#20449#24687
        ShortCut = 16465
        OnClick = k_queryClick
      end
      object k_borrow: TMenuItem
        Caption = #20511#20070
        ShortCut = 16450
        OnClick = k_borrowClick
      end
      object k_return: TMenuItem
        Caption = #36824#20070
        ShortCut = 16466
        OnClick = k_returnClick
      end
    end
    object N4: TMenuItem
      Caption = #24110#21161
      object k_about: TMenuItem
        Caption = #20851#20110
        OnClick = k_aboutClick
      end
    end
  end
  object Query1: TQuery
    OnCalcFields = Query1CalcFields
    Left = 32
    Top = 249
    object B_no: TStringField
      DisplayWidth = 8
      FieldName = #22270#20070#32534#21495
      Size = 0
    end
    object B_name: TStringField
      DisplayWidth = 30
      FieldName = #20070#21517
      Size = 40
    end
    object B_author: TStringField
      DisplayWidth = 20
      FieldName = #20316#32773
      Size = 40
    end
    object B_publisher: TStringField
      FieldName = #20986#29256#31038
      Size = 30
    end
    object B_type: TStringField
      DisplayWidth = 10
      FieldName = #31867#21035
    end
    object B_date: TDateField
      FieldName = #20511#20986#26102#38388
    end
    object Return_time: TDateField
      FieldKind = fkCalculated
      FieldName = #24212#36824#20070#26102#38388
      Calculated = True
    end
    object Ex_time: TIntegerField
      FieldKind = fkCalculated
      FieldName = #36229#26102
      Calculated = True
    end
    object fj: TFloatField
      FieldKind = fkCalculated
      FieldName = #32602#37329
      Calculated = True
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 80
    Top = 249
  end
  object ImageList1: TImageList
    Left = 184
    Top = 249
  end
  object ImageList2: TImageList
    Left = 232
    Top = 249
  end
  object ImageList3: TImageList
    Left = 280
    Top = 249
  end
end