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

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

Delphi控件源码

开发平台：

Delphi

ServerDataModule.dfm：源码内容
  1. object SoapTestDm: TSoapTestDm
  2.   OldCreateOrder = True
  3.   Left = 193
  4.   Top = 452
  5.   Height = 159
  6.   Width = 269
  7.   object DataSetProvider1: TDataSetProvider
  8.     DataSet = SQLDataSet1
  9.     Constraints = True
  10.     Left = 80
  11.     Top = 24
  12.   end
  13.   object SQLConnection1: TSQLConnection
  14.     Connected = True
  15.     ConnectionName = 'IBLocal'
  16.     DriverName = 'Interbase'
  17.     GetDriverFunc = 'getSQLDriverINTERBASE'
  18.     LibraryName = 'dbexpint.dll'
  19.     LoginPrompt = False
  20.     Params.Strings = (
  21.       'BlobSize=-1'
  22.       'CommitRetain=False'
  23.       
  24.         'Database=c:program filesinterbase corpinterbase6examplesdat' +
  25.         'abaseemployee.gdb'
  26.       'DriverName=Interbase'
  27.       'Password=masterkey'
  28.       'RoleName=RoleName'
  29.       'ServerCharSet=ASCII'
  30.       'SQLDialect=1'
  31.       'Interbase TransIsolation=ReadCommited'
  32.       'User_Name=sysdba'
  33.       'WaitOnLocks=True')
  34.     VendorLib = 'GDS32.DLL'
  35.     Left = 152
  36.     Top = 24
  37.   end
  38.   object SQLDataSet1: TSQLDataSet
  39.     SQLConnection = SQLConnection1
  40.     CommandText = 'select * from EMPLOYEE'
  41.     Params = <>
  42.     Left = 80
  43.     Top = 72
  44.   end
  45.   object SQLDataSet2: TSQLDataSet
  46.     SQLConnection = SQLConnection1
  47.     CommandText = 'select count(*) from EMPLOYEE'
  48.     Params = <>
  49.     Left = 152
  50.     Top = 72
  51.   end
  52. end