unit17.dfm

delphi2009 部分中文资料,源程序等

object Form17: TForm17
  Left = 0
  Top = 0
  Caption = 'Form17'
  ClientHeight = 338
  ClientWidth = 519
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 40
    Top = 80
    Width = 457
    Height = 153
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object IB_UCONNECTION: TSQLConnection
    ConnectionName = 'IB_UCONNECTION'
    DriverName = 'INTERBASE'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbxint.dll'
    LoginPrompt = False
    Params.Strings = (
      '//delegateconnection=DBXTraceConnection,DBXPOOLCONNECTION'
      'drivername=INTERBASE'
      'database=F:\Tiburon\Data\UTF8IBDEMO.IB'
      'rolename=RoleName'
      'user_name=sysdba'
      'Password=masterkey'
      'servercharset=utf8'
      'sqldialect=3'
      'blobsize=-1'
      'commitretain=False'
      'waitonlocks=True'
      'localecode=0000'
      'interbase transisolation=ReadCommited'
      'trim char=False')
    VendorLib = 'GDS32.DLL'
    Connected = True
    Left = 42
    Top = 10
  end
  object SEMINARS: TSQLDataSet
    CommandText = 'SEMINARS'
    CommandType = ctTable
    DbxCommandType = 'Dbx.Table'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = IB_UCONNECTION
    Left = 117
    Top = 13
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SEMINARS
    Left = 192
    Top = 16
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 304
    Top = 8
    object ClientDataSet1序號: TIntegerField
      FieldName = #24207#34399
      Required = True
    end
    object ClientDataSet1名稱: TWideStringField
      FieldName = #21517#31281
      Size = 240
    end
    object ClientDataSet1日期: TTimeField
      FieldName = #26085#26399
    end
    object ClientDataSet1主講人: TWideStringField
      FieldName = #20027#35611#20154
      Size = 40
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 400
    Top = 16
  end
end