visit.dfm

一个用Delphi做的不错的学生宿舍管理系统！界面比前一个好看！

object VisitForm: TVisitForm
  Left = 215
  Top = 143
  Width = 558
  Height = 380
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #26469#35775#30331#35760
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000000000000000008FFF00000000000000000000000000088
    7777000000000000000000000000008800770F00000000000000000000000880
    88F70FFF0000000000000000000008808880FFFFF00000000000000000000888
    000FFF8FFFF0000000000000000007888800F8088FFF00000000000000000078
    888800F0088F8800000000000000000077700FFFF00888880000000000000000
    000FFFFFFFF088800000000000000000000000FFF8880008BBBBBB8800000000
    000000000800BBBBBBBBBBBBB80000000000000000BBBBBBBBBBBBBBBBB00000
    00000000BBBBBBBBB0000BBBBBB00000000000BB87000000000BB0BBBB800000
    000000008B8BBBBBBBBBB00BB80000000000BBBBBBBBBBBBBBBBBBB000000000
    00BBBBBB0000000000BBB0BB0F000000BBBBB0008888888870BB0B0B0FF0000B
    BBB00888BBBBBBB070BB0BB00FF0000BB0088BBBBBBBBBB070BB0B700000000B
    088BBBBBBBBBBB070BB0BB00000000008BBBBBBBBBBBBB070BB0BB0000000000
    0BBBBBBBBBBBB070BB0BB7000000000008BBBBBBBBBBB070BB0BB00000000000
    008BBBBBBBBB070BB0BB0000000000000000BBBBBBB070BB0BB0000000000000
    0000088888070BB0B0000000000000000000000000BBBB000000000000000000
    00000000BBBB000000000000000000000000000000000000000000000000E07F
    FFFFC01FFFFF8007FFFF8003FFFF0000FFFF00007FFF00001FFF000007FF8000
    03FFC0000007F0000001FC000000FFC00000FFE00000FFC00000FF800000FE00
    0001F8000000F0000000E0000000C0000000C0000009C000000FC000000FF000
    001FF000003FF800007FFC0000FFFF0001FFFF8007FFFFC03FFFFFF0FFFF}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 550
    Height = 353
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 88
      Width = 84
      Height = 13
      Caption = #26469#35775#20154#22995#21517#65306
    end
    object Label2: TLabel
      Left = 288
      Top = 40
      Width = 70
      Height = 13
      Caption = #25152#23646#20851#31995#65306
    end
    object Label3: TLabel
      Left = 16
      Top = 48
      Width = 84
      Height = 13
      Caption = #35201#35775#20154#22995#21517#65306
    end
    object Label4: TLabel
      Left = 288
      Top = 96
      Width = 71
      Height = 13
      Caption = #20540'  '#29677'   '#20154#65306
    end
    object Label5: TLabel
      Left = 16
      Top = 128
      Width = 79
      Height = 13
      Caption = #26469' '#35775' '#26102' '#38388#65306
    end
    object Label6: TLabel
      Left = 288
      Top = 160
      Width = 70
      Height = 13
      Caption = #35777#20214#21517#31216#65306
    end
    object Label7: TLabel
      Left = 16
      Top = 176
      Width = 79
      Height = 13
      Caption = #32467' '#26463' '#26102' '#38388#65306
    end
    object Label8: TLabel
      Left = 16
      Top = 224
      Width = 42
      Height = 13
      Caption = #22791#27880#65306
    end
    object Bevel1: TBevel
      Left = 280
      Top = 32
      Width = 9
      Height = 329
      Shape = bsLeftLine
    end
    object Bevel2: TBevel
      Left = 288
      Top = 232
      Width = 257
      Height = 18
      Shape = bsBottomLine
    end
    object SpeedButton1: TSpeedButton
      Left = 240
      Top = 40
      Width = 33
      Height = 22
      Caption = '.......'
      OnClick = SpeedButton1Click
    end
    object Label9: TLabel
      Left = 32
      Top = 16
      Width = 264
      Height = 13
      Caption = #35831#26597#35810#30830#23450#27492#29983#65292#22312#26657#23601#35835'                                '
    end
    object Memo1: TMemo
      Left = 16
      Top = 240
      Width = 233
      Height = 105
      TabOrder = 0
    end
    object BTSubmit: TButton
      Left = 328
      Top = 296
      Width = 75
      Height = 25
      Caption = #30830#35748
      TabOrder = 1
      OnClick = BTSubmitClick
    end
    object BTCancel: TButton
      Left = 432
      Top = 296
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 2
      OnClick = BTCancelClick
    end
    object LHREdit: TEdit
      Left = 104
      Top = 80
      Width = 121
      Height = 21
      TabOrder = 3
    end
    object YHREdit: TEdit
      Left = 104
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 4
    end
    object GSTime: TDateTimePicker
      Left = 104
      Top = 168
      Width = 121
      Height = 21
      Date = 38091.736939629630000000
      Time = 38091.736939629630000000
      Kind = dtkTime
      TabOrder = 5
    end
    object GXComboBox: TComboBox
      Left = 360
      Top = 32
      Width = 145
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 6
      Text = #21516#23398
      Items.Strings = (
        #21516#23398
        #26379#21451
        #20146#25114)
    end
    object ZPRComboBox: TComboBox
      Left = 360
      Top = 88
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 7
    end
    object ZJMZComboBox: TComboBox
      Left = 360
      Top = 152
      Width = 145
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 8
      Text = #36523#20221#35777
      Items.Strings = (
        #36523#20221#35777
        #23398#29983#35777
        #20891#20154#35777
        #23621#20303#35777
        #32844#19994#35777
        #20854#20182)
    end
    object LHTime: TDateTimePicker
      Left = 104
      Top = 120
      Width = 121
      Height = 21
      Date = 38091.738462650460000000
      Time = 38091.738462650460000000
      Kind = dtkTime
      TabOrder = 9
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    ControlUseTrueXPStyle = True
    BtnRoundArc = 5
    BtnOutLineBorderColor = 7552000
    BtnInnerBorderMoveColor = 3257087
    BtnInnerBorderFocusColor = 15183500
    BtnSurfaceNormalColor = 16251903
    BtnSurfaceDownColor = 14608359
    BtnSurfaceBottomLineColor = 14608359
    BtnSurfaceDownBottomLineColor = 15199215
    RdoChkControlChkColor = 41472
    ComboBoxChkColor = 9201994
    ComboboxSurfaceMoveColor = 16771030
    ControlDisabledBorderColor = 11913158
    Left = 192
  end
end