setcomunit.dfm

三层的通用架构

object SetCOMForm: TSetCOMForm
  Left = 243
  Top = 122
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = #22806#25346'COM'#36873#39033
  ClientHeight = 379
  ClientWidth = 458
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel
    Left = 16
    Top = 112
    Width = 114
    Height = 12
    Caption = #22806#25346'COM'#23545#35937#36873#39033'(&S):'
    FocusControl = DBGrid1
  end
  object Button1: TButton
    Left = 191
    Top = 336
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    Default = True
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 322
    Top = 336
    Width = 75
    Height = 25
    Cancel = True
    Caption = #21462#28040'(&C)'
    TabOrder = 3
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 128
    Width = 426
    Height = 190
    DataSource = DataSource1
    Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnEditButtonClick = DBGrid1EditButtonClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Index'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Info'
        Title.Caption = #35828#26126#20449#24687
        Width = 100
        Visible = True
      end
      item
        ButtonStyle = cbsEllipsis
        Expanded = False
        FieldName = 'DLL'
        Title.Caption = 'DLL'#25991#20214
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FUN'
        Title.Caption = #25509#21475#20989#25968
        Width = 120
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Allow'
        PickList.Strings = (
          #20801#35768
          #31105#27490)
        Title.Alignment = taCenter
        Title.Caption = #26435#38480
        Width = 30
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 12
    Width = 426
    Height = 84
    TabOrder = 0
    object Label1: TLabel
      Left = 18
      Top = 53
      Width = 150
      Height = 12
      Caption = #40664#35748#36830#25509#30340'COM'#23545#35937#31867#21517'(&N):'
      FocusControl = Edit1
    end
    object CheckBox1: TCheckBox
      Left = 18
      Top = 22
      Width = 185
      Height = 17
      Caption = #36830#25509#33258#23450#20041#30340'COM'#23545#35937'(&C)'
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 172
      Top = 49
      Width = 236
      Height = 20
      TabOrder = 1
    end
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'Index'
        DataType = ftInteger
      end
      item
        Name = 'Info'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'DLL'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'FUN'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'Allow'
        DataType = ftString
        Size = 4
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    BeforeInsert = ClientDataSet1BeforeDelete
    BeforeDelete = ClientDataSet1BeforeDelete
    Left = 216
    Top = 184
    Data = {
      8B0000009619E0BD0100000018000000050000000000030000008B0005496E64
      6578040001000000000004496E666F0200490000000100055749445448020002
      00FF0003444C4C020049000000010005574944544802000200FF000346554E02
      0049000000010005574944544802000200FF0005416C6C6F7701004900000001
      000557494454480200020004000000}
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 256
    Top = 184
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.dll'
    Filter = #21160#24577#38142#25509#24211' (*.dll)|*.dll|'#25152#26377#25991#20214' (*.*)|*.*'
    Left = 296
    Top = 184
  end
end