home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / FRMQRYSP.DFM / FRMQRYSP.txt
Text File  |  1997-01-16  |  3KB  |  136 lines
  1. object FrmQueryProc: TFrmQueryProc
  2.   Left = 198
  3.   Top = 109
  4.   Width = 381
  5.   Height = 367
  6.   Hint = 
  7.     'Explore the Get_Emp_Proj procedure in the IBLOCAL alias to see t' +
  8.     'he query procedure'
  9.   Caption = 'Employee Project Assignments'
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Position = poScreenCenter
  15.   OnHide = FormHide
  16.   OnShow = FormShow
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Panel1: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 373
  23.     Height = 41
  24.     Align = alTop
  25.     Caption = 'Panel1'
  26.     ParentShowHint = False
  27.     ShowHint = True
  28.     TabOrder = 0
  29.     object DBNavigator: TDBNavigator
  30.       Left = 8
  31.       Top = 8
  32.       Width = 240
  33.       Height = 25
  34.       DataSource = DmEmployee.EmployeeSource
  35.       Ctl3D = False
  36.       ParentCtl3D = False
  37.       TabOrder = 0
  38.     end
  39.     object BitBtn1: TBitBtn
  40.       Left = 305
  41.       Top = 8
  42.       Width = 60
  43.       Height = 25
  44.       Hint = 'Exit and close this form'
  45.       Caption = 'E&xit'
  46.       TabOrder = 1
  47.       Kind = bkClose
  48.       Style = bsNew
  49.     end
  50.   end
  51.   object Panel2: TPanel
  52.     Left = 0
  53.     Top = 41
  54.     Width = 373
  55.     Height = 137
  56.     Align = alTop
  57.     BevelInner = bvLowered
  58.     BorderWidth = 4
  59.     Caption = 'Panel2'
  60.     ParentShowHint = False
  61.     ShowHint = True
  62.     TabOrder = 1
  63.     object DBGrid1: TDBGrid
  64.       Left = 6
  65.       Top = 6
  66.       Width = 361
  67.       Height = 125
  68.       Hint = 'Select an employee to execute the query procedure'
  69.       Align = alClient
  70.       BorderStyle = bsNone
  71.       DataSource = EmployeeSource
  72.       TabOrder = 0
  73.       TitleFont.Color = clWindowText
  74.       TitleFont.Height = -11
  75.       TitleFont.Name = 'MS Sans Serif'
  76.       TitleFont.Style = []
  77.     end
  78.   end
  79.   object Panel3: TPanel
  80.     Left = 0
  81.     Top = 178
  82.     Width = 373
  83.     Height = 143
  84.     Align = alClient
  85.     BevelInner = bvLowered
  86.     BorderWidth = 4
  87.     Caption = 'Panel3'
  88.     ParentShowHint = False
  89.     ShowHint = True
  90.     TabOrder = 2
  91.     object DBGrid2: TDBGrid
  92.       Left = 6
  93.       Top = 6
  94.       Width = 361
  95.       Height = 131
  96.       Hint = 'Use SQL Monitor to see the Get_Emp_Proj query procedure execute'
  97.       Align = alClient
  98.       BorderStyle = bsNone
  99.       DataSource = EmployeeProjectsSource
  100.       TabOrder = 0
  101.       TitleFont.Color = clWindowText
  102.       TitleFont.Height = -11
  103.       TitleFont.Name = 'MS Sans Serif'
  104.       TitleFont.Style = []
  105.     end
  106.   end
  107.   object StatusBar1: TStatusBar
  108.     Left = 0
  109.     Top = 321
  110.     Width = 373
  111.     Height = 19
  112.     Panels = <>
  113.     SimplePanel = True
  114.   end
  115.   object EmployeeSource: TDataSource
  116.     DataSet = DmEmployee.EmployeeTable
  117.     Enabled = False
  118.     OnDataChange = EmployeeSourceDataChange
  119.     Left = 92
  120.     Top = 52
  121.   end
  122.   object EmployeeProjectsQuery: TQuery
  123.     DatabaseName = 'EmployeeDemoDB'
  124.     Params.Data = {0100010006454D505F4E4F0002020002000001}
  125.     SQL.Strings = (
  126.       'Select * from Get_Emp_Proj( :EMP_NO )')
  127.     Left = 92
  128.     Top = 188
  129.   end
  130.   object EmployeeProjectsSource: TDataSource
  131.     DataSet = EmployeeProjectsQuery
  132.     Left = 120
  133.     Top = 188
  134.   end
  135. end
  136.