ساخت demo برای برنامه

[mohammad_king62]

سلام به دوستان عزیزم
من یک برنامه نوشتم و می خواهم demo برنامه رو به صورت آزمایشی در اختیار
سفارش دهنده بگذارم .اگر ممکنه منو راهنمایی کنید

[viper2009]

سلام به دوستان عزیزم
من یک برنامه نوشتم و می خواهم demo برنامه رو به صورت آزمایشی در اختیار
سفارش دهنده بگذارم .اگر ممکنه منو راهنمایی کنید

می تونی با برنامه InstalSheild کار کنی که هنوز خودم خوب یاد نگرفتم.

[saadi2]

دوست عزیز اگر برنامه بانک اطلاعاتیه
میتونی در دکمه ی insert update ,delete کدی بنویسی که اگه تعداد رکوردها از فلان عدد بالاتر رفت یک مسیج باکس به کاربر بده که این نمونهی برنامه هست.

[mohammad_king62]

دوست عزیز saadi2 سلام
از راهنماییت ممنونم اگر امکانش هست این کدی که اشاره کردی رو بگذاری مثلا تا 10 رکورد بگیره و بعد پیغام بده .ممنون می شم

[viper2009]

دوست عزیز saadi2 سلام
از راهنماییت ممنونم اگر امکانش هست این کدی که اشاره کردی رو بگذاری مثلا تا 10 رکورد بگیره و بعد پیغام بده .ممنون می شم

فکر کنم اشتباه تشکر کردی.

[saadi2]

Com = New OleDb.OleDbCommand
Com.CommandText = "select count(*) from table1"
Dim i As Integer = CType(Com.ExecuteScalar, Integer)
If i > 10 Then
MsgBox("this program is demo call 091200323")
Exit Sub
Else
Com = New OleDb.OleDbCommand
Com.CommandText = "insert into table1............."
End If

[mohammad_king62]

هم ازشما دوست گرامی viper2009 وهم از saadi2 تشکر می کنم بابت پاسخگویی به سوال من
خیلی کمکم کرد .

[mohammad_king62]

یک سوال الان برام پیش اومد به نظر شما اگر بخوام داخل برنامم یک شماره سریال بگذارم که کاربر
با دادن اون شماره محدودیت درج رکورد براش برداشته بشه چه کار کنم .یعنی برنامه از حالت demo در بیاد . ممنون می شم اگر راهنماییم کنید .

[saadi2]

ابتدا یک فرم در برنامه ایجاد کن که کاربر بتونه از طریق یک تکست باکس شماره سریال رو در یک فیلد به نام serial در بانک اطلاعاتی ذخیره کنه.

بعد کد بالا رو به این شکل تغییر بده:



Com = New OleDb.OleDbCommand
Com.CommandText = "select serial from table1"
Dim serial As String = CType(Com.ExecuteScalar, String)
If serial = "1098756898845" Then
Com = New OleDb.OleDbCommand
Com.CommandText = "insert into table1............."
Else
Com = New OleDb.OleDbCommand
Com.CommandText = "select count(*) from table1"
Dim i As Integer = CType(Com.ExecuteScalar, Integer)
If i > 10 Then
MsgBox("this program is demo call 091200323")
Exit Sub()
End If
End If

[ali.hojjati]

بهتر اینه که سریال رو تو رجیستری ذخیره کنید تا خود بانک. چون بانک به صورت خیلی ساده ای در اختیار همه قرار می گیره و سریال به سادگی لو می ره که این دیگه فایده ای نداره.

[saadi2]

حق با شماست ولی میتونه یه پسورد برای بانک بزاره
در ضمن شما کد ذخیره در رجیستری رو اگه دارید برای ایشون قرار بدید

[mlf_mlv]

اگر می خواید از رجیستری استفاده کنید از اسمهای اجغ وجغ(!)برای پوشه ای که در آن اطلاعات رو قرار میدید استفاده کنید چون اگه کاربر یکم به مغزش فشار بیاره با سرچ تو رجیستری می تونه تنظیماتتون رو پیدا کنه و ...

[alimanam]

با سلام به تمامی دوستان

دوست عزیز شما راههای زیادی برای این کار دارین . در هر کجا ( Registry - درون بانک - درون یک فایل یا ..... ) باید به یک نکته اساسی توجه کنی و اون Encrypt کردن سریال است یعنی قبل از ذخیره کردن سریال اون رو رمزنگاری کنی تا به آسونی نشه رمز رو کشف کنه . هرچه الگوریتم رمزنگاری پیچیده تره کشف کردنش سختر و دشوارتره یا شایدم نشه کشفش کرد . حداقل برای % 99.99 کاربران ! ( که درصد خیلی خوبی هستش )

یا علی

[mohammad_king62]

با تشکر از همه دوستان که راهنمایی کردن
اگر امکان داره روش وکد ذخیره سریال داخل رجیستری رو شرح بدید

[smgraphic]

سلام به اساتید محترم.
من با این کد اطلاعاتم رو تو رجیستری میریزم

SaveSetting("A", "B", "password", "")

و دریافت اطلاعات هم :


GetSetting(("A", "B", "password")

حرف A و B و کلمه Password مسیرمون توی رجستریه و میتونه هر چیزه دیگه ای هم باشه.:لبخندساده:

[mohammad_king62]

دوست عزیز smgraphic از راهنماییت ممنونم