carinfo.dfm

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

object fCarinfo: TfCarinfo
  Left = 192
  Top = 107
  Width = 445
  Height = 498
  Caption = #29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 437
    Height = 41
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 33
        Width = 433
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 420
      Height = 33
      Caption = 'ToolBar1'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object BitBtn1: TBitBtn
        Left = 0
        Top = 2
        Width = 75
        Height = 22
        Action = Actadd
        Caption = #28155#21152#29992#25143
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C000000001F7C1F7C000000001F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000001F7C1F7C000000001F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000001F7C1F7C000000001F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000001F7C1F7C000000001F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C000000001F7C1F7C000000001F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object BitBtn2: TBitBtn
        Left = 75
        Top = 2
        Width = 75
        Height = 22
        Action = Actdelete
        Caption = #21024#38500
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C00380040003C003C003C003C00181F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C0044004000440044004400400040003C003C1F7C
          1F7C1F7C1F7C1F7C1F7C004400480048004C004C004C004C0048004000400040
          1F7C1F7C1F7C1F7C004C004C8454FF7F00500054005400540859FF7F00440040
          003C1F7C1F7C8458005000543853FF7FFF7F005400580859FF7BFF7F1056004C
          004400041F7C00500058005C0058F752FF7FFF7F4969FF7BFF7FAC4900580050
          004800341F7C0058006000640064005C5A5BFF7FFF7FFF7F10560060005C0058
          0050004C1F7C215C2064216C006800640861FF7FFF7FFF7B0060006000600060
          005400581F7C4164426C4170006CE764FF7BFF7FFF77FF7FFF7F006000680064
          005800541F7C42686274637C2971FF77FF7FCE4900683853FF7FFF7F00702168
          215C00441F7CC670A57CA57C5A5BFF7FAC49007000700068F74AFF7FCD5D426C
          41646B351F7C1F7CA57C287D2979AC3D417C007C0074217C62742949847C6374
          21641F7C1F7C1F7C1F7C087DAD7DEF7DCE7D4A7D087D297D4A7D087DC67C6378
          1F7C1F7C1F7C1F7C1F7C1F7C297DEF7D937E947E727EEF7D8C7D287D847C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7CE77C8C7DEF7DEF7D8B7DE77CAD751F7C1F7C
          1F7C1F7C1F7C}
      end
      object BitBtn4: TBitBtn
        Left = 150
        Top = 2
        Width = 75
        Height = 22
        Action = ActSave
        Caption = #20445#23384#26435#38480
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001042AD357A6BFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
          FF7FFF7FFF7F104210421042734EBF31BF31BF31BF31BF31BF31BF31BF31BF31
          BF31BF31BF56FF7FFF7F1200B45212001200160016001600160016001600AD35
          AD35734E734EFF7FFF7F1200734EE71C120012001600160016001600734E8B2D
          16001600BF56FF7FFF7F1200E71C104212001200161C282116001600FF7F161C
          16001600BF31FF7FFF7F12001200DD77121412000D10D65A160012147A6B1600
          16001600BF31FF7FFF7F0F0012009C73282112001200396728212821734E1600
          16001600BF31FF7FFF7F0F000F00B4522821120012001200B452AD358B2D1600
          16001600BF31FF7FFF7F0F000F00282110421200120012001200D65A28211600
          16001600BF31FF7FFF7F0F000F001214DD7712141200121412007A6BAD352821
          16001600BF31FF7FFF7F0F00E71C734EDD7710428B2DAD352821FF7F12141042
          1042E71CBF31FF7FFF7F0F000F000F00D65A28210F0012002821AD3512001200
          8B2D2821BF31FF7FFF7F12001200161C8B2D734E161C161C161C161C9F109F10
          9F109F10BF31FF7FFF7F12001200161C161CDD771214161C161C161C161C9F10
          9F102821734EFF7FFF7FFF7FFF7FFF7FFF7FD65A282139679C73FF7FFF7FFF7F
          FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F9C73B4528B2DFF7FFF7FFF7F
          FF7FFF7FFF7F}
      end
      object ToolButton1: TToolButton
        Left = 225
        Top = 2
        Width = 8
        Caption = 'ToolButton1'
        Style = tbsSeparator
      end
      object BitBtn3: TBitBtn
        Left = 233
        Top = 2
        Width = 75
        Height = 22
        Action = ActExit
        Caption = #20851#38381
        TabOrder = 0
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7CFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
          1F7C1F7C1F7C1F7C1F7C4665E360046104610461E360E360C164C164C068A058
          FF7F1F7C1F7C1F7C1F7CC06C24714671667146716571447523712275E070C068
          FF7F1F7C1F7C1F7C1F7CE26C667188717176FF7FBC7FDD7FDD7F22750171C068
          FF7F1F7C1F7C1F7C1F7C036D88710D76DD7FA871887186754E7ABC7F2275C164
          FF7F1F7C1F7C1F7C1F7C4571A971BC7F0D76A971FF7F86754475DD7F2371E360
          FF7F1F7C1F7C1F7C1F7C4671CB75FF7FAA718971FF7F65714471BC7F44710469
          FF7F1F7C1F7C1F7C1F7C6771EC75377BD47A8971FF7F46712471FF7F45712569
          FF7F1F7C1F7C1F7C1F7C88712E760D76FF7FD47A8871CB75DD7F4F7645712569
          FF7F1F7C1F7C1F7C1F7CA97171762E760D76F67AFF7FBC7FEC75677146710461
          FF7F1F7C1F7C1F7C1F7CCB75D47A71762E760D76EC75EC75CB75A97167710461
          FF7F1F7C1F7C1F7C1F7CFF7FCB758971887167716771467146714571036DAA69
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 41
    Width = 437
    Height = 423
    Align = alClient
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 245
      Top = 14
      Width = 52
      Height = 13
      Caption = #26435#38480#21015#34920
    end
    object DBGrid1: TDBGrid
      Left = 3
      Top = 0
      Width = 206
      Height = 429
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'usercount'
          Title.Caption = #29992#25143#36134#21495
          Width = 100
          Visible = True
        end>
    end
    object CheckBox1: TCheckBox
      Left = 248
      Top = 39
      Width = 97
      Height = 17
      Hint = 'ActRelog'
      Caption = #27880#38144
      TabOrder = 1
    end
    object CheckBox2: TCheckBox
      Left = 248
      Top = 67
      Width = 97
      Height = 17
      Hint = 'ActExit'
      Caption = #36864#20986
      TabOrder = 2
    end
    object CheckBox3: TCheckBox
      Left = 248
      Top = 95
      Width = 97
      Height = 17
      Hint = 'Actuser'
      Caption = #29992#25143#31649#29702
      TabOrder = 3