main.~dfm

串口通讯的使用

object Form1: TForm1
  Left = 324
  Top = 119
  Width = 656
  Height = 570
  Caption = #39044#32422#36719#20214#32456#31471
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object MSComm: TMSComm
    Left = 128
    Top = 264
    Width = 32
    Height = 32
    OnComm = MSCommComm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020000802500000000080000000000000000003F00000001000000}
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 518
    Width = 648
    Height = 25
    Panels = <
      item
        Alignment = taCenter
        Text = ' '
        Width = 300
      end
      item
        Alignment = taCenter
        Text = '      '
        Width = 180
      end>
  end
  object Panel2: TPanel
    Left = 169
    Top = 0
    Width = 479
    Height = 518
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 2
    object Memo2: TMemo
      Left = 1
      Top = 1
      Width = 477
      Height = 516
      Align = alClient
      Ctl3D = False
      ParentCtl3D = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 169
    Height = 518
    Align = alLeft
    TabOrder = 3
    object RzGroupBox1: TRzGroupBox
      Left = 5
      Top = 1
      Width = 160
      Height = 104
      Caption = #31471#21475#35774#32622
      TabOrder = 0
      object Label6: TLabel
        Left = 7
        Top = 20
        Width = 44
        Height = 13
        AutoSize = False
        Caption = #31471'    '#21475
      end
      object Label1: TLabel
        Left = 6
        Top = 43
        Width = 44
        Height = 13
        AutoSize = False
        Caption = #27874#29305#29575
      end
      object Btn_Open: TSpeedButton
        Left = 6
        Top = 72
        Width = 65
        Height = 22
        Caption = #25171#24320#31471#21475
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Btn_OpenClick
      end
      object Btn_Device: TSpeedButton
        Left = 79
        Top = 72
        Width = 74
        Height = 22
        Caption = #35774#22791#31649#29702#22120
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Btn_DeviceClick
      end
      object Com_Port: TsuiComboBox
        Left = 59
        Top = 16
        Width = 94
        Height = 21
        UIStyle = DeepBlue
        BorderColor = clBlack
        ArrowColor = clBlack
        ButtonColor = 15263976
        ItemHeight = 13
        TabOrder = 0
      end
      object Com_BaudRate: TsuiComboBox
        Left = 59
        Top = 40
        Width = 94
        Height = 21
        UIStyle = DeepBlue
        BorderColor = clBlack
        ArrowColor = clBlack
        ButtonColor = 15263976
        ItemHeight = 13
        TabOrder = 1
        Text = '19200'
        Items.Strings = (
          '4800'
          '9600'
          '19200')
      end
    end
    object RzGroupBox2: TRzGroupBox
      Left = 5
      Top = 108
      Width = 160
      Height = 78
      Caption = #26381#21153#22120#21442#25968
      TabOrder = 1
      object Label4: TLabel
        Left = 8
        Top = 24
        Width = 53
        Height = 13
        AutoSize = False
        Caption = #26381#21153#22120
      end
      object Btn_LinkServer: TSpeedButton
        Left = 80
        Top = 48
        Width = 73
        Height = 22
        Caption = #36830#25509#26381#21153#22120
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Com_ServerIP: TsuiComboBox
        Left = 62
        Top = 19
        Width = 92
        Height = 21
        UIStyle = DeepBlue
        BorderColor = clBlack
        ArrowColor = clBlack
        ButtonColor = 15263976
        ItemHeight = 13
        TabOrder = 0
        Items.Strings = (
          #26381#21153#22120#19968
          #26412#22320)
      end
    end
    object RzGroupBox3: TRzGroupBox
      Left = 5
      Top = 192
      Width = 160
      Height = 65
      Caption = #29992#25143#39044#32422
      TabOrder = 2
      object Label3: TLabel
        Left = 4
        Top = 19
        Width = 70
        Height = 13
        AutoSize = False
        Caption = #29992#25143#21495#30721
      end
      object Btn_Test: TSpeedButton
        Left = 106
        Top = 32
        Width = 49
        Height = 22
        Caption = #27979#35797
      end
      object Edit1: TEdit
        Left = 4
        Top = 35
        Width = 97
        Height = 19
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        OnKeyPress = Edit1KeyPress
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 4
    Top = 266
    Width = 160
    Height = 218
    Ctl3D = False
    DataSource = DataSource_refuse
    ParentCtl3D = False
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Title.Caption = #32534#21495
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'usernumber'
        Title.Caption = #29992#25143#21495#30721
        Width = 90
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 6
    Top = 492
    Width = 156
    Height = 25
    DataSource = DataSource_refuse
    VisibleButtons = [nbPrior, nbNext, nbInsert, nbDelete, nbCancel, nbRefresh]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
  end
  object Timer1: TTimer
    Interval = 50
    OnTimer = Timer1Timer
    Left = 232
    Top = 80
  end
  object IdTCPClient: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 0
    Port = 0
    Left = 240
    Top = 152
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=telvi' +
      'ew.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:Sys' +
      'tem database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Pa' +
      'ssword="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mod' +
      'e=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Tr' +
      'ansactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create' +
      ' System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLED' +
      'B:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Without R' +
      'eplica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 384
    Top = 112
  end
  object ADOQuery: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from revnumber')
    Left = 416
    Top = 112
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery
    Left = 448
    Top = 112
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from dailnumber')
    Left = 416
    Top = 144
  end
  object ADOQuerylist: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from revnumber')
    Left = 416
    Top = 184
  end
  object ADOQuery_refuse: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from refuser')
    Left = 48
    Top = 376
  end
  object DataSource_refuse: TDataSource
    DataSet = ADOQuery_refuse
    Left = 80
    Top = 376
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 368
    Top = 272
  end
  object ADOQuery_del: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 344
    Top = 344
  end
  object Timer2: TTimer
    Interval = 4000
    OnTimer = Timer2Timer
    Left = 240
    Top = 280
  end
  object Timer3: TTimer
    Interval = 3000
    OnTimer = Timer3Timer
    Left = 240
    Top = 312
  end
end