main.dfm

BCB 级联表的设计源代码。有需要的朋友可以看看。BCB这个东西不知道还有人用么。以往是我的最爱。

object frmMaintain: TfrmMaintain
  Left = 181
  Top = 152
  Width = 544
  Height = 375
  Caption = '数据维护'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object dnvrAddressBook: TDBNavigator
    Left = 0
    Top = 0
    Width = 536
    Height = 25
    DataSource = dseAddressBook
    Align = alTop
    Flat = True
    Hints.Strings = (
      '首记录'
      '前一条记录'
      '后一条记录'
      '尾记录'
      '插入记录'
      '删除记录'
      '编辑记录'
      '提交修改'
      '撤销修改'
      '刷新数据')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
  end
  object dgrdAddressBook: TDBGrid
    Left = 0
    Top = 25
    Width = 536
    Height = 323
    Align = alClient
    DataSource = dseAddressBook
    PopupMenu = pmuAddressBook
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnColEnter = dgrdAddressBookColEnter
    OnDblClick = dgrdAddressBookDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Caption'
        Width = 200
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ParentID'
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CreatedTime'
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Type'
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Keyword'
        Width = 250
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Note'
        Width = 50
        Visible = True
      end>
  end
  object atblAddressBook: TADOTable
    Connection = dmeDatabase.acnnDatabase
    CursorType = ctStatic
    TableName = 'ROMStructure'
    Left = 96
    Top = 104
  end
  object dseAddressBook: TDataSource
    DataSet = atblAddressBook
    Left = 56
    Top = 104
  end
  object pmuAddressBook: TPopupMenu
    Left = 128
    Top = 104
    object miEditField: TMenuItem
      Caption = '编辑字段(&F)'
      OnClick = dgrdAddressBookDblClick
    end
    object miEditRecord: TMenuItem
      Caption = '编辑记录(&R)'
      OnClick = miEditRecordClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object miGenerateRecordReport: TMenuItem
      Caption = '生成记录报表(&P)'
    end
    object miGenerateRecordsReport: TMenuItem
      Caption = '生成记录列表报表(&L)'
      OnClick = miGenerateRecordsReportClick
    end
  end
end