home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Midas / Empedit / EMPFORM.DFM / EMPFORM.txt
Encoding:
Text File  |  1999-08-11  |  4.0 KB  |  206 lines

  1. object EmployeeForm: TEmployeeForm
  2.   Left = 241
  3.   Top = 111
  4.   AutoScroll = False
  5.   Caption = 'Employee Administrator'
  6.   ClientHeight = 188
  7.   ClientWidth = 448
  8.   Color = clBtnFace
  9.   Font.Charset = ANSI_CHARSET
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = True
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Label2: TLabel
  18.     Left = 28
  19.     Top = 61
  20.     Width = 50
  21.     Height = 13
  22.     Caption = 'First Name'
  23.     FocusControl = FirstName
  24.   end
  25.   object Label3: TLabel
  26.     Left = 123
  27.     Top = 61
  28.     Width = 61
  29.     Height = 13
  30.     AutoSize = False
  31.     Caption = 'Last Name'
  32.     FocusControl = LastName
  33.   end
  34.   object Label4: TLabel
  35.     Left = 240
  36.     Top = 62
  37.     Width = 15
  38.     Height = 13
  39.     Caption = 'Ext'
  40.     FocusControl = PhoneExt
  41.   end
  42.   object Label5: TLabel
  43.     Left = 28
  44.     Top = 118
  45.     Width = 45
  46.     Height = 13
  47.     Caption = 'Hire Date'
  48.     FocusControl = HireDate
  49.   end
  50.   object Label10: TLabel
  51.     Left = 123
  52.     Top = 116
  53.     Width = 29
  54.     Height = 13
  55.     Caption = 'Salary'
  56.     FocusControl = Salary
  57.   end
  58.   object Label11: TLabel
  59.     Left = 19
  60.     Top = 18
  61.     Width = 52
  62.     Height = 16
  63.     Alignment = taRightJustify
  64.     Caption = 'Emp #: '
  65.     Font.Charset = ANSI_CHARSET
  66.     Font.Color = clBlack
  67.     Font.Height = -13
  68.     Font.Name = 'MS Sans Serif'
  69.     Font.Style = [fsBold]
  70.     ParentFont = False
  71.   end
  72.   object DBText1: TDBText
  73.     Left = 73
  74.     Top = 18
  75.     Width = 68
  76.     Height = 16
  77.     DataField = 'EmpNo'
  78.     DataSource = EmpData
  79.     Font.Charset = ANSI_CHARSET
  80.     Font.Color = clBlack
  81.     Font.Height = -13
  82.     Font.Name = 'MS Sans Serif'
  83.     Font.Style = [fsBold]
  84.     ParentFont = False
  85.   end
  86.   object FirstName: TDBEdit
  87.     Left = 28
  88.     Top = 76
  89.     Width = 78
  90.     Height = 21
  91.     DataField = 'FirstName'
  92.     DataSource = EmpData
  93.     TabOrder = 0
  94.   end
  95.   object LastName: TDBEdit
  96.     Left = 123
  97.     Top = 76
  98.     Width = 99
  99.     Height = 21
  100.     DataField = 'LastName'
  101.     DataSource = EmpData
  102.     TabOrder = 1
  103.   end
  104.   object PhoneExt: TDBEdit
  105.     Left = 240
  106.     Top = 76
  107.     Width = 49
  108.     Height = 21
  109.     DataField = 'PhoneExt'
  110.     DataSource = EmpData
  111.     TabOrder = 2
  112.   end
  113.   object HireDate: TDBEdit
  114.     Left = 28
  115.     Top = 132
  116.     Width = 73
  117.     Height = 21
  118.     DataField = 'HireDate'
  119.     DataSource = EmpData
  120.     TabOrder = 3
  121.   end
  122.   object Salary: TDBEdit
  123.     Left = 121
  124.     Top = 132
  125.     Width = 96
  126.     Height = 21
  127.     DataField = 'Salary'
  128.     DataSource = EmpData
  129.     TabOrder = 4
  130.   end
  131.   object QueryButton: TButton
  132.     Left = 320
  133.     Top = 72
  134.     Width = 105
  135.     Height = 25
  136.     Caption = '&Get Employees'
  137.     TabOrder = 5
  138.     OnClick = QueryButtonClick
  139.   end
  140.   object DBNavigator1: TDBNavigator
  141.     Left = 142
  142.     Top = 14
  143.     Width = 138
  144.     Height = 25
  145.     DataSource = EmpData
  146.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbPost, nbCancel]
  147.     TabOrder = 6
  148.   end
  149.   object UpdateButton: TButton
  150.     Left = 320
  151.     Top = 103
  152.     Width = 105
  153.     Height = 25
  154.     Caption = '&Update Employees'
  155.     TabOrder = 7
  156.     OnClick = UpdateButtonClick
  157.   end
  158.   object UndoButton: TButton
  159.     Left = 320
  160.     Top = 134
  161.     Width = 105
  162.     Height = 25
  163.     Caption = 'U&ndo Last Change'
  164.     TabOrder = 8
  165.     OnClick = UndoButtonClick
  166.   end
  167.   object StatusBar1: TStatusBar
  168.     Left = 0
  169.     Top = 169
  170.     Width = 448
  171.     Height = 19
  172.     Panels = <
  173.       item
  174.         Width = 350
  175.       end
  176.       item
  177.         Width = 50
  178.       end>
  179.     SimplePanel = False
  180.   end
  181.   object EmpData: TDataSource
  182.     DataSet = Employees
  183.     OnDataChange = EmpDataDataChange
  184.     Left = 357
  185.     Top = 12
  186.   end
  187.   object Employees: TClientDataSet
  188.     Active = True
  189.     Aggregates = <>
  190.     PacketRecords = 10
  191.     Params = <>
  192.     ProviderName = 'EmpQueryProvider'
  193.     RemoteServer = RemoteServer1
  194.     OnReconcileError = EmployeesReconcileError
  195.     Left = 326
  196.     Top = 12
  197.   end
  198.   object RemoteServer1: TDCOMConnection
  199.     Connected = True
  200.     ServerGUID = '{53BC6562-5B3E-11D0-9FFC-00A0248E4B9A}'
  201.     ServerName = 'Serv.EmpServer'
  202.     Left = 389
  203.     Top = 12
  204.   end
  205. end
  206.