home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Delphi.5 / Samples / sourceD5 / browutil.exe / BROWSER / PERS_ADD.DFM / PERS_ADD.txt < prev   
Encoding:
Text File  |  1998-03-20  |  18.4 KB  |  778 lines
  1. object FrmPers_add: TFrmPers_add
  2.   Left = -1
  3.   Top = 40
  4.   Width = 643
  5.   Height = 442
  6.   HelpContext = 35
  7.   ActiveControl = Panel1
  8.   Caption = 'Personal Addresses'
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   FormStyle = fsMDIChild
  15.   Icon.Data = {<image000.ico>}
  16.   Position = poScreenCenter
  17.   Visible = True
  18.   WindowState = wsMaximized
  19.   OnClose = FormClose
  20.   OnCloseQuery = FormCloseQuery
  21.   OnCreate = FormCreate
  22.   PixelsPerInch = 96
  23.   TextHeight = 13
  24.   object Panel1: TPanel
  25.     Left = 0
  26.     Top = 0
  27.     Width = 635
  28.     Height = 26
  29.     Align = alTop
  30.     BevelInner = bvLowered
  31.     TabOrder = 0
  32.     object Splitter1: TSplitter
  33.       Left = 411
  34.       Top = 2
  35.       Width = 6
  36.       Height = 22
  37.       Cursor = crHSplit
  38.       Align = alRight
  39.     end
  40.     object msDBNavigator1: TmsDBNavigator
  41.       Left = 417
  42.       Top = 2
  43.       Width = 216
  44.       Height = 22
  45.       ErrorMessage = 'Error saving record'
  46.       SearchOnField = 'FullName'
  47.       OnlyNumeric = False
  48.       DisplayFields = 'Fullname;Category;Ident'
  49.       DataSource = SrcPers_add
  50.       VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
  51.       Font.Charset = DEFAULT_CHARSET
  52.       Font.Color = clWindowText
  53.       Font.Height = -13
  54.       Font.Name = 'Times New Roman'
  55.       Font.Style = []
  56.       Align = alRight
  57.       TabOrder = 0
  58.     end
  59.     object BtnClose: TButton
  60.       Left = 4
  61.       Top = 3
  62.       Width = 41
  63.       Height = 20
  64.       Hint = 'Close'
  65.       Cancel = True
  66.       Caption = 'Cl&ose'
  67.       ParentShowHint = False
  68.       ShowHint = True
  69.       TabOrder = 1
  70.       OnClick = BtnCloseClick
  71.     end
  72.     object Button2: TButton
  73.       Left = 49
  74.       Top = 3
  75.       Width = 40
  76.       Height = 20
  77.       Hint = 'View'
  78.       Caption = '&View'
  79.       ParentShowHint = False
  80.       ShowHint = True
  81.       TabOrder = 2
  82.       OnClick = Button2Click
  83.     end
  84.     object msDBNavigator2: TmsDBNavigator
  85.       Left = 228
  86.       Top = 2
  87.       Width = 183
  88.       Height = 22
  89.       ErrorMessage = 'Error saving record'
  90.       OnlyNumeric = False
  91.       DataSource = SrcPers_add
  92.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  93.       Font.Charset = DEFAULT_CHARSET
  94.       Font.Color = clWindowText
  95.       Font.Height = -11
  96.       Font.Name = 'Times New Roman'
  97.       Font.Style = []
  98.       Align = alRight
  99.       TabOrder = 3
  100.     end
  101.     object BtnFindText: TButton
  102.       Left = 94
  103.       Top = 3
  104.       Width = 60
  105.       Height = 20
  106.       Hint = 'Close'
  107.       Caption = '&Find Text'
  108.       ParentShowHint = False
  109.       ShowHint = True
  110.       TabOrder = 4
  111.       OnClick = BtnFindTextClick
  112.     end
  113.   end
  114.   object Panel2: TPanel
  115.     Left = 0
  116.     Top = 26
  117.     Width = 635
  118.     Height = 389
  119.     Align = alClient
  120.     BevelInner = bvLowered
  121.     BorderWidth = 4
  122.     TabOrder = 1
  123.     object GroupBox1: TGroupBox
  124.       Left = 6
  125.       Top = 225
  126.       Width = 623
  127.       Height = 158
  128.       Align = alClient
  129.       Caption = 'Note'
  130.       Font.Charset = DEFAULT_CHARSET
  131.       Font.Color = clBlack
  132.       Font.Height = -13
  133.       Font.Name = 'MS Sans Serif'
  134.       Font.Style = []
  135.       ParentFont = False
  136.       TabOrder = 1
  137.       object MSMemo1: TMSMemo
  138.         Left = 2
  139.         Top = 18
  140.         Width = 619
  141.         Height = 138
  142.         Align = alClient
  143.         DataField = 'Note'
  144.         DataSource = SrcPers_add
  145.         Font.Charset = DEFAULT_CHARSET
  146.         Font.Color = clWindowText
  147.         Font.Height = -13
  148.         Font.Name = 'Courier New'
  149.         Font.Style = []
  150.         ParentFont = False
  151.         TabOrder = 0
  152.         ShowMemoTitle = 'Note'
  153.       end
  154.     end
  155.     object Panel3: TPanel
  156.       Left = 6
  157.       Top = 6
  158.       Width = 623
  159.       Height = 219
  160.       Align = alTop
  161.       TabOrder = 0
  162.       object Label1: TLabel
  163.         Left = 10
  164.         Top = 9
  165.         Width = 31
  166.         Height = 20
  167.         AutoSize = False
  168.         Caption = 'Title'
  169.         Font.Charset = DEFAULT_CHARSET
  170.         Font.Color = clBlack
  171.         Font.Height = 16
  172.         Font.Name = 'MS Sans Serif'
  173.         Font.Style = []
  174.         ParentFont = False
  175.       end
  176.       object Label2: TLabel
  177.         Left = 277
  178.         Top = 9
  179.         Width = 93
  180.         Height = 20
  181.         AutoSize = False
  182.         Caption = 'First Name'
  183.         FocusControl = EditFIRST
  184.         Font.Charset = DEFAULT_CHARSET
  185.         Font.Color = clBlack
  186.         Font.Height = 16
  187.         Font.Name = 'MS Sans Serif'
  188.         Font.Style = []
  189.         ParentFont = False
  190.       end
  191.       object Label3: TLabel
  192.         Left = 433
  193.         Top = 10
  194.         Width = 115
  195.         Height = 17
  196.         AutoSize = False
  197.         Caption = 'Middle Name'
  198.         FocusControl = EditMIDDLE
  199.         Font.Charset = DEFAULT_CHARSET
  200.         Font.Color = clBlack
  201.         Font.Height = 16
  202.         Font.Name = 'MS Sans Serif'
  203.         Font.Style = []
  204.         ParentFont = False
  205.       end
  206.       object Label4: TLabel
  207.         Left = 89
  208.         Top = 9
  209.         Width = 74
  210.         Height = 20
  211.         AutoSize = False
  212.         Caption = 'Last Name'
  213.         FocusControl = EditLAST
  214.         Font.Charset = DEFAULT_CHARSET
  215.         Font.Color = clBlack
  216.         Font.Height = 16
  217.         Font.Name = 'MS Sans Serif'
  218.         Font.Style = []
  219.         ParentFont = False
  220.       end
  221.       object Label5: TLabel
  222.         Left = 10
  223.         Top = 54
  224.         Width = 74
  225.         Height = 20
  226.         AutoSize = False
  227.         Caption = 'Date Of birth'
  228.         Font.Charset = DEFAULT_CHARSET
  229.         Font.Color = clBlack
  230.         Font.Height = 16
  231.         Font.Name = 'MS Sans Serif'
  232.         Font.Style = []
  233.         ParentFont = False
  234.       end
  235.       object Label6: TLabel
  236.         Left = 186
  237.         Top = 54
  238.         Width = 74
  239.         Height = 20
  240.         AutoSize = False
  241.         Caption = 'Identity'
  242.         FocusControl = EditIDENT
  243.         Font.Charset = DEFAULT_CHARSET
  244.         Font.Color = clBlack
  245.         Font.Height = 16
  246.         Font.Name = 'MS Sans Serif'
  247.         Font.Style = []
  248.         ParentFont = False
  249.       end
  250.       object Label7: TLabel
  251.         Left = 10
  252.         Top = 123
  253.         Width = 74
  254.         Height = 20
  255.         AutoSize = False
  256.         Caption = 'Address'
  257.         FocusControl = EditADD_RES1
  258.         Font.Charset = DEFAULT_CHARSET
  259.         Font.Color = clBlack
  260.         Font.Height = 16
  261.         Font.Name = 'MS Sans Serif'
  262.         Font.Style = []
  263.         ParentFont = False
  264.       end
  265.       object Label10: TLabel
  266.         Left = 10
  267.         Top = 191
  268.         Width = 56
  269.         Height = 20
  270.         AutoSize = False
  271.         Caption = 'Pincode'
  272.         Font.Charset = DEFAULT_CHARSET
  273.         Font.Color = clBlack
  274.         Font.Height = 16
  275.         Font.Name = 'MS Sans Serif'
  276.         Font.Style = []
  277.         ParentFont = False
  278.       end
  279.       object Label11: TLabel
  280.         Left = 358
  281.         Top = 79
  282.         Width = 63
  283.         Height = 20
  284.         AutoSize = False
  285.         Caption = 'Tel. (Res.)'
  286.         Font.Charset = DEFAULT_CHARSET
  287.         Font.Color = clBlack
  288.         Font.Height = 16
  289.         Font.Name = 'MS Sans Serif'
  290.         Font.Style = []
  291.         ParentFont = False
  292.       end
  293.       object Label14: TLabel
  294.         Left = 358
  295.         Top = 168
  296.         Width = 40
  297.         Height = 20
  298.         AutoSize = False
  299.         Caption = 'Pager'
  300.         Font.Charset = DEFAULT_CHARSET
  301.         Font.Color = clBlack
  302.         Font.Height = 16
  303.         Font.Name = 'MS Sans Serif'
  304.         Font.Style = []
  305.         ParentFont = False
  306.       end
  307.       object Label15: TLabel
  308.         Left = 358
  309.         Top = 145
  310.         Width = 45
  311.         Height = 20
  312.         AutoSize = False
  313.         Caption = 'Cellulor'
  314.         Font.Charset = DEFAULT_CHARSET
  315.         Font.Color = clBlack
  316.         Font.Height = 16
  317.         Font.Name = 'MS Sans Serif'
  318.         Font.Style = []
  319.         ParentFont = False
  320.       end
  321.       object Label17: TLabel
  322.         Left = 358
  323.         Top = 101
  324.         Width = 56
  325.         Height = 20
  326.         AutoSize = False
  327.         Caption = 'Tel. (Off.)'
  328.         Font.Charset = DEFAULT_CHARSET
  329.         Font.Color = clBlack
  330.         Font.Height = 16
  331.         Font.Name = 'MS Sans Serif'
  332.         Font.Style = []
  333.         ParentFont = False
  334.       end
  335.       object Label8: TLabel
  336.         Left = 10
  337.         Top = 79
  338.         Width = 74
  339.         Height = 20
  340.         AutoSize = False
  341.         Caption = 'Category'
  342.         FocusControl = EditIDENT
  343.         Font.Charset = DEFAULT_CHARSET
  344.         Font.Color = clBlack
  345.         Font.Height = 16
  346.         Font.Name = 'MS Sans Serif'
  347.         Font.Style = []
  348.         ParentFont = False
  349.       end
  350.       object Label9: TLabel
  351.         Left = 358
  352.         Top = 191
  353.         Width = 41
  354.         Height = 20
  355.         AutoSize = False
  356.         Caption = 'E-Mail'
  357.         Font.Charset = DEFAULT_CHARSET
  358.         Font.Color = clBlack
  359.         Font.Height = 16
  360.         Font.Name = 'MS Sans Serif'
  361.         Font.Style = []
  362.         ParentFont = False
  363.       end
  364.       object Label12: TLabel
  365.         Left = 358
  366.         Top = 123
  367.         Width = 25
  368.         Height = 20
  369.         AutoSize = False
  370.         Caption = 'Fax'
  371.         Font.Charset = DEFAULT_CHARSET
  372.         Font.Color = clBlack
  373.         Font.Height = 16
  374.         Font.Name = 'MS Sans Serif'
  375.         Font.Style = []
  376.         ParentFont = False
  377.       end
  378.       object Label13: TLabel
  379.         Left = 10
  380.         Top = 101
  381.         Width = 75
  382.         Height = 20
  383.         AutoSize = False
  384.         Caption = 'Designation'
  385.         FocusControl = EditIDENT
  386.         Font.Charset = DEFAULT_CHARSET
  387.         Font.Color = clBlack
  388.         Font.Height = 16
  389.         Font.Name = 'MS Sans Serif'
  390.         Font.Style = []
  391.         ParentFont = False
  392.       end
  393.       object EditFIRST: TDBEdit
  394.         Left = 275
  395.         Top = 29
  396.         Width = 151
  397.         Height = 20
  398.         Hint = 'First Name'
  399.         AutoSize = False
  400.         DataField = 'FIRST'
  401.         DataSource = SrcPers_add
  402.         ParentShowHint = False
  403.         ShowHint = True
  404.         TabOrder = 2
  405.       end
  406.       object EditMIDDLE: TDBEdit
  407.         Left = 431
  408.         Top = 29
  409.         Width = 184
  410.         Height = 20
  411.         Hint = 'Middle Name'
  412.         AutoSize = False
  413.         DataField = 'MIDDLE'
  414.         DataSource = SrcPers_add
  415.         ParentShowHint = False
  416.         ShowHint = True
  417.         TabOrder = 3
  418.       end
  419.       object EditLAST: TDBEdit
  420.         Left = 89
  421.         Top = 29
  422.         Width = 164
  423.         Height = 20
  424.         Hint = 'Last Name'
  425.         AutoSize = False
  426.         DataField = 'LAST'
  427.         DataSource = SrcPers_add
  428.         ParentShowHint = False
  429.         ShowHint = True
  430.         TabOrder = 1
  431.       end
  432.       object EditIDENT: TDBEdit
  433.         Left = 241
  434.         Top = 54
  435.         Width = 285
  436.         Height = 20
  437.         Hint = 'Identity'
  438.         AutoSize = False
  439.         DataField = 'IDENT'
  440.         DataSource = SrcPers_add
  441.         ParentShowHint = False
  442.         ShowHint = True
  443.         TabOrder = 5
  444.       end
  445.       object EditADD_RES1: TDBEdit
  446.         Left = 89
  447.         Top = 123
  448.         Width = 260
  449.         Height = 20
  450.         Hint = 'Address'
  451.         AutoSize = False
  452.         DataField = 'ADD_RES1'
  453.         DataSource = SrcPers_add
  454.         ParentShowHint = False
  455.         ShowHint = True
  456.         TabOrder = 8
  457.       end
  458.       object EditADD_RES2: TDBEdit
  459.         Left = 89
  460.         Top = 145
  461.         Width = 260
  462.         Height = 20
  463.         Hint = 'Address'
  464.         AutoSize = False
  465.         DataField = 'ADD_RES2'
  466.         DataSource = SrcPers_add
  467.         ParentShowHint = False
  468.         ShowHint = True
  469.         TabOrder = 9
  470.       end
  471.       object EditADD_RES3: TDBEdit
  472.         Left = 89
  473.         Top = 168
  474.         Width = 260
  475.         Height = 20
  476.         Hint = 'Address'
  477.         AutoSize = False
  478.         DataField = 'ADD_RES3'
  479.         DataSource = SrcPers_add
  480.         ParentShowHint = False
  481.         ShowHint = True
  482.         TabOrder = 10
  483.       end
  484.       object DBComboBox1: TDBComboBox
  485.         Left = 10
  486.         Top = 29
  487.         Width = 73
  488.         Height = 21
  489.         Hint = 'Title'
  490.         Style = csDropDownList
  491.         DataField = 'TITLE'
  492.         DataSource = SrcPers_add
  493.         ItemHeight = 13
  494.         Items.Strings = (
  495.           'Mr.'
  496.           'Mrs.'
  497.           'Ms.'
  498.           'Master'
  499.           'Dr.'
  500.           'Dr. (Ms.)'
  501.           'Dr. (Mrs.)'
  502.           'Smt.'
  503.           '')
  504.         ParentShowHint = False
  505.         ShowHint = True
  506.         TabOrder = 0
  507.       end
  508.       object DBEdit1: TDBEdit
  509.         Left = 89
  510.         Top = 79
  511.         Width = 260
  512.         Height = 20
  513.         Hint = 'Category'
  514.         AutoSize = False
  515.         DataField = 'CATEGORY'
  516.         DataSource = SrcPers_add
  517.         ParentShowHint = False
  518.         ShowHint = True
  519.         TabOrder = 6
  520.         OnMouseDown = DBEdit1MouseDown
  521.       end
  522.       object DBMaskEdit1: TDBMaskEdit
  523.         Left = 89
  524.         Top = 191
  525.         Width = 53
  526.         Height = 21
  527.         Hint = 'Pincode'
  528.         EditMask = '!999 999;0; '
  529.         MaxLength = 7
  530.         ParentShowHint = False
  531.         ReadOnly = True
  532.         ShowHint = True
  533.         TabOrder = 11
  534.         DataField = 'RESD_PIN'
  535.         DataSource = SrcPers_add
  536.       end
  537.       object DBMaskEdit2: TDBEdit
  538.         Left = 425
  539.         Top = 145
  540.         Width = 100
  541.         Height = 21
  542.         Hint = 'Cellulor'
  543.         DataField = 'CELLULOR'
  544.         DataSource = SrcPers_add
  545.         ParentShowHint = False
  546.         ShowHint = True
  547.         TabOrder = 17
  548.       end
  549.       object DBMaskEdit3: TDBEdit
  550.         Left = 527
  551.         Top = 101
  552.         Width = 94
  553.         Height = 21
  554.         Hint = 'Office Telephone'
  555.         DataField = 'OFF_TEL2'
  556.         DataSource = SrcPers_add
  557.         ParentShowHint = False
  558.         ShowHint = True
  559.         TabOrder = 15
  560.       end
  561.       object DBMaskEdit4: TDBEdit
  562.         Left = 425
  563.         Top = 101
  564.         Width = 100
  565.         Height = 21
  566.         Hint = 'Office Telephone'
  567.         DataField = 'OFF_TEL1'
  568.         DataSource = SrcPers_add
  569.         ParentShowHint = False
  570.         ShowHint = True
  571.         TabOrder = 14
  572.       end
  573.       object DBMaskEdit5: TDBEdit
  574.         Left = 425
  575.         Top = 168
  576.         Width = 100
  577.         Height = 21
  578.         Hint = 'Pager'
  579.         DataField = 'PAGER'
  580.         DataSource = SrcPers_add
  581.         ParentShowHint = False
  582.         ShowHint = True
  583.         TabOrder = 18
  584.       end
  585.       object DBMaskEdit6: TDBEdit
  586.         Left = 425
  587.         Top = 123
  588.         Width = 100
  589.         Height = 21
  590.         Hint = 'Telephone'
  591.         DataField = 'RESD_TEL3'
  592.         DataSource = SrcPers_add
  593.         ParentShowHint = False
  594.         ShowHint = True
  595.         TabOrder = 16
  596.       end
  597.       object DBMaskEdit7: TDBEdit
  598.         Left = 527
  599.         Top = 79
  600.         Width = 94
  601.         Height = 21
  602.         Hint = 'Telephone'
  603.         DataField = 'RESD_TEL2'
  604.         DataSource = SrcPers_add
  605.         ParentShowHint = False
  606.         ShowHint = True
  607.         TabOrder = 13
  608.       end
  609.       object DBMaskEdit8: TDBEdit
  610.         Left = 425
  611.         Top = 79
  612.         Width = 100
  613.         Height = 21
  614.         Hint = 'Telephone'
  615.         DataField = 'RESD_TEL1'
  616.         DataSource = SrcPers_add
  617.         ParentShowHint = False
  618.         ShowHint = True
  619.         TabOrder = 12
  620.       end
  621.       object DBMaskEdit9: TDBMaskEdit
  622.         Left = 89
  623.         Top = 54
  624.         Width = 67
  625.         Height = 21
  626.         Hint = 'Date of Birth'
  627.         EditMask = '!99/99/9999'
  628.         MaxLength = 10
  629.         ParentShowHint = False
  630.         ReadOnly = True
  631.         ShowHint = True
  632.         TabOrder = 4
  633.         Text = '  /  /    '
  634.         DataField = 'DOB'
  635.         DataSource = SrcPers_add
  636.       end
  637.       object DBMaskEdit10: TDBEdit
  638.         Left = 425
  639.         Top = 191
  640.         Width = 192
  641.         Height = 21
  642.         Hint = 'E-Mail'
  643.         DataField = 'E-Mail'
  644.         DataSource = SrcPers_add
  645.         ParentShowHint = False
  646.         ShowHint = True
  647.         TabOrder = 19
  648.       end
  649.       object DBEdit2: TDBEdit
  650.         Left = 89
  651.         Top = 101
  652.         Width = 260
  653.         Height = 20
  654.         Hint = 'Category'
  655.         AutoSize = False
  656.         DataField = 'Designation'
  657.         DataSource = SrcPers_add
  658.         ParentShowHint = False
  659.         ShowHint = True
  660.         TabOrder = 7
  661.         OnMouseDown = DBEdit1MouseDown
  662.       end
  663.     end
  664.   end
  665.   object SrcPers_add: TDataSource
  666.     DataSet = tblPers_Add
  667.     OnStateChange = SrcPers_addStateChange
  668.     Left = 287
  669.     Top = 109
  670.   end
  671.   object tblPers_Add: TTable
  672.     BeforePost = tblPers_AddBeforePost
  673.     AfterPost = tblPers_AddAfterPost
  674.     OnCalcFields = TblPers_addCalcFields
  675.     DatabaseName = 'c:\ophthal\Utility\Address\Data'
  676.     TableName = 'PERS_ADD.DB'
  677.     Left = 206
  678.     Top = 111
  679.     object tblPers_AddCATEGORY: TStringField
  680.       FieldName = 'CATEGORY'
  681.       Size = 30
  682.     end
  683.     object tblPers_AddLAST: TStringField
  684.       FieldName = 'LAST'
  685.     end
  686.     object tblPers_AddFIRST: TStringField
  687.       FieldName = 'FIRST'
  688.     end
  689.     object tblPers_AddMIDDLE: TStringField
  690.       FieldName = 'MIDDLE'
  691.     end
  692.     object tblPers_AddTITLE: TStringField
  693.       FieldName = 'TITLE'
  694.       Size = 10
  695.     end
  696.     object tblPers_AddDOB: TDateField
  697.       FieldName = 'DOB'
  698.     end
  699.     object tblPers_AddIDENT: TStringField
  700.       FieldName = 'IDENT'
  701.       Size = 60
  702.     end
  703.     object tblPers_AddRESD_PIN: TStringField
  704.       FieldName = 'RESD_PIN'
  705.       Size = 10
  706.     end
  707.     object tblPers_AddRESD_TEL1: TStringField
  708.       FieldName = 'RESD_TEL1'
  709.     end
  710.     object tblPers_AddRESD_TEL2: TStringField
  711.       FieldName = 'RESD_TEL2'
  712.     end
  713.     object tblPers_AddRESD_TEL3: TStringField
  714.       FieldName = 'RESD_TEL3'
  715.     end
  716.     object tblPers_AddPAGER: TStringField
  717.       FieldName = 'PAGER'
  718.     end
  719.     object tblPers_AddCELLULOR: TStringField
  720.       FieldName = 'CELLULOR'
  721.     end
  722.     object tblPers_AddPRINT: TBooleanField
  723.       FieldName = 'PRINT'
  724.     end
  725.     object tblPers_AddOFF_TEL1: TStringField
  726.       FieldName = 'OFF_TEL1'
  727.     end
  728.     object tblPers_AddOFF_TEL2: TStringField
  729.       FieldName = 'OFF_TEL2'
  730.     end
  731.     object tblPers_AddEMail: TStringField
  732.       DisplayWidth = 50
  733.       FieldName = 'E-Mail'
  734.       Size = 50
  735.     end
  736.     object tblPers_AddNote: TMemoField
  737.       FieldName = 'Note'
  738.       BlobType = ftMemo
  739.       Size = 4
  740.     end
  741.     object FullName: TStringField
  742.       DisplayLabel = 'Full Name'
  743.       FieldName = 'FullName'
  744.       Calculated = True
  745.     end
  746.     object tblPers_AddDesignation: TStringField
  747.       FieldName = 'Designation'
  748.       Size = 30
  749.     end
  750.     object tblPers_AddADD_RES1: TStringField
  751.       FieldName = 'ADD_RES1'
  752.       Size = 40
  753.     end
  754.     object tblPers_AddADD_RES2: TStringField
  755.       FieldName = 'ADD_RES2'
  756.       Size = 40
  757.     end
  758.     object tblPers_AddADD_RES3: TStringField
  759.       FieldName = 'ADD_RES3'
  760.       Size = 40
  761.     end
  762.   end
  763.   object tblCategory: TTable
  764.     OnCalcFields = TblPers_addCalcFields
  765.     DatabaseName = 'c:\ophthal\data'
  766.     TableName = 'Category.DB'
  767.     Left = 278
  768.     Top = 159
  769.   end
  770.   object FindDialog1: TFindDialog
  771.     OnClose = FindDialog1Close
  772.     Options = [frDown, frFindNext]
  773.     OnFind = FindDialog1Find
  774.     Left = 208
  775.     Top = 32
  776.   end
  777. end
  778.