|
|
|
Imports
System.Data.OleDb
Imports
System.Data
Public
Class
agenda
Inherits
System.Windows.Forms.Form
'Note,this
software uses:
' logical
Connection = dbConnection, Stored at Module.vb
' logical
Data adapter = vda1 & da
' logical
Insert Command = OleDbICommand
' logical
Connection = dbConnection
Protected
Const
OleDbConnectionString
As
String = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\work_VBNet_10\work_VBNet_10\data\work_VBNet.mdb;Persist
Security Info=True"
Protected
connectionString
As
String =
OleDbConnectionString
Dim
dbConnection
As
New
OleDbConnection(connectionString)
Dim
vselect1
As
System.Data.OleDb.OleDbCommand
'
Select command
Dim
vda1
As
System.Data.OleDb.OleDbDataAdapter
'
Dataadapter
Dim
da
As
System.Data.OleDb.OleDbDataAdapter
'
Dataadapter
Dim
OleDbSCommand =
New
System.Data.OleDb.OleDbCommand
'Select Command
Dim
OleDbICommand =
New
System.Data.OleDb.OleDbCommand
'Insert Command
Dim
OleDbUCommand =
New
System.Data.OleDb.OleDbCommand
'Update Command
Dim
OleDbDCommand =
New
System.Data.OleDb.OleDbCommand
'Delete Command
Dim
vdset1
As
System.Data.DataSet
Dim
current_date
As
String
Dim
movetask_flag
As
Boolean
Dim
appoint_order
As
Integer
Dim
v_PanA1
As
Integer, v_PanB1
As
Integer
Dim
v_PicA
As
Integer, v_TxtA
As
Integer, v_BtnA
As
Integer
Dim
v_TxtB
As
Integer, v_BtnB
As
Integer, v_chk
As
Integer
Dim
v_currentmonth
As
Integer,
v_currentyear
As
Integer
Dim
new_serialno
As
Integer,
serial_taskappoint
As
Integer
Dim
vvrec
As
Integer
'list of
operations available: navigation, add/new, modify,
update, close
Private
Sub agenda_Load(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
MyBase.Load
'resize
Me.PanelA1.Width
=
Me.PanelA2.Width
Me.PanelA.Height
=
Me.PBox1.Height
Me.PanelA1.Height
=
Me.PBox1.Height
Me.PanelA2.Height
=
Me.PBox1.Height
Me.PanelA.Width
=
Me.PanelA1.Width +
Me.PanelA2.Width
+
Me.PBox1.Width
Me.PanelT.Width
=
Me.PanelA.Width
Me.PanelA1.Top
= 0
Me.PanelA2.Top
= 0
Me.PBox1.Top
= 0
Me.PanelA1.Left
= 0
Me.PBox1.Left
=
Me.PanelA1.Left +
Me.PanelA1.Width
Me.PanelA2.Left
=
Me.PBox1.Left +
Me.PBox1.Width
Me.PanelB1.Top
=
Me.PanelB2.Top
Me.VScrollBarA1.Height
=
Me.VScrollBarB1.Height
Me.PanelB1.Height
=
Me.VScrollBarA1.Height
+ 4
Me.PanelB2.Height
=
Me.VScrollBarB1.Height
+ 4
Me.PicA_empty.Top
= (Me.VScrollBarA1.Height
-
Me.PicA_empty.Height)
/ 2
Me.PicA_empty.Left
= (Me.PanelA2.Width
-
Me.PicA_empty.Width)
/ 2
Me.PicB_empty.Top
= (Me.VScrollBarB1.Height
-
Me.PicB_empty.Height)
/ 2
Me.PicB_empty.Left
= (Me.PanelB2.Width
-
Me.PicB_empty.Width)
/ 2
'task
'
Me.PanA1.Left = Me.TxtA1.Left
Me.PanA1.Left
=
Me.PicA1.Left
v_PanA1 =
Me.PanA1.Top
v_PicA =
Me.PicA1.Height
v_TxtA =
Me.TxtA1.Height
v_BtnA =
Me.BtnA1.Height
v_chk =
Me.ChkA1.Height
Me.PicA2.Left
=
Me.PicA1.Left
Me.PicA3.Left
=
Me.PicA1.Left
Me.PicA4.Left
=
Me.PicA1.Left
Me.PicA5.Left
=
Me.PicA1.Left
Me.PicA6.Left
=
Me.PicA1.Left
Me.PicA7.Left
=
Me.PicA1.Left
Me.PicA8.Left
=
Me.PicA1.Left
Me.PicA9.Left
=
Me.PicA1.Left
Me.PicA10.Left
=
Me.PicA1.Left
Me.PicA11.Left
=
Me.PicA1.Left
Me.PicA12.Left
=
Me.PicA1.Left
Me.PicA13.Left
=
Me.PicA1.Left
Me.PicA14.Left
=
Me.PicA1.Left
Me.PicA15.Left
=
Me.PicA1.Left
Me.PicA16.Left
=
Me.PicA1.Left
Me.PicA17.Left
=
Me.PicA1.Left
Me.PicA18.Left
=
Me.PicA1.Left
Me.PicA19.Left
=
Me.PicA1.Left
Me.PicA20.Left
=
Me.PicA1.Left
Me.PicA21.Left
=
Me.PicA1.Left
Me.PicA22.Left
=
Me.PicA1.Left
Me.PicA23.Left
=
Me.PicA1.Left
Me.PicA24.Left
=
Me.PicA1.Left
Me.PTxA1.Left
=
Me.PicA1.Left
Me.PTxA2.Left
=
Me.PTxA1.Left
Me.PTxA3.Left
=
Me.PTxA1.Left
Me.PTxA4.Left
=
Me.PTxA1.Left
Me.PTxA5.Left
=
Me.PTxA1.Left
Me.PTxA6.Left
=
Me.PTxA1.Left
Me.PTxA7.Left
=
Me.PTxA1.Left
Me.PTxA8.Left
=
Me.PTxA1.Left
Me.PTxA9.Left
=
Me.PTxA1.Left
Me.PTxA10.Left
=
Me.PTxA1.Left
Me.PTxA11.Left
=
Me.PTxA1.Left
Me.PTxA12.Left
=
Me.PTxA1.Left
Me.PTxA13.Left
=
Me.PTxA1.Left
Me.PTxA14.Left
=
Me.PTxA1.Left
Me.PTxA15.Left
=
Me.PTxA1.Left
Me.PTxA16.Left
=
Me.PTxA1.Left
Me.PTxA17.Left
=
Me.PTxA1.Left
Me.PTxA18.Left
=
Me.PTxA1.Left
Me.PTxA19.Left
=
Me.PTxA1.Left
Me.PTxA20.Left
=
Me.PTxA1.Left
Me.PTxA21.Left
=
Me.PTxA1.Left
Me.PTxA22.Left
=
Me.PTxA1.Left
Me.PTxA23.Left
=
Me.PTxA1.Left
Me.PTxA24.Left
=
Me.PTxA1.Left
Me.PanA2.Left
=
Me.PanA1.Left
Me.PanA3.Left
=
Me.PanA1.Left
Me.PanA4.Left
=
Me.PanA1.Left
Me.PanA5.Left
=
Me.PanA1.Left
Me.PanA6.Left
=
Me.PanA1.Left
Me.PanA7.Left
=
Me.PanA1.Left
Me.PanA8.Left
=
Me.PanA1.Left
Me.PanA9.Left
=
Me.PanA1.Left
Me.PanA10.Left
=
Me.PanA1.Left
Me.PanA11.Left
=
Me.PanA1.Left
Me.PanA12.Left
=
Me.PanA1.Left
Me.PanA13.Left
=
Me.PanA1.Left
Me.PanA14.Left
=
Me.PanA1.Left
Me.PanA15.Left
=
Me.PanA1.Left
Me.PanA16.Left
=
Me.PanA1.Left
Me.PanA17.Left
=
Me.PanA1.Left
Me.PanA18.Left
=
Me.PanA1.Left
Me.PanA19.Left
=
Me.PanA1.Left
Me.PanA20.Left
=
Me.PanA1.Left
Me.PanA21.Left
=
Me.PanA1.Left
Me.PanA22.Left
=
Me.PanA1.Left
Me.PanA23.Left
=
Me.PanA1.Left
Me.PanA24.Left
=
Me.PanA1.Left
Me.TxtA2.Left
=
Me.TxtA1.Left
Me.TxtA3.Left
=
Me.TxtA1.Left
Me.TxtA4.Left
=
Me.TxtA1.Left
Me.TxtA5.Left
=
Me.TxtA1.Left
Me.TxtA6.Left
=
Me.TxtA1.Left
Me.TxtA7.Left
=
Me.TxtA1.Left
Me.TxtA8.Left
=
Me.TxtA1.Left
Me.TxtA9.Left
=
Me.TxtA1.Left
Me.TxtA10.Left
=
Me.TxtA1.Left
Me.TxtA11.Left
=
Me.TxtA1.Left
Me.TxtA12.Left
=
Me.TxtA1.Left
Me.TxtA13.Left
=
Me.TxtA1.Left
Me.TxtA14.Left
=
Me.TxtA1.Left
Me.TxtA15.Left
=
Me.TxtA1.Left
Me.TxtA16.Left
=
Me.TxtA1.Left
Me.TxtA17.Left
=
Me.TxtA1.Left
Me.TxtA18.Left
=
Me.TxtA1.Left
Me.TxtA19.Left
=
Me.TxtA1.Left
Me.TxtA20.Left
=
Me.TxtA1.Left
Me.TxtA21.Left
=
Me.TxtA1.Left
Me.TxtA22.Left
=
Me.TxtA1.Left
Me.TxtA23.Left
=
Me.TxtA1.Left
Me.TxtA24.Left
=
Me.TxtA1.Left
Me.BtnA2.Left
=
Me.BtnA1.Left
Me.BtnA3.Left
=
Me.BtnA1.Left
Me.BtnA4.Left
=
Me.BtnA1.Left
Me.BtnA5.Left
=
Me.BtnA1.Left
Me.BtnA6.Left
=
Me.BtnA1.Left
Me.BtnA7.Left
=
Me.BtnA1.Left
Me.BtnA8.Left
=
Me.BtnA1.Left
Me.BtnA9.Left
=
Me.BtnA1.Left
Me.BtnA10.Left
=
Me.BtnA1.Left
Me.BtnA11.Left
=
Me.BtnA1.Left
Me.BtnA12.Left
=
Me.BtnA1.Left
Me.BtnA13.Left
=
Me.BtnA1.Left
Me.BtnA14.Left
=
Me.BtnA1.Left
Me.BtnA15.Left
=
Me.BtnA1.Left
Me.BtnA16.Left
=
Me.BtnA1.Left
Me.BtnA17.Left
=
Me.BtnA1.Left
Me.BtnA18.Left
=
Me.BtnA1.Left
Me.BtnA19.Left
=
Me.BtnA1.Left
Me.BtnA20.Left
=
Me.BtnA1.Left
Me.BtnA21.Left
=
Me.BtnA1.Left
Me.BtnA22.Left
=
Me.BtnA1.Left
Me.BtnA23.Left
=
Me.BtnA1.Left
Me.BtnA24.Left
=
Me.BtnA1.Left
Me.ChkA2.Left
=
Me.ChkA1.Left
Me.ChkA3.Left
=
Me.ChkA1.Left
Me.ChkA4.Left
=
Me.ChkA1.Left
Me.ChkA5.Left
=
Me.ChkA1.Left
Me.ChkA6.Left
=
Me.ChkA1.Left
Me.ChkA7.Left
=
Me.ChkA1.Left
Me.ChkA8.Left
=
Me.ChkA1.Left
Me.ChkA9.Left
=
Me.ChkA1.Left
Me.ChkA10.Left
=
Me.ChkA1.Left
Me.ChkA11.Left
=
Me.ChkA1.Left
Me.ChkA12.Left
=
Me.ChkA1.Left
Me.ChkA13.Left
=
Me.ChkA1.Left
Me.ChkA14.Left
=
Me.ChkA1.Left
Me.ChkA15.Left
=
Me.ChkA1.Left
Me.ChkA16.Left
=
Me.ChkA1.Left
Me.ChkA17.Left
=
Me.ChkA1.Left
Me.ChkA18.Left
=
Me.ChkA1.Left
Me.ChkA19.Left
=
Me.ChkA1.Left
Me.ChkA20.Left
=
Me.ChkA1.Left
Me.ChkA21.Left
=
Me.ChkA1.Left
Me.ChkA22.Left
=
Me.ChkA1.Left
Me.ChkA23.Left
=
Me.ChkA1.Left
Me.ChkA24.Left
=
Me.ChkA1.Left
Me.StxA1.Left
=
Me.ChkA1.Left
Me.StxA2.Left
=
Me.ChkA1.Left
Me.StxA3.Left
=
Me.ChkA1.Left
Me.StxA4.Left
=
Me.ChkA1.Left
Me.StxA5.Left
=
Me.ChkA1.Left
Me.StxA6.Left
=
Me.ChkA1.Left
Me.StxA7.Left
=
Me.ChkA1.Left
Me.StxA8.Left
=
Me.ChkA1.Left
Me.StxA9.Left
=
Me.ChkA1.Left
Me.StxA10.Left
=
Me.ChkA1.Left
Me.StxA11.Left
=
Me.ChkA1.Left
Me.StxA12.Left
=
Me.ChkA1.Left
Me.StxA13.Left
=
Me.ChkA1.Left
Me.StxA14.Left
=
Me.ChkA1.Left
Me.StxA15.Left
=
Me.ChkA1.Left
Me.StxA16.Left
=
Me.ChkA1.Left
Me.StxA17.Left
=
Me.ChkA1.Left
Me.StxA18.Left
=
Me.ChkA1.Left
Me.StxA19.Left
=
Me.ChkA1.Left
Me.StxA20.Left
=
Me.ChkA1.Left
Me.StxA21.Left
=
Me.ChkA1.Left
Me.StxA22.Left
=
Me.ChkA1.Left
Me.StxA23.Left
=
Me.ChkA1.Left
Me.StxA24.Left
=
Me.ChkA1.Left
'appointment
v_TxtB = v_TxtA
v_BtnB = v_BtnA
v_PanB1 = v_PanA1
Me.PanB2.Left
=
Me.PanB1.Left
Me.PanB3.Left
=
Me.PanB1.Left
Me.PanB4.Left
=
Me.PanB1.Left
Me.PanB5.Left
=
Me.PanB1.Left
Me.PanB6.Left
=
Me.PanB1.Left
Me.PanB7.Left
=
Me.PanB1.Left
Me.PanB8.Left
=
Me.PanB1.Left
Me.PanB9.Left
=
Me.PanB1.Left
Me.PanB10.Left
=
Me.PanB1.Left
Me.PanB11.Left
=
Me.PanB1.Left
Me.PanB12.Left
=
Me.PanB1.Left
Me.PanB13.Left
=
Me.PanB1.Left
Me.PanB14.Left
=
Me.PanB1.Left
Me.PanB15.Left
=
Me.PanB1.Left
Me.PanB16.Left
=
Me.PanB1.Left
Me.PanB17.Left
=
Me.PanB1.Left
Me.PanB18.Left
=
Me.PanB1.Left
Me.PanB19.Left
=
Me.PanB1.Left
Me.PanB20.Left
=
Me.PanB1.Left
Me.PanB21.Left
=
Me.PanB1.Left
Me.PanB22.Left
=
Me.PanB1.Left
Me.PanB23.Left
=
Me.PanB1.Left
Me.PanB24.Left
=
Me.PanB1.Left
Me.TxtC2.Left
=
Me.TxtC1.Left
Me.TxtC3.Left
=
Me.TxtC1.Left
Me.TxtC4.Left
=
Me.TxtC1.Left
Me.TxtC5.Left
=
Me.TxtC1.Left
Me.TxtC6.Left
=
Me.TxtC1.Left
Me.TxtC7.Left
=
Me.TxtC1.Left
Me.TxtC8.Left
=
Me.TxtC1.Left
Me.TxtC9.Left
=
Me.TxtC1.Left
Me.TxtC10.Left
=
Me.TxtC1.Left
Me.TxtC11.Left
=
Me.TxtC1.Left
Me.TxtC12.Left
=
Me.TxtC1.Left
Me.TxtC13.Left
=
Me.TxtC1.Left
Me.TxtC14.Left
=
Me.TxtC1.Left
Me.TxtC15.Left
=
Me.TxtC1.Left
Me.TxtC16.Left
=
Me.TxtC1.Left
Me.TxtC17.Left
=
Me.TxtC1.Left
Me.TxtC18.Left
=
Me.TxtC1.Left
Me.TxtC19.Left
=
Me.TxtC1.Left
Me.TxtC20.Left
=
Me.TxtC1.Left
Me.TxtC21.Left
=
Me.TxtC1.Left
Me.TxtC22.Left
=
Me.TxtC1.Left
Me.TxtC23.Left
=
Me.TxtC1.Left
Me.TxtC24.Left
=
Me.TxtC1.Left
Me.TxtB2.Left
=
Me.TxtB1.Left
Me.TxtB3.Left
=
Me.TxtB1.Left
Me.TxtB4.Left
=
Me.TxtB1.Left
Me.TxtB5.Left
=
Me.TxtB1.Left
Me.TxtB6.Left
=
Me.TxtB1.Left
Me.TxtB7.Left
=
Me.TxtB1.Left
Me.TxtB8.Left
=
Me.TxtB1.Left
Me.TxtB9.Left
=
Me.TxtB1.Left
Me.TxtB10.Left
=
Me.TxtB1.Left
Me.TxtB11.Left
=
Me.TxtB1.Left
Me.TxtB12.Left
=
Me.TxtB1.Left
Me.TxtB13.Left
=
Me.TxtB1.Left
Me.TxtB14.Left
=
Me.TxtB1.Left
Me.TxtB15.Left
=
Me.TxtB1.Left
Me.TxtB16.Left
=
Me.TxtB1.Left
Me.TxtB17.Left
=
Me.TxtB1.Left
Me.TxtB18.Left
=
Me.TxtB1.Left
Me.TxtB19.Left
=
Me.TxtB1.Left
Me.TxtB20.Left
=
Me.TxtB1.Left
Me.TxtB21.Left
=
Me.TxtB1.Left
Me.TxtB22.Left
=
Me.TxtB1.Left
Me.TxtB23.Left
=
Me.TxtB1.Left
Me.TxtB24.Left
=
Me.TxtB1.Left
Me.BtnB2.Left
=
Me.BtnB1.Left
Me.BtnB3.Left
=
Me.BtnB1.Left
Me.BtnB4.Left
=
Me.BtnB1.Left
Me.BtnB5.Left
=
Me.BtnB1.Left
Me.BtnB6.Left
=
Me.BtnB1.Left
Me.BtnB7.Left
=
Me.BtnB1.Left
Me.BtnB8.Left
=
Me.BtnB1.Left
Me.BtnB9.Left
=
Me.BtnB1.Left
Me.BtnB10.Left
=
Me.BtnB1.Left
Me.BtnB11.Left
=
Me.BtnB1.Left
Me.BtnB12.Left
=
Me.BtnB1.Left
Me.BtnB13.Left
=
Me.BtnB1.Left
Me.BtnB14.Left
=
Me.BtnB1.Left
Me.BtnB15.Left
=
Me.BtnB1.Left
Me.BtnB16.Left
=
Me.BtnB1.Left
Me.BtnB17.Left
=
Me.BtnB1.Left
Me.BtnB18.Left
=
Me.BtnB1.Left
Me.BtnB19.Left
=
Me.BtnB1.Left
Me.BtnB20.Left
=
Me.BtnB1.Left
Me.BtnB21.Left
=
Me.BtnB1.Left
Me.BtnB22.Left
=
Me.BtnB1.Left
Me.BtnB23.Left
=
Me.BtnB1.Left
Me.BtnB24.Left
=
Me.BtnB1.Left
Me.ChkB2.Left
=
Me.ChkB1.Left
Me.ChkB3.Left
=
Me.ChkB1.Left
Me.ChkB4.Left
=
Me.ChkB1.Left
Me.ChkB5.Left
=
Me.ChkB1.Left
Me.ChkB6.Left
=
Me.ChkB1.Left
Me.ChkB7.Left
=
Me.ChkB1.Left
Me.ChkB8.Left
=
Me.ChkB1.Left
Me.ChkB9.Left
=
Me.ChkB1.Left
Me.ChkB10.Left
=
Me.ChkB1.Left
Me.ChkB11.Left
=
Me.ChkB1.Left
Me.ChkB12.Left
=
Me.ChkB1.Left
Me.ChkB13.Left
=
Me.ChkB1.Left
Me.ChkB14.Left
=
Me.ChkB1.Left
Me.ChkB15.Left
=
Me.ChkB1.Left
Me.ChkB16.Left
=
Me.ChkB1.Left
Me.ChkB17.Left
=
Me.ChkB1.Left
Me.ChkB18.Left
=
Me.ChkB1.Left
Me.ChkB19.Left
=
Me.ChkB1.Left
Me.ChkB20.Left
=
Me.ChkB1.Left
Me.ChkB21.Left
=
Me.ChkB1.Left
Me.ChkB22.Left
=
Me.ChkB1.Left
Me.ChkB23.Left
=
Me.ChkB1.Left
Me.ChkB24.Left
=
Me.ChkB1.Left
Me.StxB1.Left
=
Me.ChkB1.Left
Me.StxB2.Left
=
Me.ChkB1.Left
Me.StxB3.Left
=
Me.ChkB1.Left
Me.StxB4.Left
=
Me.ChkB1.Left
Me.StxB5.Left
=
Me.ChkB1.Left
Me.StxB6.Left
=
Me.ChkB1.Left
Me.StxB7.Left
=
Me.ChkB1.Left
Me.StxB8.Left
=
Me.ChkB1.Left
Me.StxB9.Left
=
Me.ChkB1.Left
Me.StxB10.Left
=
Me.ChkB1.Left
Me.StxB11.Left
=
Me.ChkB1.Left
Me.StxB12.Left
=
Me.ChkB1.Left
Me.StxB13.Left
=
Me.ChkB1.Left
Me.StxB14.Left
=
Me.ChkB1.Left
Me.StxB15.Left
=
Me.ChkB1.Left
Me.StxB16.Left
=
Me.ChkB1.Left
Me.StxB17.Left
=
Me.ChkB1.Left
Me.StxB18.Left
=
Me.ChkB1.Left
Me.StxB19.Left
=
Me.ChkB1.Left
Me.StxB20.Left
=
Me.ChkB1.Left
Me.StxB21.Left
=
Me.ChkB1.Left
Me.StxB22.Left
=
Me.ChkB1.Left
Me.StxB23.Left
=
Me.ChkB1.Left
Me.StxB24.Left
=
Me.ChkB1.Left
Me.txid1.Top
=
Me.TxtB1.Top
Me.txid2.Top
=
Me.TxtB1.Top
Me.txid3.Top
=
Me.TxtB1.Top
Me.txid4.Top
=
Me.TxtB1.Top
Me.txid5.Top
=
Me.TxtB1.Top
Me.txid6.Top
=
Me.TxtB1.Top
Me.txid7.Top
=
Me.TxtB1.Top
Me.txid8.Top
=
Me.TxtB1.Top
Me.txid9.Top
=
Me.TxtB1.Top
Me.txid10.Top
=
Me.TxtB1.Top
Me.txid11.Top
=
Me.TxtB1.Top
Me.txid12.Top
=
Me.TxtB1.Top
Me.txid13.Top
=
Me.TxtB1.Top
Me.txid14.Top
=
Me.TxtB1.Top
Me.txid15.Top
=
Me.TxtB1.Top
Me.txid16.Top
=
Me.TxtB1.Top
Me.txid17.Top
=
Me.TxtB1.Top
Me.txid18.Top
=
Me.TxtB1.Top
Me.txid19.Top
=
Me.TxtB1.Top
Me.txid20.Top
=
Me.TxtB1.Top
Me.txid21.Top
=
Me.TxtB1.Top
Me.txid22.Top
=
Me.TxtB1.Top
Me.txid23.Top
=
Me.TxtB1.Top
Me.txid24.Top
=
Me.TxtB1.Top
Me.btn_ok.Top
=
Me.PBox1.Height -
(Me.btn_ok.Height
+ 2)
' End Sub
'Private
Sub agenda_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Activated
Active_Flag =
True
If
Active_Flag =
True
Then
Active_Flag =
False
'Initialized DataAdapter da
daDataAdapter()
Try
'Insert
command, Connection
'
OleDbICommand.Connection = dbConnection
'Attempt
to load the dataset.
'load
agenda table, Agendadset1 dataset
LoadDataSet()
'
Me.BindingContext(Agendadset1, "agenda").Position = 0
Catch
eLoad
As
System.Exception
'Add your
error handling code here.
'Display
error message, if any.
System.Windows.Forms. MessageBox.Show(eLoad.Message)
End
Try
'current
date
Me.Chckmonth.Checked
=
True
Me.Chckyear.Checked
=
True
' default
value of v_currentyear and v_currentmonth
v_currentmonth = 1
v_currentyear = 1
sub_currentdate(v_currentmonth, v_currentyear)
'load
task & appointment values
current_date = Format( Date.Now,
"M/d/yyyy")
appoint_date = System. Convert.ToDateTime(current_date)
load_value(current_date)
appoint_date =
Date.Now
Me.ltoday.Focus()
End
If
End
Sub
'Initialized DataAdapter da
Private
Sub daDataAdapter()
'Select
Command, Values
OleDbSCommand =
New
OleDb.OleDbCommand("SELECT
agendaid, bookid, branch, datecreated, description,
entry_type, ondate, ondate_d, ondate_m, ondate_y, ontime,
serialno, taskprirority FROM agenda ORDER BY agendaid")
OleDbSCommand.Connection() = dbConnection
' Select
command
'Insert
Command,Values
OleDbICommand.CommandText =
"INSERT
INTO agenda(bookid, branch, datecreated, description,
entry_type, ondate, "
& _
"ondate_d,
ondate_m, ondate_y, ontime, serialno, taskprirority)
VALUES (?, ?, ?, "
& _
"?, ?, ?,
?, ?, ?, ?, ?, ?)"
OleDbICommand.Connection = dbConnection
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("bookid",
System.Data.OleDb.OleDbType.Integer,
0,
"bookid"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("branch",
System.Data.OleDb.OleDbType.VarWChar,
3,
"branch"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("datecreated",
System.Data.OleDb.OleDbType.DBDate,
0,
"datecreated"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("description",
System.Data.OleDb.OleDbType.VarWChar,
0,
"description"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("entry_type",
System.Data.OleDb.OleDbType.VarWChar,
1,
"entry_type"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("ondate",
System.Data.OleDb.OleDbType.DBDate,
0,
"ondate"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("ondate_d",
System.Data.OleDb.OleDbType.VarWChar,
2,
"ondate_d"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("ondate_m",
System.Data.OleDb.OleDbType.VarWChar,
2,
"ondate_m"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("ondate_y",
System.Data.OleDb.OleDbType.VarWChar,
4,
"ondate_y"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("ontime",
System.Data.OleDb.OleDbType.VarWChar,
11,
"ontime"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("serialno",
System.Data.OleDb.OleDbType.Integer,
0,
"serialno"))
OleDbICommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("taskprirority",
System.Data.OleDb.OleDbType.VarWChar,
1,
"taskprirority"))
'Delete
Command, Values
OleDbDCommand.CommandText =
"DELETE
FROM agenda WHERE (agendaid = ?) AND (bookid = ? OR ? IS
NULL AND bookid I"
& _
"S NULL) AND (branch = ? OR ? IS NULL AND branch IS
NULL) AND (datecreated = ? OR"
& _
" ? IS NULL AND datecreated IS NULL) AND (entry_type
= ? OR ? IS NULL AND entry_t"
& _
"ype IS NULL) AND (ondate = ? OR ? IS NULL AND ondate
IS NULL) AND (ondate_d = ? "
& _
"OR ? IS NULL AND ondate_d IS NULL) AND (ondate_m = ?
OR ? IS NULL AND ondate_m I"
& _
"S NULL) AND (ondate_y = ? OR ? IS NULL AND ondate_y
IS NULL) AND (ontime = ? OR "
& _
"? IS NULL AND ontime IS NULL) AND (serialno = ? OR ?
IS NULL AND serialno IS NUL"
& _
"L) AND (taskprirority = ? OR ? IS NULL AND
taskprirority IS NULL)"
OleDbDCommand.Connection = dbConnection
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_agendaid",
System.Data.OleDb.OleDbType.Integer,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"agendaid",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_bookid",
System.Data.OleDb.OleDbType.Integer,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"bookid",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_bookid1",
System.Data.OleDb.OleDbType.Integer,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"bookid",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_branch",
System.Data.OleDb.OleDbType.VarWChar,
3, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"branch",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_branch1",
System.Data.OleDb.OleDbType.VarWChar,
3, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"branch",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_datecreated",
System.Data.OleDb.OleDbType.DBDate,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"datecreated",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_datecreated1",
System.Data.OleDb.OleDbType.DBDate,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"datecreated",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_entry_type",
System.Data.OleDb.OleDbType.VarWChar,
1, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"entry_type",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_entry_type1",
System.Data.OleDb.OleDbType.VarWChar,
1, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"entry_type",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate",
System.Data.OleDb.OleDbType.DBDate,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate1",
System.Data.OleDb.OleDbType.DBDate,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_d",
System.Data.OleDb.OleDbType.VarWChar,
2, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_d",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_d1",
System.Data.OleDb.OleDbType.VarWChar,
2, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_d",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_m",
System.Data.OleDb.OleDbType.VarWChar,
2, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_m",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_m1",
System.Data.OleDb.OleDbType.VarWChar,
2, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_m",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_y",
System.Data.OleDb.OleDbType.VarWChar,
4, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_y",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_y1",
System.Data.OleDb.OleDbType.VarWChar,
4, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_y",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ontime",
System.Data.OleDb.OleDbType.VarWChar,
11, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ontime",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ontime1",
System.Data.OleDb.OleDbType.VarWChar,
11, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ontime",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_serialno",
System.Data.OleDb.OleDbType.Integer,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"serialno",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_serialno1",
System.Data.OleDb.OleDbType.Integer,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"serialno",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_taskprirority",
System.Data.OleDb.OleDbType.VarWChar,
1, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"taskprirority",
System.Data.DataRowVersion.Original,
Nothing))
OleDbDCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_taskprirority1",
System.Data.OleDb.OleDbType.VarWChar,
1, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"taskprirority",
System.Data.DataRowVersion.Original,
Nothing))
'Update
Command, Values
OleDbUCommand.CommandText =
"UPDATE
agenda SET bookid = ?, branch = ?, datecreated = ?,
description = ?, entry"
& _
"_type =
?, ondate = ?, ondate_d = ?, ondate_m = ?, ondate_y = ?,
ontime = ?, ser" &
_
"ialno =
?, taskprirority = ? WHERE (agendaid = ?) AND (bookid =
? OR ? IS NULL A"
& _
"ND
bookid IS NULL) AND (branch = ? OR ? IS NULL AND branch
IS NULL) AND (datecre"
& _
"ated = ?
OR ? IS NULL AND datecreated IS NULL) AND (entry_type =
? OR ? IS NULL " &
_
"AND
entry_type IS NULL) AND (ondate = ? OR ? IS NULL AND
ondate IS NULL) AND (on"
& _
"date_d =
? OR ? IS NULL AND ondate_d IS NULL) AND (ondate_m = ?
OR ? IS NULL AND"
& _
"
ondate_m IS NULL) AND (ondate_y = ? OR ? IS NULL AND
ondate_y IS NULL) AND (ont"
& _
"ime = ?
OR ? IS NULL AND ontime IS NULL) AND (serialno = ? OR ?
IS NULL AND seri"
& _
"alno IS
NULL) AND (taskprirority = ? OR ? IS NULL AND
taskprirority IS NULL)"
OleDbUCommand.Connection = dbConnection
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("bookid",
System.Data.OleDb.OleDbType.Integer,
0,
"bookid"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("branch",
System.Data.OleDb.OleDbType.VarWChar,
3,
"branch"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("datecreated",
System.Data.OleDb.OleDbType.DBDate,
0,
"datecreated"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("description",
System.Data.OleDb.OleDbType.VarWChar,
0,
"description"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("entry_type",
System.Data.OleDb.OleDbType.VarWChar,
1,
"entry_type"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("ondate",
System.Data.OleDb.OleDbType.DBDate,
0,
"ondate"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("ondate_d",
System.Data.OleDb.OleDbType.VarWChar,
2,
"ondate_d"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("ondate_m",
System.Data.OleDb.OleDbType.VarWChar,
2,
"ondate_m"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("ondate_y",
System.Data.OleDb.OleDbType.VarWChar,
4,
"ondate_y"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("ontime",
System.Data.OleDb.OleDbType.VarWChar,
11,
"ontime"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("serialno",
System.Data.OleDb.OleDbType.Integer,
0,
"serialno"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("taskprirority",
System.Data.OleDb.OleDbType.VarWChar,
1,
"taskprirority"))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_agendaid",
System.Data.OleDb.OleDbType.Integer,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"agendaid",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_bookid",
System.Data.OleDb.OleDbType.Integer,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"bookid",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_bookid1",
System.Data.OleDb.OleDbType.Integer,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"bookid",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_branch",
System.Data.OleDb.OleDbType.VarWChar,
3, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"branch",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_branch1",
System.Data.OleDb.OleDbType.VarWChar,
3, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"branch",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_datecreated",
System.Data.OleDb.OleDbType.DBDate,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"datecreated",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_datecreated1",
System.Data.OleDb.OleDbType.DBDate,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"datecreated",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_entry_type",
System.Data.OleDb.OleDbType.VarWChar,
1, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"entry_type",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_entry_type1",
System.Data.OleDb.OleDbType.VarWChar,
1, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"entry_type",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate",
System.Data.OleDb.OleDbType.DBDate,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate1",
System.Data.OleDb.OleDbType.DBDate,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_d",
System.Data.OleDb.OleDbType.VarWChar,
2, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_d",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_d1",
System.Data.OleDb.OleDbType.VarWChar,
2, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_d",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_m",
System.Data.OleDb.OleDbType.VarWChar,
2, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_m",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_m1",
System.Data.OleDb.OleDbType.VarWChar,
2, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_m",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_y",
System.Data.OleDb.OleDbType.VarWChar,
4, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_y",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ondate_y1",
System.Data.OleDb.OleDbType.VarWChar,
4, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ondate_y",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ontime",
System.Data.OleDb.OleDbType.VarWChar,
11, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ontime",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_ontime1",
System.Data.OleDb.OleDbType.VarWChar,
11, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"ontime",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_serialno",
System.Data.OleDb.OleDbType.Integer,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"serialno",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_serialno1",
System.Data.OleDb.OleDbType.Integer,
0, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"serialno",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_taskprirority",
System.Data.OleDb.OleDbType.VarWChar,
1, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"taskprirority",
System.Data.DataRowVersion.Original,
Nothing))
OleDbUCommand.Parameters.Add( New
System.Data.OleDb.OleDbParameter("Original_taskprirority1",
System.Data.OleDb.OleDbType.VarWChar,
1, System.Data.ParameterDirection.Input,
False,
CType(0,
Byte),
CType(0,
Byte),
"taskprirority",
System.Data.DataRowVersion.Original,
Nothing))
'DataAdapter
da, and da.TableMappings
da_Table()
End
Sub
'DataAdapter
da, and da.TableMappings
Private
Sub da_Table()
'DataAdapter
da
da =
New
OleDb.OleDbDataAdapter(OleDbSCommand)
da.DeleteCommand = OleDbDCommand
da.InsertCommand = OleDbICommand
da.SelectCommand = OleDbSCommand
da.UpdateCommand = OleDbUCommand
da.TableMappings.AddRange( New
System.Data.Common.DataTableMapping()
{New
System.Data.Common.DataTableMapping("Table",
"agenda",
New
System.Data.Common.DataColumnMapping()
{New
System.Data.Common.DataColumnMapping("agendaid",
"agendaid"),
New
System.Data.Common.DataColumnMapping("bookid",
"bookid"),
New
System.Data.Common.DataColumnMapping("branch",
"branch"),
New
System.Data.Common.DataColumnMapping("datecreated",
"datecreated"),
New
System.Data.Common.DataColumnMapping("description",
"description"),
New
System.Data.Common.DataColumnMapping("entry_type",
"entry_type"),
New
System.Data.Common.DataColumnMapping("ondate",
"ondate"),
New
System.Data.Common.DataColumnMapping("ondate_d",
"ondate_d"),
New
System.Data.Common.DataColumnMapping("ondate_m",
"ondate_m"),
New
System.Data.Common.DataColumnMapping("ondate_y",
"ondate_y"),
New
System.Data.Common.DataColumnMapping("ontime",
"ontime"),
New
System.Data.Common.DataColumnMapping("serialno",
"serialno"),
New
System.Data.Common.DataColumnMapping("taskprirority",
"taskprirority")})})
End
Sub
'load
agenda table, Agendadset1 dataset
Private
Sub LoadDataSet()
Try
'Attempt
to load the dataset.
Me.LoadDataSet1()
Catch
eLoad
As
System.Exception
System.Windows.Forms. MessageBox.Show(eLoad.Message)
End
Try
End
Sub
Private
Sub LoadDataSet1()
Dim
objDataSetTemp
As
work_VBNet_10.Agendadset
objDataSetTemp =
New
work_VBNet_10.Agendadset
Try
Me.FillDataSet(objDataSetTemp)
Catch
eFillDataSet
As
System.Exception
Throw
eFillDataSet
End
Try
Try
Me.Agendadset1.Clear()
Me.Agendadset1.Merge(objDataSetTemp)
Catch
eLoadMerge
As
System.Exception
Throw
eLoadMerge
End
Try
End
Sub
Public
Sub FillDataSet(ByVal
dataSet
As
work_VBNet_10.Agendadset)
'Turn off
constraint checking before the dataset is filled.
'This
allows the adapters to fill the dataset without concern
'for
dependencies between the tables.
'
OleDbSCommand = New OleDb.OleDbCommand("SELECT agendaid,
bookid, branch, datecreated, description, entry_type,
ondate, ondate_d, ondate_m, ondate_y, ontime, serialno,
taskprirority FROM agenda")
'OleDbSCommand.Connection()
= dbConnection ' Select command
OleDbSCommand.CommandTimeout = 30
da =
New
OleDb.OleDbDataAdapter(OleDbSCommand)
dataSet.EnforceConstraints =
False
Try
'Open the
connection.
dbConnection.Open()
'Attempt
to fill the dataset through the da.
'
Me.OleDbDataAdapter1.Fill(dataSet)
da.Fill(dataSet,
"agenda")
Catch
fillException
As
System.Exception
'Add your
error handling code here.
Throw
fillException
Finally
'Turn
constraint checking back on.
dataSet.EnforceConstraints =
True
'Close
the connection whether or not the exception was thrown.
dbConnection.Close()
End
Try
End
Sub
Private
Sub
sub_currentdate(ByVal
current_month
As
Integer,
ByVal
current_year
As
Integer)
Dim
vvrc
As
Integer
vselect1 =
New
OleDb.OleDbCommand("SELECT
DISTINCT agenda.ondate, agenda.ondate_d, agenda.ondate_m,
agenda.ondate_y FROM(agenda)WHERE(((agenda.entry_type) =
'" +
"A"
+
"') And ((agenda.description) <> '"
+
"" +
"'))ORDER
BY agenda.ondate")
vda1 =
New
OleDb.OleDbDataAdapter(vselect1)
vdset1 =
New
DataSet
vselect1.Connection() = dbConnection
' Select
command
vselect1.CommandTimeout = 30
vdset1.EnforceConstraints =
False
Try
dbConnection.Open()
vda1.Fill(vdset1,
"agenda")
Catch
fillException
As
System.Exception
System.Windows.Forms. MessageBox.Show(fillException.Message)
End
Try
vdset1.EnforceConstraints =
True
dbConnection.Close()
Me.cmb_correspond.Items.Clear()
If
(vdset1.Tables("agenda").Rows.Count
> 0)
Then
For
vvrc = 0
To
(vdset1.Tables("agenda").Rows.Count
- 1)
Select
Case v_currentyear
Case
1
Select
Case current_month
Case
1
'current year=1 , current month=1
If
((Trim(vdset1.Tables("agenda").Rows(vvrc).Item("ondate_y"))
= Trim(Format(Date.Now,
"yyyy")))
And
(Trim(vdset1.Tables("agenda").Rows(vvrc).Item("ondate_m"))
= Trim(Format(Date.Now,
"MM"))))
Then
Me.cmb_correspond.Items.Add(Format(vdset1.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy"))
End
If
Case Else
'current year=1 , current month >1
If
vdset1.Tables("agenda").Rows(vvrc).Item("ondate_y")
= Format(Date.Now,
"yyyy")
Then
Me.cmb_correspond.Items.Add(Format(vdset1.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy"))
End
Select
Case Else
Select
Case current_month
Case
1
'current year > 1 , current month = 1
If
vdset1.Tables("agenda").Rows(vvrc).Item("ondate_m")
= Format(Date.Now,
"MM")
Then
Me.cmb_correspond.Items.Add(Format(vdset1.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy"))
End
If
Case Else
'current year > 1 , current month > 1
Me.cmb_correspond.Items.Add(Format(vdset1.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy"))
End
Select
End
Select
Next
End
If
End
Sub
Private
Sub load_value(ByVal
v_date
As
String)
Dim
vondate_d
As
String, vondate_m
As
String, vondate_y
As
String
Dim
emptyA_flag
As
Boolean,
emptyB_flag
As
Boolean
Dim
entrytype_A
As
Integer,
entrytype_T
As
Integer
Dim
i
As
Integer
entrytype_A = 0
entrytype_T = 0
emptyA_flag =
False
'task
emptyB_flag =
False
'appointment
Me.ltoday.Text
= FormatDateTime(System.Convert.ToDateTime(v_date),
DateFormat.LongDate)
'appointment
'test if
it available to add new appointmement with this current
date
If
(System.Convert.ToDateTime(current_date).Day
> 0
And
System.Convert.ToDateTime(current_date).Day
< 10)
Then
vondate_d =
"0"
+ Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
vondate_d = Trim(Str(System. Convert.ToDateTime(current_date).Day))
End
If
If
(System.Convert.ToDateTime(current_date).Month
> 0
And
System.Convert.ToDateTime(current_date).Month
< 10)
Then
vondate_m =
"0"
+ Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
vondate_m = Trim(Str(System. Convert.ToDateTime(current_date).Month))
End
If
vondate_y = Trim(Str(System. Convert.ToDateTime(current_date).Year))
'load
agenda table, order by serialno field
sub_loaddata( "A",
vondate_d, vondate_m, vondate_y)
If
vdset1.Tables("agenda").Rows.Count
> 0
Then
For
Me.vvrec
= 0
To
(vdset1.Tables("agenda").Rows.Count
- 1)
entrytype_A = entrytype_A + 1
Select
Case entrytype_A
Case
1
Me.TxtC1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid1.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
2
Me.TxtC2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid2.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
3
Me.TxtC3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid3.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
4
Me.TxtC4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid4.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
5
Me.TxtC5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid5.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
6
Me.TxtC6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid6.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
7
Me.TxtC7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid7.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
8
Me.TxtC8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid8.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
9
Me.TxtC9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid9.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
10
Me.TxtC10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid10.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
11
Me.TxtC11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid11.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
12
Me.TxtC12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid12.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
13
Me.TxtC13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid13.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
14
Me.TxtC14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid14.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
15
Me.TxtC15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid15.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
16
Me.TxtC16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid16.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
17
Me.TxtC17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid17.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
18
Me.TxtC18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid18.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
19
Me.TxtC19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid19.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
20
Me.TxtC20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid20.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
21
Me.TxtC21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid21.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
22
Me.TxtC22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid22.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
23
Me.TxtC23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid23.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
Case
24
Me.TxtC24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("ontime")
Me.TxtB24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxB24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Me.txid24.Text
= Str(vdset1.Tables("agenda").Rows(vvrec).Item("bookid"))
End
Select
emptyB_flag =
True
Next
Me.lappoint.Text
= Str(vdset1.Tables("agenda").Rows.Count)
+
" appointment(s)"
End
If
If
vdset1.Tables("agenda").Rows.Count
= 0
Then
Me.lappoint.Text
=
" appointment"
'task
sub_loaddata( "T",
"",
"",
"")
If
vdset1.Tables("agenda").Rows.Count
> 0
Then
For
Me.vvrec
= 0
To
(vdset1.Tables("agenda").Rows.Count
- 1)
entrytype_T = entrytype_T + 1
Select
Case entrytype_T
Case
1
Me.PTxA1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA1,
vvrec)
Me.TxtA1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA1.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
2
Me.PTxA2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA2,
vvrec)
Me.TxtA2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA2.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
3
Me.PTxA3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA3,
vvrec)
Me.TxtA3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA3.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
4
Me.PTxA4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA4,
vvrec)
Me.TxtA4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA4.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
5
Me.PTxA5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA5,
vvrec)
Me.TxtA5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA5.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
6
Me.PTxA6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA6,
vvrec)
Me.TxtA6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA6.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
7
Me.PTxA7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA7,
vvrec)
Me.TxtA7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA7.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
8
Me.PTxA8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA8,
vvrec)
Me.TxtA8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA8.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
9
Me.PTxA9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA9,
vvrec)
Me.TxtA9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA9.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
10
Me.PTxA10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA10,
vvrec)
Me.TxtA10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA10.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
11
Me.PTxA11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA11,
vvrec)
Me.TxtA11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA11.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
12
Me.PTxA12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA12,
vvrec)
Me.TxtA12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA12.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
13
Me.PTxA13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA13,
vvrec)
Me.TxtA13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA13.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
14
Me.PTxA14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA14,
vvrec)
Me.TxtA14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA14.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
15
Me.PTxA15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA15,
vvrec)
Me.TxtA15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA15.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
16
Me.PTxA16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA16,
vvrec)
Me.TxtA16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA16.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
17
Me.PTxA17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA17,
vvrec)
Me.TxtA17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA17.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
18
Me.PTxA18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA18,
vvrec)
Me.TxtA18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA18.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
19
Me.PTxA19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA19,
vvrec)
Me.TxtA19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA19.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
20
Me.PTxA20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA20,
vvrec)
Me.TxtA20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA20.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
21
Me.PTxA21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA21,
vvrec)
Me.TxtA21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA21.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
22
Me.PTxA22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA22,
vvrec)
Me.TxtA22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA22.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
23
Me.PTxA23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA23,
vvrec)
Me.TxtA23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA23.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
Case
24
Me.PTxA24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("taskprirority")
'taskprirority
field, picture corresponding (p_high.bmp, p_normal.bmp,
p_low.bmp)
pic_taskprirority( Me.PicA24,
vvrec)
Me.TxtA24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("description")
Me.StxA24.Text
= vdset1.Tables("agenda").Rows(vvrec).Item("serialno")
End
Select
emptyA_flag =
True
Next
Me.ltask.Text
= Str(vdset1.Tables("agenda").Rows.Count)
+
" task(s)"
End
If
If
vdset1.Tables("agenda").Rows.Count
= 0
Then
Me.ltask.Text
=
" task"
'task
For
i = 1
To
entrytype_T
sub_visible( True,
i,
"T")
Next
For
i = entrytype_T + 1
To
24
sub_visible( False,
i,
"T")
Next
'scrollBar
...
Me.VScrollBarA1.Maximum
= entrytype_T - 1
Me.VScrollBarA1.LargeChange
= 12
Me.VScrollBarA1.SmallChange
= 12
If
entrytype_T > 0
Then
Me.VScrollBarA1.Value
= 0
If
emptyA_flag
Then
Me.PicA_empty.Visible
=
False
Else
Me.PicA_empty.Visible
=
True
End
If
sub_VScrollA1( Me.VScrollBarA1.Value)
'appointment
For
i = 1
To
entrytype_A
sub_visible( True,
i,
"A")
Next
For
i = entrytype_A + 1
To
24
sub_visible( False,
i,
"A")
Next
'scrollBar
...
Me.VScrollBarB1.Maximum
= entrytype_A - 1
Me.VScrollBarB1.LargeChange
= 12
Me.VScrollBarB1.SmallChange
= 12
If
entrytype_A > 0
Then
Me.VScrollBarB1.Value
= 0
If
emptyB_flag
Then
Me.PicB_empty.Visible
=
False
Else
Me.PicB_empty.Visible
=
True
End
If
sub_VScrollB1( Me.VScrollBarB1.Value)
emptyA_flag =
False
emptyB_flag =
False
End
Sub
Private
Sub
pic_taskprirority(ByVal
v_PictureBox
As
PictureBox,
ByVal
v_vrec
As
Integer)
' "H" "N"
"L"
If
vdset1.Tables("agenda").Rows(v_vrec).Item("taskprirority")
=
"H"
Then
v_PictureBox.Image =
Image.FromFile(current_path
&
"\work_VBNet_10\pic\p_high.bmp")
End
If
If
vdset1.Tables("agenda").Rows(v_vrec).Item("taskprirority")
=
"N"
Then
v_PictureBox.Image =
Image.FromFile(current_path
&
"\work_VBNet_10\pic\p_normal.bmp")
End
If
If
vdset1.Tables("agenda").Rows(v_vrec).Item("taskprirority")
=
"L"
Then
v_PictureBox.Image =
Image.FromFile(current_path
+
"\work_VBNet_10\pic\p_low.bmp")
End
If
End
Sub
Private
Sub sub_visible(ByVal
bval
As
Boolean,
ByVal
v_serialno
As
Integer,
ByVal
v_entrytype
As
String)
Select
Case v_entrytype
Case
"T"
Select
Case v_serialno
Case
1
Me.PTxA1.Visible
= bval
Me.PicA1.Visible
= bval
Me.TxtA1.Visible
= bval
Me.PanA1.Visible
= bval
Me.BtnA1.Visible
= bval
Me.ChkA1.Visible
= bval
Me.StxA1.Visible
= bval
Case
2
Me.PTxA2.Visible
= bval
Me.PicA2.Visible
= bval
Me.TxtA2.Visible
= bval
Me.PanA2.Visible
= bval
Me.BtnA2.Visible
= bval
Me.ChkA2.Visible
= bval
Me.StxA2.Visible
= bval
Case
3
Me.PTxA3.Visible
= bval
Me.PicA3.Visible
= bval
Me.TxtA3.Visible
= bval
Me.PanA3.Visible
= bval
Me.BtnA3.Visible
= bval
Me.ChkA3.Visible
= bval
Me.StxA3.Visible
= bval
Case
4
Me.PTxA4.Visible
= bval
Me.PicA4.Visible
= bval
Me.TxtA4.Visible
= bval
Me.PanA4.Visible
= bval
Me.BtnA4.Visible
= bval
Me.ChkA4.Visible
= bval
Me.StxA4.Visible
= bval
Case
5
Me.PTxA5.Visible
= bval
Me.PicA5.Visible
= bval
Me.TxtA5.Visible
= bval
Me.PanA5.Visible
= bval
Me.BtnA5.Visible
= bval
Me.ChkA5.Visible
= bval
Me.StxA5.Visible
= bval
Case
6
Me.PTxA6.Visible
= bval
Me.PicA6.Visible
= bval
Me.TxtA6.Visible
= bval
Me.PanA6.Visible
= bval
Me.BtnA6.Visible
= bval
Me.ChkA6.Visible
= bval
Me.StxA6.Visible
= bval
Case
7
Me.PTxA7.Visible
= bval
Me.PicA7.Visible
= bval
Me.TxtA7.Visible
= bval
Me.PanA7.Visible
= bval
Me.BtnA7.Visible
= bval
Me.ChkA7.Visible
= bval
Me.StxA7.Visible
= bval
Case
8
Me.PTxA8.Visible
= bval
Me.PicA8.Visible
= bval
Me.TxtA8.Visible
= bval
Me.PanA8.Visible
= bval
Me.BtnA8.Visible
= bval
Me.ChkA8.Visible
= bval
Me.StxA8.Visible
= bval
Case
9
Me.PTxA9.Visible
= bval
Me.PicA9.Visible
= bval
Me.TxtA9.Visible
= bval
Me.PanA9.Visible
= bval
Me.BtnA9.Visible
= bval
Me.ChkA9.Visible
= bval
Me.StxA9.Visible
= bval
Case
10
Me.PTxA10.Visible
= bval
Me.PTxA1.Visible
= bval
Me.PicA10.Visible
= bval
Me.TxtA10.Visible
= bval
Me.PanA10.Visible
= bval
Me.BtnA10.Visible
= bval
Me.ChkA10.Visible
= bval
Me.StxA10.Visible
= bval
Case
11
Me.PTxA11.Visible
= bval
Me.PicA11.Visible
= bval
Me.TxtA11.Visible
= bval
Me.PanA11.Visible
= bval
Me.BtnA11.Visible
= bval
Me.ChkA11.Visible
= bval
Me.StxA11.Visible
= bval
Case
12
Me.PTxA12.Visible
= bval
Me.PicA12.Visible
= bval
Me.TxtA12.Visible
= bval
Me.PanA12.Visible
= bval
Me.BtnA12.Visible
= bval
Me.ChkA12.Visible
= bval
Me.StxA12.Visible
= bval
Case
13
Me.PTxA13.Visible
= bval
Me.PicA13.Visible
= bval
Me.TxtA13.Visible
= bval
Me.PanA13.Visible
= bval
Me.BtnA13.Visible
= bval
Me.ChkA13.Visible
= bval
Me.StxA13.Visible
= bval
Case
14
Me.PTxA14.Visible
= bval
Me.PicA14.Visible
= bval
Me.TxtA14.Visible
= bval
Me.PanA14.Visible
= bval
Me.BtnA14.Visible
= bval
Me.ChkA14.Visible
= bval
Me.StxA14.Visible
= bval
Case
15
Me.PTxA15.Visible
= bval
Me.PicA15.Visible
= bval
Me.TxtA15.Visible
= bval
Me.PanA15.Visible
= bval
Me.BtnA15.Visible
= bval
Me.ChkA15.Visible
= bval
Me.StxA15.Visible
= bval
Case
16
Me.PTxA16.Visible
= bval
Me.PicA16.Visible
= bval
Me.TxtA16.Visible
= bval
Me.PanA16.Visible
= bval
Me.BtnA16.Visible
= bval
Me.ChkA16.Visible
= bval
Me.StxA16.Visible
= bval
Case
17
Me.PTxA17.Visible
= bval
Me.PicA17.Visible
= bval
Me.TxtA17.Visible
= bval
Me.PanA17.Visible
= bval
Me.BtnA17.Visible
= bval
Me.ChkA17.Visible
= bval
Me.StxA17.Visible
= bval
Case
18
Me.PTxA18.Visible
= bval
Me.PicA18.Visible
= bval
Me.TxtA18.Visible
= bval
Me.PanA18.Visible
= bval
Me.BtnA18.Visible
= bval
Me.ChkA18.Visible
= bval
Me.StxA18.Visible
= bval
Case
19
Me.PTxA19.Visible
= bval
Me.PicA19.Visible
= bval
Me.TxtA19.Visible
= bval
Me.PanA19.Visible
= bval
Me.BtnA19.Visible
= bval
Me.ChkA19.Visible
= bval
Me.StxA19.Visible
= bval
Case
20
Me.PTxA20.Visible
= bval
Me.PicA20.Visible
= bval
Me.TxtA20.Visible
= bval
Me.PanA20.Visible
= bval
Me.BtnA20.Visible
= bval
Me.ChkA20.Visible
= bval
Me.StxA20.Visible
= bval
Case
21
Me.PTxA21.Visible
= bval
Me.PicA21.Visible
= bval
Me.TxtA21.Visible
= bval
Me.PanA21.Visible
= bval
Me.BtnA21.Visible
= bval
Me.ChkA21.Visible
= bval
Me.StxA21.Visible
= bval
Case
22
Me.PTxA22.Visible
= bval
Me.PicA22.Visible
= bval
Me.TxtA22.Visible
= bval
Me.PanA22.Visible
= bval
Me.BtnA22.Visible
= bval
Me.ChkA22.Visible
= bval
Me.StxA22.Visible
= bval
Case
23
Me.PTxA23.Visible
= bval
Me.PicA23.Visible
= bval
Me.TxtA23.Visible
= bval
Me.PanA23.Visible
= bval
Me.BtnA23.Visible
= bval
Me.ChkA23.Visible
= bval
Me.StxA23.Visible
= bval
Case
24
Me.PTxA24.Visible
= bval
Me.PicA24.Visible
= bval
Me.TxtA24.Visible
= bval
Me.PanA24.Visible
= bval
Me.BtnA24.Visible
= bval
Me.ChkA24.Visible
= bval
Me.StxA24.Visible
= bval
End
Select
Case
"A"
Select
Case v_serialno
Case
1
Me.TxtC1.Visible
= bval
Me.TxtB1.Visible
= bval
Me.PanB1.Visible
= bval
Me.BtnB1.Visible
= bval
Me.ChkB1.Visible
= bval
Me.StxB1.Visible
= bval
Case
2
Me.TxtC2.Visible
= bval
Me.TxtB2.Visible
= bval
Me.PanB2.Visible
= bval
Me.BtnB2.Visible
= bval
Me.ChkB2.Visible
= bval
Me.StxB2.Visible
= bval
Case
3
Me.TxtC3.Visible
= bval
Me.TxtB3.Visible
= bval
Me.PanB3.Visible
= bval
Me.BtnB3.Visible
= bval
Me.ChkB3.Visible
= bval
Me.StxB3.Visible
= bval
Case
4
Me.TxtC4.Visible
= bval
Me.TxtB4.Visible
= bval
Me.PanB4.Visible
= bval
Me.BtnB4.Visible
= bval
Me.ChkB4.Visible
= bval
Me.StxB4.Visible
= bval
Case
5
Me.TxtC5.Visible
= bval
Me.TxtB5.Visible
= bval
Me.PanB5.Visible
= bval
Me.BtnB5.Visible
= bval
Me.ChkB5.Visible
= bval
Me.StxB5.Visible
= bval
Case
6
Me.TxtC6.Visible
= bval
Me.TxtB6.Visible
= bval
Me.PanB6.Visible
= bval
Me.BtnB6.Visible
= bval
Me.ChkB6.Visible
= bval
Me.StxB6.Visible
= bval
Case
7
Me.TxtC7.Visible
= bval
Me.TxtB7.Visible
= bval
Me.PanB7.Visible
= bval
Me.BtnB7.Visible
= bval
Me.ChkB7.Visible
= bval
Me.StxB7.Visible
= bval
Case
8
Me.TxtC8.Visible
= bval
Me.TxtB8.Visible
= bval
Me.PanB8.Visible
= bval
Me.BtnB8.Visible
= bval
Me.ChkB8.Visible
= bval
Me.StxB8.Visible
= bval
Case
9
Me.TxtC9.Visible
= bval
Me.TxtB9.Visible
= bval
Me.PanB9.Visible
= bval
Me.BtnB9.Visible
= bval
Me.ChkB9.Visible
= bval
Me.StxB9.Visible
= bval
Case
10
Me.TxtC10.Visible
= bval
Me.TxtB10.Visible
= bval
Me.PanB10.Visible
= bval
Me.BtnB10.Visible
= bval
Me.ChkB10.Visible
= bval
Me.StxB10.Visible
= bval
Case
11
Me.TxtC11.Visible
= bval
Me.TxtB11.Visible
= bval
Me.PanB11.Visible
= bval
Me.BtnB11.Visible
= bval
Me.ChkB11.Visible
= bval
Me.StxB11.Visible
= bval
Case
12
Me.TxtC12.Visible
= bval
Me.TxtB12.Visible
= bval
Me.PanB12.Visible
= bval
Me.BtnB12.Visible
= bval
Me.ChkB12.Visible
= bval
Me.StxB12.Visible
= bval
Case
13
Me.TxtC13.Visible
= bval
Me.TxtB13.Visible
= bval
Me.PanB13.Visible
= bval
Me.BtnB13.Visible
= bval
Me.ChkB13.Visible
= bval
Me.StxB13.Visible
= bval
Case
14
Me.TxtC14.Visible
= bval
Me.TxtB14.Visible
= bval
Me.PanB14.Visible
= bval
Me.BtnB14.Visible
= bval
Me.ChkB14.Visible
= bval
Me.StxB14.Visible
= bval
Case
15
Me.TxtC15.Visible
= bval
Me.TxtB15.Visible
= bval
Me.PanB15.Visible
= bval
Me.BtnB15.Visible
= bval
Me.ChkB15.Visible
= bval
Me.StxB15.Visible
= bval
Case
16
Me.TxtC16.Visible
= bval
Me.TxtB16.Visible
= bval
Me.PanB16.Visible
= bval
Me.BtnB16.Visible
= bval
Me.ChkB16.Visible
= bval
Me.StxB16.Visible
= bval
Case
17
Me.TxtC17.Visible
= bval
Me.TxtB17.Visible
= bval
Me.PanB17.Visible
= bval
Me.BtnB17.Visible
= bval
Me.ChkB17.Visible
= bval
Me.StxB17.Visible
= bval
Case
18
Me.TxtC18.Visible
= bval
Me.TxtB18.Visible
= bval
Me.PanB18.Visible
= bval
Me.BtnB18.Visible
= bval
Me.ChkB18.Visible
= bval
Me.StxB18.Visible
= bval
Case
19
Me.TxtC19.Visible
= bval
Me.TxtB19.Visible
= bval
Me.PanB19.Visible
= bval
Me.BtnB19.Visible
= bval
Me.ChkB19.Visible
= bval
Me.StxB19.Visible
= bval
Case
20
Me.TxtC20.Visible
= bval
Me.TxtB20.Visible
= bval
Me.PanB20.Visible
= bval
Me.BtnB20.Visible
= bval
Me.ChkB20.Visible
= bval
Me.StxB20.Visible
= bval
Case
21
Me.TxtC21.Visible
= bval
Me.TxtB21.Visible
= bval
Me.PanB21.Visible
= bval
Me.BtnB21.Visible
= bval
Me.ChkB21.Visible
= bval
Me.StxB21.Visible
= bval
Case
22
Me.TxtC22.Visible
= bval
Me.TxtB22.Visible
= bval
Me.PanB22.Visible
= bval
Me.BtnB22.Visible
= bval
Me.ChkB22.Visible
= bval
Me.StxB22.Visible
= bval
Case
23
Me.TxtC23.Visible
= bval
Me.TxtB23.Visible
= bval
Me.PanB23.Visible
= bval
Me.BtnB23.Visible
= bval
Me.ChkB23.Visible
= bval
Me.StxB23.Visible
= bval
Case
24
Me.TxtC24.Visible
= bval
Me.TxtB24.Visible
= bval
Me.PanB24.Visible
= bval
Me.BtnB24.Visible
= bval
Me.ChkB24.Visible
= bval
Me.StxB24.Visible
= bval
End
Select
End
Select
End
Sub
'
**************************** ScrollBar
****************************
Private
Sub
VScrollBarA1_Scroll(ByVal
sender
As
System.Object,
ByVal e
As
System.Windows.Forms.ScrollEventArgs)
Handles
VScrollBarA1.Scroll
sub_VScrollA1( Me.VScrollBarA1.Value)
End
Sub
Private
Sub
VScrollBarB1_Scroll(ByVal
sender
As
System.Object,
ByVal e
As
System.Windows.Forms.ScrollEventArgs)
Handles
VScrollBarB1.Scroll
sub_VScrollB1( Me.VScrollBarB1.Value)
End
Sub
Private
Sub sub_VScrollA1(ByVal
val_VScrollA1
As
Integer)
Select
Case val_VScrollA1
Case
0
Me.PanA1.Top
= v_PanA1
Me.PTxA1.Top
=
Me.PicA1.Top
Me.PicA1.Top
= v_PanA1 - v_PicA
Me.TxtA1.Top
= v_PanA1 - v_TxtA
Me.BtnA1.Top
= v_PanA1 - v_BtnA
Me.ChkA1.Top
= v_PanA1 - v_chk
Me.StxA1.Top
= v_PanA1 - v_chk
Me.PanA2.Top
=
Me.PanA1.Top + 24
Me.PTxA2.Top
=
Me.PicA2.Top
Me.PicA2.Top
=
Me.PanA2.Top -
v_PicA
Me.TxtA2.Top
=
Me.PanA2.Top -
v_TxtA
Me.BtnA2.Top
=
Me.PanA2.Top -
v_BtnA
Me.ChkA2.Top
=
Me.PanA2.Top -
v_chk
Me.StxA2.Top
=
Me.PanA2.Top -
v_chk
Me.PanA3.Top
=
Me.PanA2.Top + 24
Me.PTxA3.Top
=
Me.PicA3.Top
Me.PicA3.Top
=
Me.PanA3.Top -
v_PicA
Me.TxtA3.Top
=
Me.PanA3.Top -
v_TxtA
Me.BtnA3.Top
=
Me.PanA3.Top -
v_BtnA
Me.ChkA3.Top
=
Me.PanA3.Top -
v_chk
Me.StxA3.Top
=
Me.PanA3.Top -
v_chk
Me.PanA4.Top
=
Me.PanA3.Top + 24
Me.PTxA4.Top
=
Me.PicA4.Top
Me.PicA4.Top
=
Me.PanA4.Top -
v_PicA
Me.TxtA4.Top
=
Me.PanA4.Top -
v_TxtA
Me.BtnA4.Top
=
Me.PanA4.Top -
v_BtnA
Me.ChkA4.Top
=
Me.PanA4.Top -
v_chk
Me.StxA4.Top
=
Me.PanA4.Top -
v_chk
Me.PanA5.Top
=
Me.PanA4.Top + 24
Me.PTxA5.Top
=
Me.PicA5.Top
Me.PicA5.Top
=
Me.PanA5.Top -
v_PicA
Me.TxtA5.Top
=
Me.PanA5.Top -
v_TxtA
Me.BtnA5.Top
=
Me.PanA5.Top -
v_BtnA
Me.ChkA5.Top
=
Me.PanA5.Top -
v_chk
Me.StxA5.Top
=
Me.PanA5.Top -
v_chk
Me.PanA6.Top
=
Me.PanA5.Top + 24
Me.PTxA6.Top
=
Me.PicA6.Top
Me.PicA6.Top
=
Me.PanA6.Top -
v_PicA
Me.TxtA6.Top
=
Me.PanA6.Top -
v_TxtA
Me.BtnA6.Top
=
Me.PanA6.Top -
v_BtnA
Me.ChkA6.Top
=
Me.PanA6.Top -
v_chk
Me.StxA6.Top
=
Me.PanA6.Top -
v_chk
Me.PanA7.Top
=
Me.PanA6.Top + 24
Me.PTxA7.Top
=
Me.PicA7.Top
Me.PicA7.Top
=
Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
=
Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
=
Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
=
Me.PanA7.Top -
v_chk
Me.StxA7.Top
=
Me.PanA7.Top -
v_chk
Me.PanA8.Top
=
Me.PanA7.Top + 24
Me.PTxA8.Top
=
Me.PicA8.Top
Me.PicA8.Top
=
Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
=
Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
=
Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
=
Me.PanA8.Top -
v_chk
Me.StxA8.Top
=
Me.PanA8.Top -
v_chk
Me.PanA9.Top
=
Me.PanA8.Top + 24
Me.PTxA9.Top
=
Me.PicA9.Top
Me.PicA9.Top
=
Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
=
Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
=
Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
=
Me.PanA9.Top -
v_chk
Me.StxA9.Top
=
Me.PanA9.Top -
v_chk
Me.PanA10.Top
=
Me.PanA9.Top + 24
Me.PTxA10.Top
=
Me.PicA10.Top
Me.PicA10.Top
=
Me.PanA10.Top -
v_PicA
Me.TxtA10.Top
=
Me.PanA10.Top -
v_TxtA
Me.BtnA10.Top
=
Me.PanA10.Top -
v_BtnA
Me.ChkA10.Top
=
Me.PanA10.Top -
v_chk
Me.StxA10.Top
=
Me.PanA10.Top -
v_chk
Me.PanA11.Top
=
Me.PanA10.Top + 24
Me.PTxA11.Top
=
Me.PicA11.Top
Me.PicA11.Top
=
Me.PanA11.Top -
v_PicA
Me.TxtA11.Top
=
Me.PanA11.Top -
v_TxtA
Me.BtnA11.Top
=
Me.PanA11.Top -
v_BtnA
Me.ChkA11.Top
=
Me.PanA11.Top -
v_chk
Me.StxA11.Top
=
Me.PanA11.Top -
v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
1
Me.PanA2.Top
= v_PanA1
Me.PTxA2.Top
=
Me.PicA2.Top
Me.PicA2.Top
= v_PanA1 - v_PicA
Me.TxtA2.Top
= v_PanA1 - v_TxtA
Me.BtnA2.Top
= v_PanA1 - v_BtnA
Me.ChkA2.Top
= v_PanA1 - v_chk
Me.StxA2.Top
= v_PanA1 - v_chk
Me.PanA3.Top
=
Me.PanA2.Top + 24
Me.PTxA3.Top
=
Me.PicA3.Top
Me.PicA3.Top
=
Me.PanA3.Top -
v_PicA
Me.TxtA3.Top
=
Me.PanA3.Top -
v_TxtA
Me.BtnA3.Top
=
Me.PanA3.Top -
v_BtnA
Me.ChkA3.Top
=
Me.PanA3.Top -
v_chk
Me.StxA3.Top
=
Me.PanA3.Top -
v_chk
Me.PanA4.Top
=
Me.PanA3.Top + 24
Me.PTxA4.Top
=
Me.PicA4.Top
Me.PicA4.Top
=
Me.PanA4.Top -
v_PicA
Me.TxtA4.Top
=
Me.PanA4.Top -
v_TxtA
Me.BtnA4.Top
=
Me.PanA4.Top -
v_BtnA
Me.ChkA4.Top
=
Me.PanA4.Top -
v_chk
Me.StxA4.Top
=
Me.PanA4.Top -
v_chk
Me.PanA5.Top
=
Me.PanA4.Top + 24
Me.PTxA5.Top
=
Me.PicA5.Top
Me.PicA5.Top
=
Me.PanA5.Top -
v_PicA
Me.TxtA5.Top
=
Me.PanA5.Top -
v_TxtA
Me.BtnA5.Top
=
Me.PanA5.Top -
v_BtnA
Me.ChkA5.Top
=
Me.PanA5.Top -
v_chk
Me.StxA5.Top
=
Me.PanA5.Top -
v_chk
Me.PanA6.Top
=
Me.PanA5.Top + 24
Me.PTxA6.Top
=
Me.PicA6.Top
Me.PicA6.Top
=
Me.PanA6.Top -
v_PicA
Me.TxtA6.Top
=
Me.PanA6.Top -
v_TxtA
Me.BtnA6.Top
=
Me.PanA6.Top -
v_BtnA
Me.ChkA6.Top
=
Me.PanA6.Top -
v_chk
Me.StxA6.Top
=
Me.PanA6.Top -
v_chk
Me.PanA7.Top
=
Me.PanA6.Top + 24
Me.PTxA7.Top
=
Me.PicA7.Top
Me.PicA7.Top
=
Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
=
Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
=
Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
=
Me.PanA7.Top -
v_chk
Me.StxA7.Top
=
Me.PanA7.Top -
v_chk
Me.PanA8.Top
=
Me.PanA7.Top + 24
Me.PTxA8.Top
=
Me.PicA8.Top
Me.PicA8.Top
=
Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
=
Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
=
Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
=
Me.PanA8.Top -
v_chk
Me.StxA8.Top
=
Me.PanA8.Top -
v_chk
Me.PanA9.Top
=
Me.PanA8.Top + 24
Me.PTxA9.Top
=
Me.PicA9.Top
Me.PicA9.Top
=
Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
=
Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
=
Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
=
Me.PanA9.Top -
v_chk
Me.StxA9.Top
=
Me.PanA9.Top -
v_chk
Me.PanA10.Top
=
Me.PanA9.Top + 24
Me.PTxA10.Top
=
Me.PicA10.Top
Me.PicA10.Top
=
Me.PanA10.Top -
v_PicA
Me.TxtA10.Top
=
Me.PanA10.Top -
v_TxtA
Me.BtnA10.Top
=
Me.PanA10.Top -
v_BtnA
Me.ChkA10.Top
=
Me.PanA10.Top -
v_chk
Me.StxA10.Top
=
Me.PanA10.Top -
v_chk
Me.PanA11.Top
=
Me.PanA10.Top + 24
Me.PTxA11.Top
=
Me.PicA11.Top
Me.PicA11.Top
=
Me.PanA11.Top -
v_PicA
Me.TxtA11.Top
=
Me.PanA11.Top -
v_TxtA
Me.BtnA11.Top
=
Me.PanA11.Top -
v_BtnA
Me.ChkA11.Top
=
Me.PanA11.Top -
v_chk
Me.StxA11.Top
=
Me.PanA11.Top -
v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
2
Me.PanA3.Top
= v_PanA1
Me.PTxA3.Top
=
Me.PicA3.Top
Me.PicA3.Top
= v_PanA1 - v_PicA
Me.TxtA3.Top
= v_PanA1 - v_TxtA
Me.BtnA3.Top
= v_PanA1 - v_BtnA
Me.ChkA3.Top
= v_PanA1 - v_chk
Me.StxA3.Top
= v_PanA1 - v_chk
Me.PanA4.Top
=
Me.PanA3.Top + 24
Me.PTxA4.Top
=
Me.PicA4.Top
Me.PicA4.Top
=
Me.PanA4.Top -
v_PicA
Me.TxtA4.Top
=
Me.PanA4.Top -
v_TxtA
Me.BtnA4.Top
=
Me.PanA4.Top -
v_BtnA
Me.ChkA4.Top
=
Me.PanA4.Top -
v_chk
Me.StxA4.Top
=
Me.PanA4.Top -
v_chk
Me.PanA5.Top
=
Me.PanA4.Top + 24
Me.PTxA5.Top
=
Me.PicA5.Top
Me.PicA5.Top
=
Me.PanA5.Top -
v_PicA
Me.TxtA5.Top
=
Me.PanA5.Top -
v_TxtA
Me.BtnA5.Top
=
Me.PanA5.Top -
v_BtnA
Me.ChkA5.Top
=
Me.PanA5.Top -
v_chk
Me.StxA5.Top
=
Me.PanA5.Top -
v_chk
Me.PanA6.Top
=
Me.PanA5.Top + 24
Me.PTxA6.Top
=
Me.PicA6.Top
Me.PicA6.Top
=
Me.PanA6.Top -
v_PicA
Me.TxtA6.Top
=
Me.PanA6.Top -
v_TxtA
Me.BtnA6.Top
=
Me.PanA6.Top -
v_BtnA
Me.ChkA6.Top
=
Me.PanA6.Top -
v_chk
Me.StxA6.Top
=
Me.PanA6.Top -
v_chk
Me.PanA7.Top
=
Me.PanA6.Top + 24
Me.PTxA7.Top
=
Me.PicA7.Top
Me.PicA7.Top
=
Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
=
Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
=
Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
=
Me.PanA7.Top -
v_chk
Me.StxA7.Top
=
Me.PanA7.Top -
v_chk
Me.PanA8.Top
=
Me.PanA7.Top + 24
Me.PTxA8.Top
=
Me.PicA8.Top
Me.PicA8.Top
=
Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
=
Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
=
Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
=
Me.PanA8.Top -
v_chk
Me.StxA8.Top
=
Me.PanA8.Top -
v_chk
Me.PanA9.Top
=
Me.PanA8.Top + 24
Me.PTxA9.Top
=
Me.PicA9.Top
Me.PicA9.Top
=
Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
=
Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
=
Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
=
Me.PanA9.Top -
v_chk
Me.StxA9.Top
=
Me.PanA9.Top -
v_chk
Me.PanA10.Top
=
Me.PanA9.Top + 24
Me.PTxA10.Top
=
Me.PicA10.Top
Me.PicA10.Top
=
Me.PanA10.Top -
v_PicA
Me.TxtA10.Top
=
Me.PanA10.Top -
v_TxtA
Me.BtnA10.Top
=
Me.PanA10.Top -
v_BtnA
Me.ChkA10.Top
=
Me.PanA10.Top -
v_chk
Me.StxA10.Top
=
Me.PanA10.Top -
v_chk
Me.PanA11.Top
=
Me.PanA10.Top + 24
Me.PTxA11.Top
=
Me.PicA11.Top
Me.PicA11.Top
=
Me.PanA11.Top -
v_PicA
Me.TxtA11.Top
=
Me.PanA11.Top -
v_TxtA
Me.BtnA11.Top
=
Me.PanA11.Top -
v_BtnA
Me.ChkA11.Top
=
Me.PanA11.Top -
v_chk
Me.StxA11.Top
=
Me.PanA11.Top -
v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
3
Me.PanA4.Top
= v_PanA1
Me.PTxA4.Top
=
Me.PicA4.Top
Me.PicA4.Top
= v_PanA1 - v_PicA
Me.TxtA4.Top
= v_PanA1 - v_TxtA
Me.BtnA4.Top
= v_PanA1 - v_BtnA
Me.ChkA4.Top
= v_PanA1 - v_chk
Me.StxA4.Top
= v_PanA1 - v_chk
Me.PanA5.Top
=
Me.PanA4.Top + 24
Me.PTxA5.Top
=
Me.PicA5.Top
Me.PicA5.Top
=
Me.PanA5.Top -
v_PicA
Me.TxtA5.Top
=
Me.PanA5.Top -
v_TxtA
Me.BtnA5.Top
=
Me.PanA5.Top -
v_BtnA
Me.ChkA5.Top
=
Me.PanA5.Top -
v_chk
Me.StxA5.Top
=
Me.PanA5.Top -
v_chk
Me.PanA6.Top
=
Me.PanA5.Top + 24
Me.PTxA6.Top
=
Me.PicA6.Top
Me.PicA6.Top
=
Me.PanA6.Top -
v_PicA
Me.TxtA6.Top
=
Me.PanA6.Top -
v_TxtA
Me.BtnA6.Top
=
Me.PanA6.Top -
v_BtnA
Me.ChkA6.Top
=
Me.PanA6.Top -
v_chk
Me.StxA6.Top
=
Me.PanA6.Top -
v_chk
Me.PanA7.Top
=
Me.PanA6.Top + 24
Me.PTxA7.Top
=
Me.PicA7.Top
Me.PicA7.Top
=
Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
=
Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
=
Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
=
Me.PanA7.Top -
v_chk
Me.StxA7.Top
=
Me.PanA7.Top -
v_chk
Me.PanA8.Top
=
Me.PanA7.Top + 24
Me.PTxA8.Top
=
Me.PicA8.Top
Me.PicA8.Top
=
Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
=
Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
=
Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
=
Me.PanA8.Top -
v_chk
Me.StxA8.Top
=
Me.PanA8.Top -
v_chk
Me.PanA9.Top
=
Me.PanA8.Top + 24
Me.PTxA9.Top
=
Me.PicA9.Top
Me.PicA9.Top
=
Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
=
Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
=
Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
=
Me.PanA9.Top -
v_chk
Me.StxA9.Top
=
Me.PanA9.Top -
v_chk
Me.PanA10.Top
=
Me.PanA9.Top + 24
Me.PTxA10.Top
=
Me.PicA10.Top
Me.PicA10.Top
=
Me.PanA10.Top -
v_PicA
Me.TxtA10.Top
=
Me.PanA10.Top -
v_TxtA
Me.BtnA10.Top
=
Me.PanA10.Top -
v_BtnA
Me.ChkA10.Top
=
Me.PanA10.Top -
v_chk
Me.StxA10.Top
=
Me.PanA10.Top -
v_chk
Me.PanA11.Top
=
Me.PanA10.Top + 24
Me.PTxA11.Top
=
Me.PicA11.Top
Me.PicA11.Top
=
Me.PanA11.Top -
v_PicA
Me.TxtA11.Top
=
Me.PanA11.Top -
v_TxtA
Me.BtnA11.Top
=
Me.PanA11.Top -
v_BtnA
Me.ChkA11.Top
=
Me.PanA11.Top -
v_chk
Me.StxA11.Top
=
Me.PanA11.Top -
v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
4
Me.PanA5.Top
= v_PanA1
Me.PTxA5.Top
=
Me.PicA5.Top
Me.PicA5.Top
= v_PanA1 - v_PicA
Me.TxtA5.Top
= v_PanA1 - v_TxtA
Me.BtnA5.Top
= v_PanA1 - v_BtnA
Me.ChkA5.Top
= v_PanA1 - v_chk
Me.StxA5.Top
= v_PanA1 - v_chk
Me.PanA6.Top
=
Me.PanA5.Top + 24
Me.PTxA6.Top
=
Me.PicA6.Top
Me.PicA6.Top
=
Me.PanA6.Top -
v_PicA
Me.TxtA6.Top
=
Me.PanA6.Top -
v_TxtA
Me.BtnA6.Top
=
Me.PanA6.Top -
v_BtnA
Me.ChkA6.Top
=
Me.PanA6.Top -
v_chk
Me.StxA6.Top
=
Me.PanA6.Top -
v_chk
Me.PanA7.Top
=
Me.PanA6.Top + 24
Me.PTxA7.Top
=
Me.PicA7.Top
Me.PicA7.Top
=
Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
=
Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
=
Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
=
Me.PanA7.Top -
v_chk
Me.StxA7.Top
=
Me.PanA7.Top -
v_chk
Me.PanA8.Top
=
Me.PanA7.Top + 24
Me.PTxA8.Top
=
Me.PicA8.Top
Me.PicA8.Top
=
Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
=
Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
=
Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
=
Me.PanA8.Top -
v_chk
Me.StxA8.Top
=
Me.PanA8.Top -
v_chk
Me.PanA9.Top
=
Me.PanA8.Top + 24
Me.PTxA9.Top
=
Me.PicA9.Top
Me.PicA9.Top
=
Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
=
Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
=
Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
=
Me.PanA9.Top -
v_chk
Me.StxA9.Top
=
Me.PanA9.Top -
v_chk
Me.PanA10.Top
=
Me.PanA9.Top + 24
Me.PTxA10.Top
=
Me.PicA10.Top
Me.PicA10.Top
=
Me.PanA10.Top -
v_PicA
Me.TxtA10.Top
=
Me.PanA10.Top -
v_TxtA
Me.BtnA10.Top
=
Me.PanA10.Top -
v_BtnA
Me.ChkA10.Top
=
Me.PanA10.Top -
v_chk
Me.StxA10.Top
=
Me.PanA10.Top -
v_chk
Me.PanA11.Top
=
Me.PanA10.Top + 24
Me.PTxA11.Top
=
Me.PicA11.Top
Me.PicA11.Top
=
Me.PanA11.Top -
v_PicA
Me.TxtA11.Top
=
Me.PanA11.Top -
v_TxtA
Me.BtnA11.Top
=
Me.PanA11.Top -
v_BtnA
Me.ChkA11.Top
=
Me.PanA11.Top -
v_chk
Me.StxA11.Top
=
Me.PanA11.Top -
v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
5
Me.PanA6.Top
= v_PanA1
Me.PTxA6.Top
=
Me.PicA6.Top
Me.PicA6.Top
= v_PanA1 - v_PicA
Me.TxtA6.Top
= v_PanA1 - v_TxtA
Me.BtnA6.Top
= v_PanA1 - v_BtnA
Me.ChkA6.Top
= v_PanA1 - v_chk
Me.StxA6.Top
= v_PanA1 - v_chk
Me.PanA7.Top
=
Me.PanA6.Top + 24
Me.PTxA7.Top
=
Me.PicA7.Top
Me.PicA7.Top
=
Me.PanA7.Top -
v_PicA
Me.TxtA7.Top
=
Me.PanA7.Top -
v_TxtA
Me.BtnA7.Top
=
Me.PanA7.Top -
v_BtnA
Me.ChkA7.Top
=
Me.PanA7.Top -
v_chk
Me.StxA7.Top
=
Me.PanA7.Top -
v_chk
Me.PanA8.Top
=
Me.PanA7.Top + 24
Me.PTxA8.Top
=
Me.PicA8.Top
Me.PicA8.Top
=
Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
=
Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
=
Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
=
Me.PanA8.Top -
v_chk
Me.StxA8.Top
=
Me.PanA8.Top -
v_chk
Me.PanA9.Top
=
Me.PanA8.Top + 24
Me.PTxA9.Top
=
Me.PicA9.Top
Me.PicA9.Top
=
Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
=
Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
=
Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
=
Me.PanA9.Top -
v_chk
Me.StxA9.Top
=
Me.PanA9.Top -
v_chk
Me.PanA10.Top
=
Me.PanA9.Top + 24
Me.PTxA10.Top
=
Me.PicA10.Top
Me.PicA10.Top
=
Me.PanA10.Top -
v_PicA
Me.TxtA10.Top
=
Me.PanA10.Top -
v_TxtA
Me.BtnA10.Top
=
Me.PanA10.Top -
v_BtnA
Me.ChkA10.Top
=
Me.PanA10.Top -
v_chk
Me.StxA10.Top
=
Me.PanA10.Top -
v_chk
Me.PanA11.Top
=
Me.PanA10.Top + 24
Me.PTxA11.Top
=
Me.PicA11.Top
Me.PicA11.Top
=
Me.PanA11.Top -
v_PicA
Me.TxtA11.Top
=
Me.PanA11.Top -
v_TxtA
Me.BtnA11.Top
=
Me.PanA11.Top -
v_BtnA
Me.ChkA11.Top
=
Me.PanA11.Top -
v_chk
Me.StxA11.Top
=
Me.PanA11.Top -
v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
6
Me.PanA7.Top
= v_PanA1
Me.PTxA7.Top
=
Me.PicA7.Top
Me.PicA7.Top
= v_PanA1 - v_PicA
Me.TxtA7.Top
= v_PanA1 - v_TxtA
Me.BtnA7.Top
= v_PanA1 - v_BtnA
Me.ChkA7.Top
= v_PanA1 - v_chk
Me.StxA7.Top
= v_PanA1 - v_chk
Me.PanA8.Top
=
Me.PanA7.Top + 24
Me.PTxA8.Top
=
Me.PicA8.Top
Me.PicA8.Top
=
Me.PanA8.Top -
v_PicA
Me.TxtA8.Top
=
Me.PanA8.Top -
v_TxtA
Me.BtnA8.Top
=
Me.PanA8.Top -
v_BtnA
Me.ChkA8.Top
=
Me.PanA8.Top -
v_chk
Me.StxA8.Top
=
Me.PanA8.Top -
v_chk
Me.PanA9.Top
=
Me.PanA8.Top + 24
Me.PTxA9.Top
=
Me.PicA9.Top
Me.PicA9.Top
=
Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
=
Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
=
Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
=
Me.PanA9.Top -
v_chk
Me.StxA9.Top
=
Me.PanA9.Top -
v_chk
Me.PanA10.Top
=
Me.PanA9.Top + 24
Me.PTxA10.Top
=
Me.PicA10.Top
Me.PicA10.Top
=
Me.PanA10.Top -
v_PicA
Me.TxtA10.Top
=
Me.PanA10.Top -
v_TxtA
Me.BtnA10.Top
=
Me.PanA10.Top -
v_BtnA
Me.ChkA10.Top
=
Me.PanA10.Top -
v_chk
Me.StxA10.Top
=
Me.PanA10.Top -
v_chk
Me.PanA11.Top
=
Me.PanA10.Top + 24
Me.PTxA11.Top
=
Me.PicA11.Top
Me.PicA11.Top
=
Me.PanA11.Top -
v_PicA
Me.TxtA11.Top
=
Me.PanA11.Top -
v_TxtA
Me.BtnA11.Top
=
Me.PanA11.Top -
v_BtnA
Me.ChkA11.Top
=
Me.PanA11.Top -
v_chk
Me.StxA11.Top
=
Me.PanA11.Top -
v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
7
Me.PanA8.Top
= v_PanA1
Me.PTxA8.Top
=
Me.PicA8.Top
Me.PicA8.Top
= v_PanA1 - v_PicA
Me.TxtA8.Top
= v_PanA1 - v_TxtA
Me.BtnA8.Top
= v_PanA1 - v_BtnA
Me.ChkA8.Top
= v_PanA1 - v_chk
Me.StxA8.Top
= v_PanA1 - v_chk
Me.PanA9.Top
=
Me.PanA8.Top + 24
Me.PTxA9.Top
=
Me.PicA9.Top
Me.PicA9.Top
=
Me.PanA9.Top -
v_PicA
Me.TxtA9.Top
=
Me.PanA9.Top -
v_TxtA
Me.BtnA9.Top
=
Me.PanA9.Top -
v_BtnA
Me.ChkA9.Top
=
Me.PanA9.Top -
v_chk
Me.StxA9.Top
=
Me.PanA9.Top -
v_chk
Me.PanA10.Top
=
Me.PanA9.Top + 24
Me.PTxA10.Top
=
Me.PicA10.Top
Me.PicA10.Top
=
Me.PanA10.Top -
v_PicA
Me.TxtA10.Top
=
Me.PanA10.Top -
v_TxtA
Me.BtnA10.Top
=
Me.PanA10.Top -
v_BtnA
Me.ChkA10.Top
=
Me.PanA10.Top -
v_chk
Me.StxA10.Top
=
Me.PanA10.Top -
v_chk
Me.PanA11.Top
=
Me.PanA10.Top + 24
Me.PTxA11.Top
=
Me.PicA11.Top
Me.PicA11.Top
=
Me.PanA11.Top -
v_PicA
Me.TxtA11.Top
=
Me.PanA11.Top -
v_TxtA
Me.BtnA11.Top
=
Me.PanA11.Top -
v_BtnA
Me.ChkA11.Top
=
Me.PanA11.Top -
v_chk
Me.StxA11.Top
=
Me.PanA11.Top -
v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
8
Me.PanA9.Top
= v_PanA1
Me.PTxA9.Top
=
Me.PicA9.Top
Me.PicA9.Top
= v_PanA1 - v_PicA
Me.TxtA9.Top
= v_PanA1 - v_TxtA
Me.BtnA9.Top
= v_PanA1 - v_BtnA
Me.ChkA9.Top
= v_PanA1 - v_chk
Me.StxA9.Top
= v_PanA1 - v_chk
Me.PanA10.Top
=
Me.PanA9.Top + 24
Me.PTxA10.Top
=
Me.PicA10.Top
Me.PicA10.Top
=
Me.PanA10.Top -
v_PicA
Me.TxtA10.Top
=
Me.PanA10.Top -
v_TxtA
Me.BtnA10.Top
=
Me.PanA10.Top -
v_BtnA
Me.ChkA10.Top
=
Me.PanA10.Top -
v_chk
Me.StxA10.Top
=
Me.PanA10.Top -
v_chk
Me.PanA11.Top
=
Me.PanA10.Top + 24
Me.PTxA11.Top
=
Me.PicA11.Top
Me.PicA11.Top
=
Me.PanA11.Top -
v_PicA
Me.TxtA11.Top
=
Me.PanA11.Top -
v_TxtA
Me.BtnA11.Top
=
Me.PanA11.Top -
v_BtnA
Me.ChkA11.Top
=
Me.PanA11.Top -
v_chk
Me.StxA11.Top
=
Me.PanA11.Top -
v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
9
Me.PanA10.Top
= v_PanA1
Me.PTxA10.Top
=
Me.PicA10.Top
Me.PicA10.Top
= v_PanA1 - v_PicA
Me.TxtA10.Top
= v_PanA1 - v_TxtA
Me.BtnA10.Top
= v_PanA1 - v_BtnA
Me.ChkA10.Top
= v_PanA1 - v_chk
Me.StxA10.Top
= v_PanA1 - v_chk
Me.PanA11.Top
=
Me.PanA10.Top + 24
Me.PTxA11.Top
=
Me.PicA11.Top
Me.PicA11.Top
=
Me.PanA11.Top -
v_PicA
Me.TxtA11.Top
=
Me.PanA11.Top -
v_TxtA
Me.BtnA11.Top
=
Me.PanA11.Top -
v_BtnA
Me.ChkA11.Top
=
Me.PanA11.Top -
v_chk
Me.StxA11.Top
=
Me.PanA11.Top -
v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
10
Me.PanA11.Top
= v_PanA1
Me.PTxA11.Top
=
Me.PicA10.Top
Me.PicA11.Top
= v_PanA1 - v_PicA
Me.TxtA11.Top
= v_PanA1 - v_TxtA
Me.BtnA11.Top
= v_PanA1 - v_BtnA
Me.ChkA11.Top
= v_PanA1 - v_chk
Me.StxA11.Top
= v_PanA1 - v_chk
Me.PanA12.Top
=
Me.PanA11.Top + 24
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
=
Me.PanA12.Top -
v_PicA
Me.TxtA12.Top
=
Me.PanA12.Top -
v_TxtA
Me.BtnA12.Top
=
Me.PanA12.Top -
v_BtnA
Me.ChkA12.Top
=
Me.PanA12.Top -
v_chk
Me.StxA12.Top
=
Me.PanA12.Top -
v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
11
Me.PanA12.Top
= v_PanA1
Me.PTxA12.Top
=
Me.PicA12.Top
Me.PicA12.Top
= v_PanA1 - v_PicA
Me.TxtA12.Top
= v_PanA1 - v_TxtA
Me.BtnA12.Top
= v_PanA1 - v_BtnA
Me.ChkA12.Top
= v_PanA1 - v_chk
Me.StxA12.Top
= v_PanA1 - v_chk
Me.PanA13.Top
=
Me.PanA12.Top + 24
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
=
Me.PanA13.Top -
v_PicA
Me.TxtA13.Top
=
Me.PanA13.Top -
v_TxtA
Me.BtnA13.Top
=
Me.PanA13.Top -
v_BtnA
Me.ChkA13.Top
=
Me.PanA13.Top -
v_chk
Me.StxA13.Top
=
Me.PanA13.Top -
v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
Case
12
Me.PanA13.Top
= v_PanA1
Me.PTxA13.Top
=
Me.PicA13.Top
Me.PicA13.Top
= v_PanA1 - v_PicA
Me.TxtA13.Top
= v_PanA1 - v_TxtA
Me.BtnA13.Top
= v_PanA1 - v_BtnA
Me.ChkA13.Top
= v_PanA1 - v_chk
Me.StxA13.Top
= v_PanA1 - v_chk
Me.PanA14.Top
=
Me.PanA13.Top + 24
Me.PTxA14.Top
=
Me.PicA14.Top
Me.PicA14.Top
=
Me.PanA14.Top -
v_PicA
Me.TxtA14.Top
=
Me.PanA14.Top -
v_TxtA
Me.BtnA14.Top
=
Me.PanA14.Top -
v_BtnA
Me.ChkA14.Top
=
Me.PanA14.Top -
v_chk
Me.StxA14.Top
=
Me.PanA14.Top -
v_chk
Me.PanA15.Top
=
Me.PanA14.Top + 24
Me.PTxA15.Top
=
Me.PicA15.Top
Me.PicA15.Top
=
Me.PanA15.Top -
v_PicA
Me.TxtA15.Top
=
Me.PanA15.Top -
v_TxtA
Me.BtnA15.Top
=
Me.PanA15.Top -
v_BtnA
Me.ChkA15.Top
=
Me.PanA15.Top -
v_chk
Me.StxA15.Top
=
Me.PanA15.Top -
v_chk
Me.PanA16.Top
=
Me.PanA15.Top + 24
Me.PTxA16.Top
=
Me.PicA16.Top
Me.PicA16.Top
=
Me.PanA16.Top -
v_PicA
Me.TxtA16.Top
=
Me.PanA16.Top -
v_TxtA
Me.BtnA16.Top
=
Me.PanA16.Top -
v_BtnA
Me.ChkA16.Top
=
Me.PanA16.Top -
v_chk
Me.StxA16.Top
=
Me.PanA16.Top -
v_chk
Me.PanA17.Top
=
Me.PanA16.Top + 24
Me.PTxA17.Top
=
Me.PicA17.Top
Me.PicA17.Top
=
Me.PanA17.Top -
v_PicA
Me.TxtA17.Top
=
Me.PanA17.Top -
v_TxtA
Me.BtnA17.Top
=
Me.PanA17.Top -
v_BtnA
Me.ChkA17.Top
=
Me.PanA17.Top -
v_chk
Me.StxA17.Top
=
Me.PanA17.Top -
v_chk
Me.PanA18.Top
=
Me.PanA17.Top + 24
Me.PTxA18.Top
=
Me.PicA18.Top
Me.PicA18.Top
=
Me.PanA18.Top -
v_PicA
Me.TxtA18.Top
=
Me.PanA18.Top -
v_TxtA
Me.BtnA18.Top
=
Me.PanA18.Top -
v_BtnA
Me.ChkA18.Top
=
Me.PanA18.Top -
v_chk
Me.StxA18.Top
=
Me.PanA18.Top -
v_chk
Me.PanA19.Top
=
Me.PanA18.Top + 24
Me.PTxA19.Top
=
Me.PicA19.Top
Me.PicA19.Top
=
Me.PanA19.Top -
v_PicA
Me.TxtA19.Top
=
Me.PanA19.Top -
v_TxtA
Me.BtnA19.Top
=
Me.PanA19.Top -
v_BtnA
Me.ChkA19.Top
=
Me.PanA19.Top -
v_chk
Me.StxA19.Top
=
Me.PanA19.Top -
v_chk
Me.PanA20.Top
=
Me.PanA19.Top + 24
Me.PTxA20.Top
=
Me.PicA20.Top
Me.PicA20.Top
=
Me.PanA20.Top -
v_PicA
Me.TxtA20.Top
=
Me.PanA20.Top -
v_TxtA
Me.BtnA20.Top
=
Me.PanA20.Top -
v_BtnA
Me.ChkA20.Top
=
Me.PanA20.Top -
v_chk
Me.StxA20.Top
=
Me.PanA20.Top -
v_chk
Me.PanA21.Top
=
Me.PanA20.Top + 24
Me.PTxA21.Top
=
Me.PicA21.Top
Me.PicA21.Top
=
Me.PanA21.Top -
v_PicA
Me.TxtA21.Top
=
Me.PanA21.Top -
v_TxtA
Me.BtnA21.Top
=
Me.PanA21.Top -
v_BtnA
Me.ChkA21.Top
=
Me.PanA21.Top -
v_chk
Me.StxA21.Top
=
Me.PanA21.Top -
v_chk
Me.PanA22.Top
=
Me.PanA21.Top + 24
Me.PTxA22.Top
=
Me.PicA22.Top
Me.PicA22.Top
=
Me.PanA22.Top -
v_PicA
Me.TxtA22.Top
=
Me.PanA22.Top -
v_TxtA
Me.BtnA22.Top
=
Me.PanA22.Top -
v_BtnA
Me.ChkA22.Top
=
Me.PanA22.Top -
v_chk
Me.StxA22.Top
=
Me.PanA22.Top -
v_chk
Me.PanA23.Top
=
Me.PanA22.Top + 24
Me.PTxA23.Top
=
Me.PicA23.Top
Me.PicA23.Top
=
Me.PanA23.Top -
v_PicA
Me.TxtA23.Top
=
Me.PanA23.Top -
v_TxtA
Me.BtnA23.Top
=
Me.PanA23.Top -
v_BtnA
Me.ChkA23.Top
=
Me.PanA23.Top -
v_chk
Me.StxA23.Top
=
Me.PanA23.Top -
v_chk
Me.PanA24.Top
=
Me.PanA23.Top + 24
Me.PTxA24.Top
=
Me.PicA24.Top
Me.PicA24.Top
=
Me.PanA24.Top -
v_PicA
Me.TxtA24.Top
=
Me.PanA24.Top -
v_TxtA
Me.BtnA24.Top
=
Me.PanA24.Top -
v_BtnA
Me.ChkA24.Top
=
Me.PanA24.Top -
v_chk
Me.StxA24.Top
=
Me.PanA24.Top -
v_chk
End
Select
End
Sub
Private
Sub sub_VScrollB1(ByVal
val_VScrollB1
As
Integer)
Select
Case val_VScrollB1
Case
0
Me.PanB1.Top
= v_PanB1
Me.TxtC1.Top
= v_PanB1 - v_TxtB
Me.TxtB1.Top
= v_PanB1 - v_TxtB
Me.BtnB1.Top
= v_PanB1 - v_BtnB
Me.ChkB1.Top
= v_PanB1 - v_chk
Me.StxB1.Top
= v_PanA1 - v_chk
Me.PanB2.Top
=
Me.PanB1.Top + 24
Me.TxtC2.Top
=
Me.PanB2.Top -
v_TxtB
Me.TxtB2.Top
=
Me.PanB2.Top -
v_TxtB
Me.BtnB2.Top
=
Me.PanB2.Top -
v_BtnB
Me.ChkB2.Top
=
Me.PanB2.Top -
v_chk
Me.StxB2.Top
=
Me.PanB2.Top -
v_chk
Me.PanB3.Top
=
Me.PanB2.Top + 24
Me.TxtC3.Top
=
Me.PanB3.Top -
v_TxtB
Me.TxtB3.Top
=
Me.PanB3.Top -
v_TxtB
Me.BtnB3.Top
=
Me.PanB3.Top -
v_BtnB
Me.ChkB3.Top
=
Me.PanB3.Top -
v_chk
Me.StxB3.Top
=
Me.PanB3.Top -
v_chk
Me.PanB4.Top
=
Me.PanB3.Top + 24
Me.TxtC4.Top
=
Me.PanB4.Top -
v_TxtB
Me.TxtB4.Top
=
Me.PanB4.Top -
v_TxtB
Me.BtnB4.Top
=
Me.PanB4.Top -
v_BtnB
Me.ChkB4.Top
=
Me.PanB4.Top -
v_chk
Me.StxB4.Top
=
Me.PanB4.Top -
v_chk
Me.PanB5.Top
=
Me.PanB4.Top + 24
Me.TxtC5.Top
=
Me.PanB5.Top -
v_TxtB
Me.TxtB5.Top
=
Me.PanB5.Top -
v_TxtB
Me.BtnB5.Top
=
Me.PanB5.Top -
v_BtnB
Me.ChkB5.Top
=
Me.PanB5.Top -
v_chk
Me.StxB5.Top
=
Me.PanB5.Top -
v_chk
Me.PanB6.Top
=
Me.PanB5.Top + 24
Me.TxtC6.Top
=
Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
=
Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
=
Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
=
Me.PanB6.Top -
v_chk
Me.StxB6.Top
=
Me.PanB6.Top -
v_chk
Me.PanB7.Top
=
Me.PanB6.Top + 24
Me.TxtC7.Top
=
Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
=
Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
=
Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
=
Me.PanB7.Top -
v_chk
Me.StxB7.Top
=
Me.PanB7.Top -
v_chk
Me.PanB8.Top
=
Me.PanB7.Top + 24
Me.TxtC8.Top
=
Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
=
Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
=
Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
=
Me.PanB8.Top -
v_chk
Me.StxB8.Top
=
Me.PanB8.Top -
v_chk
Me.PanB9.Top
=
Me.PanB8.Top + 24
Me.TxtC9.Top
=
Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
=
Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
=
Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
=
Me.PanB9.Top -
v_chk
Me.StxB9.Top
=
Me.PanB9.Top -
v_chk
Me.PanB10.Top
=
Me.PanB9.Top + 24
Me.TxtC10.Top
=
Me.PanB10.Top -
v_TxtB
Me.TxtB10.Top
=
Me.PanB10.Top -
v_TxtB
Me.BtnB10.Top
=
Me.PanB10.Top -
v_BtnB
Me.ChkB10.Top
=
Me.PanB10.Top -
v_chk
Me.StxB10.Top
=
Me.PanB10.Top -
v_chk
Me.PanB11.Top
=
Me.PanB10.Top + 24
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
1
Me.PanB2.Top
= v_PanB1
Me.TxtC2.Top
=
Me.PanB2.Top -
v_TxtB
Me.TxtB2.Top
=
Me.PanB2.Top -
v_TxtB
Me.BtnB2.Top
=
Me.PanB2.Top -
v_BtnB
Me.ChkB2.Top
=
Me.PanB2.Top -
v_chk
Me.StxB2.Top
=
Me.PanB2.Top -
v_chk
Me.PanB3.Top
=
Me.PanB2.Top + 24
Me.TxtC3.Top
=
Me.PanB3.Top -
v_TxtB
Me.TxtB3.Top
=
Me.PanB3.Top -
v_TxtB
Me.BtnB3.Top
=
Me.PanB3.Top -
v_BtnB
Me.ChkB3.Top
=
Me.PanB3.Top -
v_chk
Me.StxB3.Top
=
Me.PanB3.Top -
v_chk
Me.PanB4.Top
=
Me.PanB3.Top + 24
Me.TxtC4.Top
=
Me.PanB4.Top -
v_TxtB
Me.TxtB4.Top
=
Me.PanB4.Top -
v_TxtB
Me.BtnB4.Top
=
Me.PanB4.Top -
v_BtnB
Me.ChkB4.Top
=
Me.PanB4.Top -
v_chk
Me.StxB4.Top
=
Me.PanB4.Top -
v_chk
Me.PanB5.Top
=
Me.PanB4.Top + 24
Me.TxtC5.Top
=
Me.PanB5.Top -
v_TxtB
Me.TxtB5.Top
=
Me.PanB5.Top -
v_TxtB
Me.BtnB5.Top
=
Me.PanB5.Top -
v_BtnB
Me.ChkB5.Top
=
Me.PanB5.Top -
v_chk
Me.StxB5.Top
=
Me.PanB5.Top -
v_chk
Me.PanB6.Top
=
Me.PanB5.Top + 24
Me.TxtC6.Top
=
Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
=
Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
=
Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
=
Me.PanB6.Top -
v_chk
Me.StxB6.Top
=
Me.PanB6.Top -
v_chk
Me.PanB7.Top
=
Me.PanB6.Top + 24
Me.TxtC7.Top
=
Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
=
Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
=
Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
=
Me.PanB7.Top -
v_chk
Me.StxB7.Top
=
Me.PanB7.Top -
v_chk
Me.PanB8.Top
=
Me.PanB7.Top + 24
Me.TxtC8.Top
=
Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
=
Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
=
Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
=
Me.PanB8.Top -
v_chk
Me.StxB8.Top
=
Me.PanB8.Top -
v_chk
Me.PanB9.Top
=
Me.PanB8.Top + 24
Me.TxtC9.Top
=
Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
=
Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
=
Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
=
Me.PanB9.Top -
v_chk
Me.StxB9.Top
=
Me.PanB9.Top -
v_chk
Me.PanB10.Top
=
Me.PanB9.Top + 24
Me.TxtC10.Top
=
Me.PanB10.Top -
v_TxtB
Me.TxtB10.Top
=
Me.PanB10.Top -
v_TxtB
Me.BtnB10.Top
=
Me.PanB10.Top -
v_BtnB
Me.ChkB10.Top
=
Me.PanB10.Top -
v_chk
Me.StxB10.Top
=
Me.PanB10.Top -
v_chk
Me.PanB11.Top
=
Me.PanB10.Top + 24
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
2
Me.PanB3.Top
= v_PanB1
Me.TxtC3.Top
=
Me.PanB3.Top -
v_TxtB
Me.TxtB3.Top
=
Me.PanB3.Top -
v_TxtB
Me.BtnB3.Top
=
Me.PanB3.Top -
v_BtnB
Me.ChkB3.Top
=
Me.PanB3.Top -
v_chk
Me.StxB3.Top
=
Me.PanB3.Top -
v_chk
Me.PanB4.Top
=
Me.PanB3.Top + 24
Me.TxtC4.Top
=
Me.PanB4.Top -
v_TxtB
Me.TxtB4.Top
=
Me.PanB4.Top -
v_TxtB
Me.BtnB4.Top
=
Me.PanB4.Top -
v_BtnB
Me.ChkB4.Top
=
Me.PanB4.Top -
v_chk
Me.StxB4.Top
=
Me.PanB4.Top -
v_chk
Me.PanB5.Top
=
Me.PanB4.Top + 24
Me.TxtC5.Top
=
Me.PanB5.Top -
v_TxtB
Me.TxtB5.Top
=
Me.PanB5.Top -
v_TxtB
Me.BtnB5.Top
=
Me.PanB5.Top -
v_BtnB
Me.ChkB5.Top
=
Me.PanB5.Top -
v_chk
Me.StxB5.Top
=
Me.PanB5.Top -
v_chk
Me.PanB6.Top
=
Me.PanB5.Top + 24
Me.TxtC6.Top
=
Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
=
Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
=
Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
=
Me.PanB6.Top -
v_chk
Me.StxB6.Top
=
Me.PanB6.Top -
v_chk
Me.PanB7.Top
=
Me.PanB6.Top + 24
Me.TxtC7.Top
=
Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
=
Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
=
Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
=
Me.PanB7.Top -
v_chk
Me.StxB7.Top
=
Me.PanB7.Top -
v_chk
Me.PanB8.Top
=
Me.PanB7.Top + 24
Me.TxtC8.Top
=
Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
=
Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
=
Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
=
Me.PanB8.Top -
v_chk
Me.StxB8.Top
=
Me.PanB8.Top -
v_chk
Me.PanB9.Top
=
Me.PanB8.Top + 24
Me.TxtC9.Top
=
Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
=
Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
=
Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
=
Me.PanB9.Top -
v_chk
Me.StxB9.Top
=
Me.PanB9.Top -
v_chk
Me.PanB10.Top
=
Me.PanB9.Top + 24
Me.TxtC10.Top
=
Me.PanB10.Top -
v_TxtB
Me.TxtB10.Top
=
Me.PanB10.Top -
v_TxtB
Me.BtnB10.Top
=
Me.PanB10.Top -
v_BtnB
Me.ChkB10.Top
=
Me.PanB10.Top -
v_chk
Me.StxB10.Top
=
Me.PanB10.Top -
v_chk
Me.PanB11.Top
=
Me.PanB10.Top + 24
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
3
Me.PanB4.Top
= v_PanB1
Me.TxtC4.Top
=
Me.PanB4.Top -
v_TxtB
Me.TxtB4.Top
=
Me.PanB4.Top -
v_TxtB
Me.BtnB4.Top
=
Me.PanB4.Top -
v_BtnB
Me.ChkB4.Top
=
Me.PanB4.Top -
v_chk
Me.StxB4.Top
=
Me.PanB4.Top -
v_chk
Me.PanB5.Top
=
Me.PanB4.Top + 24
Me.TxtC5.Top
=
Me.PanB5.Top -
v_TxtB
Me.TxtB5.Top
=
Me.PanB5.Top -
v_TxtB
Me.BtnB5.Top
=
Me.PanB5.Top -
v_BtnB
Me.ChkB5.Top
=
Me.PanB5.Top -
v_chk
Me.StxB5.Top
=
Me.PanB5.Top -
v_chk
Me.PanB6.Top
=
Me.PanB5.Top + 24
Me.TxtC6.Top
=
Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
=
Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
=
Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
=
Me.PanB6.Top -
v_chk
Me.StxB6.Top
=
Me.PanB6.Top -
v_chk
Me.PanB7.Top
=
Me.PanB6.Top + 24
Me.TxtC7.Top
=
Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
=
Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
=
Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
=
Me.PanB7.Top -
v_chk
Me.StxB7.Top
=
Me.PanB7.Top -
v_chk
Me.PanB8.Top
=
Me.PanB7.Top + 24
Me.TxtC8.Top
=
Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
=
Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
=
Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
=
Me.PanB8.Top -
v_chk
Me.StxB8.Top
=
Me.PanB8.Top -
v_chk
Me.PanB9.Top
=
Me.PanB8.Top + 24
Me.TxtC9.Top
=
Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
=
Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
=
Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
=
Me.PanB9.Top -
v_chk
Me.StxB9.Top
=
Me.PanB9.Top -
v_chk
Me.PanB10.Top
=
Me.PanB9.Top + 24
Me.TxtC10.Top
=
Me.PanB10.Top -
v_TxtB
Me.TxtB10.Top
=
Me.PanB10.Top -
v_TxtB
Me.BtnB10.Top
=
Me.PanB10.Top -
v_BtnB
Me.ChkB10.Top
=
Me.PanB10.Top -
v_chk
Me.StxB10.Top
=
Me.PanB10.Top -
v_chk
Me.PanB11.Top
=
Me.PanB10.Top + 24
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
4
Me.PanB5.Top
= v_PanB1
Me.TxtC5.Top
=
Me.PanB5.Top -
v_TxtB
Me.TxtB5.Top
=
Me.PanB5.Top -
v_TxtB
Me.BtnB5.Top
=
Me.PanB5.Top -
v_BtnB
Me.ChkB5.Top
=
Me.PanB5.Top -
v_chk
Me.StxB5.Top
=
Me.PanB5.Top -
v_chk
Me.PanB6.Top
=
Me.PanB5.Top + 24
Me.TxtC6.Top
=
Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
=
Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
=
Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
=
Me.PanB6.Top -
v_chk
Me.StxB6.Top
=
Me.PanB6.Top -
v_chk
Me.PanB7.Top
=
Me.PanB6.Top + 24
Me.TxtC7.Top
=
Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
=
Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
=
Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
=
Me.PanB7.Top -
v_chk
Me.StxB7.Top
=
Me.PanB7.Top -
v_chk
Me.PanB8.Top
=
Me.PanB7.Top + 24
Me.TxtC8.Top
=
Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
=
Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
=
Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
=
Me.PanB8.Top -
v_chk
Me.StxB8.Top
=
Me.PanB8.Top -
v_chk
Me.PanB9.Top
=
Me.PanB8.Top + 24
Me.TxtC9.Top
=
Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
=
Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
=
Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
=
Me.PanB9.Top -
v_chk
Me.StxB9.Top
=
Me.PanB9.Top -
v_chk
Me.PanB10.Top
=
Me.PanB9.Top + 24
Me.TxtC10.Top
=
Me.PanB10.Top -
v_TxtB
Me.TxtB10.Top
=
Me.PanB10.Top -
v_TxtB
Me.BtnB10.Top
=
Me.PanB10.Top -
v_BtnB
Me.ChkB10.Top
=
Me.PanB10.Top -
v_chk
Me.StxB10.Top
=
Me.PanB10.Top -
v_chk
Me.PanB11.Top
=
Me.PanB10.Top + 24
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
5
Me.PanB6.Top
= v_PanB1
Me.TxtC6.Top
=
Me.PanB6.Top -
v_TxtB
Me.TxtB6.Top
=
Me.PanB6.Top -
v_TxtB
Me.BtnB6.Top
=
Me.PanB6.Top -
v_BtnB
Me.ChkB6.Top
=
Me.PanB6.Top -
v_chk
Me.StxB6.Top
=
Me.PanB6.Top -
v_chk
Me.PanB7.Top
=
Me.PanB6.Top + 24
Me.TxtC7.Top
=
Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
=
Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
=
Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
=
Me.PanB7.Top -
v_chk
Me.StxB7.Top
=
Me.PanB7.Top -
v_chk
Me.PanB8.Top
=
Me.PanB7.Top + 24
Me.TxtC8.Top
=
Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
=
Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
=
Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
=
Me.PanB8.Top -
v_chk
Me.StxB8.Top
=
Me.PanB8.Top -
v_chk
Me.PanB9.Top
=
Me.PanB8.Top + 24
Me.TxtC9.Top
=
Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
=
Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
=
Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
=
Me.PanB9.Top -
v_chk
Me.StxB9.Top
=
Me.PanB9.Top -
v_chk
Me.PanB10.Top
=
Me.PanB9.Top + 24
Me.TxtC10.Top
=
Me.PanB10.Top -
v_TxtB
Me.TxtB10.Top
=
Me.PanB10.Top -
v_TxtB
Me.BtnB10.Top
=
Me.PanB10.Top -
v_BtnB
Me.ChkB10.Top
=
Me.PanB10.Top -
v_chk
Me.StxB10.Top
=
Me.PanB10.Top -
v_chk
Me.PanB11.Top
=
Me.PanB10.Top + 24
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
6
Me.PanB7.Top
= v_PanB1
Me.TxtC7.Top
=
Me.PanB7.Top -
v_TxtB
Me.TxtB7.Top
=
Me.PanB7.Top -
v_TxtB
Me.BtnB7.Top
=
Me.PanB7.Top -
v_BtnB
Me.ChkB7.Top
=
Me.PanB7.Top -
v_chk
Me.StxB7.Top
=
Me.PanB7.Top -
v_chk
Me.PanB8.Top
=
Me.PanB7.Top + 24
Me.TxtC8.Top
=
Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
=
Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
=
Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
=
Me.PanB8.Top -
v_chk
Me.StxB8.Top
=
Me.PanB8.Top -
v_chk
Me.PanB9.Top
=
Me.PanB8.Top + 24
Me.TxtC9.Top
=
Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
=
Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
=
Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
=
Me.PanB9.Top -
v_chk
Me.StxB9.Top
=
Me.PanB9.Top -
v_chk
Me.PanB10.Top
=
Me.PanB9.Top + 24
Me.TxtC10.Top
=
Me.PanB10.Top -
v_TxtB
Me.TxtB10.Top
=
Me.PanB10.Top -
v_TxtB
Me.BtnB10.Top
=
Me.PanB10.Top -
v_BtnB
Me.ChkB10.Top
=
Me.PanB10.Top -
v_chk
Me.StxB10.Top
=
Me.PanB10.Top -
v_chk
Me.PanB11.Top
=
Me.PanB10.Top + 24
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
7
Me.PanB8.Top
= v_PanB1
Me.TxtC8.Top
=
Me.PanB8.Top -
v_TxtB
Me.TxtB8.Top
=
Me.PanB8.Top -
v_TxtB
Me.BtnB8.Top
=
Me.PanB8.Top -
v_BtnB
Me.ChkB8.Top
=
Me.PanB8.Top -
v_chk
Me.StxB8.Top
=
Me.PanB8.Top -
v_chk
Me.PanB9.Top
=
Me.PanB8.Top + 24
Me.TxtC9.Top
=
Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
=
Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
=
Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
=
Me.PanB9.Top -
v_chk
Me.StxB9.Top
=
Me.PanB9.Top -
v_chk
Me.PanB10.Top
=
Me.PanB9.Top + 24
Me.TxtC10.Top
=
Me.PanB10.Top -
v_TxtB
Me.TxtB10.Top
=
Me.PanB10.Top -
v_TxtB
Me.BtnB10.Top
=
Me.PanB10.Top -
v_BtnB
Me.ChkB10.Top
=
Me.PanB10.Top -
v_chk
Me.StxB10.Top
=
Me.PanB10.Top -
v_chk
Me.PanB11.Top
=
Me.PanB10.Top + 24
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
8
Me.PanB9.Top
= v_PanB1
Me.TxtC9.Top
=
Me.PanB9.Top -
v_TxtB
Me.TxtB9.Top
=
Me.PanB9.Top -
v_TxtB
Me.BtnB9.Top
=
Me.PanB9.Top -
v_BtnB
Me.ChkB9.Top
=
Me.PanB9.Top -
v_chk
Me.StxB9.Top
=
Me.PanB9.Top -
v_chk
Me.PanB10.Top
=
Me.PanB9.Top + 24
Me.TxtC10.Top
=
Me.PanB10.Top -
v_TxtB
Me.TxtB10.Top
=
Me.PanB10.Top -
v_TxtB
Me.BtnB10.Top
=
Me.PanB10.Top -
v_BtnB
Me.ChkB10.Top
=
Me.PanB10.Top -
v_chk
Me.StxB10.Top
=
Me.PanB10.Top -
v_chk
Me.PanB11.Top
=
Me.PanB10.Top + 24
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
9
Me.PanB10.Top
= v_PanB1
Me.TxtC10.Top
=
Me.PanB10.Top -
v_TxtB
Me.TxtB10.Top
=
Me.PanB10.Top -
v_TxtB
Me.BtnB10.Top
=
Me.PanB10.Top -
v_BtnB
Me.ChkB10.Top
=
Me.PanB10.Top -
v_chk
Me.StxB10.Top
=
Me.PanB10.Top -
v_chk
Me.PanB11.Top
=
Me.PanB10.Top + 24
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
10
Me.PanB11.Top
= v_PanB1
Me.TxtC11.Top
=
Me.PanB11.Top -
v_TxtB
Me.TxtB11.Top
=
Me.PanB11.Top -
v_TxtB
Me.BtnB11.Top
=
Me.PanB11.Top -
v_BtnB
Me.ChkB11.Top
=
Me.PanB11.Top -
v_chk
Me.StxB11.Top
=
Me.PanB11.Top -
v_chk
Me.PanB12.Top
=
Me.PanB11.Top + 24
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
11
Me.PanB12.Top
= v_PanB1
Me.TxtC12.Top
=
Me.PanB12.Top -
v_TxtB
Me.TxtB12.Top
=
Me.PanB12.Top -
v_TxtB
Me.BtnB12.Top
=
Me.PanB12.Top -
v_BtnB
Me.ChkB12.Top
=
Me.PanB12.Top -
v_chk
Me.StxB12.Top
=
Me.PanB12.Top -
v_chk
Me.PanB13.Top
=
Me.PanB12.Top + 24
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
Case
12
Me.PanB13.Top
= v_PanB1
Me.TxtC13.Top
=
Me.PanB13.Top -
v_TxtB
Me.TxtB13.Top
=
Me.PanB13.Top -
v_TxtB
Me.BtnB13.Top
=
Me.PanB13.Top -
v_BtnB
Me.ChkB13.Top
=
Me.PanB13.Top -
v_chk
Me.StxB13.Top
=
Me.PanB13.Top -
v_chk
Me.PanB14.Top
=
Me.PanB13.Top + 24
Me.TxtC14.Top
=
Me.PanB14.Top -
v_TxtB
Me.TxtB14.Top
=
Me.PanB14.Top -
v_TxtB
Me.BtnB14.Top
=
Me.PanB14.Top -
v_BtnB
Me.ChkB14.Top
=
Me.PanB14.Top -
v_chk
Me.StxB14.Top
=
Me.PanB14.Top -
v_chk
Me.PanB15.Top
=
Me.PanB14.Top + 24
Me.TxtC15.Top
=
Me.PanB15.Top -
v_TxtB
Me.TxtB15.Top
=
Me.PanB15.Top -
v_TxtB
Me.BtnB15.Top
=
Me.PanB15.Top -
v_BtnB
Me.ChkB15.Top
=
Me.PanB15.Top -
v_chk
Me.StxB15.Top
=
Me.PanB15.Top -
v_chk
Me.PanB16.Top
=
Me.PanB15.Top + 24
Me.TxtC16.Top
=
Me.PanB16.Top -
v_TxtB
Me.TxtB16.Top
=
Me.PanB16.Top -
v_TxtB
Me.BtnB16.Top
=
Me.PanB16.Top -
v_BtnB
Me.ChkB16.Top
=
Me.PanB16.Top -
v_chk
Me.StxB16.Top
=
Me.PanB16.Top -
v_chk
Me.PanB17.Top
=
Me.PanB16.Top + 24
Me.TxtC17.Top
=
Me.PanB17.Top -
v_TxtB
Me.TxtB17.Top
=
Me.PanB17.Top -
v_TxtB
Me.BtnB17.Top
=
Me.PanB17.Top -
v_BtnB
Me.ChkB17.Top
=
Me.PanB17.Top -
v_chk
Me.StxB17.Top
=
Me.PanB17.Top -
v_chk
Me.PanB18.Top
=
Me.PanB17.Top + 24
Me.TxtC18.Top
=
Me.PanB18.Top -
v_TxtB
Me.TxtB18.Top
=
Me.PanB18.Top -
v_TxtB
Me.BtnB18.Top
=
Me.PanB18.Top -
v_BtnB
Me.ChkB18.Top
=
Me.PanB18.Top -
v_chk
Me.StxB18.Top
=
Me.PanB18.Top -
v_chk
Me.PanB19.Top
=
Me.PanB18.Top + 24
Me.TxtC19.Top
=
Me.PanB19.Top -
v_TxtB
Me.TxtB19.Top
=
Me.PanB19.Top -
v_TxtB
Me.BtnB19.Top
=
Me.PanB19.Top -
v_BtnB
Me.ChkB19.Top
=
Me.PanB19.Top -
v_chk
Me.StxB19.Top
=
Me.PanB19.Top -
v_chk
Me.PanB20.Top
=
Me.PanB19.Top + 24
Me.TxtC20.Top
=
Me.PanB20.Top -
v_TxtB
Me.TxtB20.Top
=
Me.PanB20.Top -
v_TxtB
Me.BtnB20.Top
=
Me.PanB20.Top -
v_BtnB
Me.ChkB20.Top
=
Me.PanB20.Top -
v_chk
Me.StxB20.Top
=
Me.PanB20.Top -
v_chk
Me.PanB21.Top
=
Me.PanB20.Top + 24
Me.TxtC21.Top
=
Me.PanB21.Top -
v_TxtB
Me.TxtB21.Top
=
Me.PanB21.Top -
v_TxtB
Me.BtnB21.Top
=
Me.PanB21.Top -
v_BtnB
Me.ChkB21.Top
=
Me.PanB21.Top -
v_chk
Me.StxB21.Top
=
Me.PanB21.Top -
v_chk
Me.PanB22.Top
=
Me.PanB21.Top + 24
Me.TxtC22.Top
=
Me.PanB22.Top -
v_TxtB
Me.TxtB22.Top
=
Me.PanB22.Top -
v_TxtB
Me.BtnB22.Top
=
Me.PanB22.Top -
v_BtnB
Me.ChkB22.Top
=
Me.PanB22.Top -
v_chk
Me.StxB22.Top
=
Me.PanB22.Top -
v_chk
Me.PanB23.Top
=
Me.PanB22.Top + 24
Me.TxtC23.Top
=
Me.PanB23.Top -
v_TxtB
Me.TxtB23.Top
=
Me.PanB23.Top -
v_TxtB
Me.BtnB23.Top
=
Me.PanB23.Top -
v_BtnB
Me.ChkB23.Top
=
Me.PanB23.Top -
v_chk
Me.StxB23.Top
=
Me.PanB23.Top -
v_chk
Me.PanB24.Top
=
Me.PanB23.Top + 24
Me.TxtC24.Top
=
Me.PanB24.Top -
v_TxtB
Me.TxtB24.Top
=
Me.PanB24.Top -
v_TxtB
Me.BtnB24.Top
=
Me.PanB24.Top -
v_BtnB
Me.ChkB24.Top
=
Me.PanB24.Top -
v_chk
Me.StxB24.Top
=
Me.PanB24.Top -
v_chk
End
Select
End
Sub
'
******** combobox, checkbox, DateTimePicker ********
' select
combobox, cmb_correspond
Private
Sub
cmb_correspond_SelectedIndexChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
cmb_correspond.SelectedIndexChanged
current_date = Format( Me.cmb_correspond.SelectedItem)
appoint_date = System. Convert.ToDateTime(current_date)
load_value(current_date)
Me.ltoday.Text
= FormatDateTime(System.Convert.ToDateTime(Me.cmb_correspond.SelectedItem),
DateFormat.LongDate)
Me.DateTimePicker1.Text
= current_date
Me.cmb_correspond.Text
= current_date
End
Sub
' check
checkbox, Chckmonth
Private
Sub
Chckmonth_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
Chckmonth.CheckedChanged
If
Me.Chckmonth.Checked
Then
v_currentmonth = 1
End
If
If
Me.Chckmonth.Checked
=
False
Then
v_currentmonth = 2
End
If
sub_currentdate(v_currentmonth, v_currentyear)
Me.cmb_correspond.SelectedIndex
= -1
Me.cmb_correspond.Text
=
""
load_value(current_date)
End
Sub
' check
checkbox, Chckyear
Private
Sub
Chckyear_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
Chckyear.CheckedChanged
If
Me.Chckyear.Checked
Then
v_currentyear = 1
End
If
If
Me.Chckyear.Checked
=
False
Then
v_currentyear = 2
End
If
sub_currentdate(v_currentmonth, v_currentyear)
Me.cmb_correspond.SelectedIndex
= -1
Me.cmb_correspond.Text
=
""
load_value(current_date)
End
Sub
' select
DateTimePicker, DateTimePicker1
Private
Sub
DateTimePicker1_ValueChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
DateTimePicker1.ValueChanged
current_date = Format( Me.DateTimePicker1.Value,
"M/d/yyyy")
appoint_date = System. Convert.ToDateTime(current_date)
load_value(current_date)
' use
current value of v_currentyear and v_currentmonth
sub_currentdate(v_currentmonth, v_currentyear)
Me.ltoday.Text
= FormatDateTime(Me.DateTimePicker1.Value,
DateFormat.LongDate)
Me.cmb_correspond.SelectedIndex
= -1
Me.cmb_correspond.Text
=
""
End
Sub
'
****************** edit/modify task ....
*********************
Private
Sub BtnA1_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
BtnA1.Click
toedit_task( Me.StxA1.Text,
Me.PTxA1.Text,
Me.TxtA1.Text)
End
Sub
'show
agenda task form, to edit ....
Private
Sub toedit_task(ByVal
v_order
As
String,
ByVal
v_prirority
As
String,
ByVal
v_descrip
As
String)
task_type =
"edit"
task_order = Val(v_order)
task_prirority = v_prirority
agenda_desc = v_descrip
fagenda_task.ShowDialog()
End
Sub
'show
agenda form after edit (task)
Public
Sub
afteredit_task()
Dim
vvrc
As
Integer
If
task_flag =
True
Then
If
(vdset1.Tables("agenda").Rows.Count
> 0)
Then
For
vvrc = 0
To
(Me.Agendadset1.Tables("agenda").Rows.Count
- 1)
If
((Trim(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("entry_type"))
=
"T")
And
(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("serialno")
= task_order))
Then
'update
agenda table, the task record to edit
Sub_Update1( "edit_task",
vvrc)
'load
agenda table, Agendadset1 dataset
LoadDataSet()
load_value(current_date)
Exit Sub
End
If
Next
End
If
End
If
End
Sub
Private
Sub sub_loaddata(ByVal
v_entry_type
As
String,
ByVal
strdate_d
As
String,
ByVal
strdate_m
As
String,
ByVal
strdate_y
As
String)
Dim
WhereSearch
As
String =
""
Select
Case v_entry_type
Case
"A"
WhereSearch =
" WHERE
(entry_type = '" &
Trim(v_entry_type) &
"') AND
(ondate_d = '" &
strdate_d &
"') AND
(ondate_m = '" &
strdate_m &
"') AND
(ondate_y = '" &
strdate_y &
"') AND
(description <> '"
&
"" &
"')"
vselect1 =
New
OleDb.OleDbCommand("SELECT
agendaid, branch, datecreated, description, entry_type,
ondate, ontime, serialno, taskprirority, ondate_d,
ondate_m, ondate_y, bookid FROM agenda"
& WhereSearch &
" ORDER
BY ontime, serialno")
Case
"T"
WhereSearch =
" WHERE
(entry_type = '" &
Trim(v_entry_type) &
"') AND
(description <> '"
&
"" &
"')"
vselect1 =
New
OleDb.OleDbCommand("SELECT
agendaid, branch, datecreated, description, entry_type,
ondate, ontime, serialno, taskprirority, ondate_d,
ondate_m, ondate_y, bookid FROM agenda"
& WhereSearch &
" ORDER
BY serialno")
End
Select
vda1 =
New
OleDb.OleDbDataAdapter(vselect1)
vdset1 =
New
DataSet
vselect1.Connection() = dbConnection
' Select
command
vselect1.CommandTimeout = 30
vdset1.EnforceConstraints =
False
Try
dbConnection.Open()
vda1.Fill(vdset1,
"agenda")
Catch
fillException
As
System.Exception
System.Windows.Forms. MessageBox.Show(fillException.Message)
End
Try
vdset1.EnforceConstraints =
True
dbConnection.Close()
End
Sub
Private
Sub BtnA2_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
BtnA2.Click
toedit_task( Me.StxA2.Text,
Me.PTxA2.Text,
Me.TxtA2.Text)
End
Sub
Private
Sub BtnA3_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
BtnA3.Click
toedit_task( Me.StxA3.Text,
Me.PTxA3.Text,
Me.TxtA3.Text)
End
Sub
Private
Sub BtnA4_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
BtnA4.Click
toedit_task( Me.StxA4.Text,
Me.PTxA4.Text,
Me.TxtA4.Text)
End
Sub
Private
Sub BtnA5_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
BtnA5.Click
toedit_task( Me.StxA5.Text,
Me.PTxA5.Text,
Me.TxtA5.Text)
End
Sub
Private
Sub BtnA6_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA6.Click
toedit_task( Me.StxA6.Text,
Me.PTxA6.Text,
Me.TxtA6.Text)
End
Sub
Private
Sub BtnA7_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA7.Click
toedit_task( Me.StxA7.Text,
Me.PTxA7.Text,
Me.TxtA7.Text)
End
Sub
Private
Sub BtnA8_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA8.Click
toedit_task( Me.StxA8.Text,
Me.PTxA8.Text,
Me.TxtA8.Text)
End
Sub
Private
Sub BtnA9_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA9.Click
toedit_task( Me.StxA9.Text,
Me.PTxA9.Text,
Me.TxtA9.Text)
End
Sub
Private
Sub BtnA10_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA10.Click
toedit_task( Me.StxA10.Text,
Me.PTxA10.Text,
Me.TxtA10.Text)
End
Sub
Private
Sub BtnA11_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA11.Click
toedit_task( Me.StxA11.Text,
Me.PTxA11.Text,
Me.TxtA11.Text)
End
Sub
Private
Sub BtnA12_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA12.Click
toedit_task( Me.StxA12.Text,
Me.PTxA12.Text,
Me.TxtA12.Text)
End
Sub
Private
Sub BtnA13_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA13.Click
toedit_task( Me.StxA13.Text,
Me.PTxA13.Text,
Me.TxtA13.Text)
End
Sub
Private
Sub BtnA14_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA14.Click
toedit_task( Me.StxA14.Text,
Me.PTxA14.Text,
Me.TxtA14.Text)
End
Sub
Private
Sub BtnA15_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA15.Click
toedit_task( Me.StxA15.Text,
Me.PTxA15.Text,
Me.TxtA15.Text)
End
Sub
Private
Sub BtnA16_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA16.Click
toedit_task( Me.StxA16.Text,
Me.PTxA16.Text,
Me.TxtA16.Text)
End
Sub
Private
Sub BtnA17_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA17.Click
toedit_task( Me.StxA17.Text,
Me.PTxA17.Text,
Me.TxtA17.Text)
End
Sub
Private
Sub BtnA18_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA18.Click
toedit_task( Me.StxA18.Text,
Me.PTxA18.Text,
Me.TxtA18.Text)
End
Sub
Private
Sub BtnA19_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA19.Click
toedit_task( Me.StxA19.Text,
Me.PTxA19.Text,
Me.TxtA19.Text)
End
Sub
Private
Sub BtnA20_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA20.Click
toedit_task( Me.StxA20.Text,
Me.PTxA20.Text,
Me.TxtA20.Text)
End
Sub
Private
Sub BtnA21_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA21.Click
toedit_task( Me.StxA21.Text,
Me.PTxA21.Text,
Me.TxtA21.Text)
End
Sub
Private
Sub BtnA22_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA22.Click
toedit_task( Me.StxA22.Text,
Me.PTxA22.Text,
Me.TxtA22.Text)
End
Sub
Private
Sub BtnA23_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA23.Click
toedit_task( Me.StxA23.Text,
Me.PTxA23.Text,
Me.TxtA23.Text)
End
Sub
Private
Sub BtnA24_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnA24.Click
toedit_task( Me.StxA24.Text,
Me.PTxA24.Text,
Me.TxtA24.Text)
End
Sub
'
****************** new/add task ....
*********************
'show
agenda task form, to add/new ....
Private
Sub
Btn_newtask_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
Btn_newtask.Click
load_serialno( "T",
"",
"",
"")
If
vdset1.Tables("agenda").Rows.Count
< 24
Then
'add new
record
' new
task
task_type =
"new"
fagenda_task.ShowDialog()
Else
MsgBox( "it
is full = 24 input(s), impossible to add new task ...",
MsgBoxStyle.DefaultButton2
Or
MsgBoxStyle.Information
Or
MsgBoxStyle.OKOnly,
Title)
Exit Sub
End
If
End
Sub
'show
agenda form after add/new (task)
Public
Sub
afternew_task()
If
task_flag =
True
Then
'new
value - serialno field, agenda table
sub_serialno( "T",
"",
"",
"")
load_serialno( "T",
"",
"",
"")
If
vdset1.Tables("agenda").Rows.Count
< 25
Then
'add new
record
Me.BindingContext(Me.Agendadset1,
"agenda").EndCurrentEdit()
Me.Agendadset1.agenda.Rows.Add(Me.Agendadset1.agenda.NewRow)
'update
agenda table, the task record to edit
Sub_Update1( "new_task",
(Me.Agendadset1.agenda.Count()
- 1))
'load
agenda table, Agendadset1 dataset
LoadDataSet()
load_value(current_date)
Exit Sub
End
If
End
If
End
Sub
Private
Sub sub_serialno(ByVal
v_entry_type
As
String,
ByVal
strdate_d
As
String,
ByVal
strdate_m
As
String,
ByVal
strdate_y
As
String)
Dim
serialno_flag
As
Boolean
Dim
vrec
As
Integer, vno
As
Integer
load_serialno(v_entry_type, strdate_d, strdate_m,
strdate_y)
serialno_flag =
False
vno = 1
Select
Case
vdset1.Tables("agenda").Rows.Count
Case
0
new_serialno = 1
Exit Sub
Case
Is
> 24
err_serialno(v_entry_type)
Exit Sub
Case Else
For
vrec = 0
To
(vdset1.Tables("agenda").Rows.Count
- 1)
If
vdset1.Tables("agenda").Rows(vrec).Item("serialno")
= vno
Then
vno = vno + 1
If
vno = 26
Then
err_serialno(v_entry_type)
Exit Sub
End
If
serialno_flag =
True
End
If
Next
If
serialno_flag =
True
Then
new_serialno = vno
Exit Sub
End
If
End
Select
End
Sub
Private
Sub load_serialno(ByVal
v_entry_type
As
String,
ByVal
strdate_d
As
String,
ByVal
strdate_m
As
String,
ByVal
strdate_y
As
String)
Dim
WhereSearch
As
String =
""
Select
Case v_entry_type
Case
"A"
WhereSearch =
" WHERE
(entry_type = '" &
Trim(v_entry_type) &
"') AND
(ondate_d = '" &
strdate_d &
"') AND
(ondate_m = '" &
strdate_m &
"') AND
(ondate_y = '" &
strdate_y &
"')"
vselect1 =
New
OleDb.OleDbCommand("SELECT
entry_type, ondate, ondate_d, ondate_m, ondate_y,
serialno FROM agenda"
& WhereSearch &
" ORDER
BY serialno")
Case
"T"
WhereSearch =
" WHERE
(entry_type = '" &
Trim(v_entry_type) &
"')"
vselect1 =
New
OleDb.OleDbCommand("SELECT
entry_type, ondate, ondate_d, ondate_m, ondate_y,
serialno FROM agenda"
& WhereSearch &
" ORDER
BY serialno")
End
Select
vda1 =
New
OleDb.OleDbDataAdapter(vselect1)
vdset1 =
New
DataSet
vselect1.Connection() = dbConnection
' Select
command
vselect1.CommandTimeout = 30
vdset1.EnforceConstraints =
False
Try
dbConnection.Open()
vda1.Fill(vdset1,
"agenda")
Catch
fillException
As
System.Exception
System.Windows.Forms. MessageBox.Show(fillException.Message)
End
Try
vdset1.EnforceConstraints =
True
dbConnection.Close()
End
Sub
Private
Sub err_serialno(ByVal
v_entry_type
As
String)
Select
Case v_entry_type
Case
"A"
MsgBox( "it
is full = 24 input(s), impossible to add new appointment
...",
MsgBoxStyle.DefaultButton1
Or
MsgBoxStyle.Information
Or
MsgBoxStyle.OKOnly,
Title)
Exit Sub
Case
"T"
MsgBox( "it
is full = 24 input(s), impossible to add new task ...",
MsgBoxStyle.DefaultButton1
Or
MsgBoxStyle.Information
Or
MsgBoxStyle.OKOnly,
Title)
Exit Sub
End
Select
End
Sub
'
****************** delete/remove task ....
*********************
Private
Sub
Btn_deltask_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
Btn_deltask.Click
Dim
vvrc
As
Integer
Dim
i
As
Integer
If
Me.list_chktask.Items.Count
> 0
Then
For
i = 0
To
Me.list_chktask.Items.Count
- 1
'load
agenda table, Agendadset1 dataset
LoadDataSet()
load_value(current_date)
For
vvrc = 0
To
(Me.Agendadset1.Tables("agenda").Rows.Count
- 1)
If
((Trim(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("entry_type"))
=
"T")
And
(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("serialno")
= Val(Me.list_chktask.Items.Item(i))))
Then
'agenda
table, position
Me.BindingContext(Me.Agendadset1,
"agenda").Position
= vvrc
Me.BindingContext(Me.Agendadset1,
"agenda").RemoveAt(Me.BindingContext(Me.Agendadset1,
"agenda").Position)
Sub_Update()
Exit For
End
If
Next
Next
Me.list_chktask.Items.Clear()
ChkA_Checked( False)
Me.Btn_deltask.Enabled
=
False
'load
agenda table, Agendadset1 dataset
LoadDataSet()
load_value(current_date)
End
If
End
Sub
Private
Sub
ChkAAll_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkAAll.CheckedChanged
If
Me.ChkAAll.Checked
Then ChkA_Checked(True)
If
Me.ChkAAll.Checked
=
False
Then
ChkA_Checked(False)
End
Sub
Public
Sub ChkA_Checked(ByVal
bval
As
Boolean)
Me.ChkA1.Checked
= bval
Me.ChkA2.Checked
= bval
Me.ChkA3.Checked
= bval
Me.ChkA4.Checked
= bval
Me.ChkA5.Checked
= bval
Me.ChkA6.Checked
= bval
Me.ChkA7.Checked
= bval
Me.ChkA8.Checked
= bval
Me.ChkA9.Checked
= bval
Me.ChkA10.Checked
= bval
Me.ChkA11.Checked
= bval
Me.ChkA12.Checked
= bval
Me.ChkA13.Checked
= bval
Me.ChkA14.Checked
= bval
Me.ChkA15.Checked
= bval
Me.ChkA16.Checked
= bval
Me.ChkA17.Checked
= bval
Me.ChkA18.Checked
= bval
Me.ChkA19.Checked
= bval
Me.ChkA20.Checked
= bval
Me.ChkA21.Checked
= bval
Me.ChkA22.Checked
= bval
Me.ChkA23.Checked
= bval
Me.ChkA24.Checked
= bval
If
bval =
False
Then
'
Me.Btn_movetask.Enabled = bval
'
Me.Btn_deltask.Enabled = bval
End
If
End
Sub
Private
Sub sub_chkA(ByVal
v_ChekBox
As
System.Windows.Forms.CheckBox,
ByVal str_serialno
As
String)
Dim
i
As
Integer
If
Me.Btn_delappoint.Enabled
=
True
Then
Me.Btn_delappoint.Enabled
=
False
If
Me.ChkBAll.Checked
=
True
Then
Me.ChkBAll.Checked
=
False
Me.list_chkappoint.Items.Clear()
End
If
If
v_ChekBox.Visible =
True
Then
Select
Case
v_ChekBox.Checked
Case
True
If
Me.Btn_deltask.Enabled
=
False
Then
Me.Btn_deltask.Enabled
=
True
Me.list_chktask.Items.Add(str_serialno)
Case
False
For
i = 0
To
Me.list_chktask.Items.Count
- 1
If
Me.list_chktask.Items.Item(i)
= str_serialno
Then
Me.list_chktask.Items.Remove(str_serialno)
Exit For
End
If
Next
End
Select
End
If
If
v_ChekBox.Visible =
True
Then
Select
Case
Me.list_chktask.Items.Count
Case
0
Me.Btn_movetask.Enabled
=
False
Me.Btn_deltask.Enabled
=
False
If
Me.ChkAAll.Checked
Then
Me.ChkAAll.Checked
=
False
Case
Is
> 0
Me.Btn_movetask.Enabled
=
True
Me.Btn_deltask.Enabled
=
True
End
Select
End
If
End
Sub
Private
Sub
ChkA1_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA1.CheckedChanged
sub_chkA( Me.ChkA1,
Me.StxA1.Text)
End
Sub
Private
Sub
ChkA2_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA2.CheckedChanged
sub_chkA( Me.ChkA2,
Me.StxA2.Text)
End
Sub
Private
Sub
ChkA3_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA3.CheckedChanged
sub_chkA( Me.ChkA3,
Me.StxA3.Text)
End
Sub
Private
Sub
ChkA4_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA4.CheckedChanged
sub_chkA( Me.ChkA4,
Me.StxA4.Text)
End
Sub
Private
Sub
ChkA5_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA5.CheckedChanged
sub_chkA( Me.ChkA5,
Me.StxA5.Text)
End
Sub
Private
Sub
ChkA6_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA6.CheckedChanged
sub_chkA( Me.ChkA6,
Me.StxA6.Text)
End
Sub
Private
Sub
ChkA7_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA7.CheckedChanged
sub_chkA( Me.ChkA7,
Me.StxA7.Text)
End
Sub
Private
Sub
ChkA8_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA8.CheckedChanged
sub_chkA( Me.ChkA8,
Me.StxA8.Text)
End
Sub
Private
Sub
ChkA9_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA9.CheckedChanged
sub_chkA( Me.ChkA9,
Me.StxA9.Text)
End
Sub
Private
Sub
ChkA10_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA10.CheckedChanged
sub_chkA( Me.ChkA10,
Me.StxA10.Text)
End
Sub
Private
Sub
ChkA11_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA11.CheckedChanged
sub_chkA( Me.ChkA11,
Me.StxA11.Text)
End
Sub
Private
Sub
ChkA12_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA12.CheckedChanged
sub_chkA( Me.ChkA12,
Me.StxA12.Text)
End
Sub
Private
Sub
ChkA13_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA13.CheckedChanged
sub_chkA( Me.ChkA13,
Me.StxA13.Text)
End
Sub
Private
Sub
ChkA14_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA14.CheckedChanged
sub_chkA( Me.ChkA14,
Me.StxA14.Text)
End
Sub
Private
Sub
ChkA15_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA15.CheckedChanged
sub_chkA( Me.ChkA15,
Me.StxA15.Text)
End
Sub
Private
Sub
ChkA16_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA16.CheckedChanged
sub_chkA( Me.ChkA16,
Me.StxA16.Text)
End
Sub
Private
Sub
ChkA17_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA17.CheckedChanged
sub_chkA( Me.ChkA17,
Me.StxA17.Text)
End
Sub
Private
Sub
ChkA18_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA18.CheckedChanged
sub_chkA( Me.ChkA18,
Me.StxA18.Text)
End
Sub
Private
Sub
ChkA19_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA19.CheckedChanged
sub_chkA( Me.ChkA19,
Me.StxA19.Text)
End
Sub
Private
Sub
ChkA20_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA20.CheckedChanged
sub_chkA( Me.ChkA20,
Me.StxA20.Text)
End
Sub
Private
Sub
ChkA21_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA21.CheckedChanged
sub_chkA( Me.ChkA21,
Me.StxA21.Text)
End
Sub
Private
Sub
ChkA22_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA22.CheckedChanged
sub_chkA( Me.ChkA22,
Me.StxA22.Text)
End
Sub
Private
Sub
ChkA23_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA23.CheckedChanged
sub_chkA( Me.ChkA23,
Me.StxA23.Text)
End
Sub
Private
Sub
ChkA24_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkA24.CheckedChanged
sub_chkA( Me.ChkA24,
Me.StxA24.Text)
End
Sub
'
****************** edit/modify appointement ....
*********************
Private
Sub BtnB1_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
BtnB1.Click
toedit_appoint( Me.StxB1.Text,
Me.TxtC1.Text,
Me.TxtB1.Text,
Me.txid1.Text)
End
Sub
'show
agenda appointement form, to edit ....
Private
Sub
toedit_appoint(ByVal
v_order
As
String,
ByVal
v_time
As
String,
ByVal
v_descrip
As
String,
ByVal
v_bookid
As
String)
appoint_type =
"edit"
appoint_order = Val(v_order)
appoint_time = v_time
appoint_date = System. Convert.ToDateTime(current_date)
agenda_desc = v_descrip
appoint_bookid = v_bookid
fagenda_appoint.ShowDialog()
End
Sub
'show
agenda form after edit (appointement)
Public
Sub
afteredit_appoint()
Dim
vvrc
As
Integer
If
appoint_flag =
True
Then
current_date = Format(appoint_date,
"M/d/yyyy")
If
(Me.Agendadset1.Tables("agenda").Rows.Count
> 0)
Then
For
vvrc = 0
To
(Me.Agendadset1.Tables("agenda").Rows.Count
- 1)
If
((Trim(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("entry_type"))
=
"A")
And
(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("serialno")
= appoint_order)
And
(Trim(Format(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy")) =
Trim(Format(System.Convert.ToDateTime(current_date),
"M/d/yyyy"))))
Then
'update
agenda table, the task record to edit
Sub_Update1( "edit_appointment",
vvrc)
'load
agenda table, Agendadset1 dataset
LoadDataSet()
load_value(current_date)
Exit Sub
End
If
Next
End
If
End
If
End
Sub
Private
Sub BtnB2_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB2.Click
toedit_appoint( Me.StxB2.Text,
Me.TxtC2.Text,
Me.TxtB2.Text,
Me.txid2.Text)
End
Sub
Private
Sub BtnB3_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB3.Click
toedit_appoint( Me.StxB3.Text,
Me.TxtC3.Text,
Me.TxtB3.Text,
Me.txid3.Text)
End
Sub
Private
Sub BtnB4_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB4.Click
toedit_appoint( Me.StxB4.Text,
Me.TxtC4.Text,
Me.TxtB4.Text,
Me.txid4.Text)
End
Sub
Private
Sub BtnB5_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB5.Click
toedit_appoint( Me.StxB5.Text,
Me.TxtC5.Text,
Me.TxtB5.Text,
Me.txid5.Text)
End
Sub
Private
Sub BtnB6_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB6.Click
toedit_appoint( Me.StxB6.Text,
Me.TxtC6.Text,
Me.TxtB6.Text,
Me.txid6.Text)
End
Sub
Private
Sub BtnB7_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB7.Click
toedit_appoint( Me.StxB7.Text,
Me.TxtC7.Text,
Me.TxtB7.Text,
Me.txid7.Text)
End
Sub
Private
Sub BtnB8_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB8.Click
toedit_appoint( Me.StxB8.Text,
Me.TxtC8.Text,
Me.TxtB8.Text,
Me.txid8.Text)
End
Sub
Private
Sub BtnB9_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB9.Click
toedit_appoint( Me.StxB9.Text,
Me.TxtC9.Text,
Me.TxtB9.Text,
Me.txid9.Text)
End
Sub
Private
Sub BtnB10_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB10.Click
toedit_appoint( Me.StxB10.Text,
Me.TxtC10.Text,
Me.TxtB10.Text,
Me.txid10.Text)
End
Sub
Private
Sub BtnB11_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB11.Click
toedit_appoint( Me.StxB11.Text,
Me.TxtC11.Text,
Me.TxtB11.Text,
Me.txid11.Text)
End
Sub
Private
Sub BtnB12_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB12.Click
toedit_appoint( Me.StxB12.Text,
Me.TxtC12.Text,
Me.TxtB12.Text,
Me.txid12.Text)
End
Sub
Private
Sub BtnB13_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB13.Click
toedit_appoint( Me.StxB13.Text,
Me.TxtC13.Text,
Me.TxtB13.Text,
Me.txid13.Text)
End
Sub
Private
Sub BtnB14_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB14.Click
toedit_appoint( Me.StxB14.Text,
Me.TxtC14.Text,
Me.TxtB14.Text,
Me.txid14.Text)
End
Sub
Private
Sub BtnB15_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB15.Click
toedit_appoint( Me.StxB15.Text,
Me.TxtC15.Text,
Me.TxtB15.Text,
Me.txid15.Text)
End
Sub
Private
Sub BtnB16_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB16.Click
toedit_appoint( Me.StxB16.Text,
Me.TxtC16.Text,
Me.TxtB16.Text,
Me.txid16.Text)
End
Sub
Private
Sub BtnB17_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB17.Click
toedit_appoint( Me.StxB17.Text,
Me.TxtC17.Text,
Me.TxtB17.Text,
Me.txid17.Text)
End
Sub
Private
Sub BtnB18_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB18.Click
toedit_appoint( Me.StxB18.Text,
Me.TxtC18.Text,
Me.TxtB18.Text,
Me.txid18.Text)
End
Sub
Private
Sub BtnB19_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB19.Click
toedit_appoint( Me.StxB19.Text,
Me.TxtC19.Text,
Me.TxtB19.Text,
Me.txid19.Text)
End
Sub
Private
Sub BtnB20_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB20.Click
toedit_appoint( Me.StxB20.Text,
Me.TxtC20.Text,
Me.TxtB20.Text,
Me.txid20.Text)
End
Sub
Private
Sub BtnB21_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB21.Click
toedit_appoint( Me.StxB21.Text,
Me.TxtC21.Text,
Me.TxtB21.Text,
Me.txid21.Text)
End
Sub
Private
Sub BtnB22_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB22.Click
toedit_appoint( Me.StxB22.Text,
Me.TxtC22.Text,
Me.TxtB22.Text,
Me.txid22.Text)
End
Sub
Private
Sub BtnB23_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB23.Click
toedit_appoint( Me.StxB23.Text,
Me.TxtC23.Text,
Me.TxtB23.Text,
Me.txid23.Text)
End
Sub
Private
Sub BtnB24_Click(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
BtnB24.Click
toedit_appoint( Me.StxB24.Text,
Me.TxtC24.Text,
Me.TxtB24.Text,
Me.txid24.Text)
End
Sub
'
****************** new/add appointement ....
*********************
'show
agenda appointement form, to add/new ...
Private
Sub
Btn_newappoint_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
Btn_newappoint.Click
Dim
vondate_d
As
String, vondate_m
As
String, vondate_y
As
String
appoint_full =
False
'test if
it available to add new appointmement with this current
date
If
(System.Convert.ToDateTime(current_date).Day
> 0
And
System.Convert.ToDateTime(current_date).Day
< 10)
Then
vondate_d =
"0"
+ Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
vondate_d = Trim(Str(System. Convert.ToDateTime(current_date).Day))
End
If
If
(System.Convert.ToDateTime(current_date).Month
> 0
And
System.Convert.ToDateTime(current_date).Month
< 10)
Then
vondate_m =
"0"
+ Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
vondate_m = Trim(Str(System. Convert.ToDateTime(current_date).Month))
End
If
vondate_y = Trim(Str(System. Convert.ToDateTime(current_date).Year))
'new
value - serialno field, agenda table
sub_serialno( "A",
vondate_d, vondate_m, vondate_y)
load_serialno( "A",
vondate_d, vondate_m, vondate_y)
If
vdset1.Tables("agenda").Rows.Count
> 23
Then
'with
this current date, add new appointmement not available
appoint_full =
True
End
If
'new
appointment
appoint_type =
"new"
appoint_date = System. Convert.ToDateTime(current_date)
fagenda_appoint.ShowDialog()
End
Sub
'show
agenda form after edit (appointement)
Public
Sub
afternew_appoint()
Dim
vondate_d
As
String, vondate_m
As
String, vondate_y
As
String
If
appoint_flag =
True
Then
current_date = Format(appoint_date,
"M/d/yyyy")
If
(System.Convert.ToDateTime(current_date).Day
> 0
And
System.Convert.ToDateTime(current_date).Day
< 10)
Then
vondate_d =
"0"
+ Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
vondate_d = Trim(Str(System. Convert.ToDateTime(current_date).Day))
End
If
If
(System.Convert.ToDateTime(current_date).Month
> 0
And
System.Convert.ToDateTime(current_date).Month
< 10)
Then
vondate_m =
"0"
+ Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
vondate_m = Trim(Str(System. Convert.ToDateTime(current_date).Month))
End
If
vondate_y = Trim(Str(System. Convert.ToDateTime(current_date).Year))
'new
value - serialno field, agenda table
sub_serialno( "A",
vondate_d, vondate_m, vondate_y)
If
vdset1.Tables("agenda").Rows.Count
< 24
Then
'add new
record
Me.BindingContext(Me.Agendadset1,
"agenda").EndCurrentEdit()
Me.Agendadset1.agenda.Rows.Add(Me.Agendadset1.agenda.NewRow)
'update
agenda table, the appointment record to new
Sub_Update1( "new_appointment",
(Me.Agendadset1.agenda.Count()
- 1))
'load
agenda table, Agendadset1 dataset
LoadDataSet()
load_value(current_date)
Exit Sub
End
If
End
If
End
Sub
'
****************** delete/remove appointement ....
*********************
Private
Sub
Btn_delappoint_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
Btn_delappoint.Click
'remove
appointment
Dim
vvrc
As
Integer
Dim
i
As
Integer
If
Me.list_chkappoint.Items.Count
> 0
Then
For
i = 0
To
Me.list_chkappoint.Items.Count
- 1
'load
agenda table, Agendadset1 dataset
LoadDataSet()
load_value(current_date)
For
vvrc = 0
To
(Me.Agendadset1.Tables("agenda").Rows.Count
- 1)
If
((Trim(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("entry_type"))
=
"A")
And
(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("serialno")
= Val(Me.list_chkappoint.Items.Item(i)))
And (Trim(Format(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("ondate"),
"M/d/yyyy")) =
Trim(Format(System.Convert.ToDateTime(current_date),
"M/d/yyyy"))))
Then
'agenda
table, position
Me.BindingContext(Me.Agendadset1,
"agenda").Position
= vvrc
Me.BindingContext(Me.Agendadset1,
"agenda").RemoveAt(Me.BindingContext(Me.Agendadset1,
"agenda").Position)
Sub_Update()
Exit For
End
If
Next
Next
Me.list_chkappoint.Items.Clear()
ChkB_Checked( False)
Me.Btn_delappoint.Enabled
=
False
'load
agenda table, Agendadset1 dataset
LoadDataSet()
load_value(current_date)
End
If
End
Sub
Private
Sub
ChkBAll_CheckedChanged(ByVal
sender
As
Object,
ByVal
e
As System.EventArgs)
Handles
ChkBAll.CheckedChanged
If
Me.ChkBAll.Checked
Then ChkB_Checked(True)
If
Me.ChkBAll.Checked
=
False
Then
ChkB_Checked(False)
End
Sub
Private
Sub ChkB_Checked(ByVal
bval
As
Boolean)
Me.ChkBAll.Checked
= bval
Me.ChkB1.Checked
= bval
Me.ChkB2.Checked
= bval
Me.ChkB3.Checked
= bval
Me.ChkB4.Checked
= bval
Me.ChkB5.Checked
= bval
Me.ChkB6.Checked
= bval
Me.ChkB7.Checked
= bval
Me.ChkB8.Checked
= bval
Me.ChkB9.Checked
= bval
Me.ChkB10.Checked
= bval
Me.ChkB11.Checked
= bval
Me.ChkB12.Checked
= bval
Me.ChkB13.Checked
= bval
Me.ChkB14.Checked
= bval
Me.ChkB15.Checked
= bval
Me.ChkB16.Checked
= bval
Me.ChkB17.Checked
= bval
Me.ChkB18.Checked
= bval
Me.ChkB19.Checked
= bval
Me.ChkB20.Checked
= bval
Me.ChkB21.Checked
= bval
Me.ChkB22.Checked
= bval
Me.ChkB23.Checked
= bval
Me.ChkB24.Checked
= bval
End
Sub
Private
Sub sub_chkB(ByVal
v_ChekBox
As
System.Windows.Forms.CheckBox,
ByVal str_serialno
As
String)
Dim
i
As
Integer
If
Me.Btn_deltask.Enabled
=
True
Then
Me.Btn_deltask.Enabled
=
False
If
Me.ChkAAll.Checked
=
True
Then
Me.ChkAAll.Checked
=
False
Me.list_chktask.Items.Clear()
End
If
If
v_ChekBox.Visible
Then
Select
Case
v_ChekBox.Checked
Case
True
If
Me.Btn_delappoint.Enabled
=
False
Then
Me.Btn_delappoint.Enabled
=
True
Me.list_chkappoint.Items.Add(str_serialno)
Case
False
For
i = 0
To
Me.list_chkappoint.Items.Count
- 1
If
Me.list_chkappoint.Items.Item(i)
= str_serialno
Then
Me.list_chkappoint.Items.Remove(str_serialno)
If
(Me.list_chkappoint.Items.Count
= 0)
Then
Me.Btn_delappoint.Enabled
=
False
Exit Sub
End
If
Next
End
Select
End
If
End
Sub
Private
Sub
ChkB1_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB1.CheckedChanged
sub_chkB( Me.ChkB1,
Me.StxB1.Text)
End
Sub
Private
Sub
ChkB2_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB2.CheckedChanged
sub_chkB( Me.ChkB2,
Me.StxB2.Text)
End
Sub
Private
Sub
ChkB3_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB3.CheckedChanged
sub_chkB( Me.ChkB3,
Me.StxB3.Text)
End
Sub
Private
Sub
ChkB4_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB4.CheckedChanged
sub_chkB( Me.ChkB4,
Me.StxB4.Text)
End
Sub
Private
Sub
ChkB5_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB5.CheckedChanged
sub_chkB( Me.ChkB5,
Me.StxB5.Text)
End
Sub
Private
Sub
ChkB6_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB6.CheckedChanged
sub_chkB( Me.ChkB6,
Me.StxB6.Text)
End
Sub
Private
Sub
ChkB7_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB7.CheckedChanged
sub_chkB( Me.ChkB7,
Me.StxB7.Text)
End
Sub
Private
Sub
ChkB8_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB8.CheckedChanged
sub_chkB( Me.ChkB8,
Me.StxB8.Text)
End
Sub
Private
Sub
ChkB9_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB9.CheckedChanged
sub_chkB( Me.ChkB9,
Me.StxB9.Text)
End
Sub
Private
Sub
ChkB10_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB10.CheckedChanged
sub_chkB( Me.ChkB10,
Me.StxB10.Text)
End
Sub
Private
Sub
ChkB11_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB11.CheckedChanged
sub_chkB( Me.ChkB11,
Me.StxB11.Text)
End
Sub
Private
Sub
ChkB12_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB12.CheckedChanged
sub_chkB( Me.ChkB12,
Me.StxB12.Text)
End
Sub
Private
Sub
ChkB13_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB13.CheckedChanged
sub_chkB( Me.ChkB13,
Me.StxB13.Text)
End
Sub
Private
Sub
ChkB14_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB14.CheckedChanged
sub_chkB( Me.ChkB14,
Me.StxB14.Text)
End
Sub
Private
Sub
ChkB15_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB15.CheckedChanged
sub_chkB( Me.ChkB15,
Me.StxB15.Text)
End
Sub
Private
Sub
ChkB16_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB16.CheckedChanged
sub_chkB( Me.ChkB16,
Me.StxB16.Text)
End
Sub
Private
Sub
ChkB17_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB17.CheckedChanged
sub_chkB( Me.ChkB17,
Me.StxB17.Text)
End
Sub
Private
Sub
ChkB18_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB18.CheckedChanged
sub_chkB( Me.ChkB18,
Me.StxB18.Text)
End
Sub
Private
Sub
ChkB19_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB19.CheckedChanged
sub_chkB( Me.ChkB19,
Me.StxB19.Text)
End
Sub
Private
Sub
ChkB20_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB20.CheckedChanged
sub_chkB( Me.ChkB20,
Me.StxB20.Text)
End
Sub
Private
Sub
ChkB21_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB21.CheckedChanged
sub_chkB( Me.ChkB21,
Me.StxB21.Text)
End
Sub
Private
Sub
ChkB22_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB22.CheckedChanged
sub_chkB( Me.ChkB22,
Me.StxB22.Text)
End
Sub
Private
Sub
ChkB23_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB23.CheckedChanged
sub_chkB( Me.ChkB23,
Me.StxB23.Text)
End
Sub
Private
Sub
ChkB24_CheckedChanged(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
ChkB24.CheckedChanged
sub_chkB( Me.ChkB24,
Me.StxB24.Text)
End
Sub
'******************************* update/ save
*******************************
Private
Sub Sub_Update()
Try
Me.UpdateDataSet()
Catch
eUpdate
As
System.Exception
System.Windows.Forms. MessageBox.Show(eUpdate.Message)
End
Try
End
Sub
Public
Sub
UpdateDataSet()
'Create a
new dataset to hold the changes that have been made to
the main dataset.
Dim
objDataSetChanges
As
work_VBNet_10.Agendadset
=
New work_VBNet_10.Agendadset
'Stop any
current edits.
Me.BindingContext(Agendadset1,
"agenda").EndCurrentEdit()
'Get the
changes that have been made to the main dataset.
objDataSetChanges =
CType(Agendadset1.GetChanges,
work_VBNet_10.Agendadset)
'Check to
see if any changes have been made.
If
(Not
(objDataSetChanges)
Is
Nothing)
Then
Try
'There
are changes that need to be made, so attempt to update
the datasource by
'calling
the update method and passing the dataset and any
parameters.
Me.UpdateDataSource(objDataSetChanges)
Agendadset1.Merge(objDataSetChanges,
True)
Agendadset1.AcceptChanges()
Catch
eUpdate
As
System.Exception
'Add your
error handling code here.
Throw
eUpdate
End
Try
'Add your
code to check the returned dataset for any errors that
may have been
'pushed
into the row object's error.
End
If
End
Sub
Public
Sub
UpdateDataSource(ByVal
ChangedRows
As
work_VBNet_10.Agendadset)
'DataAdapter da, and da.TableMappings
da_Table()
'
OleDbSCommand.CommandTimeout = 30
Try
'The data
source only needs to be updated if there are changes
pending.
If
(Not
(ChangedRows)
Is
Nothing)
Then
'Open the
connection.
dbConnection.Open()
'Attempt
to update the data source.
'OleDbDataAdapter1.Update(ChangedRows)
da.Update(ChangedRows,
"agenda")
End
If
Catch
updateException
As
System.Exception
'Add your
error handling code here.
Throw
updateException
Finally
'Close
the connection whether or not the exception was thrown.
dbConnection.Close()
End
Try
End
Sub
Private
Sub Sub_Update1(ByVal
v__type
As
String,
ByVal
v__record
As
Integer)
Try
sub_updateDSet(v__type, v__record)
Catch
eUpdate
As
System.Exception
System.Windows.Forms. MessageBox.Show(eUpdate.Message)
End
Try
End
Sub
Private
Sub
sub_updateDSet(ByVal
v_type
As
String,
ByVal
v_record
As
Integer)
'Create a
new dataset
Dim
objDataSetChanges
As
work_VBNet_10.Agendadset
=
New work_VBNet_10.Agendadset
Select
Case v_type
Case
"edit_task"
'edit
task
Me.Agendadset1.agenda.Rows.Item(v_record).Item("description")
= Trim(agenda_desc)
Me.Agendadset1.agenda.Rows.Item(v_record).Item("taskprirority")
= Trim(task_prirority)
Case
"new_task"
'new task
'
me.Agendadset1.agenda.Rows.Item(v_record).Item("branch")
=
Me.Agendadset1.agenda.Rows.Item(v_record).Item("datecreated")
= System.Convert.ToDateTime(current_date)
Me.Agendadset1.agenda.Rows.Item(v_record).Item("description")
= Trim(agenda_desc)
Me.Agendadset1.agenda.Rows.Item(v_record).Item("entry_type")
=
"T"
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate")
= System.Convert.ToDateTime(current_date)
If
(System.Convert.ToDateTime(current_date).Day
> 0
And
System.Convert.ToDateTime(current_date).Day
< 10)
Then
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_d")
=
"0" +
Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_d")
= Trim(Str(System.Convert.ToDateTime(current_date).Day))
End
If
If
(System.Convert.ToDateTime(current_date).Month
> 0
And
System.Convert.ToDateTime(current_date).Month
< 10)
Then
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_m")
=
"0" +
Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_m")
= Trim(Str(System.Convert.ToDateTime(current_date).Month))
End
If
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_y")
= Trim(Str(System.Convert.ToDateTime(current_date).Year))
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ontime")
=
"12:00 AM"
Me.Agendadset1.agenda.Rows.Item(v_record).Item("serialno")
= new_serialno
Me.Agendadset1.agenda.Rows.Item(v_record).Item("taskprirority")
= Trim(task_prirority)
Case
"edit_appointment"
'edit appointment
Me.Agendadset1.agenda.Rows.Item(v_record).Item("description")
= Trim(agenda_desc)
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate")
= System.Convert.ToDateTime(current_date)
If
(System.Convert.ToDateTime(current_date).Day
> 0
And
System.Convert.ToDateTime(current_date).Day
< 10)
Then
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_d")
=
"0" +
Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_d")
= Trim(Str(System.Convert.ToDateTime(current_date).Day))
End
If
If
(System.Convert.ToDateTime(current_date).Month
> 0
And
System.Convert.ToDateTime(current_date).Month
< 10)
Then
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_m")
=
"0" +
Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_m")
= Trim(Str(System.Convert.ToDateTime(current_date).Month))
End
If
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_y")
= Trim(Str(System.Convert.ToDateTime(current_date).Year))
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ontime")
= Trim(appoint_time)
Case
"new_appointment"
'new appointment
'
me.Agendadset1.agenda.Rows.Item(v_record).Item("branch")
=
Me.Agendadset1.agenda.Rows.Item(v_record).Item("datecreated")
= System.Convert.ToDateTime(current_date)
Me.Agendadset1.agenda.Rows.Item(v_record).Item("description")
= Trim(agenda_desc)
Me.Agendadset1.agenda.Rows.Item(v_record).Item("entry_type")
=
"A"
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate")
= System.Convert.ToDateTime(current_date)
If
(System.Convert.ToDateTime(current_date).Day
> 0
And
System.Convert.ToDateTime(current_date).Day
< 10)
Then
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_d")
=
"0" +
Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_d")
= Trim(Str(System.Convert.ToDateTime(current_date).Day))
End
If
If
(System.Convert.ToDateTime(current_date).Month
> 0
And
System.Convert.ToDateTime(current_date).Month
< 10)
Then
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_m")
=
"0" +
Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_m")
= Trim(Str(System.Convert.ToDateTime(current_date).Month))
End
If
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ondate_y")
= Trim(Str(System.Convert.ToDateTime(current_date).Year))
Me.Agendadset1.agenda.Rows.Item(v_record).Item("ontime")
= Trim(appoint_time)
Me.Agendadset1.agenda.Rows.Item(v_record).Item("serialno")
= new_serialno
Me.Agendadset1.agenda.Rows.Item(v_record).Item("taskprirority")
=
""
Me.Agendadset1.agenda.Rows.Item(v_record).Item("bookid")
= Val(appoint_bookid)
End
Select
'Stop any
current edits.
Me.BindingContext(Me.Agendadset1,
"agenda").EndCurrentEdit()
'Get the
changes
objDataSetChanges =
CType(Me.Agendadset1.GetChanges,
work_VBNet_10.Agendadset)
If
(Not
(objDataSetChanges)
Is
Nothing)
Then
Try
Me.UpdateDataSource(objDataSetChanges)
Me.Agendadset1.Merge(objDataSetChanges)
Me.Agendadset1.AcceptChanges()
Catch
eUpdate
As
System.Exception
Throw
eUpdate
End
Try
End
If
End
Sub
Private
Sub
Btn_movetask_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
Btn_movetask.Click
'
task_order, appoint_date
appoint_type =
"task_appoint"
serial_taskappoint = System. Convert.ToInt16(Trim(Me.list_chktask.Items.Item(0)))
sub_movetask( "T",
serial_taskappoint)
agenda_desc = vdset1.Tables( "agenda").Rows(0).Item("description")
fagenda_appoint.ShowDialog()
End
Sub
Private
Sub sub_movetask(ByVal
v_entry_type
As
String,
ByVal
v_serialno1
As
Integer)
Dim
WhereSearch
As
String =
""
WhereSearch =
" WHERE
(((entry_type)='"
& Trim(v_entry_type) &
"') AND
((serialno)= " &
v_serialno1 &
" ))"
vselect1 =
New
OleDb.OleDbCommand("SELECT
agendaid, description, entry_type, serialno FROM agenda"
& WhereSearch)
vda1 =
New
OleDb.OleDbDataAdapter(vselect1)
vdset1 =
New
DataSet
vselect1.Connection() = dbConnection
' Select
command
vselect1.CommandTimeout = 30
vdset1.EnforceConstraints =
False
Try
dbConnection.Open()
vda1.Fill(vdset1,
"agenda")
Catch
fillException
As
System.Exception
System.Windows.Forms. MessageBox.Show(fillException.Message)
End
Try
vdset1.EnforceConstraints =
True
dbConnection.Close()
End
Sub
'show
agenda form after edit (appointement)
Public
Sub
aftermove_taskappoint()
Dim
vondate_d
As
String, vondate_m
As
String, vondate_y
As
String
If
appoint_flag =
True
Then
current_date = Format(appoint_date,
"M/d/yyyy")
If
(System.Convert.ToDateTime(current_date).Day
> 0
And
System.Convert.ToDateTime(current_date).Day
< 10)
Then
vondate_d =
"0"
+ Trim(Str(System.Convert.ToDateTime(current_date).Day))
Else
vondate_d = Trim(Str(System. Convert.ToDateTime(current_date).Day))
End
If
If
(System.Convert.ToDateTime(current_date).Month
> 0
And
System.Convert.ToDateTime(current_date).Month
< 10)
Then
vondate_m =
"0"
+ Trim(Str(System.Convert.ToDateTime(current_date).Month))
Else
vondate_m = Trim(Str(System. Convert.ToDateTime(current_date).Month))
End
If
vondate_y = Trim(Str(System. Convert.ToDateTime(current_date).Year))
'new
value - serialno field, agenda table
sub_serialno( "A",
vondate_d, vondate_m, vondate_y)
If
vdset1.Tables("agenda").Rows.Count
< 24
Then
'add new
record
Me.BindingContext(Me.Agendadset1,
"agenda").EndCurrentEdit()
Me.Agendadset1.agenda.Rows.Add(Me.Agendadset1.agenda.NewRow)
'update
agenda table, the task record to edit
Sub_Update1( "new_appointment",
(Me.Agendadset1.agenda.Count()
- 1))
'delete
task moved to appointment
sub_delmovetask()
'chkA.. -
checkbox, checked
ChkA_Checked( False)
Exit Sub
End
If
End
If
End
Sub
Private
Sub
sub_delmovetask()
Dim
vvrc
As
Integer
For
vvrc = 0
To
(Me.Agendadset1.Tables("agenda").Rows.Count
- 1)
If
((Trim(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("entry_type"))
=
"T")
And
(Me.Agendadset1.Tables("agenda").Rows(vvrc).Item("serialno")
= serial_taskappoint))
Then
'agenda
table, position
Me.BindingContext(Me.Agendadset1,
"agenda").Position
= vvrc
Me.BindingContext(Me.Agendadset1,
"agenda").RemoveAt(Me.BindingContext(Me.Agendadset1,
"agenda").Position)
Sub_Update()
Exit For
End
If
Next
Me.list_chktask.Items.Clear()
ChkA_Checked( False)
Me.Btn_deltask.Enabled
=
False
Me.Btn_movetask.Enabled
=
False
'load
agenda table, Agendadset1 dataset
LoadDataSet()
load_value(current_date)
End
Sub
Private
Sub btn_ok_Click(ByVal
sender
As
System.Object,
ByVal e
As
System.EventArgs)
Handles
btn_ok.Click
Close()
End
Sub
End
Class
| |
|
| |