pwd.dfm

一个详细功能齐全的档案管理信息系统 跟大家分享一下。这是老师给的光盘里带的

object fpwd: Tfpwd
  Left = 239
  Top = 362
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #35831#36755#20837#29992#25143#23494#30721
  ClientHeight = 199
  ClientWidth = 359
  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
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000330000000000000000000000033303303303300000000000000
    0003303330333003003300000000000000033003330330002333000000000000
    0030000033003033333000000000000033333330000003330003330000000803
    33333333333333300233330000000F033333333333333302333BB03000004F83
    33333333333333333BB003BB00004FF3333333333333B33BB0033BBB00004FF3
    33333333B3BB3BB0033BBBB000004FF83B333B3B3B3BBBB03BBBBB0300F04FFF
    33B3B3B3BBBBBBBBBBBB00330FF04FFF8B3B3333BBBBBBBBBB0033330FF044FF
    F8BBB03033BBBBB330333330FFF444FFF8BB0BB3003B330003333330FF44444F
    F88B3BBB300000033333B33FFF44444FFF3BB0BBB3000333B33BB38FF4444444
    FF003B0BB333333BBBBBB3FFF44444444FF00030BBBBBBBBBBBBBBFF44444444
    0000000303BBB3300000BFF444444400000000000000000000000FF444440000
    0000000000000000000000444444000000000000000000000000000044440000
    0000000000000000000000000444000000000000000000000000000000040000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFF1FFFFF8003FFFC0000FFF800007FF800007FE000003F0000
    001F0000001F0000000F00000007000000070000000000000000000000000000
    00000000000000000000000000000000000000000000000000000000000000C0
    00000FE01F003FFFFF80FFFFFFC0FFFFFFF0FFFFFFF8FFFFFFFEFFFFFFFF}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 9
    Top = 23
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {
      07544269746D617036080000424D360800000000000036040000280000002000
      000020000000010008000000000000040000CE0E0000C40E0000000100000000
      0000000000008080800000008000008080000080000080800000800000008000
      80004080800040400000FF80000080400000FF00400000408000FFFFFF00C0C0
      C0000000FF0000FFFF0000FF0000FFFF0000FF000000FF00FF0080FFFF0080FF
      0000FFFF8000FF8080008000FF004080FF00C0DCC000F0CAA600FF0080000000
      140000A0000046003C00FEC02800F7BF3C005581000000009B00F7BF00004600
      00000000B000F7BF06004600060000009000FBBF3900F8BF0000460014000000
      D100F67F000000000600000050005B004C005B0068005B005C005D004C005B00
      EC005600D600F77FEC0056004C005B000000000068005B008F00FB7F4C005B00
      44005B0033003200000000006C00FB7F6C001AC16C005B0031000000E8005B00
      9000FD7FF000FC7F04005B00340005834F00048300000000480005838A00F67F
      8E00F67FF000FC7F000000004C000583D300F67F4C00058300000000D4005B00
      F300F77F4C00058310000583C800F77F44000000100000000400A48133000000
      DE00FD7F0A00030000000000C00000463F00FD7F0000FD7F0700460033000000
      3F00000200000000E400FBBF0400A4810000FD7F1700000298005B000400A481
      2C000000C80046000400A4814C0046003F005B00100046002C000002DC005B00
      9C00000070005B005A00A4813E000000F900F7BF20004600010001004100F7BF
      010000002000460070000100E0004600220046003700000042000485D8000100
      A0000E0036003620180009B10100A0080E0036CA36000300D000FBBF2600EC3D
      0300D408360036CA060076859400982F0000A02F00004485620017016500A02F
      01002F018600F34A1700C000000060856200982FC0002F019A00804C17006413
      2F00B02F000084856200908562001701F8001405000000000200920400000000
      0E00D2850000BA850000010000000000C600627F1700657F9800B72F2F000086
      8000170164002F0100000000F0000000B70000000100000098002F0198005D00
      B00000000A00657FB000177EFA000ECC0E00DF054C00AC1127005A0F66009F9F
      FF009FBF3F009FBF5F009FBF7F009FBF9F009FBFBF009FBFDF009FBFFF009FDF
      3F009FDF5F009FDF7F009FDF9F009FDFBF009FDFDF009FDFFF009FFF3F009FFF
      5F009FFF7F009FFF9F009FFFBF009FFFDF009FFFFF00BF3F3F00BF3F5F00BF3F
      7F00BF3F9F00BF3FBF00BF3FDF00BF3FFF00BF5F3F00BF5F5F00BF5F7F00BF5F
      9F00BF5FBF00BF5FDF00BF5FFF00BF7F3F00BF7F5F00BF7F7F00BF7F9F00BF7F
      BF00BF7FDF00BF7FFF00BF9F3F00BF9F5F00BF9F7F00BF9F9F00BF9FBF00BF9F
      DF00BF9FFF00BFBF3F00BFBF5F00BFBF7F00BFBF9F00BFBFBF00BFBFDF00BFBF
      FF00BFDF3F00BFDF5F00BFDF7F00BFDF9F00BFDFBF00BFDFDF00F0FBFF00A4A0
      A0000E0E0E0E0E0E0E0E0E0E0E0E0E00000E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
      0E0E0E0E0E0E0E0E0E0E0E0E0E0E000F0F000E0E0E0E0E0E0E0E0E0E0E0E0E0E
      0E0E0E0E0E0E0E0E0E00000E0E000E0F010F000E0E0E0E0E0E0E0E0E0E0E0E0E
      0E0E0E0E0E0E0E0E000F0F000001000F010F000E0E0E0E0E0E0E0E0E0E0E0E0E
      0E0E0E0E0E0E0E01010F0F0F0000010F010F000E0E0E0E0E0E0E0E0E0E0E0E0E
      0E0E0E0E0E0E0E010E0F010F010E0F0F010F000E0E0E0E0E0E0E0E0E0E0E0100
      000E0E0E0E0E0E010E0F010F00010E0F010F000E0E0E0E0E0E0E0E0E0E011103
      03000E0E0E0E0E0E000F010F000E000F010F000E0E0E0E0E0E0E0E0100001111
      01000E0E0E0E0E00010F010F0000010F010F000E0E0E0E0E0E0E010303111101
      00000E0E0E0E010E0F0F010F010E0F0F010F000E0E0E0E0E0E0E011111110100
      03000E0E0E0E0E010E0F010F010E0F0F010F000E0E0E0E0E0100001111010003
      000E0E0E0E0E0E0E000F010F00010E0F010F000E0E0E0E010303111101000300
      0E0E0E0E0E0E0E00010F010F00010E0F0101000E0E0E0111111111010003000E
      0E0E0E0E0E0E010E0F0F010F010E0F0F0E01000E0E0E01111111010003000E0E
      0E0E0E0E0E0E010E0F0F01010E0F0F0E0F0F01000E00111111010003000E0E0E
      0E0E0E0E0E0E0E010E0F010E0F0F0E000000000000111111010003000E0E0E0E
      0E0E0E0E0E0E0E010E010E0F0F00000101010101011111010003000E0E0E0E0E
      0E0E0E0E0E0E010E010E0F0F00010111111111111111010003000E0E0E0E0E0E
      0E0E0E0E0E010E0F010E0F000111111111111111110F1103000E0E0E0E0E0E0E
      0E0E0E0E010E0F0F010E0F00111111110F110F110F110F03000E0E0E0E0E0E0E
      0E0E0E010E0F0F0E010E0011111111001100110F110F1103000E0E0E0E0E0E0E
      0E0E010E0F0F0E0F010E011111111111001100110F110F03000E0E0E0E0E0E0E
      0E0E010E0F0F0F0E0F0101111111111111001100110F1103000E0E0E0E0E0E0E
      0E0E010E0F0F0E0F00000111111101010011001100110F03000E0E0E0E0E0E0E
      0E0E010E0F0F0F00010E011111000E0F0F001100110F03000E0E0E0E0E0E0E0E
      0E0E010E0F0F0E00010F01111100000E0F001111110F03000E0E0E0E0E0E0E0E
      0E0E0E010E0F0F0001010001110000010E0011110F03000E0E0E0E0E0E0E0E0E
      0E0E0E0E010E0F0F0000000F010100000011110303000E0E0E0E0E0E0E0E0E0E
      0E0E0E0E0E010E0E0E00010F01000F0F0F0F0300000E0E0E0E0E0E0E0E0E0E0E
      0E0E0E0E0E0E010101000101010E01010101000E0E0E0E0E0E0E0E0E0E0E0E0E
      0E0E0E0E0E0E0E0E0E00010E0E0E01000E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
      0E0E0E0E0E0E0E0E0E0E00000000000E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
      0E0E}
    Transparent = True
  end
  object Label6: TLabel
    Left = 41
    Top = 91
    Width = 52
    Height = 13
    Caption = #29992#25143#21517#65306
    FocusControl = EdtUser
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 41
    Top = 141
    Width = 46
    Height = 13
    Caption = #23494' '#30721#65306
    FocusControl = EdtPassword
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 40
    Top = 53
    Width = 281
    Height = 2
  end
  object Label1: TLabel
    Left = 72
    Top = 32
    Width = 224
    Height = 16
    Caption = #35831#38190#20837#29992#25143#21517#21450#23494#30721#20197#30331#24405#31995#32479
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object EdtUser: TEdit
    Left = 103
    Top = 86
    Width = 130
    Height = 21
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 0
    OnKeyPress = EdtUserKeyPress
  end
  object EdtPassword: TEdit
    Left = 103
    Top = 137
    Width = 130
    Height = 24
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 1
    OnKeyPress = EdtPasswordKeyPress
  end
  object BitBtn2: TBitBtn
    Left = 254
    Top = 136
    Width = 82
    Height = 27
    Caption = #36864#20986
    TabOrder = 2
    Kind = bkCancel
  end
  object BitBtn1: TBitBtn
    Left = 253
    Top = 82
    Width = 81
    Height = 27
    Caption = #30830#35748
    Default = True
    ModalResult = 1
    TabOrder = 3
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
end