Printable View
ممنون سولجر جان از نظرتون.
ولي اين آموزشها رو براي تشكر نميزارم.
براي اينه كه اگه كسي توي نت دنبال جواب ميگشت بتونه يك جوابي پيدا كنه و شايدم دعام كرد و شايدم نه.
مهم اينه كه بشه به چند نفر كه نياز دارن چيزاي مفيد ياد داد.
من هم همين جا از تمام زحماتت تشكر ميكنم. چون ديدم كه چقدر پيگير هستي.
هميشه موفق باشي.
برنامه رو ادامه ميديم.
در اين قسمت ميخوام يك راه سختتر براي ورود و تغيير اطلاعات را پيگيري كنيم.
چون راه هاي ساده زيادي وجود داره ولي من ترجيه ميدم راه سخت رو بگم كه بعدا به دردتون بخوره.
بر روي فرم اصلي برنامه چندتا دكمه قرار دهيد كه عناوين زير ايجاد كنيد :
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;
موفق باشید.
اگه سوالی داشتین همین جا بپرسین.