home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue25 / speed / UnitDataModule.dfm / UnitDataModule.txt
Encoding:
Text File  |  1997-05-17  |  2.3 KB  |  94 lines
  1. object DataModule2: TDataModule2
  2.   OnCreate = DataModule2Create
  3.   Left = 504
  4.   Top = 338
  5.   Height = 234
  6.   Width = 178
  7.   object Database1: TDatabase
  8.     AliasName = 'IBLOCAL'
  9.     Connected = True
  10.     DatabaseName = 'DatabaseIBLocal'
  11.     LoginPrompt = False
  12.     Params.Strings = (
  13.       'USER NAME=SYSDBA'
  14.       'PASSWORD=masterkey')
  15.     SessionName = 'Default'
  16.     TransIsolation = tiRepeatableRead
  17.     OnLogin = Database1Login
  18.     Left = 24
  19.     Top = 8
  20.   end
  21.   object DataSource1: TDataSource
  22.     DataSet = Table1
  23.     OnStateChange = DataSource1StateChange
  24.     Left = 24
  25.     Top = 112
  26.   end
  27.   object Table1: TTable
  28.     Active = True
  29.     DatabaseName = 'DatabaseIBLocal'
  30.     TableName = 'CUSTOMER'
  31.     UpdateMode = upWhereChanged
  32.     Left = 24
  33.     Top = 64
  34.     object Table1CUST_NO: TIntegerField
  35.       FieldName = 'CUST_NO'
  36.       Required = True
  37.     end
  38.     object Table1CUSTOMER: TStringField
  39.       FieldName = 'CUSTOMER'
  40.       Required = True
  41.       Size = 25
  42.     end
  43.     object Table1CONTACT_FIRST: TStringField
  44.       FieldName = 'CONTACT_FIRST'
  45.       Size = 15
  46.     end
  47.     object Table1CONTACT_LAST: TStringField
  48.       FieldName = 'CONTACT_LAST'
  49.     end
  50.     object Table1PHONE_NO: TStringField
  51.       FieldName = 'PHONE_NO'
  52.     end
  53.     object Table1ADDRESS_LINE1: TStringField
  54.       FieldName = 'ADDRESS_LINE1'
  55.       Size = 30
  56.     end
  57.     object Table1ADDRESS_LINE2: TStringField
  58.       FieldName = 'ADDRESS_LINE2'
  59.       Size = 30
  60.     end
  61.     object Table1CITY: TStringField
  62.       FieldName = 'CITY'
  63.       Size = 25
  64.     end
  65.     object Table1STATE_PROVINCE: TStringField
  66.       FieldName = 'STATE_PROVINCE'
  67.       Size = 15
  68.     end
  69.     object Table1COUNTRY: TStringField
  70.       FieldName = 'COUNTRY'
  71.       Size = 15
  72.     end
  73.     object Table1POSTAL_CODE: TStringField
  74.       FieldName = 'POSTAL_CODE'
  75.       Size = 12
  76.     end
  77.     object Table1ON_HOLD: TStringField
  78.       FieldName = 'ON_HOLD'
  79.       Size = 1
  80.     end
  81.   end
  82.   object StoredProcGetBudgetInfo: TStoredProc
  83.     DatabaseName = 'DatabaseIBLocal'
  84.     StoredProcName = 'SUB_TOT_BUDGET'
  85.     Params.Data = {
  86.       0100050009484541445F44455054010104003632300000010A544F545F425544
  87.       47455402060800000000007099344100010A4156475F42554447455402060800
  88.       0000000040771B4100010A4D494E5F4255444745540206080000000000804F12
  89.       4100010A4D41585F425544474554020608000000000020D623410001}
  90.     Left = 104
  91.     Top = 64
  92.   end
  93. end
  94.