1Use dfClient.pkg 2Use DataDict.pkg 3Use dfEntry.pkg 4Use dfTabDlg.pkg 5Use dfCEntry.pkg 6Use cDbTextEdit.Pkg 7Use Customer.DD 8 9DEFERRED_VIEW Activate_oCustomerView FOR ; 10; 11Object oCustomerView is a dbView 12 Set Border_Style to Border_Thick 13 Set Label to "Customer Entry View" 14 Set Location to 7 23 15 Set Size to 146 277 16 Set piMaxSize to 300 350 17 Set piMinSize to 146 277 18 19 Object Customer_DD is a Customer_DataDictionary 20 End_Object // Customer_DD 21 22 Set Main_DD to Customer_DD 23 Set Server to Customer_DD 24 25 Object oCustomer_Number is a dbForm 26 Entry_Item Customer.Customer_Number 27 Set Label to "Customer Number:" 28 Set Size to 13 42 29 Set Location to 5 72 30 Set peAnchors to anTopLeft 31 Set Label_Col_Offset to 2 32 Set Label_Justification_Mode to jMode_Right 33 End_Object // oCustomer_Number 34 35 Object oCustomer_Name is a dbForm 36 Entry_Item Customer.Name 37 Set Label to "Name:" 38 Set Size to 13 186 39 Set Location to 20 72 40 Set peAnchors to anTopLeftRight 41 Set Label_Col_Offset to 2 42 Set Label_Justification_Mode to jMode_Right 43 End_Object // oCustomer_Name 44 45 Object oCustTD is a dbTabDialog 46 Set Size to 105 265 47 Set Location to 36 7 48 Set Rotate_Mode to RM_Rotate 49 Set peAnchors to anAll 50 Object oAddress_TP is a dbTabPage 51 Set Label to "Address" 52 Set Tab_ToolTip_Value to "Customer contact information" 53 Object oCustomer_Address is a dbForm 54 Entry_Item Customer.Address 55 Set Label to "Street Address:" 56 Set Size to 13 180 57 Set Location to 8 62 58 Set peAnchors to anTopLeftRight 59 Set Label_Col_Offset to 2 60 Set Label_Justification_Mode to jMode_Right 61 End_Object // oCustomer_Address 62 63 Object oCustomer_City is a dbForm 64 Entry_Item Customer.City 65 Set Label to "City/State/Zip:" 66 Set Size to 13 84 67 Set Location to 24 62 68 Set peAnchors to anTopLeftRight 69 Set Label_Col_Offset to 2 70 Set Label_Justification_Mode to jMode_Right 71 End_Object // oCustomer_City 72 73 Object oCustomer_State is a dbComboForm 74 Entry_Item Customer.State 75 Set Size to 13 32 76 Set Location to 24 152 77 Set peAnchors to anTopRight 78 Set Form_Border to 0 79 Set Code_Display_Mode to cb_code_display_code 80 End_Object // oCustomer_State 81 82 Object oCustomer_Zip is a dbForm 83 Entry_Item Customer.Zip 84 Set Size to 13 51 85 Set Location to 24 191 86 Set peAnchors to anTopRight 87 End_Object // oCustomer_Zip 88 89 Object oCustomer_Phone_number is a dbForm 90 Entry_Item Customer.Phone_Number 91 Set Label to "Phone Number:" 92 Set Size to 13 120 93 Set Location to 39 62 94 Set peAnchors to anTopLeft 95 Set Label_Col_Offset to 2 96 Set Label_Justification_Mode to jMode_Right 97 End_Object // oCustomer_Phone_number 98 99 Object oCustomer_Fax_number is a dbForm 100 Entry_Item Customer.Fax_Number 101 Set Label to "Fax Number:" 102 Set Size to 13 120 103 Set Location to 54 62 104 Set peAnchors to anTopLeft 105 Set Label_Col_Offset to 2 106 Set Label_Justification_Mode to jMode_Right 107 End_Object // oCustomer_Fax_number 108 109 Object oCustomer_Email_address is a dbForm 110 Entry_Item Customer.EMail_Address 111 Set Label to "E-Mail Address:" 112 Set Size to 13 180 113 Set Location to 69 62 114 Set peAnchors to anTopLeftRight 115 Set Label_Col_Offset to 2 116 Set Label_Justification_Mode to jMode_Right 117 End_Object // oCustomer_Email_address 118 119 End_Object // oAddress_TP 120 121 Object oBalances_TP is a dbTabPage 122 Set Label to "Balances" 123 Set Tab_ToolTip_Value to "Current account balances" 124 Object oCustomer_Credit_Limit is a dbForm 125 Entry_Item Customer.Credit_limit 126 Set Label to "Credit Limit:" 127 Set Size to 13 48 128 Set Location to 9 72 129 Set Label_Col_Offset to 2 130 Set Label_Justification_Mode to jMode_Right 131 End_Object // oCustomer_Credit_Limit 132 133 Object oCustomer_Purchases is a dbForm 134 Entry_Item Customer.Purchases 135 Set Label to "Total Purchases:" 136 Set Size to 13 48 137 Set Location to 24 72 138 Set Label_Col_Offset to 2 139 Set Label_Justification_Mode to jMode_Right 140 End_Object // oCustomer_Purchases 141 142 Object oCustomer_Balance is a dbForm 143 Entry_Item Customer.Balance 144 Set Label to "Balance Due:" 145 Set Size to 13 48 146 Set Location to 39 72 147 Set Label_Col_Offset to 2 148 Set Label_Justification_Mode to jMode_Right 149 End_Object // oCustomer_Balance 150 151 End_Object // oBalances_TP 152 153 Object oComments_TP is a dbTabPage 154 Set Label to "Comments" 155 Set Tab_ToolTip_Value to "Notes about this customer" 156 Object oCustomer_Comments is a cDbTextEdit 157 Entry_Item Customer.Comments 158 Set Size to 71 242 159 Set Location to 9 9 160 Set peAnchors to anAll 161 End_Object // oCustomer_Comments 162 163 End_Object // oComments_TP 164 165 End_Object // oCustTD 166 167CD_End_Object // oCustomerView