zddqsju.~dfm

在delphi下对串口编程,实现与下位计的通信,并实时接收下位计数据,并保存到数据库中

object zddqsj: Tzddqsj
  Left = 86
  Top = 138
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #33258#21160#35835#21462#25968#25454
  ClientHeight = 484
  ClientWidth = 756
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 11
    Width = 36
    Height = 12
    Caption = #32534#21495#65306
  end
  object Bevel1: TBevel
    Left = 0
    Top = 1
    Width = 756
    Height = 3
    Style = bsRaised
  end
  object Label2: TLabel
    Left = 8
    Top = 37
    Width = 36
    Height = 12
    Caption = #24207#21495#65306
  end
  object Label3: TLabel
    Left = 8
    Top = 64
    Width = 36
    Height = 12
    Caption = #36710#21495#65306
  end
  object Label4: TLabel
    Left = 164
    Top = 37
    Width = 36
    Height = 12
    Caption = #30382#37325#65306
  end
  object Label5: TLabel
    Left = 164
    Top = 64
    Width = 36
    Height = 12
    Caption = #20928#37325#65306
  end
  object Label6: TLabel
    Left = 164
    Top = 91
    Width = 36
    Height = 12
    Caption = #26085#26399#65306
  end
  object Label7: TLabel
    Left = 164
    Top = 11
    Width = 36
    Height = 12
    Caption = #27611#37325#65306
  end
  object Label8: TLabel
    Left = 8
    Top = 91
    Width = 36
    Height = 12
    Caption = #21333#20301#65306
  end
  object Label9: TLabel
    Left = 321
    Top = 37
    Width = 60
    Height = 12
    Caption = #20202#34920#21442#25968#65306
  end
  object Label10: TLabel
    Left = 321
    Top = 11
    Width = 60
    Height = 12
    Caption = #20202#34920#24207#21495#65306
  end
  object Label11: TLabel
    Left = 503
    Top = 37
    Width = 48
    Height = 12
    Caption = #21496#30917#21592#65306
  end
  object Label12: TLabel
    Left = 321
    Top = 64
    Width = 60
    Height = 12
    Caption = #21333#20301#21517#31216#65306
  end
  object Label13: TLabel
    Left = 321
    Top = 91
    Width = 60
    Height = 12
    Caption = #26631#20934#21442#25968#65306
  end
  object Label14: TLabel
    Left = 503
    Top = 63
    Width = 48
    Height = 12
    Caption = #30408#20111#37327#65306
  end
  object Bevel2: TBevel
    Left = 0
    Top = 111
    Width = 756
    Height = 3
    Style = bsRaised
  end
  object Bevel3: TBevel
    Left = 0
    Top = 482
    Width = 758
    Height = 3
    Style = bsRaised
  end
  object Label15: TLabel
    Left = 503
    Top = 11
    Width = 60
    Height = 12
    Caption = #36135#29289#21517#31216#65306
  end
  object DBGrid1: TDBGrid
    Left = -1
    Top = 116
    Width = 762
    Height = 364
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #32534#21495
        Title.Alignment = taCenter
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24207#21495
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20301#21517#31216
        Title.Alignment = taCenter
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#29289#21517#31216
        Title.Alignment = taCenter
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36710#21495
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = #30382#37325
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = #27611#37325
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20928#37325
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26085#26399
        Title.Alignment = taCenter
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20202#34920#24207#21495
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20202#34920#21442#25968
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26631#20934#21442#25968
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20301
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21496#30917#21592
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = #30408#20111#37327
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22791#27880
        Title.Alignment = taCenter
        Width = 60
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 680
    Top = 6
    Width = 75
    Height = 20
    Caption = #20851#38381
    TabOrder = 1
    OnClick = Button1Click
  end
  object Animate1: TAnimate
    Left = 689
    Top = 43
    Width = 64
    Height = 58
    Active = True
    AutoSize = False
    CommonAVI = aviFindComputer
    StopFrame = 8
    Timers = True
  end
  object bh: TEdit
    Left = 40
    Top = 6
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 3
  end
  object xh: TEdit
    Left = 40
    Top = 33
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 4
  end
  object ch: TEdit
    Left = 40
    Top = 60
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 5
  end
  object dw: TEdit
    Left = 40
    Top = 87
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 6
  end
  object mz: TEdit
    Left = 196
    Top = 6
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 7
  end
  object pz: TEdit
    Left = 196
    Top = 33
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 8
  end
  object jz: TEdit
    Left = 196
    Top = 60
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 9
  end
  object rq: TEdit
    Left = 196
    Top = 87
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 10
  end
  object ybxh: TEdit
    Left = 378
    Top = 6
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 11
  end
  object ybcs: TEdit
    Left = 378
    Top = 33
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 12
  end
  object dwmc: TEdit
    Left = 378
    Top = 60
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 13
  end
  object bzcs: TEdit
    Left = 378
    Top = 87
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 14
  end
  object sby: TEdit
    Left = 558
    Top = 33
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 15
  end
  object ykl: TEdit
    Left = 558
    Top = 60
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 16
  end
  object MSComm1: TMSComm
    Left = 656
    Top = 170
    Width = 32
    Height = 32
    OnComm = MSComm1Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00025200802500000000080000000000000000003F00000001000000}
  end
  object hwmc: TEdit
    Left = 558
    Top = 6
    Width = 121
    Height = 20
    Color = 12713921
    ReadOnly = True
    TabOrder = 18
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 128
    Top = 445
  end
  object Table1: TTable
    DatabaseName = 'zhsj'
    ReadOnly = True
    TableName = #36807#30917#30331#35760#20020#26102#34920
    Left = 83
    Top = 447
  end
  object Query1: TQuery
    DatabaseName = 'zhsj'
    Left = 176
    Top = 445
  end
  object zhsjk: TDatabase
    DatabaseName = 'zhsj'
    DriverName = 'Microsoft Access Driver (*.mdb)'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='#30917#25151#25968#25454
      'USER NAME='
      'ODBC DSN='#30917#25151#25968#25454
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'SQLQRYMODE='
      'LANGDRIVER='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'PASSWORD=751203')
    SessionName = 'Default'
    Left = 48
    Top = 445
  end
end