gbset.dfm

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

object fGBset: TfGBset
  Left = 248
  Top = 137
  Width = 659
  Height = 434
  VertScrollBar.Position = 18
  Caption = #26723#26696#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 = -16
    Width = 651
    Height = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = -9
    Width = 185
    Height = 211
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 20
      Top = 10
      Width = 52
      Height = 13
      Caption = #26723#26696#31867#21035
    end
    object dangtype: TComboBox
      Left = 19
      Top = 31
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = dangtypeChange
    end
    object ListDantype: TListBox
      Left = 19
      Top = 56
      Width = 147
      Height = 149
      ItemHeight = 13
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 185
    Top = -9
    Width = 466
    Height = 211
    BevelInner = bvLowered
    TabOrder = 1
    object Label2: TLabel
      Left = 8
      Top = 16
      Width = 39
      Height = 13
      Caption = #26723#26696#21495
    end
    object Label3: TLabel
      Left = 213
      Top = 16
      Width = 26
      Height = 13
      Caption = #21517#31216
    end
    object Label4: TLabel
      Left = 8
      Top = 52
      Width = 39
      Height = 13
      Caption = #26723#26696#26588
    end
    object Label5: TLabel
      Left = 213
      Top = 51
      Width = 52
      Height = 13
      Caption = #24314#26723#26102#38388
    end
    object Label6: TLabel
      Left = 8
      Top = 84
      Width = 26
      Height = 13
      Caption = #20869#23481
    end
    object Label7: TLabel
      Left = 213
      Top = 82
      Width = 26
      Height = 13
      Caption = #29366#24577
    end
    object Label8: TLabel
      Left = 8
      Top = 183
      Width = 26
      Height = 13
      Caption = #22791#27880
    end
    object DBEdit1: TDBEdit
      Left = 51
      Top = 11
      Width = 70
      Height = 21
      Color = clBtnFace
      DataField = #26723#26696#32534#21495
      DataSource = CdDaEdit
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 268
      Top = 12
      Width = 152
      Height = 21
      DataField = #21517#31216
      DataSource = CdDaEdit
      TabOrder = 1
    end
    object DaGui: TDBComboBox
      Left = 48
      Top = 48
      Width = 67
      Height = 21
      DataField = #26723#26696#26588#21495
      DataSource = CdDaEdit
      ItemHeight = 13
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 117
      Top = 47
      Width = 82
      Height = 21
      DataField = #26723#26696#26588
      DataSource = CdDaEdit
      TabOrder = 3
    end
    object DBEdit4: TDBEdit
      Left = 268
      Top = 45
      Width = 152
      Height = 21
      DataField = #24314#26723#26085#26399
      DataSource = CdDaEdit
      TabOrder = 4
    end
    object DBMemo1: TDBMemo
      Left = 49
      Top = 80
      Width = 152
      Height = 94
      DataField = #20869#23481
      DataSource = CdDaEdit
      TabOrder = 5
    end
    object DaStatus: TDBComboBox
      Left = 268
      Top = 75
      Width = 145
      Height = 21
      DataField = #29366#24577
      DataSource = CdDaEdit
      ItemHeight = 13
      Items.Strings = (
        #24050#20511#20986
        #26410#20511#20986)
      TabOrder = 6
    end
    object Edittype: TRadioGroup
      Left = 275
      Top = 104
      Width = 112
      Height = 68
      Caption = #25805#20316#31867#21035
      ItemIndex = 0
      Items.Strings = (
        #20462#25913
        #28155#21152)
      TabOrder = 7
      OnClick = EdittypeClick
    end
    object DBEdit5: TDBEdit
      Left = 40
      Top = 179
      Width = 183
      Height = 21
      DataField = #22791#27880
      DataSource = CdDaEdit
      TabOrder = 8
    end
    object Eok: TButton
      Left = 237
      Top = 177
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 9
      OnClick = EokClick
    end
    object Edelete: TButton
      Left = 333
      Top = 177
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 10
      OnClick = EdeleteClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 203
    Width = 650
    Height = 147
    DataSource = CdDaEdit
    TabOrder = 2
    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 = #26723#26696#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20869#23481
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24314#26723#26085#26399
        Width = 113
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26723#26696#26588#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26723#26696#26588
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22791#27880
        Width = 150
        Visible = True
      end>
  end
  object Cexit: TButton
    Left = 558
    Top = 358
    Width = 75
    Height = 25
    Caption = #36820#22238
    TabOrder = 3
    OnClick = CexitClick
  end
  object CdDaEdit: TDataSource
    DataSet = fdm.DaEdit
    Left = 192
    Top = 16
  end
end