unmain.dfm

OPC 源程序示例

object Main: TMain
  Left = 334
  Top = 206
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #29699#22242#31446#28809#34920#25253#31995#32479
  ClientHeight = 278
  ClientWidth = 500
  Color = clMoneyGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = True
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 112
    Top = 40
    Width = 296
    Height = 38
    Caption = #29699#22242#31446#28809#25253#34920#31995#32479
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -37
    Font.Name = #21326#25991#26032#39759
    Font.Style = []
    ParentFont = False
  end
  object Button2: TButton
    Left = 16
    Top = 162
    Width = 57
    Height = 31
    Caption = #20572#27490
    TabOrder = 0
    Visible = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 259
    Width = 500
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 200
      end
      item
        Text = #32534#21046#65306#24352#24314#20891'  Tel:[phone]'
        Width = 50
      end>
  end
  object BExit: TButton
    Left = 208
    Top = 170
    Width = 81
    Height = 31
    Caption = #36864#20986#30417#35270
    TabOrder = 2
    OnClick = BExitClick
  end
  object Button3: TButton
    Left = 16
    Top = 202
    Width = 57
    Height = 31
    Caption = #36816#34892
    TabOrder = 3
    Visible = False
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 208
    Top = 128
    Width = 81
    Height = 33
    Caption = #25253#34920#26597#35810
    TabOrder = 4
    OnClick = Button4Click
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 24
  end
  object DataSource1: TDataSource
    DataSet = ADOT_OneTimeDataValues
    Left = 24
    Top = 32
  end
  object PrintDBGridEh1: TPrintDBGridEh
    Options = []
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 24
    Top = 64
  end
  object ADOT_OneTimeDataValues: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'OneTimeDataValues'
    Left = 24
    Top = 96
  end
  object ADOT_TagName: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'sltagname'
    Left = 56
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=SlReportDB;Data Source=ZJXTZ-ZJJ\WINCC'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 56
    Top = 32
  end
  object DBSumList1: TDBSumList
    DataSet = ADOT_OneTimeDataValues
    ExternalRecalc = True
    SumCollection = <
      item
        FieldName = 'fdn2'
        GroupOperation = goSum
      end>
    VirtualRecords = True
    Left = 56
    Top = 64
  end
end