codemaintaince.dfm

这是一个正式的项目工程

inherited frmCodeMaintaince: TfrmCodeMaintaince
  Left = 130
  Top = 218
  Width = 576
  Caption = '代码维护'
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  inherited Splitter1: TSplitter
    Width = 1
  end
  inherited PanelLeft: TPanel
    object DBGridCodes: TDBGrid
      Left = 1
      Top = 1
      Width = 201
      Height = 256
      Align = alClient
      DataSource = dmMainDB.dsCodes
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clHighlight
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Meaning'
          Width = 108
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Remark'
          Visible = True
        end>
    end
  end
  inherited StatusBarSystem: TStatusBar
    Width = 568
  end
  inherited PanelRight: TPanel
    Left = 204
    Width = 364
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 362
      Height = 29
      Align = alTop
      TabOrder = 0
      object DBNavigatorCode: TDBNavigator
        Left = 0
        Top = 1
        Width = 270
        Height = 25
        DataSource = dmMainDB.dsCodeDetail
        Hints.Strings = (
          '第一条记录'
          '前一条记录'
          '下一条记录'
          '最后一条记录'
          '插入数据'
          '删除数据'
          '编辑'
          '存盘'
          '取消'
          '刷新')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
    end
    object DBGridCodeDetail: TDBGrid
      Left = 1
      Top = 30
      Width = 362
      Height = 227
      Align = alClient
      DataSource = dmMainDB.dsCodeDetail
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clHighlight
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'ACode'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CodeMeaning'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Remark'
          Width = 64
          Visible = True
        end>
    end
  end
end