fzarei
دوشنبه 24 دی 1386, 15:20 عصر
با سلام
فرم من شامل چند textbox است که برای وارد کردن اطلاعات در جدمل از آن استفاده می کنم
textbox1 شامل فیلد اصلی جدولم می باشد که اولا نباید خالی باشد دوما اطلاعات تکرارای در آن وارد نگردد که این شرطها با برنامه زیر که در LostFocus نوشته ام چک می گردد اما مشکل اینجاست که زمانی که فرم را باز می کنم اگر چیزی ثبت نکنم و آنرا با کلید خروج که بر روی فرم طراحی کرده ام ببندم پیغام ("نام گروه فوق ثبت نشده است" بر روی صفحه ظاهر می گردد لطفا برای رفع این مشکل مرا راهنمایی کنید
Imports System.Data
Imports System.Data.OleDb
PublicClass FormS_F
PrivateSub TextBox1_LostFocus(ByVal sender AsObject, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
Dim con AsNew OleDbConnection
Dim cmd AsNew OleDbCommand
Dim dr As OleDbDataReader
con.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\QCC1386\qc.mdb;Persist Security Info=False")
con.Open()
cmd.CommandText = "select groupname,code,headname,tedad,compani,area,bakhsh from sabt where(groupname = '" & TextBox1.Text & "')"
cmd.Connection = con
dr = cmd.ExecuteReader
If dr.HasRows Then
dr.Read()
TextBox2.Text = dr("code")
TextBox3.Text = dr("headname")
TextBox4.Text = dr("tedad")
TextBox5.Text = dr("compani")
TextBox6.Text = dr("area")
TextBox7.Text = dr("bakhsh")
TextBox8.Focus()
Else
MessageBox.Show("نام گروه فوق ثبت نشده است")
TextBox1.Focus()
Me.TextBox1.Text = ""
EndIf
con.Close()
dr.Close()
EndSub
فرم من شامل چند textbox است که برای وارد کردن اطلاعات در جدمل از آن استفاده می کنم
textbox1 شامل فیلد اصلی جدولم می باشد که اولا نباید خالی باشد دوما اطلاعات تکرارای در آن وارد نگردد که این شرطها با برنامه زیر که در LostFocus نوشته ام چک می گردد اما مشکل اینجاست که زمانی که فرم را باز می کنم اگر چیزی ثبت نکنم و آنرا با کلید خروج که بر روی فرم طراحی کرده ام ببندم پیغام ("نام گروه فوق ثبت نشده است" بر روی صفحه ظاهر می گردد لطفا برای رفع این مشکل مرا راهنمایی کنید
Imports System.Data
Imports System.Data.OleDb
PublicClass FormS_F
PrivateSub TextBox1_LostFocus(ByVal sender AsObject, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
Dim con AsNew OleDbConnection
Dim cmd AsNew OleDbCommand
Dim dr As OleDbDataReader
con.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\QCC1386\qc.mdb;Persist Security Info=False")
con.Open()
cmd.CommandText = "select groupname,code,headname,tedad,compani,area,bakhsh from sabt where(groupname = '" & TextBox1.Text & "')"
cmd.Connection = con
dr = cmd.ExecuteReader
If dr.HasRows Then
dr.Read()
TextBox2.Text = dr("code")
TextBox3.Text = dr("headname")
TextBox4.Text = dr("tedad")
TextBox5.Text = dr("compani")
TextBox6.Text = dr("area")
TextBox7.Text = dr("bakhsh")
TextBox8.Focus()
Else
MessageBox.Show("نام گروه فوق ثبت نشده است")
TextBox1.Focus()
Me.TextBox1.Text = ""
EndIf
con.Close()
dr.Close()
EndSub