Printable View
به پيشنهاد يكي از دوستان براي اينكه مسئله ديتابيس بيشتر جا بيفته تصميم گرفتم كه آموزش يك دفتر تلفن رو شروع كنم و به صورت پله پله با هم پيش ميريم.
در ضمن بايد اشاره كنم يك سري مباحث خيلي مقدماتي رو ديگه توضيح نميدم و براي اطلاعات ميتونين به لينك امضاي من مراجعه كنيد.
ضمنا اين آموزش رو كم كم شروع ميكنم و لطف كننيد و نظر بدين كه موافق اين آموزش هستيد يا اينكه اين پست رو حذف كنيم !!
فكر مي كنم آموزش دفتر تلفن خيلي پيش پا افتاده هست. ولي براي دوستاني كه هنوز در كار با ديتابيس ها مشكل دارن كار كردن با اين طور نرم افزار ها و آزمون و خطاي اون جالب و كاربردي هست. من موافقم!
سلام
مرد مباح عزیز من هم موافقم
فقط اگه ممکنه از bde استفاده نکن
پس اول از BDE شروع ميكنم و بعد يك سري توضيحات هم درباره Access ميدم.
براي شروع از خود Databe Desktop كه با خود دلفي ريخته ميشه شروع ميكنم.
داخل اين برنامه شويد و File / New / Table رو انتخاب كنيد.
ليستي از انواع ديتابيس وجود داره كه از بين اونها Paradox 7 رو انتخاب كنيد.
صفحه اي ظاهر ميشه كه بايد نام فيلدها رو معرفي كنيد.
فيلد اول رو Name و جنس اون رو S به معنا String تعريف نماييد.
فيلد دوم رو Tel و جنس اون رو هم S بگذاريد . توجه نماييد كه تلفن از جنس N به معناي عدد نميباشد. چون محاسباتي رو آن صورت نميگيرد.
سپس دكمه Save As را زده و فايل مورد نظر خود را به نام Tel.db ذخيره نماييد.
به اين ترتيب شما يك فايل بانك اطلاعاتي پارادوكس ايجاد نموديد.
در مرحله قبلي ديتابيس شما ساخته شد.
اكنون به سراغ دلفي ميرويم. در ابتداي امر يك بخش براي قرار گيري ديتابيس براي استفاده در برنامه طراحي ميكنيم.
به اين بخش Data Madule ميگويند و بايد از File -> New گزينه DataModule رو انتخاب كنيد. صفحه سفيدي شبيه به فرمهاي عادي ظاهر ميگردد. البته بزرگترين تفاوتي كه با فرم عادي دارد عدم امكان قرار دادن كامپوننتهاي نمايشي ميباشد.
حالا از بخش BDE كامپوننت Table و از تب Data Access كامپوننت DataSource رو روي فرم جديد قرار دهيد.
كل برنامه را ذخيره نمائيد و بعد هم بايد مشخصات داخلي اين ديتابيسها رو تنظيم نمائيد.
1. نام فرم Datamodule را به DM تغيير دهيد.
2. در بخشTable -> DatabaseName مقدار . (نقطه) را وارد كنيد.
3. ديتابيسي كه قبلا ايجاد كردين را كنار برنامه اصلي (كنار فايل .dpr) كپي كنيد.
4. مقدار Table -> TableName را با مقدار Tel.db پر كنيد.
5. از Datasource ->DataSet مقدار Table1 رو انتخاب نمائيد.
تغييرات را ذخيره نمائيد در اين شرايط بخش ديتابيس برنامه را ايجاد كرده ايد.
آقا چرا اینقدر دردسر میکشی برنامه را بذار تا دانلود کنیم
ممنون
براي من اين چيزي كه ميگي راحتتره.
ولي ديگه بهش نميشه گفت آموزش.
چون دوستاني كه هنوز از ديتابيس سر در نميارن از برنامه هم سر در نميارن.
ولي اگه بقيه دوستان هم با شما هم نظر هستن ، بگين تا برنامه رو بزارم.
منتظر نظر دوستان ميمونم.
سلام مباح جون
دیگه منو خسته کردی. تابستون ممکنه باتون همکاری نکنم(با تیم تچرا رو میگم)
برای آموزش هم تشکر. اما بی فایده هست. مطمئن باش.
این همه آموزش گذاشتم. یکی نگفت تشکر. حتی شما.
عیبی نداره. به دل نمیگیرم. باز هم تلاشم رو بیشتر میکنم.
بای
سلام
مرد مباح ، دوست عزيز از آموزشي كه گذاشتي خيلي ممنون
لطفا ادامه اون رو هم بذار . خيلي بدرد من ميخوره مخصوصا به قسمت جستجوي اين دفتر تلفن خيلي احتياج دارم
با تشكر
دوست عزيز حيف هست كه ناراحت بشي.نقل قول:
من به نوبه خودم ازت تشكر مي كنم.
البته موافقم كه زحمت زياد كشيدن و اينكه از آدم قدر داني نشه واقعا آدم رو نااميد مي كنه.
البته بگذريم كه انجمن دلفي از انجمن ها خلوت اين سايت هست و جز 10 -12 نفر كسي توش فعاليت نمي كنه.
ممنون سولجر جان از نظرتون.
ولي اين آموزشها رو براي تشكر نميزارم.
براي اينه كه اگه كسي توي نت دنبال جواب ميگشت بتونه يك جوابي پيدا كنه و شايدم دعام كرد و شايدم نه.
مهم اينه كه بشه به چند نفر كه نياز دارن چيزاي مفيد ياد داد.
من هم همين جا از تمام زحماتت تشكر ميكنم. چون ديدم كه چقدر پيگير هستي.
هميشه موفق باشي.
برنامه رو ادامه ميديم.
در اين قسمت ميخوام يك راه سختتر براي ورود و تغيير اطلاعات را پيگيري كنيم.
چون راه هاي ساده زيادي وجود داره ولي من ترجيه ميدم راه سخت رو بگم كه بعدا به دردتون بخوره.
بر روي فرم اصلي برنامه چندتا دكمه قرار دهيد كه عناوين زير ايجاد كنيد :
1."اضافه كردن"و 2."تغيير اطلاعات"و 3."حذف اطلاعات" و 4."جستجو بر حسب نام"و 5."جستجو بر حسب تلفن"
كدهاي هر يك را به ترتيب توضيح خواهم داد. نوع فرم و شكل آن را مطابق ميل خود انتخاب و مرتب نمائيد.
قبل از ورود اطلاعات و كارهاي شبيه به اين ، يك فرم اضافي ايجاد نمائيد و نام آن را Hlp بگذاريد و روي آن دو Edit و دو دكمه قرار دهيد.
يكي از دكمه ها را OK و ديگري را Cancel بگزاريد و روي دكمه OK دبل كليك كنيد. در بخش ONClick كد زير را وارد نمائيد.
البته بعدا به اين كد مقادير ديگري نيز اضافه ميشود و دليل اينكه شرط tag = 0 را متوجه خواهيد شد.کد:if hlp.tag = 0 then begin
dm.table.append;
dm.table.fieldvalues['Name'] := edit1.text;
dm.table.fieldvalues['Tel'] := edit2.text;
dm.table.post;
end;
روي رويداد OnShow فرم نيز موقتا كد زير را وارد نمائيد.
کد:if hlp.tag = 0 then begin
edit1.text := '';
edit2.text := '';
end;
با سلام خدمت مرد مباح
آقا مرسی این کار که داری مکنی کار تو÷یه تو اموزشت را بذار و کاری به تکراری و حرف دیگرون نداشته باش مرسی
ممنونم از شما mkh2006 به خاطر لطفتون.
حال به سراغ فرم اصلي رفته و روي دكمه 1 دبل كليك كنيد و كد زير را وارد نمائيد.
روي دكمه 2 دبل كليك كنيد و كدهاي زير را بنويسيد.کد:hlp.showmodal;
البته طبق اين كد نامهاي مشابه در نظر گرفته نميشوند و راه هايي براي رفع اين موضوع وجود داره.کد:var s : string;
begin
if InputQuery('اطلاعات,'لطفا نام مورد نظر را وارد نمائيد',S) then begin
dm.table.filter := 'name = '''+s+'*''';
dm.table.filtered := true;
if dm.table.eof then messagedlg('اين مورد پيدا نشد',mtinformation,[mbok],0)
else begin
hlp.tag := 1;
hlp.edit1.text := dm.table.fieldvalues['name'];
hlp.edit2.text := dm.table.fieldvalues['tel'];
end;
hlp.showmodal;
end;
end;
يكي از راه ها استفاده از يك فرم دست ساز است كه يك Edit و يك DBGrid خواهد داشت و جستجو در آن صورت ميگيرد كه اين مسئله در اين قسمت در نظر گرفته نشده است و شايد در اواخر اين برنامه به آن بپردازيم.
اين كدها يك مقدار را دريافت ميكنن (براي مثال "علي") و در ديتابيس به دنبال اولين موردي كه با اين موضوع هم خواني داشته باشد ميگردد. با اين تفاوت كه حتي تركيبات اين كلمه نيز در نظر گرفته ميشود ( براي مثال "عليرضا")
اين كار را علامت "*" كه در فرمان ----- قرار داده شده ، انجام ميدهد.
براي دكمه 3 هم تمام كدهاي بالا را تكرار نمائيد با اين تفاوت كه :
1. بجاي hlp.tag := 2 <-- hlp.tag := 1;
2. بجاي hlp.show <-- hlp.showmodal;
برنامه شما در حال حاضر شرايط خوبي دارد ولي بايد يك سري كد به آن اضافه شود تا كاملا درست عمل نمايد.
حالا دوباره به سراغ فرم HLP برويد و روي دكمه OK كد زير را اضافه نمائيد.
كدهاي بالا عمل تغييرات رو كامل ميكنن.کد:if hlp.tag = 1 then begin
dm.table.edit;
dm.table.fieldvalues['name'] := edit1.text;
dm.table.fieldvalues['Tel'] := edit2.text;
dm.table.post;
end;
حال براي اينكه بتونين دكمه سوم فرم اصلي يعني پاك كردن رو كامل نمائيد چند روش وجو دارد .
من روش زير را پيشنهاد ميكنم.
كدهاي زير را بعد از فرمان hlp.show اضافه نمائيد :
به اين ترتيب شما امكان پاك كردن يك مورد را نيز از دفت تلفن ايجاد نموديد.کد:if messagedlg('آيا ميخواهيد اين اطلاعات را پاك كنيد ؟',mtconfirmation,[mbyes,mbno],0)
= mryes then begin
hlp.close;
dm.table.delete;
end;
در بخش بعدي درباره جستجوها و ... صحبت ميكنيم.
سلام مباح جوننقل قول:
ای ول مرامت. خیلی باحالی.
خواهش میکنم. این مدت هم درس داشتم خیلی کمرنگ شدم.
یه هفته دیگه آزادم. دوباره شروع به آموزش گذاشتن میکنم.
راستی اگر میشه بعد از کامل شدن آموزش اون رو به صورت یک فایل Pdf
برای دوستان قرار بده که دسترسی بهش آسون تر بشه. آخه کسایی مثل
من دیل آپی هستند که نمی تونم صفحات زیادی رو بگیرم.
خداحافظ
به چشم .
اين كار رو هم انجام ميدم. موفق باشيد.
سلام من تازه عضو انجمن شدم مطالب شما خیلی جالب و مفید بود من دارم برنامه دفتر تلفن با پارادکس کار میکنم.1 سوال داشتم در عمل فیلتر کردن چطوری میشه از دو شرط استفاده کرد یعنی مثلااسمهایی را نمایش بده که فیلد اسم شرکت و نام بخش برابر چیزی باشه که کاربر میگه .
از راهنماییتون ممنون
ممنون از زحمات بی دریغ و لطفتون مباح جان . من این برنامه رو درخواست داده بودم . اگه میشه لطف کنید و هر چه زودتر ادامش رو بدین و به اتمام برسونید ، چون من به شدت پیگیرو مشتاقش هستم . راستش رو بخوای کمی هم عجله دارم . به هر حال ممنون میشم از لطفی که می کنید . مطمئن باشید دعای ما همیشه پشت شما خواهد بود . چون از صمیم قلب براتون آرزوی موفقیت می کنم .
باز هم ممنون و متشکر.
میریم به سراغ سرچ
معمولا برای سرچ از فرمان Locate استفاده میشود ولی در بعضی موارد که دفتر تلفن هم یکی از آنهاست به نظر من بهتر از فرمان Filter استفاده شود.
یک فرم جدیدبا نام Find ایجاد کنید و روی آن یک Edit و یک DBGride قرار دهید.
در رویداد OnChange کامپوننت Edit کدهای زیر را بنویسید :
حالا تغییرات زیر را بدهید تا برنامه کامل شود :کد:if find.tag = 0 then dm.table.filter := 'Name = '''+edit.text+'*'''
else dm.table.filter := Tel = '''+edit.text+'*'''
dm.table.filtered := true;
1. مقدار دیتاسورس DBGrid رو با دیتاسورستون که اول طراحی کردین یکی کنید.
2. بر روی دکمه 4 دبل کلیک کنید و کد زیر را بنویسید.
3. برای دکمه 5 کدهای فوق را عینا تکرار کنید با این تفاوت که tag := 1 باشد.کد:find.tag := 0;
find.showmodal;
موفق باشید.
اگه سوالی داشتین همین جا بپرسین.
شما هم كه ما رو كشتي با ديتا بيس ! چي هستش حالا ؟!!! ناراحت نشيا ؟!!!
جالب بود ...نقل قول:
چي هستش حالا ؟!!! ناراحت نشيا ؟!!!
مشهورترین موتور بانک اطلاعاتی که عوام هم هست ACCESS است و پسوند این بانک MDB است؛
بانک اطلاعاتی : شما باید اطلاعات خودتون رو که ممکن به نوعهای مختلفی باشه ذخیره کنید و براحتی و با سرعت بالا دوباره آنها را برای نمایش فراخوانی کنید که این عمل با یک موتور نصبتا خوب همانند Dbisam امکان پذیره ...
یا حق ...
ضمنا دوست عزیز.
من متوجه نشدم که شما سوالتون اینه که دیتابیس چیه یا اینکه با دیتابیس مشکل داری.
به هر حال دیتابیس یکی از مهمترین بخشهای هر برنامه کاربردی هست.
حتی بازیها و امثال این هم از دیتابیسهای مخصوص خودشون استفاده میکنن.
ان شاالله مشکلت با دیتابیس حل میشه.
موفق باشی.
ببخشید الان یعنی کار تمومه ؟ میشه تکمیلش کنید ؟
باز هم ممنون و متشکرم از لطفتون .
در سطح مقدماتی تموم شده .
هنوز خیلی چیزا میشه اضافه کرد.
اگه سوالی داشتین یا چیزی میخاستین اضافه کنین ـ همینجا پست بدین.
ممنون مرد مباح عزیز . راستش رو بخوای من از همون اول درگیر این بودم که وارد قسمت Databe Desktop شم . اما متاسفانه نمیشه . پیامی میاد که میگه : تو ویندور سرچ کن : dbd32.exe . که متاسفانه این فایل وجود نداره و من نمی تونم که اصلا وارد این قسمت شم . حالا ایجاد این قسمت حتما ضروریه ؟
این ورژن دلفی من 5 هست . با این ورژن کارم راه میفته ؟ حقیقتش چندین ساعت هم درگیر نصب دلفی 6 بودم که اونم در آخر نصب نشد . یک فایلی رو می خواست ( در ابتدای نصب ) که اون فایل هم وجود نداره و نصب نشد .
من اصلا نمی دونم برای نصب دلفی چرا اینقدر با مشکل مواجه میشم ؟ پارسال هم با نصب دلفی 7 مشکلات مشابهی داشتم که در آخر هم نصب نشد !
اقاي ديتا بيس اموزش ديتا بيس pdf رو براي upload مي زاري ممنون؟!
دوست عزیز.نقل قول:
من نمیدونم این مشکلاتت برای چی هست.
یا CD خرابه و یا ویندوزت.
چون من هیچ مشکلی با این ورژنها نداشتم و به راحتی کار میکنن.
هم 5 و هم 6 و هم 7 این Database Desktop رو دارن و میتونی این کاری که بهت گفتم رو باهاشون انجام بدی.
دوباره دلفی خودتو اینستال کن.
موفق باشی.
دو.ست عزیز.نقل قول:
به صورت PDF ندارم ولی توی لینک امصای من میتونی به جواب سوالات برسی.
من برنامه ها رو دنبال ميكنم لطفا قطع نكنيد ممنون:8:
بگین چی به نظرتون کم و کسر هست تا بگم.
مبحث بعدی لینک به Access هست.
به جز این موضوع اگه چیزی هست بگین که دیگه به اون قسمت بر نگردیم.
ممنون مرد مباح خیلی عالی است لطفا ادامه بده فقط یک تقاضا دارم واونم اینکه لطف کنی و در مورد دستوراتی که می نویسی یک کمی توضیح بدی که این دستورات چه کاری انجام می دن
دوست عزیز.
من توضیحات رو در بخش همه چیز درباره دیتابیسها دادم.
اینجا فقط یک نمونه عملی و کاربردیه که در واقع یتونه مشکلات احتمالی اضافی رو حل کنه.
پس ببخشید من نمی دونستم
خیلی ممنون از آموزشهایی که به این حقیر مبتدی دادید.نقل قول:
از آموزشتون سپاسگزارم
پس بقيه آموزش چي شد.
البته بنده از ورژن 2006 و 2007 كه استفاده كردم در قسمت Tools - database desktop را نداشتم.
چه كاري بايد انجام بدم.
و اينكه آيا راهي هست كه بشه با Accsess بتونم فايل ديتا بيس خودم را توليد كنم و به برنامه نسبت دهم.
همچنين اونطور كه شنيدم براي ارتباط با بانك اطلاعاتي بهترين گزينه ADO است ! آيا اين گزينه درست است؟
با تشكر از آموزشي كه گذاشتي.
ادامه آموزشها : ارتباط به كمك ADO
برنامه دقيقا مطابق توضيحاتي كه در بالا گفته شده ساخته ميشود.
ولي يك تفاوت وجود دارد. در ديتاماژول قبلا Table قرارداده بوديد.
در حالتي كه بخواهيد به ديتابيسي شبيه به اكسس كانكت بشيد ، از تب ADO ميتوانيد ADODataset و يا ADOTable رو انتخاب كنيد. ADOQuery براي حالتي كه از فراميت SQL استفاده ميكنيد كاربرد زيادي دارد.
بر روي هر كدوم از اين كامپوننتها كه برويد دو مشخصه زير را ميبينيد.
1. ConnectionString
2. CommandText
البته توسيه ميشود كه اگر بيش از 1-2 تا تيبل داريد از يك ADOConnection استفاده كنيد كه برنامه يك بار به بانك اطلاعاتي كانكت شود و كليه اطلاعات را در اختيار ساير ابزارهايADODataset,ADOTable,ADOQuery) ADO) قرار خواهد گرفت و در آن شرايط ميتوانيد بايد از خاصيت Connection اين كامپوننتها استفاده نمود
مقادير بسيار زياد و متغييري وجود دارد كه در شرايط مختلف به ConnectionString تخصيص داده ميشود. ولي در حالت ساده و براي ارتباط به فايل اكسس بايد مراحل زير را انجام دهيد.
به اين ترتيب شما به بانك متصل خواهيد شد و شما بايد تيبل مورد نظر خودتان را به كمك فرامين SQL انتخاب نماييد.کد:Press ... Btn in ConnectionString
Build
Microsoft Jet
Select File Name
OK
اگر هم بلد نيستيد فقط در بعضي مسائل كارتون خيلي سخت خواهد شد. ولي ميتوانيد از فرمان زير استفاده كنيد :
البته اگر از دكمه ... هم استفاده كنيد به راحتي ميتوانيد به همين نتيجه برسيد.کد:select * from YourTableName
موفق باشيد
متشكريم. جون من ادامه بده
راهي را آموزش دهيد كه بر اساس چند فيلد بتوانيم جستجو كنيم . مثلا هم بتوان با وارد كردن نام يا وارد كردن تلفن به ركورد مورد نظر برسيم.
گزينه showmodal ندارمنقل قول: