selectform.dfm

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

object funit: Tfunit
  Left = 210
  Top = 182
  Width = 659
  Height = 434
  Caption = #26723#26696#26588#36164#26009#24405#20837
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel2: TBevel
    Left = 0
    Top = 1
    Width = 651
    Height = 2
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 3
    Width = 643
    Height = 214
    Caption = #26723#26696#26588#21015#34920
    TabOrder = 0
    object Bevel1: TBevel
      Left = 8
      Top = 180
      Width = 627
      Height = 30
      Shape = bsFrame
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 627
      Height = 155
      DataSource = CdDagMana
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'CabinetId'
          Title.Caption = #26723#26696#26588#24207#21495
          Width = 66
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cbname'
          Title.Caption = #21517#31216
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Creater'
          Title.Caption = #24314#26723#20154#21592
          Width = 79
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CreatTime'
          Title.Caption = #24314#26723#26085#26399
          Width = 97
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Amender'
          Title.Caption = #20462#25913#20154#21592
          Width = 93
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AmendTime'
          Title.Caption = #20462#25913#26102#38388
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Remarks'
          Title.Caption = #22791#27880
          Width = 200
          Visible = True
        end>
    end
    object DBNavigator1: TDBNavigator
      Left = 117
      Top = 182
      Width = 410
      Height = 25
      DataSource = CdDagMana
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 217
    Width = 643
    Height = 184
    Caption = #32534#36753#21306
    TabOrder = 1
    object Label1: TLabel
      Left = 13
      Top = 40
      Width = 65
      Height = 13
      Caption = #26723#26696#26588#24207#21495
    end
    object Label2: TLabel
      Left = 423
      Top = 40
      Width = 52
      Height = 13
      Caption = #20462#25913#20154#21592
    end
    object Label3: TLabel
      Left = 202
      Top = 40
      Width = 26
      Height = 13
      Caption = #21517#31216
    end
    object Label4: TLabel
      Left = 15
      Top = 87
      Width = 52
      Height = 13
      Caption = #24314#26723#20154#21592
    end
    object Label5: TLabel
      Left = 203
      Top = 87
      Width = 52
      Height = 13
      Caption = #24314#26723#26085#26399
    end
    object Label6: TLabel
      Left = 423
      Top = 87
      Width = 52
      Height = 13
      Caption = #20462#25913#26085#26399
    end
    object Label7: TLabel
      Left = 15
      Top = 136
      Width = 26
      Height = 13
      Caption = #22791#27880
    end
    object DBEdit1: TDBEdit
      Left = 89
      Top = 36
      Width = 87
      Height = 21
      DataField = 'CabinetId'
      DataSource = CdDagMana
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 265
      Top = 36
      Width = 141
      Height = 21
      DataField = 'Cbname'
      DataSource = CdDagMana
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 480
      Top = 36
      Width = 118
      Height = 21
      DataField = 'Amender'
      DataSource = CdDagMana
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 74
      Top = 82
      Width = 106
      Height = 21
      DataField = 'Creater'
      DataSource = CdDagMana
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 265
      Top = 82
      Width = 141
      Height = 21
      DataField = 'CreateTime'
      DataSource = CdDagMana
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 480
      Top = 82
      Width = 118
      Height = 21
      DataField = 'AmendTime'
      DataSource = CdDagMana
      TabOrder = 5
    end
    object DBEdit7: TDBEdit
      Left = 49
      Top = 131
      Width = 412
      Height = 21
      DataField = 'Remarks'
      DataSource = CdDagMana
      TabOrder = 6
    end
    object Cexit: TButton
      Left = 530
      Top = 128
      Width = 75
      Height = 25
      Caption = #36820#22238
      TabOrder = 7
      OnClick = CexitClick
    end
  end
  object CdDagMana: TDataSource
    DataSet = fdm.DagMana
    Left = 240
    Top = 32
  end
end