basedata.dfm

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

object fBaseData: TfBaseData
  Left = 189
  Top = 162
  Width = 659
  Height = 434
  Caption = #26723#26696#24402#36824#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 = 6
    Width = 651
    Height = 2
  end
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 117
    Height = 13
    Caption = #20197#19979#26159#25152#26377#20511#29992#20449#24687
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 32
    Width = 242
    Height = 331
    DataSource = CdAllBorrow
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #29366#24577
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20511#29992#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26723#26696#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26723#26696#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20511#29992#20154#21592
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20511#29992#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22791#27880
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 242
    Top = 27
    Width = 409
    Height = 336
    Caption = #32534#36753#26639
    TabOrder = 1
    object Label2: TLabel
      Left = 16
      Top = 28
      Width = 52
      Height = 13
      Caption = #26723#26696#32534#21495
    end
    object Label3: TLabel
      Left = 16
      Top = 62
      Width = 52
      Height = 13
      Caption = #26723#26696#21517#31216
    end
    object Label4: TLabel
      Left = 17
      Top = 96
      Width = 52
      Height = 13
      Caption = #24402#36824#20154#21592
    end
    object Label5: TLabel
      Left = 17
      Top = 130
      Width = 52
      Height = 13
      Caption = #24402#36824#26085#26399
    end
    object Label6: TLabel
      Left = 17
      Top = 165
      Width = 26
      Height = 13
      Caption = #22791#27880
    end
    object Edittype: TRadioGroup
      Left = 226
      Top = 16
      Width = 112
      Height = 83
      Caption = #25805#20316#31867#21035
      ItemIndex = 0
      Items.Strings = (
        #24402#36824
        #32534#36753)
      TabOrder = 0
      OnClick = EdittypeClick
    end
    object DBEdit1: TDBEdit
      Left = 80
      Top = 24
      Width = 105
      Height = 21
      Color = clBtnFace
      DataField = #26723#26696#32534#21495
      DataSource = CdAllBorrow
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 80
      Top = 58
      Width = 105
      Height = 21
      Color = clBtnFace
      DataField = #26723#26696#21517#31216
      DataSource = CdAllBorrow
      TabOrder = 2
    end
    object Eok: TButton
      Left = 211
      Top = 124
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 3
      OnClick = EokClick
    end
    object Edelete: TButton
      Left = 293
      Top = 123
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 4
      OnClick = EdeleteClick
    end
    object DBGrid2: TDBGrid
      Left = 0
      Top = 208
      Width = 371
      Height = 125
      DataSource = CdAllReturn
      TabOrder = 5
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #24402#36824#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26723#26696#32534#21495
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26723#26696#21517#31216
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24402#36824#20154
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24402#36824#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24402#36824#26102#38388
          Width = 99
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22791#27880
          Width = 133
          Visible = True
        end>
    end
    object Edit1: TEdit
      Left = 80
      Top = 93
      Width = 121
      Height = 21
      TabOrder = 6
    end
    object Edit2: TEdit
      Left = 80
      Top = 126
      Width = 121
      Height = 21
      TabOrder = 7
    end
    object Edit3: TEdit
      Left = 81
      Top = 161
      Width = 178
      Height = 21
      TabOrder = 8
    end
  end
  object Cexit: TButton
    Left = 560
    Top = 373
    Width = 75
    Height = 25
    Caption = #36820#22238
    TabOrder = 2
    OnClick = CexitClick
  end
  object CdAllBorrow: TDataSource
    DataSet = fdm.AllBorrow
    Left = 128
    Top = 72
  end
  object CdAllReturn: TDataSource
    DataSet = fdm.AllReturn
    Left = 280
    Top = 272
  end
end