unit1.dfm

帮助编写程序

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 144
    Top = 80
    Width = 75
    Height = 25
    Caption = 'BitBtn1'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 352
    Top = 120
    Width = 75
    Height = 25
    Caption = 'BitBtn2'
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object ChmDesign1: TChmDesign
    DataField = 'FrmName'
    DataSource = DataSource1
    PasField = 'FExplain1'
    KeyField = 'MoldName'
    FrmName = 'FrmName'
    UnitName = 'FExplain'
    Left = 32
    Top = 56
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=10251969;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=DevERP;Data Source=HY_BIN'
    CursorType = ctStatic
    TableName = 'CHMSource'
    Left = 72
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 72
    Top = 192
  end
end