04-07-13, 12:13 PM
السلام عليكم ورحمة الله وبركاته
أساتذتي الفضلاء :
طلب مني بعض من لا أستطيع رد طلبه .. نسخة من برنامج عملته ... البرنامج يحتوي على قاعدة بيانات sql server وتقارير كريستال وملفات أخرى ..
ليس عندي مشكلة في استفادته من البرنامج أو الملفات ... إلا أن تقاريري وقاعدة بياناتي بها جهد وأفكار خاصة بي ... وما أخافه هو إعادة استخدامها في بريمج جديد مبني على هذه القاعدة ويحتوي هذه التقارير
سؤالي أساتذتي :
كيف يمكنني إعطائه طلبه من دون مجال للخوف
بصيغة أخرى : كيف أجعله لا يستطيع فتح قاعدة البيانات ورؤية أكوادها .. ولا يستطيع رؤية آلية تصميم التقارير ..
أريدها أن تعمل مع البرنامج فقط .. ولا يستطيع أن ينسبها لنفسه ...
هذا كود فتح التقارير الذي أستخدمه في حدث ضغط زر فتح التقرير
[HTML]con.Open()
Dim cmd As New SqlCommand("Select * from count_s", con)
Dim dt As New DataSet
Dim da = New SqlDataAdapter(cmd)
'dt.Clear()
da.Fill(dt, "count_s")
Dim rpt As New count_square
rpt.Load(Application.StartupPath & "\count_s.rpt")
rpt.SetDataSource(dt)
Dim newviewre As New count
newviewre.CrystalReportViewer1.ReportSource = rpt
newviewre.Text = " كشف "
newviewre.CrystalReportViewer1.Refresh()
newviewre.Show()
'dt.Clear()
con.Close()[/HTML]
جزاكم الله خيراً
أساتذتي الفضلاء :
طلب مني بعض من لا أستطيع رد طلبه .. نسخة من برنامج عملته ... البرنامج يحتوي على قاعدة بيانات sql server وتقارير كريستال وملفات أخرى ..
ليس عندي مشكلة في استفادته من البرنامج أو الملفات ... إلا أن تقاريري وقاعدة بياناتي بها جهد وأفكار خاصة بي ... وما أخافه هو إعادة استخدامها في بريمج جديد مبني على هذه القاعدة ويحتوي هذه التقارير
سؤالي أساتذتي :
كيف يمكنني إعطائه طلبه من دون مجال للخوف
بصيغة أخرى : كيف أجعله لا يستطيع فتح قاعدة البيانات ورؤية أكوادها .. ولا يستطيع رؤية آلية تصميم التقارير ..
أريدها أن تعمل مع البرنامج فقط .. ولا يستطيع أن ينسبها لنفسه ...
هذا كود فتح التقارير الذي أستخدمه في حدث ضغط زر فتح التقرير
[HTML]con.Open()
Dim cmd As New SqlCommand("Select * from count_s", con)
Dim dt As New DataSet
Dim da = New SqlDataAdapter(cmd)
'dt.Clear()
da.Fill(dt, "count_s")
Dim rpt As New count_square
rpt.Load(Application.StartupPath & "\count_s.rpt")
rpt.SetDataSource(dt)
Dim newviewre As New count
newviewre.CrystalReportViewer1.ReportSource = rpt
newviewre.Text = " كشف "
newviewre.CrystalReportViewer1.Refresh()
newviewre.Show()
'dt.Clear()
con.Close()[/HTML]
جزاكم الله خيراً