unit4.dfm

西门子与计算机通讯程序包括源代码 程序说明 控件 及控件使用手册 使用西门子prodave 控件 这是第一版

object Form4: TForm4
  Left = 219
  Top = 169
  Width = 590
  Height = 502
  Caption = 'Form4'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 161
    Height = 468
    Align = alLeft
    TabOrder = 0
    object Button1: TButton
      Left = 40
      Top = 328
      Width = 75
      Height = 25
      Caption = #25968#25454#27983#35272
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 40
      Top = 360
      Width = 75
      Height = 25
      Caption = #22270#24418#21015#34920
      TabOrder = 1
      OnClick = Button2Click
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 32
      Width = 121
      Height = 281
      Caption = #36873#39033
      TabOrder = 2
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 32
        Height = 13
        Caption = 'Label1'
      end
      object Button9: TButton
        Left = 16
        Top = 232
        Width = 75
        Height = 25
        Caption = #22270#24418#20445#23384
        TabOrder = 0
        OnClick = Button9Click
      end
    end
    object Button3: TButton
      Left = 40
      Top = 392
      Width = 75
      Height = 25
      Caption = #36820#22238
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button8: TButton
      Left = 40
      Top = 424
      Width = 75
      Height = 25
      Caption = 'refresh'
      TabOrder = 4
      OnClick = Button8Click
    end
  end
  object Panel2: TPanel
    Left = 161
    Top = 0
    Width = 421
    Height = 468
    Align = alClient
    TabOrder = 1
    object Panel4: TPanel
      Left = 1
      Top = 381
      Width = 419
      Height = 86
      Align = alBottom
      TabOrder = 1
      object DBNavigator1: TDBNavigator
        Left = 72
        Top = 45
        Width = 330
        Height = 25
        DataSource = DataSource1
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 0
      end
      object Button4: TButton
        Left = 48
        Top = 8
        Width = 75
        Height = 25
        Caption = #20840#37096#26174#31034
        TabOrder = 1
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 152
        Top = 8
        Width = 75
        Height = 25
        Caption = #26174#31034#27491#24120
        TabOrder = 2
        OnClick = Button5Click
      end
      object Button6: TButton
        Left = 248
        Top = 8
        Width = 75
        Height = 25
        Caption = #26174#31034#38169#35823
        TabOrder = 3
        OnClick = Button6Click
      end
      object Button7: TButton
        Left = 344
        Top = 8
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 4
        OnClick = Button7Click
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 419
      Height = 380
      Align = alClient
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 417
        Height = 378
        Align = alClient
        BiDiMode = bdLeftToRight
        DataSource = DataSource1
        DragCursor = crHandPoint
        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ParentBiDiMode = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = #29366#24577
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454'1'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454'2'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454'3'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454'4'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454'5'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454'6'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454'7'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454'8'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454'9'
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454'10'
            Visible = True
          end>
      end
      object DBChart1: TDBChart
        Left = 1
        Top = 1
        Width = 417
        Height = 378
        AutoRefresh = False
        ShowGlassCursor = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Dark3D = False
        BottomWall.Color = clNone
        Foot.AdjustFrame = False
        Foot.Visible = False
        LeftWall.Brush.Color = clWhite
        MarginBottom = 0
        MarginLeft = 0
        MarginRight = 0
        MarginTop = 0
        Title.AdjustFrame = False
        Title.Text.Strings = (
          #28201#24230)
        Title.Visible = False
        BottomAxis.DateTimeFormat = 'hh:nn:ss:zz'
        BottomAxis.ExactDateTime = False
        BottomAxis.Increment = 10.000000000000000000
        BottomAxis.LabelsAngle = 270
        BottomAxis.LabelsOnAxis = False
        BottomAxis.MinorTickCount = 8
        BottomAxis.EndPosition = 99.000000000000000000
        BottomAxis.TickInnerLength = 2
        BottomAxis.TickLength = 3
        BottomAxis.Ticks.Visible = False
        ClipPoints = False
        DepthAxis.Automatic = False
        DepthAxis.AutomaticMaximum = False
        DepthAxis.AutomaticMinimum = False
        DepthAxis.ExactDateTime = False
        DepthAxis.LabelsOnAxis = False
        DepthAxis.Maximum = 300.000000000000000000
        DepthAxis.TicksInner.Visible = False
        DepthAxis.Title.Caption = 'xcvxzv'
        LeftAxis.Ticks.Style = psDot
        Legend.DividingLines.Width = 5
        Legend.Frame.Visible = False
        Legend.Gradient.Visible = True
        Legend.Shadow.HorizSize = -4
        Legend.Shadow.Smooth = False
        Legend.Shadow.VertSize = 0
        Legend.Symbol.Squared = True
        Legend.TextStyle = ltsPlain
        RightAxis.Automatic = False
        RightAxis.AutomaticMaximum = False
        RightAxis.AutomaticMinimum = False
        RightAxis.Visible = False
        TopAxis.Automatic = False
        TopAxis.AutomaticMaximum = False
        TopAxis.AutomaticMinimum = False
        TopAxis.Visible = False
        View3D = False
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        PrintMargins = (
          15
          5
          15
          5)
        object Series1: TLineSeries
          Marks.Callout.Brush.Color = clBlack
          Marks.Visible = False
          DataSource = ADODataSet1
          Dark3D = False
          Pointer.HorizSize = 3
          Pointer.InflateMargins = False
          Pointer.Style = psCircle
          Pointer.VertSize = 3
          Pointer.Visible = False
          XValues.Name = 'X'
          XValues.Order = loAscending
          YValues.Name = 'Y'
          YValues.Order = loNone
          YValues.ValueSource = #25968#25454'1'
        end
        object Series2: TLineSeries
          Marks.Callout.Brush.Color = clBlack
          Marks.Visible = False
          DataSource = ADODataSet1
          SeriesColor = clMaroon
          Dark3D = False
          Pointer.HorizSize = 3
          Pointer.InflateMargins = True
          Pointer.Style = psCircle
          Pointer.VertSize = 3
          Pointer.Visible = False
          XValues.Name = 'X'
          XValues.Order = loAscending
          YValues.Name = 'Y'
          YValues.Order = loNone
          YValues.ValueSource = #25968#25454'2'
        end
        object Series3: TLineSeries
          Marks.Callout.Brush.Color = clBlack
          Marks.Visible = False
          DataSource = ADODataSet1
          SeriesColor = 8388672
          Dark3D = False
          Pointer.HorizSize = 3
          Pointer.InflateMargins = True
          Pointer.Style = psCircle
          Pointer.VertSize = 3
          Pointer.Visible = False
          XValues.Name = 'X'
          XValues.Order = loAscending
          YValues.Name = 'Y'
          YValues.Order = loNone
          YValues.ValueSource = #25968#25454'3'
        end
        object Series4: TLineSeries
          Marks.Callout.Brush.Color = clBlack
          Marks.Visible = False
          DataSource = ADODataSet1
          SeriesColor = 65408
          Dark3D = False
          Pointer.HorizSize = 3
          Pointer.InflateMargins = True
          Pointer.Style = psCircle
          Pointer.VertSize = 3
          Pointer.Visible = False
          XValues.Name = 'X'
          XValues.Order = loAscending
          YValues.Name = 'Y'
          YValues.Order = loNone
          YValues.ValueSource = #25968#25454'4'
        end
        object Series5: TLineSeries
          Marks.Callout.Brush.Color = clBlack
          Marks.Visible = False
          DataSource = ADODataSet1
          SeriesColor = 16744448
          Dark3D = False
          Pointer.HorizSize = 3
          Pointer.InflateMargins = True
          Pointer.Style = psCircle
          Pointer.VertSize = 3
          Pointer.Visible = False
          XValues.Name = 'X'
          XValues.Order = loAscending
          YValues.Name = 'Y'
          YValues.Order = loNone
          YValues.ValueSource = #25968#25454'5'
        end
        object Series6: TLineSeries
          Marks.Callout.Brush.Color = clBlack
          Marks.Visible = False
          DataSource = ADODataSet1
          SeriesColor = 12615935
          Dark3D = False
          Pointer.HorizSize = 3
          Pointer.InflateMargins = True
          Pointer.Style = psCircle
          Pointer.VertSize = 3
          Pointer.Visible = False
          XValues.Name = 'X'
          XValues.Order = loAscending
          YValues.Name = 'Y'
          YValues.Order = loNone
          YValues.ValueSource = #25968#25454'6'
        end
        object Series7: TLineSeries
          Marks.Callout.Brush.Color = clBlack
          Marks.Visible = False
          DataSource = ADODataSet1
          SeriesColor = clMaroon
          Dark3D = False
          Pointer.HorizSize = 3
          Pointer.InflateMargins = True
          Pointer.Style = psCircle
          Pointer.VertSize = 3
          Pointer.Visible = False
          XValues.Name = 'X'
          XValues.Order = loAscending
          YValues.Name = 'Y'
          YValues.Order = loNone
          YValues.ValueSource = #25968#25454'7'
        end
        object Series8: TLineSeries
          Marks.Callout.Brush.Color = clBlack
          Marks.Visible = False
          DataSource = ADODataSet1
          SeriesColor = 8388672
          Dark3D = False
          Pointer.HorizSize = 3
          Pointer.InflateMargins = True
          Pointer.Style = psCircle
          Pointer.VertSize = 3
          Pointer.Visible = False
          XValues.Name = 'X'
          XValues.Order = loAscending
          YValues.Name = 'Y'
          YValues.Order = loNone
          YValues.ValueSource = #25968#25454'8'
        end
        object Series9: TLineSeries
          Marks.Callout.Brush.Color = clBlack
          Marks.Visible = False
          DataSource = ADODataSet1
          SeriesColor = clYellow
          Dark3D = False
          Pointer.HorizSize = 3
          Pointer.InflateMargins = True
          Pointer.Style = psCircle
          Pointer.VertSize = 3
          Pointer.Visible = False
          XValues.Name = 'X'
          XValues.Order = loAscending
          YValues.Name = 'Y'
          YValues.Order = loNone
          YValues.ValueSource = #25968#25454'9'
        end
        object Series10: TLineSeries
          Marks.Callout.Brush.Color = clBlack
          Marks.Visible = False
          DataSource = ADODataSet1
          SeriesColor = 65408
          Dark3D = False
          Pointer.HorizSize = 3
          Pointer.InflateMargins = True
          Pointer.Style = psCircle
          Pointer.VertSize = 3
          Pointer.Visible = False
          XValues.Name = 'X'
          XValues.Order = loAscending
          YValues.Name = 'Y'
          YValues.Order = loNone
          YValues.ValueSource = #25968#25454'10'
        end
      end
    end
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 368
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 273
    Top = 32
  end
  object ADODataSet1: TADODataSet
    AutoCalcFields = False
    CacheSize = 15
    Connection = ADOConnection1
    CursorLocation = clUseServer
    ExecuteOptions = [eoAsyncFetch, eoAsyncFetchNonBlocking]
    CommandText = ' select * from  db'
    Parameters = <>
    Left = 290
    Top = 89
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from  db')
    Left = 242
    Top = 129
  end
  object OpenDialog1: TOpenDialog
    Left = 64
    Top = 16
  end
  object SavePictureDialog1: TSavePictureDialog
    DefaultExt = 'wmf'
    Left = 112
    Top = 32
  end
end