djhooman
سه شنبه 20 تیر 1391, 20:38 عصر
سلام دوستای گل . . . . . . . . .
من توی فرم ویرایش اطلاعات برنامم از این کد استفاده کردم .
برای اینکه کد نویسی برنامم شلوغ شده تصمیم گرفتم از کلاس یا ماژول استفاده کنم . . .
کدم و پایین میزارم ببینم کسی میتونه کد فرمم رو به کمک کلاس یا ماژول در بیاره ؟؟؟؟
ممنون میشم کمک کنید ......
محتوایات کد کلاس یا ماژول و کد فرمم که تغییر میکنه به چه صورت میشه ؟؟؟؟
Public Class Tashkil_Edit
Dim Str As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim con As New SqlConnection(Str)
Dim sql As String
Private Sub ButtonX1_Click(sender As System.Object, e As System.EventArgs) Handles ButtonX1.Click
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim cmd As New SqlCommand("Select * From Etelat Where DigitalID=@DigitalID", con)
cmd.Parameters.AddWithValue("DigitalID", DigitalIDTextBox.Text)
Dim reader As SqlDataReader
con.Open()
reader = cmd.ExecuteReader()
reader.Read()
NoeDarkhastComboBox.Text = reader("NoeDarkhast").ToString()
MablaghTextBox.Text = reader("Mablagh").ToString()
BabateComboBox.Text = reader("Babate").ToString()
TarikhTextBox.Text = reader("Tarikh").ToString()
ArzeshAfzoodeLabel1.Text = reader("ArzeshAfzoode").ToString()
TotalLabel1.Text = reader("Total").ToString()
ShParvandehTextBox.Text = reader("ShParvandeh").ToString()
TozihatRichTextBox.Text = reader("Tozihat").ToString()
NahveDaryaftComboBox.Text = reader("NahveDaryaft").ToString
reader.Close()
con.Close()
End Sub
Private Sub ButtonX2_Click(sender As System.Object, e As System.EventArgs) Handles ButtonX2.Click
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim cmd As New SqlCommand("UPDATE Etelat Set ShParvandeh=@ShParvandeh,NoeDarkhast=@NoeDarkhast, ArzeshAfzoode=@ArzeshAfzoode,Total=@Total,Tozihat= @Tozihat,NahveDaryaft=@NahveDaryaft where DigitalID=@DigitalID", con)
Try
If con.State = ConnectionState.Open Then
con.Close()
End If
con.ConnectionString = con.ConnectionString
cmd.Parameters.AddWithValue("@DigitalID", Me.DigitalIDTextBox.Text)
cmd.Parameters.AddWithValue("@ShParvandeh", Me.ShParvandehTextBox.Text)
cmd.Parameters.AddWithValue("@NoeDarkhast", Me.NoeDarkhastComboBox.Text)
cmd.Parameters.AddWithValue("@Babate", Me.BabateComboBox.Text)
cmd.Parameters.AddWithValue("@Mablagh", Me.MablaghTextBox.Text)
cmd.Parameters.AddWithValue("@Tarikh", Me.TarikhTextBox.Text)
cmd.Parameters.AddWithValue("@ArzeshAfzoode", Me.ArzeshAfzoodeLabel1.Text)
cmd.Parameters.AddWithValue("@Total", Me.TotalLabel1.Text)
cmd.Parameters.AddWithValue("@Tozihat", Me.TozihatRichTextBox.Text)
cmd.Parameters.AddWithValue("@NahveDaryaft", Me.NahveDaryaftComboBox.Text)
con.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
con.Close()
End Try
MsgBox(" اطلاعات با موفقيت بروزرساني گرديد ")
End Sub
End Class
من توی فرم ویرایش اطلاعات برنامم از این کد استفاده کردم .
برای اینکه کد نویسی برنامم شلوغ شده تصمیم گرفتم از کلاس یا ماژول استفاده کنم . . .
کدم و پایین میزارم ببینم کسی میتونه کد فرمم رو به کمک کلاس یا ماژول در بیاره ؟؟؟؟
ممنون میشم کمک کنید ......
محتوایات کد کلاس یا ماژول و کد فرمم که تغییر میکنه به چه صورت میشه ؟؟؟؟
Public Class Tashkil_Edit
Dim Str As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim con As New SqlConnection(Str)
Dim sql As String
Private Sub ButtonX1_Click(sender As System.Object, e As System.EventArgs) Handles ButtonX1.Click
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim cmd As New SqlCommand("Select * From Etelat Where DigitalID=@DigitalID", con)
cmd.Parameters.AddWithValue("DigitalID", DigitalIDTextBox.Text)
Dim reader As SqlDataReader
con.Open()
reader = cmd.ExecuteReader()
reader.Read()
NoeDarkhastComboBox.Text = reader("NoeDarkhast").ToString()
MablaghTextBox.Text = reader("Mablagh").ToString()
BabateComboBox.Text = reader("Babate").ToString()
TarikhTextBox.Text = reader("Tarikh").ToString()
ArzeshAfzoodeLabel1.Text = reader("ArzeshAfzoode").ToString()
TotalLabel1.Text = reader("Total").ToString()
ShParvandehTextBox.Text = reader("ShParvandeh").ToString()
TozihatRichTextBox.Text = reader("Tozihat").ToString()
NahveDaryaftComboBox.Text = reader("NahveDaryaft").ToString
reader.Close()
con.Close()
End Sub
Private Sub ButtonX2_Click(sender As System.Object, e As System.EventArgs) Handles ButtonX2.Click
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim cmd As New SqlCommand("UPDATE Etelat Set ShParvandeh=@ShParvandeh,NoeDarkhast=@NoeDarkhast, ArzeshAfzoode=@ArzeshAfzoode,Total=@Total,Tozihat= @Tozihat,NahveDaryaft=@NahveDaryaft where DigitalID=@DigitalID", con)
Try
If con.State = ConnectionState.Open Then
con.Close()
End If
con.ConnectionString = con.ConnectionString
cmd.Parameters.AddWithValue("@DigitalID", Me.DigitalIDTextBox.Text)
cmd.Parameters.AddWithValue("@ShParvandeh", Me.ShParvandehTextBox.Text)
cmd.Parameters.AddWithValue("@NoeDarkhast", Me.NoeDarkhastComboBox.Text)
cmd.Parameters.AddWithValue("@Babate", Me.BabateComboBox.Text)
cmd.Parameters.AddWithValue("@Mablagh", Me.MablaghTextBox.Text)
cmd.Parameters.AddWithValue("@Tarikh", Me.TarikhTextBox.Text)
cmd.Parameters.AddWithValue("@ArzeshAfzoode", Me.ArzeshAfzoodeLabel1.Text)
cmd.Parameters.AddWithValue("@Total", Me.TotalLabel1.Text)
cmd.Parameters.AddWithValue("@Tozihat", Me.TozihatRichTextBox.Text)
cmd.Parameters.AddWithValue("@NahveDaryaft", Me.NahveDaryaftComboBox.Text)
con.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
con.Close()
End Try
MsgBox(" اطلاعات با موفقيت بروزرساني گرديد ")
End Sub
End Class