unit4.~dfm

来自「学校短信息系统 采用华域科技的SzgmtSms 通讯模块」· ~DFM 代码 · 共 105 行

object schedule: Tschedule
  Left = 316
  Top = 161
  Width = 628
  Height = 334
  Caption = #20316#24687#26102#38388
  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 DBGrid1: TDBGrid
    Left = 8
    Top = 40
    Width = 601
    Height = 257
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'am_in'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'am_out'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pm_in'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pm_out'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zc_in'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zc_out'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ws_in'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ws_out'
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 200
    Top = 8
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 1
  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 = 24
    Top = 8
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'schedule'
    Left = 64
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 104
    Top = 8
  end
end