unit5.dfm

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

object daily: Tdaily
  Left = 246
  Top = 184
  Width = 696
  Height = 480
  Caption = #20986#21220#29366#20917
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 32
    Width = 24
    Height = 13
    Caption = #24180#32423
  end
  object Label2: TLabel
    Left = 176
    Top = 56
    Width = 24
    Height = 13
    Caption = #32570#24109
  end
  object Label3: TLabel
    Left = 16
    Top = 96
    Width = 24
    Height = 13
    Caption = #29677#32423
  end
  object Label4: TLabel
    Left = 168
    Top = 136
    Width = 24
    Height = 13
    Caption = #32570#24109
  end
  object Label5: TLabel
    Left = 168
    Top = 32
    Width = 36
    Height = 13
    Caption = #24635#20154#25968
  end
  object Label6: TLabel
    Left = 168
    Top = 104
    Width = 36
    Height = 13
    Caption = #24635#20154#25968
  end
  object Label7: TLabel
    Left = 16
    Top = 184
    Width = 24
    Height = 13
    Caption = #20840#26657
  end
  object Label8: TLabel
    Left = 48
    Top = 184
    Width = 36
    Height = 13
    Caption = #24635#20154#25968
  end
  object Label9: TLabel
    Left = 160
    Top = 184
    Width = 24
    Height = 13
    Caption = #32570#24109
  end
  object ComboBox1: TComboBox
    Left = 56
    Top = 32
    Width = 105
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    OnChange = ComboBox1Change
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 208
    Width = 305
    Height = 241
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Edit1: TEdit
    Left = 208
    Top = 32
    Width = 49
    Height = 21
    TabOrder = 2
  end
  object ComboBox2: TComboBox
    Left = 56
    Top = 96
    Width = 105
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    OnChange = ComboBox2Change
  end
  object Edit2: TEdit
    Left = 208
    Top = 56
    Width = 49
    Height = 21
    TabOrder = 4
  end
  object Memo1: TMemo
    Left = 312
    Top = 32
    Width = 353
    Height = 161
    Lines.Strings = (
      '')
    TabOrder = 5
  end
  object Edit3: TEdit
    Left = 208
    Top = 104
    Width = 41
    Height = 21
    TabOrder = 6
  end
  object Edit4: TEdit
    Left = 208
    Top = 136
    Width = 41
    Height = 21
    TabOrder = 7
  end
  object Edit5: TEdit
    Left = 96
    Top = 184
    Width = 57
    Height = 21
    TabOrder = 8
  end
  object Edit6: TEdit
    Left = 192
    Top = 184
    Width = 41
    Height = 21
    TabOrder = 9
  end
  object Button1: TButton
    Left = 240
    Top = 184
    Width = 65
    Height = 25
    Caption = #25171#21360#39044#35272
    TabOrder = 10
    OnClick = Button1Click
  end
  object Memo2: TMemo
    Left = 320
    Top = 208
    Width = 361
    Height = 241
    Lines.Strings = (
      '')
    TabOrder = 11
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'student_absent_status'
    Left = 48
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 80
  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
    Left = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select distinct grade from class_info')
    Left = 120
  end
end