unit8.~dfm

学校短信息系统 采用华域科技的SzgmtSms 通讯模块

object Form8: TForm8
  Left = 207
  Top = 197
  Width = 321
  Height = 261
  Caption = 'Form8'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 72
    Top = 144
    Width = 73
    Height = 17
    Caption = 'l'#36830#25509#29366#24577':'
  end
  object Label2: TLabel
    Left = 24
    Top = 72
    Width = 48
    Height = 13
    Caption = #30701#20449#20018#21475
  end
  object ComboBox1: TComboBox
    Left = 96
    Top = 64
    Width = 65
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Text = 'com6'
    Items.Strings = (
      'com1'
      'com2'
      'com3'
      'com4'
      'com5'
      'com6')
  end
  object Button1: TButton
    Left = 200
    Top = 64
    Width = 75
    Height = 25
    Caption = #36830#25509
    TabOrder = 1
    OnClick = Button1Click
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Extended Properti' +
      'es="DBQ=D:\DownLoads\'#23478#26657#36890'\test\test007\home_school_2.mdb;DefaultD' +
      'ir=D:\DownLoads\'#23478#26657#36890'\test\test007;Driver={Driver do Microsoft Acc' +
      'ess (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=D:\DownLoads\'#23478#26657#36890'\' +
      'test\test007\hs.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout' +
      '=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"'
    LoginPrompt = False
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from message;')
    Left = 32
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'card_id'
        Size = -1
        Value = Null
      end
      item
        Name = 'today'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select num from status where card_id=:card_id and day=:today;')
    Left = 64
  end
  object ADOCommand1: TADOCommand
    Connection = ADOConnection1
    Parameters = <>
    Left = 96
  end
end