Module Customer.vw
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
168