FAPI یا API فارسی

[ajlajlajl]

با سلام خدمت تمامي اهالي ايرانويج.
مخصوصا آقا پدرام و آقا مهدي كه الان براشون يه متن بلند بالا آماده كردم.
آقاي 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 است ديگه نيازي به وارد كردنش نيست).من توي بانامه هام هميشه از اين كد استفاده ميكنم.

خوب. ببخشيد سرتون رو درد آوردم.
منتظر نظراتتون هستم.
فعلا خداحافظ.

[Pedram_HookEx]

منم سلام

مرسی علی خان نکته های خوبی بود در غالب جدید برنامه اکثر اونا رو وارد کردم

راستش من یکم الگوریتم Database برنامه رو عوض کردم
توش قسمت های اضافی دیدم البته نگران برنامه نباشید برنامه آقا مهدی رو تقریبا کاملتر کردم و توضیحات و قسمت های تغییر یافته رو هم مشخص کردم و قسمت های مورد نیاز رو بازنویسی کردم


راستش آقا مهدی بعضی جاها خیلی کار خودتو سخت کرده بودی و Data Object های اضافی زیادی توی پروژه بود که همه اونا حذف شد

و در قسمت های دیگر نکته های علی آقا رو در برنامه دخیل کردم

اما توضیحات و تغییرات اصلی اول از همه Database رو به Access 2000 تغییر دادم (قبلی Acceess 95 بود)
فقط نکته ای که هست اینه که دیتابیس قبلی که درست کرده بودم بخاطر اینکه دارای Primary Key بود باز نمیشد اما این یکی کاملا سازگار هست
بعد در تمام جداول فیلد ID اضافه بود(و میتونست ایجاد باگ کنه) و تقریبا میتونست باعث مشکل بشه (فک کنم آقا مهدی هم توی برنامه نویسیش اینو فهمیده بود) خوب بابت این اشکال من شرمنده


اما در جداولی که به یک فیلد مثل ID نیاز داشتیم مثل (جدول Funcs از فیلد FuncID استفاده شد)(جدول Groups از فیلد GroupID)(در جدول Lang از فیلد LangID)(و در جدول LBData به ID شمارنده نیاز نداشتیم چون جستجو بر اساس LangID و FuncID صورت میگیرد و SQL در این قسمت کمک میکند)(جدول Example نیز مثل LBData هست چون اینجا هم با IncludedFunc سروکار داریم)
در کل پیچیدگیهای قبلی رو کمی کمتر کردم این بررسی بشه
اینم نسخه جدید برنامه با توجه به نسخه قبلی

لینک دانلود

منم منتظر نظرات هستم

[Di Di]

آقا پدرام دست شما درد نکنه، اون جاهایی که گفتی من کار خودمو سخت کرده بودم به این خاطر بود که راهش رو بلد نبودم و الان از شما یاد گرفتم که واقعا ممنونم. اما چند تا ایراد :
آقا این دیتابیس شما ورژن 2000 هست که وی بی به تنهایی ساپورت نمی کنه و در نتیجه من نتونستم بازش کنم!!! به قول علی آقا :" دوحالت بیشتر نداره ......." یا به کاربرا بگید لطفا قبل از نصب برنامه از نصب بودن اکسس 2000 اطمینان حاصل کنید وگرنه شرمنده اخلاقتونیم!!! یا اینکه بیا از همون دیتابیس قبلیه استفاده کن تا همه بتونن استفاده کنن.
در فرم 3---> کامندبوتون 5----> که برای اضافه کردن نام گروه ها هست یه اشتباه تایپی داری GID رو با GroupID اشتباه کردی.
روندی که من برای تولید Id های مختلف استفاده کردم رو به کل کنار گذاشتید و از روند ساده و نا دقیق ID+1 استفاده کردید. این بعدا ممکنه در هنگام سورت یا جستجو در دیتابیس شما رو با مشکلات زیادی رو به رو کنه ( البته شایدم من بلد نیستم!!) مثلا اعداد : " 1.5.13.23" و "0001.0005.0013.0023" رو در نظر بگیرید. گرچه این دو دسته به نظر شبیه به هم میان و ارزش عددی اونها با هم یکی هست ولی در هنگام سورت کردن یا جستجو کردن ممکنه با این مشکلات مواجه بشید:
سورت شده لیستهای بالا در ویندوز XP به این صورت هست : "1.13.23.5"و "0001.0005.0013.0023" امتحان کنید!
در هنگام جستجو هم فرق زیادی بین 0001 و 1 هست.
وجود دیتابیس در صفحه اول گرچه کاربرد عملی نداره ولی باعث بالا بردن اطمینان کار بر می شه چراکه با لود شدن صفحه اول حتما بقیه صفحه ها هم لود خواهند شد و اگر مشکلی وجود داشته باشه همون اول برنامه متوجه خواهیم شد و می شه یه کنترل خطا هم اونجا گذاشت تا همه چیز از اول درست بیاد بالا.
برای قرار دادن تاریخ خودکار از این کد استفاده کنید بهتره :
--------------------------------------------------------------------------------------------------

Public Function ConDate(miladydate As Date) As String
Mon = 0
Day2 = 0
Fyear = 0
DayOfYear = DatePart("y", miladydate)
EYear = DatePart("yyyy", miladydate)
DayOfYear = DayOfYear - 79
If DayOfYear > 0 Then
Fyear = EYear - 621
Else
Fyear = EYear - 622
End If
If DayOfYear <= 0 Then
DayOfYear = 286 + Abs(79 - Abs(DayOfYear))
End If
If DayOfYear >= 1 And DayOfYear <= 31 Then
Mon = 1
Day2 = DayOfYear
End If
If DayOfYear >= 31 + 1 And DayOfYear <= 31 + 31 Then
Mon = 2
Day2 = DayOfYear - 31
End If
If DayOfYear >= 31 + 31 + 1 And DayOfYear <= 31 + 31 + 31 Then
Mon = 3
Day2 = DayOfYear - (31 + 31)
End If
If DayOfYear >= 31 + 31 + 31 + 1 And DayOfYear <= 31 + 31 + 31 + 31 Then
Mon = 4
Day2 = DayOfYear - (31 + 31 + 31)
End If
If DayOfYear >= 31 + 31 + 31 + 31 + 1 And DayOfYear <= 31 + 31 + 31 + 31 + 31 Then
Mon = 5
Day2 = DayOfYear - (31 + 31 + 31 + 31)
End If
If DayOfYear >= 31 + 31 + 31 + 31 + 31 + 1 And DayOfYear <= 186 Then
Mon = 6
Day2 = DayOfYear - (31 + 31 + 31 + 31 + 31)
End If
If DayOfYear >= 186 + 1 And DayOfYear <= 186 + 30 Then
Mon = 7
Day2 = DayOfYear - 186
End If
If DayOfYear >= 186 + 30 + 1 And DayOfYear <= 186 + 30 + 30 Then
Mon = 8
Day2 = DayOfYear - (186 + 30)
End If
If DayOfYear >= 186 + 30 + 30 + 1 And DayOfYear <= 186 + 30 + 30 + 30 Then
Mon = 9
Day2 = DayOfYear - (186 + 30 + 30)
End If
If DayOfYear >= 186 + 30 + 30 + 30 + 1 And DayOfYear <= 186 + 30 + 30 + 30 + 30 Then
Mon = 10
Day2 = DayOfYear - (186 + 30 + 30 + 30)
End If
If DayOfYear >= 186 + 30 + 30 + 30 + 30 + 1 And DayOfYear <= 186 + 30 + 30 + 30 + 30 + 30 Then
Mon = 11
Day2 = DayOfYear - (186 + 30 + 30 + 30 + 30)
End If
If DayOfYear >= 186 + 30 + 30 + 30 + 30 + 30 + 1 Then
Mon = 12
Day2 = DayOfYear - (186 + 30 + 30 + 30 + 30 + 30)
End If
shamsi2 = Fyear & "/" & Mon & "/" & Day2
ConDate = shamsi2
End Function
-------------------------------------------------------------------------------
در آخر هم یادمه یه بار گفتی حدود 100 تا از توابع آماده هستند ولی رو یه دیتابیس دیگه که می خواستی اینها رو به هم بچسبونی هر وقت خواستی بگو.....

[ajlajlajl]

با سلام.
دست همهتون دردنكنه.
برنامه رو گرفتم ولي هنوز نديدم.
راستي آقا مهدي ميبخشي اگه خنگ بازي در ميارم.
من قضيه مرتب كردن عدد هارو نفهميدم.اصلا.
در ضمن از بابت اون كد هم دستتون درد نكنه.راضي به زحمت نبوديم.با همون تاريخ انگليسي هم ميتونستيم ثبت كنيم.
آقا خشايار هم كه حالا ديگه بايد كنكورش تموم شده باشه.اميد وارم موفق بشه.
من برم اين برنامه رو ببينم.چند تا فصل جديد هري پاتر هم اومده بخونم. بعد دو باره يه سرس ميزنم.فعلا خداحافظ.

[Pedram_HookEx]

سلام
ممنون مهدی خان

بله ظاهرآ من هر چقدر با این دیتابیس ور میرم که شما هم بتوننین این مدلیش رو اجرا کنیم تا همین الان فک میکردم که کار میکنه آخه چرا
مهدی خان من نمیتونم عوضش کنم بازم باید زحمت درست کردنشو بکشی اگه بتونی کونورتش کنی که عالی میشه

فقط دوتا نکته : فقط در تنضیمات DataObject هات Connect رو به فرمت Access تغییر بده
بعد هم اگه اسم DataBase رو عوض کردی در تابع DBPath هم اسمشو عوض کن

چشم(حرف حق جواب نداره) روش ID گذاری که خودت گذاشته بودی رو گذاشتم سره جاش(0001 0002 ......)

این تابعی هم که گذاشتی خیلی جالبه این هم اضافه شد

در جواب مطلب آخر هم فک میکنم همون دستور شرطی که برای وجود Database گذاشتی کافی باشه البته من از Database هیچی نمیدونم چون دیدم به هیچ جا وصل نیستن پاکشون کردم

اما بقیه کارایی که علی آقا گفته بود:

ردیف خالی که حل شده بود
همه فیلدها ریست میشن
زمان هم که مهدی خان زحمتشو کشید
; هم که مشکلش حل شد
قسمت انتقال به صورت Automatic به صفحههای دیگه برای ورود اطلاعات هم اضافه شد
یه مشکل اینکه نمیتونم از ورود تکراری تابع جلوگیری کنم
/////////////////////////////////////////////////////////////////
لینک دانلود جدید
/////////////////////////////////////////////////////////////////

[arian_vc]

سلام
ببخشید من از قافله عقب موندم!!!!
حالا باید چی کار کنم؟؟؟

دیتابیس خوب نیست؟؟ چرا؟؟؟
درسته یه کم پیچیده شده اما خوب ساخت یافته تره اینطور نیست؟!
والا ببخشید ولی هر چی فکر میکنم به نظرم مال من انعطاف پذیر تره!
(طبیعیه که اینجوری فکر کنم!!)
مال منو نگا کردین؟؟؟

[ajlajlajl]

بازم سلام.
آقاي arian_vc مسئله اين نيست.
اولا ديتابيست دير رسيد.
دوما يه چيزايي زياد داره.
سوما يه چيزايي كم داره.
چهارما در بعضي موارد اون انعطافپذيري كه ميخواستيم رو نداره.
البته مشكل از شما نيست.
اگه بحث هاي اين جا رو ميخوندي يا همون اول ديتابيست رو گذاشته بودي و بعد سرش بحث ميكرديم ميشد يه كاري كرد.ولي حالا ديگه دير شده.
ولي اشكال نداره انشاءالله بعدا جبران ميكني.

در مورد برنامه.من به خاطر همون قضيه ديتابيس نتونستم اجراش كنم. بازم آقا مهدي بايد زحمت بكشه درستش كنه.منتظريم آقامهدي.

[Di Di]

من هر کاری کردم نتونستم این برنامه جدید رو ازلینکی که آقا پدرام داده بود دانلودش کنم! تا اون لینک درست بشه می تونید از همون دیتابیسی که من همراه برنامه گذاشته بودم استفاده کنید و هیچ مشکلی پیش نمیاد فقط فیلد ID اون اضافه هست. تا من یه فکری به حال ویرایش و نمایش و ..... بکنم.
در ضمن به نظرم این برنامه همین الان آماده است و می شه ازش استفاده کرد . البته خیلی بلاها می شه سرش آورد ولی کار اضافه روش انجام دادن باعث اتلاف وقت می شه. بهتره با همین شروع به ورود اططلاعات کنیم .....

------------------------------------------------------------------------------------

فقط هر کاری می کنید یه کم سریعتر چون این برنامه حالا حالا ها کار داره و اگه بخوایم سر هر چیزی ایــــــــــــــــــــــــــــــــــــــــــــــــــن همه وقت بزاریم عمرا نشه تمومش کرد!!

[Pedram_HookEx]

لینک دانلود 1 غیر مستقیم برنامه Update2


لینک دانلود 2لینک قبلی هم الان کار میکنه(درست Upload نشده بود) برنامه Update2


اینم 150 رکورد از پروژه قبلی که مروبوط هست به ویژوال بیسیک اما جدول و فیلدها کاملا نامشان متفاوت هست در واقع اینو از همون پروژ قبلی گذاشتم اینجا پسورد:rsgfapi
لینک دانلود 150 رکوردمستقیم
لینک دانلود 150 رکوردغیر مستقیم

[Pedram_HookEx]

حالا من یه سوال دارم ورژن قبلی برنامه که تو سایت درست شد داره با Access 2003 کار میکنه چطور اون کار میکنه ولی مال ما نه

[hamed_Arfaee]

مثل اينكه اتچها پاك شدن
http://basic.persiangig.com/Archive/ADO.zip