كد عضويت و نمايش اطلاعات در كليه تكست ها

[Rezapcclick]

سلام سلام سلام
من دارم يه برنامه اي مي نويسم و بخش هاي مختلفي رو داره
تو يه بخشش مي خوام در يك تكست باكس كد عضويت يك مشترك را وارد كنم تا اطلاعات همون مشترك در بقيه تكست باكس ها نمايش داده بشه.
راهنمايي يا سورسي داريد بزاريد....

[xxxxx_xxxxx]

سلام،
تو رويداد Change تكست باكس يك search بزاريد تو بانكتون. البته سعي كنيد تا جايي كه امكان داره بهينه باشه. مي دونيد كه چون با هر كاراكتري كه تو تكست تايپ ميشه يا كم ميشه عمل جستجو انجام ميشه. پس تا جايي كه مي تونيد بهينش كنيد. مثلاً اگر حداقل طول كد عضويت 5 كاراكتر هست نيازي نيست عمل جستجو براي Len هاي كمتر از 5 انجام بشه. و يا چيزهاي ديگه...

[Rezapcclick]

اگه سورسش رو بگذاريد واسم
ممنون مي شم.
:لبخندساده:

[HjSoft]

این یک برنامه کتابخانه است که برای یک مدرسه نوشتم ، که به محض وارد کردن اسم یا کد عضویت کتاب عضو رو نشون می ده و می تونه با 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