object Form1: TForm1 Left = 202 Top = 108 Width = 366 Height = 354 Caption = 'Form1' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 11 object TabControl1: TTabControl Left = 0 Top = 0 Width = 358 Height = 327 Align = alClient TabOrder = 0 OnChange = TabControl1Change object Label1: TLabel Left = 14 Top = 77 Width = 38 Height = 13 Caption = 'EmpNo' FocusControl = DBEdit1 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 14 Top = 115 Width = 55 Height = 13 Caption = 'LastName' FocusControl = DBEdit2 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 14 Top = 152 Width = 57 Height = 13 Caption = 'FirstName' FocusControl = DBEdit3 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 14 Top = 190 Width = 54 Height = 13 Caption = 'PhoneExt' FocusControl = DBEdit4 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 14 Top = 228 Width = 49 Height = 13 Caption = 'HireDate' FocusControl = DBEdit5 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 14 Top = 265 Width = 34 Height = 13 Caption = 'Salary' FocusControl = DBEdit6 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False end object DBText1: TDBText Left = 47 Top = 60 Width = 6 Height = 13 AutoSize = True DataField = 'FullName' DataSource = DataSource1 Font.Charset = SHIFTJIS_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [fsBold] ParentFont = False end object DBEdit1: TDBEdit Left = 14 Top = 90 Width = 75 Height = 21 DataField = 'EmpNo' DataSource = DataSource1 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False TabOrder = 0 end object DBEdit2: TDBEdit Left = 14 Top = 128 Width = 104 Height = 21 DataField = 'LastName' DataSource = DataSource1 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False TabOrder = 1 end object DBEdit3: TDBEdit Left = 14 Top = 165 Width = 107 Height = 21 DataField = 'FirstName' DataSource = DataSource1 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False TabOrder = 2 end object DBEdit4: TDBEdit Left = 14 Top = 204 Width = 59 Height = 21 DataField = 'PhoneExt' DataSource = DataSource1 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False TabOrder = 3 end object DBEdit5: TDBEdit Left = 14 Top = 241 Width = 67 Height = 21 DataField = 'HireDate' DataSource = DataSource1 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False TabOrder = 4 end object DBEdit6: TDBEdit Left = 14 Top = 280 Width = 67 Height = 21 DataField = 'Salary' DataSource = DataSource1 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] ParentFont = False TabOrder = 5 end end object Table1: TTable Active = True OnCalcFields = Table1CalcFields DatabaseName = 'DBDEMOS' TableName = 'EMPLOYEE.DB' Left = 216 Top = 24 object Table1EmpNo: TIntegerField FieldName = 'EmpNo' DisplayFormat = 'Emp'#39'#'#39' 0000' MaxValue = 9999 MinValue = 1 end object Table1LastName: TStringField FieldName = 'LastName' end object Table1FirstName: TStringField FieldName = 'FirstName' Size = 15 end object Table1PhoneExt: TStringField FieldName = 'PhoneExt' Size = 4 end object Table1HireDate: TDateTimeField FieldName = 'HireDate' end object Table1Salary: TFloatField FieldName = 'Salary' end object Table1FullName: TStringField FieldName = 'FullName' Size = 30 Calculated = True end end object DataSource1: TDataSource DataSet = Table1 Left = 248 Top = 24 end end