Web form inheritance help

[Eric]

I had a windows form project that had a functions module that could control
objects on the referenced main form. How would I do the same with a web
project using a web form? See my windows form example, and let me know what I
must do to get this to work on a web form.
Imports System.Data
Imports System.Data.Ole Db
Imports CrystalDecision s.CrystalReport s.Engine
Imports System.Windows. Forms

Module ProcessFunction s
Public loading As Boolean = True
Dim SQadapterTime As New SqlClient.SqlDa taAdapter
Dim SQadapterPhase As New SqlClient.SqlDa taAdapter
Dim SQadapterTask As New SqlClient.SqlDa taAdapter
Dim SQadapterActivi ty As New SqlClient.SqlDa taAdapter
Dim SQadapterCLient As New SqlClient.SqlDa taAdapter
Dim SQadapterMatter As New SqlClient.SqlDa taAdapter
Dim SQadApterGetTim e As New SqlClient.SqlDa taAdapter
Dim SQadApterGetPar ams As New SqlClient.SqlDa taAdapter
Dim SQLTime As New SqlClient.SqlCo mmand
Dim SQLPhase As New SqlClient.SqlCo mmand
Dim SQLTask As New SqlClient.SqlCo mmand
Dim SQLActivity As New SqlClient.SqlCo mmand
Dim SQLClient As New SqlClient.SqlCo mmand
Dim SQLMatter As New SqlClient.SqlCo mmand
Dim SQLGetime As New SQLClient.SqlCo mmand
Dim SQLGetParams As New SQLClient.SqlCo mmand
'Dim dreader As SqlClient.SqlDa taReader
Dim dtTime As New DataTable
Dim dtPhase As New DataTable
Dim dtTask As New DataTable
Dim dtActivity As New DataTable
Dim dtCLient As New DataTable
Dim dtMatter As New DataTable

Public Sub LoadAllFormData (ByVal MainF As FrmMain, ByVal DataLoadType As
Integer)

Dim objectDBConnect As New Exception("Unab le to connect to SQL
server Rc0101.")
Select Case DataLoadType
Case 1
SQLTime.Command Text = "SELECT Timekeeper, EmpName FROM
V_LiTimekeeper UNION SELECT 'L0', '-ALL-' FROM V_LiTimekeeper ORDER BY
EmpName"
SQLPhase.Comman dText = "SELECT PhaseCode, PhaseName,
PhaseCode + ' - ' + PhaseName AS PhaseComb FROM LitPhase order by phasename"
SQLTask.Command Text = "SELECT PhaseCode,TaskC ode, TaskName,
TaskCode + ' - ' + TaskName AS TaskComb FROM LitTask UNION SELECT
'9999','L0','-All-', '-ALL-' FROM Littask ORDER BY taskName"
SQLActivity.Com mandText = "SELECT activity_code,
activity_desc, activity_code + ' - ' + activity_desc AS ActDrp FROM
LitActivity UNION SELECT 'L0','-All-', '-ALL-' FROM Littask ORDER BY
activity_desc"
SQLClient.Comma ndText = "SELECT CLIENT_CODE, CLIENT_NAME,
CLIENT_NAME + ' - ' + CLIENT_CODE AS CLientDrp FROM LitClients ORDER BY
CLIENT_NAME"
SQLMatter.Comma ndText = "SELECT CLIENT_CODE, MATTER_CODE,
MATTER_NAME, MATTER_NAME + ' -' + MATTER_CODE AS MatterDrp FROM LitMatters
UNION SELECT '99','L0',' -ALL-',' -ALL-' FROM Littask ORDER BY MATTER_NAME"

SQLTime.Connect ion = LitDatabase
SQLPhase.Connec tion = LitDatabase
SQLTask.Connect ion = LitDatabase
SQLActivity.Con nection = LitDatabase
SQLClient.Conne ction = LitDatabase
SQLMatter.Conne ction = LitDatabase

SQadapterTime.S electCommand = SQLTime
SQadapterPhase. SelectCommand = SQLPhase
SQadapterTask.S electCommand = SQLTask
SQadapterActivi ty.SelectComman d = SQLActivity
SQadapterCLient .SelectCommand = SQLClient
SQadapterMatter .SelectCommand = SQLMatter
Try
' Load Timekeeper Dropdowns
SQadapterTime.F ill(dtTime).ToS tring()
MainF.DrpTimeke eper().DataSour ce = dtTime
MainF.DrpTimeke eper().DisplayM ember =
dtTime.Columns( 1).ToString
MainF.DrpTimeke eper().ValueMem ber =
dtTime.Columns( 0).ToString

' Load Phase Dropdowns
SQadapterPhase. Fill(dtPhase).T oString()
MainF.drpPhase( ).DataSource = dtPhase
MainF.drpPhase( ).DisplayMember =
dtPhase.Columns (2).ToString
MainF.drpPhase( ).ValueMember = dtPhase.Columns (0).ToString

' Load Task Dropdowns
SQadapterTask.F ill(dtTask).ToS tring()
dtTask.DefaultV iew.RowFilter = "PhaseCode = '" &
MainF.drpPhase( ).SelectedValue & "' OR TaskComb= '-All-'"
MainF.drpTask() .DataSource = dtTask
MainF.drpTask.S electedIndex = 0
MainF.drpTask.D isplayMember = dtTask.Columns( 3).ToString
MainF.drpTask.V alueMember = dtTask.Columns( 1).ToString

' Load Activity Dropdowns
SQadapterActivi ty.Fill(dtActiv ity).ToString()
MainF.drpActivi ty().DataSource = dtActivity
MainF.drpActivi ty().DisplayMem ber =
dtActivity.Colu mns(2).ToString
MainF.drpActivi ty().ValueMembe r =
dtActivity.Colu mns(0).ToString

' Load Client Dropdowns
SQadapterCLient .Fill(dtCLient) .ToString()
MainF.drpClient .DataSource = dtCLient
MainF.drpClient .DisplayMember =
dtCLient.Column s(2).ToString
MainF.drpClient .ValueMember = dtCLient.Column s(0).ToString

' Load Matter Dropdowns
SQadapterMatter .Fill(dtMatter) .ToString()
dtMatter.Defaul tView.RowFilter = "Client_Cod e = '" &
MainF.drpClient .SelectedValue & "' OR MatterDrp= ' -All-'"
MainF.drpMatter ().DataSource = dtMatter
MainF.drpMatter .SelectedIndex = 0
MainF.drpMatter .DisplayMember =
dtMatter.Column s(3).ToString
MainF.drpMatter .ValueMember = dtMatter.Column s(1).ToString
Catch objectDataFill As Exception
'Throw objectDBConnect

MsgBox(objectDa taFill.Message)
End Try

loading = False

MainF.RDActivit y.Checked = True

Case 2
If loading = False Then
dtTask.DefaultV iew.RowFilter = "PhaseCode = '" &
MainF.drpPhase( ).SelectedValue & "' OR TaskComb= '-All-'"
MainF.drpTask() .DataSource = dtTask
MainF.drpTask.S electedIndex = 0
MainF.drpTask.D isplayMember = dtTask.Columns( 3).ToString
MainF.drpTask.V alueMember = dtTask.Columns( 1).ToString

MainF.drpTask() .Enabled = True
End If
Case 3
If loading = False Then

dtMatter.Defaul tView.RowFilter = "Client_Cod e = '" &
MainF.drpClient .SelectedValue & "' OR MatterDrp= ' -All-'"
MainF.drpMatter ().DataSource = dtMatter
MainF.drpMatter .SelectedIndex = 0
MainF.drpMatter .DisplayMember =
dtMatter.Column s(3).ToString
MainF.drpMatter .ValueMember = dtMatter.Column s(1).ToString

MainF.drpMatter ().Enabled = True
End If
End Select
'
End Sub

[John Saunders]

"Eric" <Er**@discussio ns.microsoft.co m> wrote in message
news:7A******** *************** ***********@mic rosoft.com...

I had a windows form project that had a functions module that could control objects on the referenced main form. How would I do the same with a web
project using a web form? See my windows form example, and let me know what I must do to get this to work on a web form.

First of all, the idea of having a module control things on a form is
questionable, at best. Surely the form is capable of managing itself? Unless
you've got more than one FrmMain form, it makes no sense at all for this
code to be separate from the form. The module would be used once, on a
single form, so why not make the form be the module?

I suggest that you take the data which was in the module and put it into the
web form as Private data. I suggest that you take the LoadAllFormData method
and also place it into the web form as a private method. Call that method in
Page_Load in the web form:

If Not Page.IsPostBack Then
LoadAllFormData ()
End If

--
John Saunders
johnwsaundersii i at hotmail

[Eric]

John, Thanks for not answering the question. I didnt ask if the form could
manage itself, did I ? without seeing the entire solution, how could you
arrive at the trite resolution with a simple " You shouldn't be doing this" ?
Answer the darn question, or don't reply at all. People like you waste
precious MSDN time, along with my own. Please STOP replying to problems with
more problems
"John Saunders" wrote:

"Eric" <Er**@discussio ns.microsoft.co m> wrote in message
news:7A******** *************** ***********@mic rosoft.com...

I had a windows form project that had a functions module that could

control

objects on the referenced main form. How would I do the same with a web
project using a web form? See my windows form example, and let me know

what I

must do to get this to work on a web form.

First of all, the idea of having a module control things on a form is
questionable, at best. Surely the form is capable of managing itself? Unless
you've got more than one FrmMain form, it makes no sense at all for this
code to be separate from the form. The module would be used once, on a
single form, so why not make the form be the module?

I suggest that you take the data which was in the module and put it into the
web form as Private data. I suggest that you take the LoadAllFormData method
and also place it into the web form as a private method. Call that method in
Page_Load in the web form:

If Not Page.IsPostBack Then
LoadAllFormData ()
End If

--
John Saunders
johnwsaundersii i at hotmail

[John Saunders]

"Eric" <Er**@discussio ns.microsoft.co m> wrote in message
news:53******** *************** ***********@mic rosoft.com...

John, Thanks for not answering the question. I didnt ask if the form could
manage itself, did I ? without seeing the entire solution, how could you
arrive at the trite resolution with a simple " You shouldn't be doing this" ?

Experience. :-)

1) The existence of a module is almost always a mistake due to an
over-literal translation of VB6 into VB.NET
2) The code in the module did nothing w hich the form could not do on its
own.
3) My guess that this used to be VB6 code suggested to me that there might
be only a single instance of FrmMain, in which case, I could think of no
reason for the code and data which are now in the module to not be in the
form instead.
4) It's a fairly serious violation of encapsulation to have the module
operate on the form. That's almost always a mistake.

Finally, if you're determined to make those mistakes, perhaps due to some
overriding reason which you did not share with us, then you should change
the accessibility of the properties and methods of the form to Public. They
will then be accessible by the module.
Answer the darn question, or don't reply at all. People like you waste
precious MSDN time, along with my own. Please STOP replying to problems with more problems
I'm still unclear on why it would cause a problem for you to simply move the
code. Is the module used with more than one form called FrmMain?
--
John Saunders
johnwsaundersii i at hotmail
"John Saunders" wrote:

"Eric" <Er**@discussio ns.microsoft.co m> wrote in message
news:7A******** *************** ***********@mic rosoft.com...

I had a windows form project that had a functions module that could

control

objects on the referenced main form. How would I do the same with a web project using a web form? See my windows form example, and let me know

what I

must do to get this to work on a web form.

First of all, the idea of having a module control things on a form is
questionable, at best. Surely the form is capable of managing itself? Unless you've got more than one FrmMain form, it makes no sense at all for this
code to be separate from the form. The module would be used once, on a
single form, so why not make the form be the module?

I suggest that you take the data which was in the module and put it into the web form as Private data. I suggest that you take the LoadAllFormData method and also place it into the web form as a private method. Call that method in Page_Load in the web form:

If Not Page.IsPostBack Then
LoadAllFormData ()
End If

--
John Saunders
johnwsaundersii i at hotmail