۰۴-مرداد-۱۳۸۶, ۲۰:۰۳:۵۰
با سلام خدمت تمامي اهالي ايرانويج.
مخصوصا آقا پدرام و آقا مهدي كه الان براشون يه متن بلند بالا آماده كردم.
آقاي arian_vc هم فكر كنم بايد از خير ديتابيسش بگذره.دستت درد نكنه ولي نوشدارو بعد از مرگ سهراب بود.اين پستايي كه نخوندي رو بخون.انشاءالله بعدا جبران ميكني.
خب اينم از نظر من در مورد برنامه:
1-مهدي آقا دستت درد نكنه واقعا سريع بود.
2- فكر كنم فرم ثبت گروه و فرم ثبت زبان كوچيكتر باشه بهتره
3- توي بعضي فرم ها ليست هايي هست كه آيتم ها رو از اونها به يه ليست ديگه اضافه ميكنيم. فكر كنم همه اونها يه رديف خالي بالاشون دارند.(چرا؟)
4- در بعضي فرم ها وقتي اطلاعات رو ثبت مي كنيم.بعضي از فيلد ها پاك نميشند.(از من ميشنوي يه بار unload بزن دوباره load كن).
5- در فرم ثبت تابع. تاريخ بايد وقتي فرم باز ميشه اتوماتيك نوشته بشه.
6- در فرم ثبت تابع. براي source يه خط كافيه
7- در فيلد توابع مرتبط آخر فيلد رو علامت ( , ) نمي گذاريد. پست 77 رو بخون.
8- يه جوري مشخص بشه كه كاربر آيا مي خواد وقتي اطلاعات رو ثبت كرد, اطلاعات LBData و مثالهاش هم همراهش(بعد از اون) ثبت كنه؟. دو تا تيك پايين پنجره يا دو پيغام.(فكر كنم تيك بهتر باشه)
9- در همون ليست هاي مورد 3.ميشه يه مورد رو چند بار اضافه كرد. البته در نهايت مشكلي بوجود نمياره. ولي در ظاهر جالب نيست.
10- البته اينو بعدا هم ميشه بهش اضافه كرد ولي گفتم كه گفته باشم. قسمت ويرايش هم ميخوايم.
10- روابط متقابل توابع. ميدونيد الان هر چي فكر ميكنم ميبينم اين روابط يه چيز كم داره.
"روابط متقابل". مثلا ما تابع X رو ثبت ميكنيم. بعد تابع Y رو ثبت ميكنيم. حالا تابع x رو به تابع Y مربوط ميكنيم. در اينجا با اينكه مطمئنا Y هم به x ربط داره ولي تاوقتي خودمون دوباره تابع X رو باز نكنيم و y رو بهش ربط نديم رابطه متقابل ايجاد نميشه.در ضمن وقتي ما داريم تابع x رو ثبت ميكنيم تابع y هنوز ثبت نشده بنابر اين همون اول هم نميتونيم اين رابطه رو برقرار كنيم. در نتيجه بايد به برنامه قطعه كدي اضافه بشه كه وقتي تابع X رو مرتبط تابع Y ميكنيم خود برنامه تابع Y رو هم به X مرتبط كنه.(اميدوارم بعد از اينهمه روضه منظورمو فهميده باشيد).
11- توي جدول Group يه GroupID و توي جدول Langs يه LangID هست.كار اين دوتاچيه؟ ماكه ID رو داريم.؟؟
12- روش آيدي جديد گرفتنت خوب نيست.ممكنه جدول قاطي بشه يا ترتيب ركورد ها به هم بخوره.در اين صورت كارت خراب ميشه.
كد زير رو نگاه كن:
---------------------------------------------------------------------------------------
Public Function Getid(tabl As String,Optional fid As String="ID") As Long
Dim nId
Load Me
Data1.RecordSource = tabl
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then Getid = 1: goto endf
Data1.Recordset.MoveLast
nId = Data1.Recordset.Fields(fid)
If IsNull(nId) Then nId = 0
Do
nId = nId + 1
Data1.Recordset.FindFirst (fid & "=" & nId)
Loop Until Data1.Recordset.NoMatch
Getid = nId
endf:
Unload Me
End Function
----------------------------------------------------------------------------
اين كد رو بگذار تو يه فرم يه data هم بنداز كنارش(تنظيم آدرس data پا خودت). بعد از هر فرمي كه كد جديد خواستي كافيه اين تابعو صدابزني(خودش لود ميكنه). پارامتر اول اسم جدوله پارامتر دوم اسم فيلدي آيدي(اگه اسم فيلد ID است ديگه نيازي به وارد كردنش نيست).من توي بانامه هام هميشه از اين كد استفاده ميكنم.
خوب. ببخشيد سرتون رو درد آوردم.
منتظر نظراتتون هستم.
فعلا خداحافظ.
مخصوصا آقا پدرام و آقا مهدي كه الان براشون يه متن بلند بالا آماده كردم.
آقاي arian_vc هم فكر كنم بايد از خير ديتابيسش بگذره.دستت درد نكنه ولي نوشدارو بعد از مرگ سهراب بود.اين پستايي كه نخوندي رو بخون.انشاءالله بعدا جبران ميكني.
خب اينم از نظر من در مورد برنامه:
1-مهدي آقا دستت درد نكنه واقعا سريع بود.
2- فكر كنم فرم ثبت گروه و فرم ثبت زبان كوچيكتر باشه بهتره
3- توي بعضي فرم ها ليست هايي هست كه آيتم ها رو از اونها به يه ليست ديگه اضافه ميكنيم. فكر كنم همه اونها يه رديف خالي بالاشون دارند.(چرا؟)
4- در بعضي فرم ها وقتي اطلاعات رو ثبت مي كنيم.بعضي از فيلد ها پاك نميشند.(از من ميشنوي يه بار unload بزن دوباره load كن).
5- در فرم ثبت تابع. تاريخ بايد وقتي فرم باز ميشه اتوماتيك نوشته بشه.
6- در فرم ثبت تابع. براي source يه خط كافيه
7- در فيلد توابع مرتبط آخر فيلد رو علامت ( , ) نمي گذاريد. پست 77 رو بخون.
8- يه جوري مشخص بشه كه كاربر آيا مي خواد وقتي اطلاعات رو ثبت كرد, اطلاعات LBData و مثالهاش هم همراهش(بعد از اون) ثبت كنه؟. دو تا تيك پايين پنجره يا دو پيغام.(فكر كنم تيك بهتر باشه)
9- در همون ليست هاي مورد 3.ميشه يه مورد رو چند بار اضافه كرد. البته در نهايت مشكلي بوجود نمياره. ولي در ظاهر جالب نيست.
10- البته اينو بعدا هم ميشه بهش اضافه كرد ولي گفتم كه گفته باشم. قسمت ويرايش هم ميخوايم.
10- روابط متقابل توابع. ميدونيد الان هر چي فكر ميكنم ميبينم اين روابط يه چيز كم داره.
"روابط متقابل". مثلا ما تابع X رو ثبت ميكنيم. بعد تابع Y رو ثبت ميكنيم. حالا تابع x رو به تابع Y مربوط ميكنيم. در اينجا با اينكه مطمئنا Y هم به x ربط داره ولي تاوقتي خودمون دوباره تابع X رو باز نكنيم و y رو بهش ربط نديم رابطه متقابل ايجاد نميشه.در ضمن وقتي ما داريم تابع x رو ثبت ميكنيم تابع y هنوز ثبت نشده بنابر اين همون اول هم نميتونيم اين رابطه رو برقرار كنيم. در نتيجه بايد به برنامه قطعه كدي اضافه بشه كه وقتي تابع X رو مرتبط تابع Y ميكنيم خود برنامه تابع Y رو هم به X مرتبط كنه.(اميدوارم بعد از اينهمه روضه منظورمو فهميده باشيد).
11- توي جدول Group يه GroupID و توي جدول Langs يه LangID هست.كار اين دوتاچيه؟ ماكه ID رو داريم.؟؟
12- روش آيدي جديد گرفتنت خوب نيست.ممكنه جدول قاطي بشه يا ترتيب ركورد ها به هم بخوره.در اين صورت كارت خراب ميشه.
كد زير رو نگاه كن:
---------------------------------------------------------------------------------------
Public Function Getid(tabl As String,Optional fid As String="ID") As Long
Dim nId
Load Me
Data1.RecordSource = tabl
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then Getid = 1: goto endf
Data1.Recordset.MoveLast
nId = Data1.Recordset.Fields(fid)
If IsNull(nId) Then nId = 0
Do
nId = nId + 1
Data1.Recordset.FindFirst (fid & "=" & nId)
Loop Until Data1.Recordset.NoMatch
Getid = nId
endf:
Unload Me
End Function
----------------------------------------------------------------------------
اين كد رو بگذار تو يه فرم يه data هم بنداز كنارش(تنظيم آدرس data پا خودت). بعد از هر فرمي كه كد جديد خواستي كافيه اين تابعو صدابزني(خودش لود ميكنه). پارامتر اول اسم جدوله پارامتر دوم اسم فيلدي آيدي(اگه اسم فيلد ID است ديگه نيازي به وارد كردنش نيست).من توي بانامه هام هميشه از اين كد استفاده ميكنم.
خوب. ببخشيد سرتون رو درد آوردم.
منتظر نظراتتون هستم.
فعلا خداحافظ.