开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
wsnapdata.dfm
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

wsnapdata.dfm：源码内容
  1. object WebDataModule1: TWebDataModule1
  2.   OldCreateOrder = False
  3.   Left = 500
  4.   Top = 109
  5.   Height = 283
  6.   Width = 235
  7.   object ClientDataSet1: TClientDataSet
  8.     Active = True
  9.     Aggregates = <>
  10.     AggregatesActive = True
  11.     Params = <>
  12.     ProviderName = 'DataSetProvider1'
  13.     AfterPost = ClientDataSet1AfterPost
  14.     AfterDelete = ClientDataSet1AfterDelete
  15.     Left = 64
  16.     Top = 32
  17.   end
  18.   object SQLConnection1: TSQLConnection
  19.     Connected = True
  20.     ConnectionName = 'IBLocal'
  21.     DriverName = 'Interbase'
  22.     GetDriverFunc = 'getSQLDriverINTERBASE'
  23.     LibraryName = 'dbexpint.dll'
  24.     LoginPrompt = False
  25.     Params.Strings = (
  26.       'BlobSize=-1'
  27.       'CommitRetain=False'
  28.       
  29.         'Database=c:program filesinterbase corpinterbase6examplesdat' +
  30.         'abaseemployee.gdb'
  31.       'DriverName=Interbase'
  32.       'Password=masterkey'
  33.       'RoleName=RoleName'
  34.       'ServerCharSet=ASCII'
  35.       'SQLDialect=1'
  36.       'Interbase TransIsolation=ReadCommited'
  37.       'User_Name=sysdba'
  38.       'WaitOnLocks=True')
  39.     VendorLib = 'GDS32.DLL'
  40.     Left = 64
  41.     Top = 168
  42.   end
  43.   object SQLDataSet1: TSQLDataSet
  44.     SQLConnection = SQLConnection1
  45.     CommandText = 
  46.       'select CUST_NO, CUSTOMER, ADDRESS_LINE1, CITY, STATE_PROVINCE, C' +
  47.       'OUNTRY from CUSTOMER'
  48.     Params = <>
  49.     Left = 64
  50.     Top = 120
  51.   end
  52.   object DataSetProvider1: TDataSetProvider
  53.     DataSet = SQLDataSet1
  54.     Constraints = True
  55.     Left = 64
  56.     Top = 80
  57.   end
  58. end