This repository has been archived by the owner on Feb 22, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
frmPerson.frm
247 lines (221 loc) · 6.01 KB
/
frmPerson.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "msdatlst.ocx"
Begin VB.Form frmPerson
Caption = "Priority"
ClientHeight = 5400
ClientLeft = 60
ClientTop = 450
ClientWidth = 9555
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5400
ScaleWidth = 9555
Begin MSDataListLib.DataCombo cmbName
Height = 3540
Left = 120
TabIndex = 1
Top = 480
Width = 3855
_ExtentX = 6800
_ExtentY = 6244
_Version = 393216
Style = 1
Text = ""
End
Begin VB.CommandButton btnClose
Caption = "C&lose"
Height = 495
Left = 8160
TabIndex = 9
Top = 4800
Width = 1215
End
Begin VB.CommandButton btnCancel
Caption = "&Cancel"
Height = 495
Left = 7560
TabIndex = 8
Top = 1560
Width = 1215
End
Begin VB.CommandButton btnSave
Caption = "&Save"
Height = 495
Left = 6240
TabIndex = 7
Top = 1560
Width = 1215
End
Begin VB.TextBox txtName
Height = 375
Left = 5880
TabIndex = 6
Top = 480
Width = 3135
End
Begin VB.CommandButton btnEdit
Caption = "&Edit"
Height = 495
Left = 1440
TabIndex = 3
Top = 4320
Width = 1215
End
Begin VB.CommandButton btnAdd
Caption = "&Add"
Height = 495
Left = 120
TabIndex = 2
Top = 4320
Width = 1215
End
Begin VB.CommandButton btnDelete
Caption = "&Delete"
Height = 495
Left = 2760
TabIndex = 4
Top = 4320
Width = 1215
End
Begin VB.Label lblEditName
Caption = "&Name"
Height = 375
Left = 4800
TabIndex = 5
Top = 480
Width = 1095
End
Begin VB.Label lblName
Caption = "&Name"
Height = 375
Left = 120
TabIndex = 0
Top = 120
Width = 2295
End
End
Attribute VB_Name = "frmPerson"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Auther : Dr. M. H. B. Ariyaratne
' buddhika.ari@gmail.com
' buddhika_ari@yahoo.com
' +94 71 58 12399
' GPL Licence
Option Explicit
Dim frmResize As New clsResizer
Dim FSys As New Scripting.FileSystemObject
Dim isFirstLogin As Boolean
Dim mySec As New clsSecurity
Dim myUser As New clsUser
Dim editControls As New Collection
Dim selectControls As New Collection
Dim clearControls As New Collection
Dim current As New clsPerson
Private Sub btnAdd_Click()
Dim temStr As String
cmbName.text = Empty
txtName.text = temStr
prepareEdit editControls, selectControls
txtName.SetFocus
End Sub
Private Sub btnCancel_Click()
clearValues clearControls
prepareSelect editControls, selectControls
cmbName.SetFocus
displayDetails
End Sub
Private Sub btnClose_Click()
Unload Me
End Sub
Private Sub btnDelete_Click()
Dim a As Integer
a = MsgBox("Are you sure you want to delete " & cmbName.text & "?", vbYesNo)
If a = vbYes Then
current.Deleted = True
current.DeletedDate = Date
current.DeletedTime = Now
current.DeletedUserID = ProgramVariable.loggedUser.UserID
current.saveData
MsgBox "Deleted"
fillNameCombo
cmbName.text = Empty
End If
End Sub
Private Sub fillNameCombo()
Dim allItems As New clsFillCombo
allItems.FillSpecificFieldOrder cmbName, "Person", "PersonName", "PersonName", True
End Sub
Private Sub btnEdit_Click()
prepareEdit editControls, selectControls
txtName.SetFocus
End Sub
Private Sub btnSave_Click()
Dim i As Long
With current
.PersonName = txtName.text
.saveData
i = .PersonID
fillNameCombo
cmbName.BoundText = i
End With
prepareSelect editControls, selectControls
End Sub
Private Sub cmbName_Change()
current.PersonID = Val(cmbName.BoundText)
Call displayDetails
End Sub
Private Sub Form_Load()
Call setControls
SetColours Me
GetCommonSettings Me
Call prepareResize
Call fillNameCombo
End Sub
Private Sub displayDetails()
clearValues clearControls
With current
txtName.text = .PersonName
End With
End Sub
Private Sub setControls()
lblName.Caption = "Person"
lblEditName.Caption = "Person"
Me.Caption = "Manage Persons"
With editControls
.Add txtName
.Add btnSave
.Add btnCancel
End With
With selectControls
.Add cmbName
.Add btnAdd
.Add btnEdit
.Add btnDelete
End With
With clearControls
.Add txtName
End With
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
SaveCommonSettings Me
End Sub
Private Sub Form_Resize()
Call frmResize.FormResized(Me)
End Sub
Private Sub prepareResize()
frmResize.KeepRatio = False
frmResize.FontResize = True
Call frmResize.InitializeResizer(Me)
End Sub