QBasic & Borland Pascal & C/Delphi5.iso/Runimage/Delphi50/Demos/Midas/Empedit/EMPFORM.DFM/EMPFORM.txt

Text File | 1999-08-11 | 4.0 KB | 206 lines

object EmployeeForm: TEmployeeForm
  Left = 241
  Top = 111
  AutoScroll = False
  Caption = 'Employee Administrator'
  ClientHeight = 188
  ClientWidth = 448
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 28
    Top = 61
    Width = 50
    Height = 13
    Caption = 'First Name'
    FocusControl = FirstName
  end
  object Label3: TLabel
    Left = 123
    Top = 61
    Width = 61
    Height = 13
    AutoSize = False
    Caption = 'Last Name'
    FocusControl = LastName
  end
  object Label4: TLabel
    Left = 240
    Top = 62
    Width = 15
    Height = 13
    Caption = 'Ext'
    FocusControl = PhoneExt
  end
  object Label5: TLabel
    Left = 28
    Top = 118
    Width = 45
    Height = 13
    Caption = 'Hire Date'
    FocusControl = HireDate
  end
  object Label10: TLabel
    Left = 123
    Top = 116
    Width = 29
    Height = 13
    Caption = 'Salary'
    FocusControl = Salary
  end
  object Label11: TLabel
    Left = 19
    Top = 18
    Width = 52
    Height = 16
    Alignment = taRightJustify
    Caption = 'Emp #: '
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText1: TDBText
    Left = 73
    Top = 18
    Width = 68
    Height = 16
    DataField = 'EmpNo'
    DataSource = EmpData
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object FirstName: TDBEdit
    Left = 28
    Top = 76
    Width = 78
    Height = 21
    DataField = 'FirstName'
    DataSource = EmpData
    TabOrder = 0
  end
  object LastName: TDBEdit
    Left = 123
    Top = 76
    Width = 99
    Height = 21
    DataField = 'LastName'
    DataSource = EmpData
    TabOrder = 1
  end
  object PhoneExt: TDBEdit
    Left = 240
    Top = 76
    Width = 49
    Height = 21
    DataField = 'PhoneExt'
    DataSource = EmpData
    TabOrder = 2
  end
  object HireDate: TDBEdit
    Left = 28
    Top = 132
    Width = 73
    Height = 21
    DataField = 'HireDate'
    DataSource = EmpData
    TabOrder = 3
  end
  object Salary: TDBEdit
    Left = 121
    Top = 132
    Width = 96
    Height = 21
    DataField = 'Salary'
    DataSource = EmpData
    TabOrder = 4
  end
  object QueryButton: TButton
    Left = 320
    Top = 72
    Width = 105
    Height = 25
    Caption = '&Get Employees'
    TabOrder = 5
    OnClick = QueryButtonClick
  end
  object DBNavigator1: TDBNavigator
    Left = 142
    Top = 14
    Width = 138
    Height = 25
    DataSource = EmpData
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbPost, nbCancel]
    TabOrder = 6
  end
  object UpdateButton: TButton
    Left = 320
    Top = 103
    Width = 105
    Height = 25
    Caption = '&Update Employees'
    TabOrder = 7
    OnClick = UpdateButtonClick
  end
  object UndoButton: TButton
    Left = 320
    Top = 134
    Width = 105
    Height = 25
    Caption = 'U&ndo Last Change'
    TabOrder = 8
    OnClick = UndoButtonClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 169
    Width = 448
    Height = 19
    Panels = <
      item
        Width = 350
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object EmpData: TDataSource
    DataSet = Employees
    OnDataChange = EmpDataDataChange
    Left = 357
    Top = 12
  end
  object Employees: TClientDataSet
    Active = True
    Aggregates = <>
    PacketRecords = 10
    Params = <>
    ProviderName = 'EmpQueryProvider'
    RemoteServer = RemoteServer1
    OnReconcileError = EmployeesReconcileError
    Left = 326
    Top = 12
  end
  object RemoteServer1: TDCOMConnection
    Connected = True
    ServerGUID = '{53BC6562-5B3E-11D0-9FFC-00A0248E4B9A}'
    ServerName = 'Serv.EmpServer'
    Left = 389
    Top = 12
  end
end