unitquerycountform.dfm

串口短信猫收发软件。支持西门子TC35i设备

object QueryCountForm: TQueryCountForm
  Left = 192
  Top = 107
  Width = 750
  Height = 550
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #26597#35810#32479#35745
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object RzLabel16: TRzLabel
    Left = 9
    Top = 29
    Width = 72
    Height = 12
    Caption = #35831#27714#32467#26463#26085#26399
    BlinkIntervalOff = 1000
    BlinkIntervalOn = 1000
  end
  object RzPageControl1: TRzPageControl
    Left = 0
    Top = 0
    Width = 742
    Height = 523
    ActivePage = TabSheet1
    Align = alClient
    Images = ImageList1
    TabIndex = 0
    TabOrder = 0
    OnChange = RzPageControl1Change
    FixedDimension = 22
    object TabSheet1: TRzTabSheet
      ImageIndex = 2
      Caption = #21457#36865#30701#20449
      object RzPanel1: TRzPanel
        Left = 0
        Top = 0
        Width = 738
        Height = 41
        Align = alTop
        BorderOuter = fsNone
        TabOrder = 0
        object RzLabel1: TRzLabel
          Left = 8
          Top = 16
          Width = 72
          Height = 12
          Caption = #35831#27714#36215#22987#26085#26399
          BlinkIntervalOff = 1000
          BlinkIntervalOn = 1000
        end
        object RzLabel2: TRzLabel
          Left = 197
          Top = 16
          Width = 72
          Height = 12
          Caption = #35831#27714#32467#26463#26085#26399
          BlinkIntervalOff = 1000
          BlinkIntervalOn = 1000
        end
        object RzLabel17: TRzLabel
          Left = 386
          Top = 16
          Width = 48
          Height = 12
          Caption = #21457#36865#32467#26524
          BlinkIntervalOff = 1000
          BlinkIntervalOn = 1000
        end
        object RzBitBtn1: TRzBitBtn
          Left = 516
          Top = 10
          Width = 65
          Caption = #26597#35810' '
          TabOrder = 3
          OnClick = RzBitBtn1Click
          ImageIndex = 14
          Images = ImageList1
        end
        object DateTimePicker1: TDateTimePicker
          Left = 84
          Top = 12
          Width = 109
          Height = 20
          CalAlignment = dtaLeft
          Date = 38644.6611369676
          Time = 38644.6611369676
          Color = clInfoBk
          DateFormat = dfLong
          DateMode = dmComboBox
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          Kind = dtkDate
          ParseInput = False
          TabOrder = 0
        end
        object DateTimePicker2: TDateTimePicker
          Left = 273
          Top = 13
          Width = 109
          Height = 20
          CalAlignment = dtaLeft
          Date = 38644.6611369676
          Time = 38644.6611369676
          Color = clInfoBk
          DateFormat = dfLong
          DateMode = dmComboBox
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          Kind = dtkDate
          ParseInput = False
          TabOrder = 1
        end
        object RzBitBtn4: TRzBitBtn
          Left = 586
          Top = 10
          Width = 65
          Caption = #25171#21360
          TabOrder = 4
          OnClick = RzBitBtn4Click
          ImageIndex = 10
          Images = ImageList1
        end
        object RzComboBox_SendResult: TRzComboBox
          Left = 435
          Top = 13
          Width = 54
          Height = 20
          Style = csDropDownList
          Color = clInfoBk
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          ItemHeight = 12
          TabOrder = 2
          Text = #20840#37096
          Items.Strings = (
            #20840#37096
            #24050#21457
            #26410#21457
            #22833#36133)
          ItemIndex = 0
        end
      end
      object RzPanel2: TRzPanel
        Left = 0
        Top = 41
        Width = 738
        Height = 456
        Align = alClient
        BorderOuter = fsNone
        TabOrder = 1
        object RzDBGrid1: TRzDBGrid
          Left = 0
          Top = 0
          Width = 738
          Height = 456
          Align = alClient
          Color = clWhite
          DataSource = DM.DSrc_Request
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnDrawColumnCell = RzDBGrid1DrawColumnCell
          OnDblClick = RzDBGrid1DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'req_time'
              Title.Alignment = taCenter
              Width = 119
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'send_mobile'
              Title.Alignment = taCenter
              Width = 91
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'result'
              Title.Alignment = taCenter
              Width = 53
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'send_data'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'send_time'
              Title.Alignment = taCenter
              Width = 120
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'send_num'
              Title.Alignment = taCenter
              Width = 64
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'send_remark'
              Width = 64
              Visible = True
            end>
        end
      end
    end
    object TabSheet2: TRzTabSheet
      ImageIndex = 0
      Caption = #25509#25910#30701#20449
      object RzPanel3: TRzPanel
        Left = 0
        Top = 41
        Width = 738
        Height = 456
        Align = alClient
        BorderOuter = fsNone
        TabOrder = 0
        object RzDBGrid2: TRzDBGrid
          Left = 0
          Top = 0
          Width = 738
          Height = 456
          Align = alClient
          Color = clWhite
          DataSource = DM.DSrc_Response
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnDrawColumnCell = RzDBGrid2DrawColumnCell
          OnDblClick = RzDBGrid2DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'reci_time'
              Title.Alignment = taCenter
              Width = 119
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'reci_mobile'
              Title.Alignment = taCenter
              Width = 91
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'reci_data'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'res_time'
              Title.Alignment = taCenter
              Width = 64
              Visible = True
            end>
        end
      end
      object RzPanel4: TRzPanel
        Left = 0
        Top = 0
        Width = 738
        Height = 41
        Align = alTop
        BorderOuter = fsNone
        TabOrder = 1
        object RzLabel3: TRzLabel
          Left = 8
          Top = 16
          Width = 72
          Height = 12