View previous topic :: View next topic |
Author |
Message |
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Sat Oct 28, 2006 6:49 pm Post subject: لطفا كمك كنيد |
|
|
1- چیکار کنم که برنامه که باز میشه صفحه کلید خود بخود فارسی بشه ؟
2- دیتابیس من از 24 شروع شده . هر کاری می کنم که از یک بشه نمی شه . چرا ؟
3- چرا وقتی یه فرم رو (مانند فرمهای لوگین) از یک پروژه دیگه وارد پروژه خودم می کنم پروژه من دچار مشکل میشه ؟ |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Sat Oct 28, 2006 10:34 pm Post subject: |
|
|
1) این به طور موقت کارت رو راه می اندازه
"%+" SendKeys
با این دستور اگه صفحه کلید فارسی باشه اینگلیسی می شه و بر عکس
2) یعنی چی دیتابیست از 24 شروع شده ؟؟!!
3) به خیلی چیزها بستگی داره
طریقه وصل شدن به دیتابیس و ...
با کدوم فرم مشکل داری و ارورت رو بگو |
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Sun Oct 29, 2006 1:33 pm Post subject: توضيح |
|
|
بايد بگم مشكل فارسي من حل شد
ولي در مورد بقيه سوالات بايد بگم كه :
2- منظورم از شماره ديتابيس همون اتونامبر هستش كه از 29 شروع شده . چيكار كنم كه از يك شروع بشه ؟ آيا بايد از اول يه ديتا بيس درست كنم ؟
3- ببينيد من يه پروژه آرشيو سي دي دارم و يه پروژه لوگين . كه كار هر دو تموم شده است و هردو به صورت جداگانه به خوبي كار مي كنند . ولي وقتي مي خواهم اين دو را با هم تركيب كنم مثلا يا پروژه لوگين را به پروژه آرشيو و يا پروژه آرشيو را به پروژه لوگين اضافه كنم تا كاربر براي ورود به پروژه آرشيو حتما پسورد بده ديگه كار نمي كنه . البته من يه تازه وارد تازه واردم . اين پروژه رو هم از روي پروژه هاي پيش ساخته درست كردم . ضمنا اگر بخواهيد مي توانم هر دو را آپلود كنم تا مشكل را از نزديك ببينيد . ولي فعلا مشكل را برايتان توضيح مي دهم . كه اگر اين مشكل حل بشه ديگه كار تمومه .
مشكل اضافه كردن لوگين به آرشيو :
وقتي من لوگين (فرم و ماژول) رو به آرشيو اضافه مي كنم و بعد از اجرا بر روي باتن لوگين كليك مي كنم اين ارور رو ميده :
Private Sub cmdLogin_Click()
a = App.Path & "\K2.gtx"
b = GetPasswordFromFile(a)
If txtPass.Text <> b Then
txtPass.Text = vbNullString
MsgBox "رمز عبور صحيح نمي باشد" & vbCrLf & "لطفا يك بار ديگر رمز صحيح را وارد نماييد", vbCritical + vbOKOnly, "خطا"
Else
Unload Me
frmMain.Show
End If
End Sub
ولي وقتي آرشيو رو به لوگين اضافه مي كنم اين ارور رو ميده .
اولا اينكه كد هاي درون ماژول مربوط به آرشيو كه
Public b As ADODB.Recordset
Public a As ADODB.Connection
مي باشد خود به خود پاك ميشه و وقتي هم كه بصورت دستي اون رو وارد مي كنم ارور ميده .
ارور اون اينه :
Private Sub Form_Load()
LoadKeyboardLayout "00000429", 1
Set a = New ADODB.Connection
a.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\bank.mdb"
a.Open
Set b = New ADODB.Recordset
b.Open "film", a, adOpenKeyset, adLockPessimistic, adCmdTable
Set Text1.DataSource = b
Text1.DataField = "ÔãÇÑå"
Set Text2.DataSource = b
Text2.DataField = "ãæÖæÚ"
Set Text3.DataSource = b
Text3.DataField = "ßÏ"
Set Text11.DataSource = b
Text11.DataField = "ßÇäæä"
Set Text4.DataSource = b
Text4.DataField = "ÊÇÑíÎ"
Set Text6.DataSource = b
Text6.DataField = "äæÚ"
Set Text8.DataSource = b
Text8.DataField = "ÝÑãÊ"
Set Text9.DataSource = b
Text9.DataField = "ÊÚÏÇÏ"
Set Text10.DataSource = b
Text10.DataField = "ÊæÖíÍÇÊ"
'Çí ÌäÊ
'dj = App.Path & "\merlin.acs"
Call asa.Characters.Load("Merlin", bj & "Merlin.acs")
'-----------------------------------------------------
End Sub
كمك كنيد تا مشكلم حل بشه .
ممنون |
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Mon Oct 30, 2006 6:37 pm Post subject: |
|
|
بابا يعني هيچ كس نيست كه جواب ما رو بده ؟ |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Mon Oct 30, 2006 8:43 pm Post subject: |
|
|
لطفا یکجای دیگه آپلود کنید پیغام
| The Requested Web Page was Not Found |
می ده
در مورد سوال دوم :
2- منظورم از شماره ديتابيس همون اتونامبر هستش كه از 29 شروع شده . چيكار كنم كه از يك شروع بشه ؟ آيا بايد از اول يه ديتا بيس درست كنم ؟
متاسفانه حق با شماست
باید آن فیلد اتونامبر را از جدول پاک کنید و دوباره بسازید
Last edited by arash on Mon Oct 30, 2006 9:28 pm; edited 2 times in total |
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Mon Oct 30, 2006 8:49 pm Post subject: |
|
|
درست كردم يه بار ديگه آپلود كن . |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Mon Oct 30, 2006 9:30 pm Post subject: |
|
|
اینقدر مشکل ساده هستش که شاید خندت بگیره
متغییر ها رو هم نام گذاشتی
متغییر a و b دو بار تعریف شده اند
یکبار از نوع رکورد ست و یک بار از نوع رشته
بهتره دفعه بعد از استاندارهای تعریف متغییر استفاده کنی تا به این مشکلات دچار نشی
Last edited by arash on Mon Oct 30, 2006 10:27 pm; edited 1 time in total |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Tue Oct 31, 2006 10:19 am Post subject: |
|
|
واقعا ازت ممنونم . |
|
Back to top |
|
|
ahriman مهمون يكي دو روزه
Joined: 25 Oct 2006 Posts: 37
|
Posted: Tue Oct 31, 2006 10:24 am Post subject: |
|
|
راستي منظورت در مورد استاندارد هاي تعريف متغير چيه ؟
ضمنا نظرت رو ميشه راجع به اون برنامه بگي ؟ |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Wed Nov 01, 2006 8:42 pm Post subject: |
|
|
از این می تونی استفاده کنی
http://d.1asphost.com/amoradabadi/vb6/vb6.pdf
پروژت هم خوبه البته تقریبا
بعضی جاهاش هنوز کار داره ولی بعضی از چیزاش خیلی قشنگ بود
برای هر متغییر اسم مرتبط بگزار مثلا برای یک متغییر که به صورت موقت ازش استفاده می کنی اسم Temp رو انتخاب کن یا اگه می خوایی تعداد دانش آموز یک کلاس رو بشمری اسم StuNumber یا هر چیز با معنی دیگه انتخاب کن
به نظر یکم کارت سخت تر می شه اما هم فهم کد برای خودت راحت تر می شه هم برای دیگران
روش تعریف متغییر با استاندارد مجارستانی می گه که اول هر متغییر سه حرف یا چهار حرف انتخاب کنی . با این کار باعث می شی که هر کس بدونه این متغییر که می خوای استفاده کنی از چه نوعی هستش .مثلا اسم متغییرت رو بزار intTemp
این مشخص می کنه متغییرت از نوع اعداد صحیح هستش و همچنین برای نگه داری یک مقدار موقت به کار گرفته می شه
نکته :
برای اینکه دستور مورد نیازت یا یک تابع رو بخوایی بنویسی و ندونی که اون چیه یا اینکه بخوایی با نوشتن اول یک متغییر ( برای راحتی کار ) بقیه اسم اون رو خود برنامه بنویسه از کلید های ترکیبی Ctrl+Space استفاده کن . در صورتی از روش مجارستانی استفاده کنی با زدن int و سپس فشار دادن کلید های ترکیبی Ctrl+Space لیست متغییر هایی از نوع Integer که خودت معرفی کردی می یاد
و در نهایت استفاده از روش مجارستانی باعث راحت تر کردن و همین طور قابل فهم تر کردن کدها می شود
چنتا از انواع معروف به همراه کد مجارستانیشون
|
Dim dbl As Double
Dim str As String
Dim int As Integer
Dim lng As Long
Dim chk As CheckBox
Dim lst As ListBox
Dim cbo As ComboBox
Dim sng As Single
Dim txt As TextBox
Dim lbl As Label
Dim btn As Button
|
البته یادت باشه اینا رو به عنوان پیشوند استفاده کنی . یعنی مثلا بنویسی intTemp یا strTemp یا مثلا بنویسی txtInpute |
|
Back to top |
|
|
|