View Full Version : كد عضويت و نمايش اطلاعات در كليه تكست ها
Rezapcclick
جمعه 08 خرداد 1388, 17:11 عصر
سلام سلام سلام
من دارم يه برنامه اي مي نويسم و بخش هاي مختلفي رو داره
تو يه بخشش مي خوام در يك تكست باكس كد عضويت يك مشترك را وارد كنم تا اطلاعات همون مشترك در بقيه تكست باكس ها نمايش داده بشه.
راهنمايي يا سورسي داريد بزاريد....
xxxxx_xxxxx
جمعه 08 خرداد 1388, 19:10 عصر
سلام،
تو رويداد Change تكست باكس يك search بزاريد تو بانكتون. البته سعي كنيد تا جايي كه امكان داره بهينه باشه. مي دونيد كه چون با هر كاراكتري كه تو تكست تايپ ميشه يا كم ميشه عمل جستجو انجام ميشه. پس تا جايي كه مي تونيد بهينش كنيد. مثلاً اگر حداقل طول كد عضويت 5 كاراكتر هست نيازي نيست عمل جستجو براي Len هاي كمتر از 5 انجام بشه. و يا چيزهاي ديگه...
Rezapcclick
جمعه 08 خرداد 1388, 20:21 عصر
اگه سورسش رو بگذاريد واسم
ممنون مي شم.
:لبخندساده:
HjSoft
یک شنبه 10 خرداد 1388, 16:16 عصر
این یک برنامه کتابخانه است که برای یک مدرسه نوشتم ، که به محض وارد کردن اسم یا کد عضویت کتاب عضو رو نشون می ده و می تونه با 3 کلیک کتاب رو تحویل بگیره !
Private Sub txt_id_Change()
book_st.Enabled = False
t_b_cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\db.hjdb;Persist Security Info=False;Jet OLEDB:Database Password=h"
t_b_rst.Open "select * from users", t_b_cnn, adOpenKeyset, adLockOptimistic, adCmdText
If txt_id <> "" Then
On Error Resume Next
t_b_rst.Filter = "id='" & txt_id.Text & "'"
If t_b_rst.RecordCount <> 0 Then
txt_name.Text = t_b_rst.Fields("name")
btn_chk_user.Enabled = True
txt_od_sus.Text = t_b_rst.Fields("acc")
Else
txt_name.Text = ""
btn_chk_user.Enabled = False
txt_od_sus.Text = ""
End If
End If
If txt_id = "" Then
txt_name.Text = ""
btn_chk_user.Enabled = False
txt_od_sus.Text = ""
End If
t_b_cnn.Close
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.