|
Dave Kreskowiak wrote: I've just been really damn busy both at work and home
I can tottaly understand that, I sleep about 5 hours a night and the rest of the time I work and still haven't got enough time so...
there isn't a table behind it.
maybe if I explain a bit better what the meaning of it you'll understand better so here I go (trying very hard):
I have a project where the user has to be able to search for records by filters he can set himself.
So I designed a form (frmsearch) that would do that and made that form dynamicly so that I can reuse it everywhere I want (I'm very lasy (don't like to copy paste or do the same thing to much);P)
here is how such a form would look like(described)
(label)name:
inside groupbox 3radiobuttons
(radiobutton) rbnot (= no filter)
(radiobutton) rbin (= record field contains whatever the user set in textbox)
(radiobutton) rbnotin (= record field does not contains whatever the user set in textbox)
and then a few more things for design purposes
this way all I have to do in the form that calls frmsearch is the next:
Dim dt As DataTable = clsSearch.createDataTable
Dim dr As DataRow
dr = dt.NewRow()
dr("FieldName") = "ActiviteitTypeCode"
dr("FieldType") = "string"
dr("lblField") = "Code:"
dr("rbNot") = True
dr("rbIn") = False
dr("rbNotin") = False
dr("FlgSearchbtn") = False
dr("FlgSelection") = True
dr("FlgFromTo") = False
dr("txtSelection") = ""
dr("txtFrom") = ""
dr("txtTo") = ""
dt.Rows.Add(dr)
dr = dt.NewRow()
dr("FieldName") = "ActiviteitTypeOmschrNLD"
dr("FieldType") = "string"
dr("lblField") = "Omschrijving NLD:"
dr("rbNot") = True
dr("rbIn") = False
dr("rbNotin") = False
dr("FlgSearchbtn") = False
dr("FlgSelection") = True
dr("FlgFromTo") = False
dr("txtSelection") = ""
dr("txtFrom") = ""
dr("txtTo") = ""
dt.Rows.Add(dr)
dr = dt.NewRow()
Dim frm As New frmSearch(dt)
frm.ShowDialog()
then frmsearch returns an sql string (where clause) wich I can use to select the correct data and display it on the form
I hope this clears things up a bit
if not I'm willing to send you the project (or part of it) so you test it for you're self but then I'll need an email account since I can't attach anything here
thanks in advance for all you'r help and time
|
|
|
|
|
OK. I just cannot break this thing the way you described. The check list to go through for creating a groupbox with a few radio buttons in it is this:
Create the groupbox
Set Text, Size, Location properties
Add GroupBox to host form's Controls collection
Do While more radios to create
Create RadioButton
Set Text, Location, AutoSize properties
AddHandler CheckChanged event to appropriate CheckChanged handler
(event handler must be in host form's class, NOT another form)
Add RadioButton to host form's Controls collection
Add RadioBUtton to host GroupBox Controls collection
Loop
|
|
|
|
|
so here it is:
frmsearch load: (logic: we iterate true every row in dt and create the controls for that row (based on values in the dt (look at third code block to see an example of dt)))
Private Sub frmBedrijfZoek_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
If dt1.Rows.Count > 0 Then
Dim x As Integer = 10, y As Integer = 0, yInit As Integer = 0, i As Integer = 0, len As Integer = dt1.Rows.Count, maxwidth As Integer = 310
y = 0 '20
yInit = 20
SuspendLayout()
For Each row As DataRow In dt1.Rows
y += 20
' Create controls
lblField(i) = New Label()
rbNot(i) = New RadioButton()
rbIn(i) = New RadioButton()
rbNotin(i) = New RadioButton()
gb(i) = New GroupBox()
txtFrom(i) = New TextBox()
txtTo(i) = New TextBox()
btnSearch(i) = New Button()
txtValue(i) = New TextBox()
lblSearch(i) = New Label()
' lblField
lblField(i).Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte((0)))
lblField(i).ForeColor = System.Drawing.Color.FromArgb(CInt(CByte((0))), CInt(CByte((0))), CInt(CByte((0))))
lblField(i).Location = New System.Drawing.Point(x + 10, y + 30)
lblField(i).Name = row("FieldName").ToString()
lblField(i).Size = New System.Drawing.Size(250, 30)
lblField(i).TabIndex = 0
lblField(i).Text = row("lblField").ToString()
lblField(i).TextAlign = System.Drawing.ContentAlignment.MiddleRight
lblField(i).Width = 100
' GroupBox
gb(i).Location = New System.Drawing.Point(x + 110, y + 32)
gb(i).Name = "gb" + row("FieldName").ToString() + i.ToString()
gb(i).Size = New System.Drawing.Size(55, 25)
gb(i).TabIndex = 0
gb(i).TabStop = False
gb(i).Tag = i
' Radiobuttons
rbNot(i).Checked = CBool(row("rbNot"))
rbNot(i).Location = New System.Drawing.Point(5, 9)
rbNot(i).Name = "rbNot"
rbNot(i).Size = New System.Drawing.Size(14, 13)
rbNot(i).TabIndex = 1
rbNot(i).TabStop = True
rbNot(i).UseVisualStyleBackColor = True
rbNot(i).Tag = i
rbIn(i).Checked = CBool(row("rbIn"))
rbIn(i).Location = New System.Drawing.Point(20, 9)
rbIn(i).Name = "rbIn"
rbIn(i).Size = New System.Drawing.Size(14, 13)
rbIn(i).TabIndex = 2
rbIn(i).UseVisualStyleBackColor = True
rbIn(i).Tag = i
rbNotin(i).Checked = CBool(row("rbNotin"))
rbNotin(i).Location = New System.Drawing.Point(35, 9)
rbNotin(i).Name = "rbNotin"
rbNotin(i).Size = New System.Drawing.Size(14, 13)
rbNotin(i).TabIndex = 3
rbNotin(i).UseVisualStyleBackColor = True
rbNotin(i).Tag = i
AddHandler rbNot(i).CheckedChanged, AddressOf rb_CheckedChanged
AddHandler rbIn(i).CheckedChanged, AddressOf rb_CheckedChanged
AddHandler rbNotin(i).CheckedChanged, AddressOf rb_CheckedChanged
gb(i).Controls.AddRange(New Control() {rbNot(i), rbIn(i), rbNotin(i)})
If CBool(row("FlgSearchbtn")) = True Then
' Button
btnSearch(i).Visible = True
btnSearch(i).Cursor = Cursors.Hand
btnSearch(i).Location = New System.Drawing.Point(x + 165, y + 37)
btnSearch(i).Name = "btnSearch"
btnSearch(i).Text = "..."
btnSearch(i).Size = New System.Drawing.Size(33, 20)
btnSearch(i).TabIndex = 10
btnSearch(i).UseVisualStyleBackColor = True
AddHandler btnSearch(i).Click, AddressOf btnSearch_Click
btnSearch(i).Tag = i
' Label
lblSearch(i).Location = New System.Drawing.Point(x + 200, y + 40)
lblSearch(i).Name = "lblSelection"
lblSearch(i).Size = New System.Drawing.Size(100, 20)
lblSearch(i).TabIndex = 11
lblSearch(i).Text = "Selectie..."
End If
If CBool(row("FlgSelection")) = True Then
' TxtValue
txtValue(i).Visible = True
txtValue(i).Location = New System.Drawing.Point(x + 200, y + 38)
txtValue(i).MaxLength = 9000
txtValue(i).Size = New System.Drawing.Size(100, 20)
txtValue(i).TabIndex = 20
txtValue(i).Tag = i
End If
If CBool(row("FlgFromTo")) = True Then
' txtFrom
txtFrom(i).Visible = True
txtFrom(i).Location = New System.Drawing.Point(x + 200, y + 38)
txtFrom(i).MaxLength = 9000
txtFrom(i).Size = New System.Drawing.Size(100, 20)
txtFrom(i).TabIndex = 30
txtFrom(i).Tag = i
'txtTo
txtTo(i).Visible = True
txtTo(i).Location = New System.Drawing.Point(x + 302, y + 38)
txtTo(i).MaxLength = 9000
txtTo(i).Size = New System.Drawing.Size(100, 20)
txtTo(i).TabIndex = 40
txtTo(i).Tag = i
maxwidth = 420
End If
Controls.AddRange(New Control() {lblField(i), btnSearch(i), lblSearch(i), txtValue(i), txtFrom(i), txtTo(i), gb(i)})
If CBool(row("rbNot")) Then
SetControlsVisible(i, False)
Else
SetControlsVisible(i, True)
End If
i += 1
Next
Dim groupbox As New GroupBox()
groupbox.Location = New System.Drawing.Point(x, yInit)
groupbox.Size = New System.Drawing.Size(maxwidth, y + 50)
groupbox.TabIndex = 0
groupbox.TabStop = False
groupbox.Text = "Selectie binnen 'Bedrijf'"
Controls.Add(groupbox)
ResumeLayout(False)
End If
End Sub
the checkchanged methode:
the first if is our 'bad' solution (doesn't even work everytime but its the only thing we'v come up with so far)
Private Sub rb_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
If counter < 2 Then ' This is a tricky solution for VB.Net (not C#) because this event is triggered in the load of the form
rbNot(0).Checked = CBool(dt1.Rows(0)("rbNot"))
rbIn(0).Checked = CBool(dt1.Rows(0)("rbIn"))
rbNotin(0).Checked = CBool(dt1.Rows(0)("rbNotin"))
counter += 1
Exit Sub
End If
Dim idx As Integer = DirectCast(DirectCast(sender, RadioButton).Tag, Int32)
Dim chk As Boolean = DirectCast(sender, RadioButton).Checked
If DirectCast(sender, RadioButton).Name = "rbNot" Then
chk = Not chk
End If
SetControlsVisible(idx, chk)
End Sub
example of dt: (this will give 2 groupboxes of 3 radiobuttons)
Public Sub MnuSearch() Implements IfrmClient.MnuSearch
Dim dt As DataTable = clsSearch.createDataTable
Dim dr As DataRow
dr = dt.NewRow()
dr("FieldName") = "ActiviteitTypeCode"
dr("FieldType") = "string"
dr("lblField") = "Code:"
dr("rbNot") = False 'bug only happens if this is false
dr("rbIn") = True 'bug only happens if this is true
dr("rbNotin") = False
dr("FlgSearchbtn") = False
dr("FlgSelection") = True
dr("FlgFromTo") = False
dr("txtSelection") = ""
dr("txtFrom") = ""
dr("txtTo") = ""
dt.Rows.Add(dr)
dr = dt.NewRow()
dr("FieldName") = "ActiviteitTypeOmschrNLD"
dr("FieldType") = "string"
dr("lblField") = "Omschrijving NLD:"
dr("rbNot") = True
dr("rbIn") = False
dr("rbNotin") = False
dr("FlgSearchbtn") = False
dr("FlgSelection") = True
dr("FlgFromTo") = False
dr("txtSelection") = ""
dr("txtFrom") = ""
dr("txtTo") = ""
dt.Rows.Add(dr)
Dim frm As New frmSearch(dt)
If frm.ShowDialog = Windows.Forms.DialogResult.OK Then
where = frm.sqlwhere
sql = "select ActiviteitTypeCode,ActiviteitTypeOmschrNLD,ActiviteitTypeOmschrFRA,ActiviteitTypeKleur," & _
"isactief,datum_creatie,user_creatie,datum_wijz,user_wijz from ActiviteitType " & where
loaddata()
End If
hope you understand it better now if not I'm always willing to give more code or explanation
|
|
|
|
|
TDDragon wrote: Dim groupbox As New GroupBox()
groupbox.Location = New System.Drawing.Point(x, yInit)
groupbox.Size = New System.Drawing.Size(maxwidth, y + 50)
groupbox.TabIndex = 0
groupbox.TabStop = False
groupbox.Text = "Selectie binnen 'Bedrijf'"
Controls.Add(groupbox)
So where do you add the radio buttons to the GroupBox?? I don't see it and it was one of my items in the "Checklist" I posted.
|
|
|
|
|
yeah probably should have told you that this groupbox doesn't matter much it's just for lay-out purposes. The groupbox that matters is the gb groupbox that's the one containing the raio buttons and those are added with the following code:
gb(i).Controls.AddRange(New Control() {rbNot(i), rbIn(i), rbNotin(i)})
|
|
|
|
|
Missed that one.
What's with the arrays of controls? [ gb(i) ]
|
|
|
|
|
yeah I'm not quite sure why my college did it like this but I don't think it will make a difference
(I didn't write the code just have to correct it = real fun )
-- modified at 8:32 Friday 17th August, 2007
just asked him, here is his answer:
quote 'Because I can then fit it on to 1 line of code' end quote
o and I just tested it with adding them like this 'gb(i).controls.add(rbnot(i))' and it doesn't make a difference so...
|
|
|
|
|
I have an update on the problem:
when I use the following as the first datarow I don't have the problem
dr = dt.NewRow()
dr("FieldName") = "ActiviteitTypeCode"
dr("FieldType") = "string"
dr("lblField") = "Code:"
dr("rbNot") = True 'this changed from false to true
dr("rbIn") = False 'this changed from true to false
dr("rbNotin") = False
dr("FlgSearchbtn") = False
dr("FlgSelection") = True
dr("FlgFromTo") = False
dr("txtSelection") = ""
dr("txtFrom") = ""
dr("txtTo") = ""
dt.Rows.Add(dr)
|
|
|
|
|
I didn't answer this question yesterday because I don't have a fricken' clue what you're talking about!! Reposting the exact same question isn't going to help.
You're description of what you want amounts to a rambling pile of _____ that I can't make heads or tails of. A much simpler explanation of what you want would help.
|
|
|
|
|
Dave Kreskowiak wrote: didn't answer this question yesterday because I don't have a fricken' clue what you're talking about!
Dave Kreskowiak wrote: description of what you want amounts to a rambling pile of _____ that I can't make heads or tails of
What was the pile of _____ that was from the deleted post? If I dare ask 
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Deleted?? I just left a blank for someone to fill in their culturally-specific reference to the term "dung".
|
|
|
|
|
Dave Kreskowiak wrote: just left a blank for someone to fill in their culturally-specific reference to the term "dung".
I figured it was a fill in the blank thing.
Also, I was just wondering what the original post was...
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
I want to read data from a hardware device like time access punching machine.
What is the complete process to read data and storing into a databse from any hardware device.
If any one have some idea, please guide me.
Thanks,
Pathak
|
|
|
|
|
this is different for every hardware device.
normally the hardware device has an dll you can access (if the manufacterer wants you to), and also some documentation on how to use that dll
I suggest you read that documentation, since every dll is different there is no global answer to you question
|
|
|
|
|
hi
friends,
i use SQLBASE as backend
i have a table by name date1. in that i have two cloumns with name and dob. here dob column contains date in the following format(19-feb-1987). now i wan to display the dat ein the datagrid in the same format. but i am getting the date as follows (02/19/1987 12:30:40 am). but i want to display the date as it is in the datagrid from the database.
i have tried the boundcolumn part. but there is a draw back. cause as we r binding the column with a certain column form the database, if in the query that particular column is not there. error occurs.
i would like to know the solution for this
there is no such thing as good or bad.
|
|
|
|
|
If you're letting the DataGridView create the columns for you, this is the default formating you get for DateTime values.
Either you have to alter the autogenerated column AFTER you bind the data, supplying a new formating string to the column, or, you have to create your own columns in the DataGridView and make the same changes. Either way, you're supplying the format string for how you want the date to show up to the columns DefaultCellStyle.Format property.
|
|
|
|
|
hey
change the data type of the column dob from any thing related to datetime and put it nvarchar and hope this makes your problem works
NEO ISSA
|
|
|
|
|
hi guys
i am developing a project in vb.net, it is ntier based,,
here i have my business layer , data access layer and as well ui layer,,,
issue is that for each of my class in each of my layer except ui i am using
singelton pattern to create object and call methods of any layer,,
if it is a good approach or i shuld call each time new object with new keyword to access methids in these classes,, i am confused,,
thanks in advance
best regards
hello
|
|
|
|
|
depending on what the methode does you can make it shared
(public shared sub 'name')
like this you can access the methode by just calling you class name . methode name
but be carefull on how you use it
a shared methode is 'shared' over all the classes so everything you use inside it has to be given to it
from inside the shared methode you can't access the property's of that class (at least not if they aren't shared aswel)
don't know if this makes much since to you but play around with it a bit and you'll find out for you're self
|
|
|
|
|
Dear All,
I am using VbSemdMail.DLL for sending mail via SMTP server but unable to do so. I am getting error : Connection is Aborted due to time out or other error. Can anybody tll em what is the possible reason for this problem? Is there any other method to send mail other than CDONTS and winsock?
Thanks
Virendra
|
|
|
|
|
Did you try Persits ASPEmail Library?
|
|
|
|
|
Without clicking and moving the mouse. Can i move the cursor using codes to move it...
|
|
|
|
|
|
I have written stored procedured which should return certain value.The below query executes in sql server.The stored procedure is like this:
ALTER PROCEDURE ValidateUser
@MemberName varchar(50)
AS
select * from T_Members where MemberName = @MemberName
return
But i couldn't implement this stored procedure in the button click and store it in the variable 'a' of the dot net 2005 platform.
suchitamanandhar@hotmail.com
|
|
|
|
|
What does your VB.Net part of the code look like?
Something akin to:
Dim foo As New System.Data.SqlClient.SqlCommand("execute ValidateUser @username")
foo.Parameters.Add(New SqlClient.SqlParameter("@username", "Duncan"))
Dim rdr As SqlClient.SqlDataReader = foo.ExecuteReader
While rdr.Read
'do stuff with the records...
End While
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
