quyupz.dfm

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

object fquyu: Tfquyu
  Left = 262
  Top = 161
  Width = 673
  Height = 450
  Caption = #26723#26696#31867#21035#31649#29702
  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 Bevel1: TBevel
    Left = 0
    Top = 2
    Width = 651
    Height = 2
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 16
    Width = 179
    Height = 387
    Caption = #26723#26696#31867#21035#21015#34920
    TabOrder = 0
    object Ts: TTreeView
      Left = 8
      Top = 24
      Width = 162
      Height = 355
      Indent = 19
      TabOrder = 0
      OnChange = TsChange
    end
  end
  object GroupBox2: TGroupBox
    Left = 189
    Top = 16
    Width = 462
    Height = 387
    Caption = #26723#26696#31867#21035#32534#36753
    TabOrder = 1
    object Label1: TLabel
      Left = 26
      Top = 24
      Width = 26
      Height = 13
      Caption = #24207#21495
    end
    object Label2: TLabel
      Left = 26
      Top = 73
      Width = 52
      Height = 13
      Caption = #31867#21035#21517#31216
    end
    object Label3: TLabel
      Left = 26
      Top = 123
      Width = 52
      Height = 13
      Caption = #24314#26723#20154#21592
    end
    object Label4: TLabel
      Left = 26
      Top = 172
      Width = 52
      Height = 13
      Caption = #24314#26723#26085#26399
    end
    object Label5: TLabel
      Left = 26
      Top = 222
      Width = 52
      Height = 13
      Caption = #20462#25913#20154#21592
    end
    object Label6: TLabel
      Left = 26
      Top = 271
      Width = 52
      Height = 13
      Caption = #20462#25913#26085#26399
    end
    object Label7: TLabel
      Left = 26
      Top = 321
      Width = 26
      Height = 13
      Caption = #22791#27880
    end
    object Label8: TLabel
      Left = 248
      Top = 171
      Width = 110
      Height = 13
      Caption = '('#20363#65306'2004-10-08)'
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 99
      Top = 21
      Width = 69
      Height = 21
      Color = clWhite
      DataField = 'CategoryId'
      DataSource = CdDatatype
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 99
      Top = 120
      Width = 121
      Height = 21
      DataField = 'Creater'
      DataSource = CdDatatype
      TabOrder = 1
    end
    object DBEdit4: TDBEdit
      Left = 99
      Top = 170
      Width = 121
      Height = 21
      DataField = 'CreateTime'
      DataSource = CdDatatype
      TabOrder = 2
    end
    object DBEdit5: TDBEdit
      Left = 99
      Top = 220
      Width = 121
      Height = 21
      DataField = 'Amender'
      DataSource = CdDatatype
      TabOrder = 3
    end
    object DBEdit6: TDBEdit
      Left = 99
      Top = 270
      Width = 121
      Height = 21
      DataField = 'AmendTime'
      DataSource = CdDatatype
      TabOrder = 4
    end
    object DBEdit7: TDBEdit
      Left = 99
      Top = 320
      Width = 216
      Height = 21
      DataField = 'Remarks'
      DataSource = CdDatatype
      TabOrder = 5
    end
    object Edittype: TRadioGroup
      Left = 267
      Top = 32
      Width = 112
      Height = 105
      Caption = #25805#20316#31867#21035
      ItemIndex = 0
      Items.Strings = (
        #20462#25913
        #28155#21152)
      TabOrder = 6
      OnClick = EdittypeClick
    end
    object ConFirm: TButton
      Left = 160
      Top = 352
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 7
      OnClick = ConFirmClick
    end
    object Cexit: TButton
      Left = 288
      Top = 352
      Width = 75
      Height = 25
      Caption = #36820#22238
      TabOrder = 8
      OnClick = CexitClick
    end
    object DBEdit2: TDBEdit
      Left = 99
      Top = 70
      Width = 121
      Height = 21
      DataField = 'Cgname'
      DataSource = CdDatatype
      TabOrder = 9
    end
  end
  object CdDatatype: TDataSource
    DataSet = fdm.Datype
    Left = 416
    Top = 8
  end
end