Printable View
دوستان عزیز من تازه کارم ولی به برنامه نویسی خیلی علاقه دارم البته نه تازه کار تازه کار
در مورد چندتا برنامه لطف کنید منو راهنمایی کنید
اولیش برنامه ی اعلام سررسید چک
به عنوان اولین سوال :
من در کل با تاریخ شمسی مشکل دارم چطوری میتونم اطلاعات یک چک رو با تاریخ شمسی ذخیره کنم در ضمن من برای شروع از پارادوکس استفاده میکنم
لینکهای امضای من میتونه کمکتون کنه.
برای تاریخ شمسی نیز یک سرچ بکنین. خیلی راحت کلی امکانات معرفی شده.
موفق باشی.
سلام دوست عزیز.
برای تاریخ شمسی چند راه وجود دارد.
1) استفاده از کامپوننت های تاریخ شمسی که لینک دانلود آن را می توانید در صفحه ی اول تاپیک ها پیدا کنید.
2) استفاده از تابع هایی که خودتان باید آن را بنویسید تا بتوانید موتور تاریخ شمسی را خودتان ایجاد کنید: به این صورت که تاریخ میلادی در اصل عددی را بر می گرداند که تعداد روز های گذشته از 30/12/1899 را حساب می کند.
شما می توانید با تابع GetDate(); این کار را انجام دهید در Help جستجو کنید به نتایجی می رسید.
ممنون از لطف عزیزان
از کامپوننت استفاده کردم مشکلم حل شد
سوال دوم: من یه جدول ساختم و توش چندتا چک با تاریخ ذخیره کردم حالا میخوام برنامه وقتی باز میشه خودش به صورت اتوماتیک اون چکهایی که تاریخشون رسیده رو به صورت بالون در taskbar نشون بده !
خوب الان کجاش مشکل داری؟ فهمیدن تاریخ چکها؟ خوب مفایسه هستش. یا نشون دادنشون تو بالون؟ اونم کامپوننتش هست
تو مقایسش مشکل دارم من از کامپوننت شمسی استفاده میکنم تو جدول سال دو رقمی ثبت میشه ولی تو این کامپوننت 4 رقمی حالا چطوری میتونم این 2 رو مقایسه کنم؟ در ضمن نحوه جست و جو در جدول یه کوچولو راهنمایی کنید
اگر میشه 2 نوعی که قراره با هم مقایسه بشند رو بنویسید ( مثال بزنید ) تا بشه دقیقتر راجب بهش صحبت کرد. ولی اگر منظورت اینه که قراره این دو نوع با هم مقایسه بشه: 1/1/1380 و 1/1/80 اونوقت میتونید به این صورت استفاده کنید:
درمورد جستجو تو بانک اطلاعاتی هم به امضاهای مرد مباج مراجعه کن، مثالهای خوبی داره، اونجا جوابتو نگرفتی برگرد همینجا.کد:
Var
Date_1, Date_2: String;
begin
If Date_1 = Copy(Date_2, 3, Length(Date_2)) Then
ShowMessage('2 Dates Are Same.');
end;
میشه بفرمایید این کد چیکار میکنه؟نقل قول:
به طور خلاصه می شه گفت این کد که CPUSatan نوشته رشته ی تاریخ اول را با رشته ی تاریخ دوم مقایسه می کند و اگر برابر بودند پیغام می ده اما فکر می کنم شما چیز دیگه ای می خواهید. شما می خواهید که برنامه تشخیص دهد تاریخ ثبت شده از تاریخ مشخصی گذشته یا نه؟ درسته؟ اگر منظور شما همینه بگید تا براتون مثالشو بذارم.
خیلی ممنون از لطف استادان عزیز
من تو جدول تاریخ رو مثلا اینطوری می نویسم : 09/11/89 ولی تاریخی که کامپوننت شمسی بهم میده مثلا اینطوریه:09/11/1389 حالا چطوری میتونم این دوسال رو باهم مقایسه کنم یکیش 4 رقمیه یکیش 2 رقمی؟؟؟؟
و یه سوال جدید هم داشتم اینکه چطوری تو یک بانک اطلاعاتی مثل پارادوکس بر اساس محتویات یک فیلد جست و جو کنم و نتایج رو تو یه عنصری مثل memo قرار بدم؟؟
ابتدا فرض می کنیم که شنا تاریخ مورد نظرتون که 09/11/1389 هستش رو تو متغیری به اسم Date_1 که از نوع TDate هستش می ریزید.
شما با این دستور 09/11/1389 که از نوع TDate هستش رو تبدیل به نوع رشته ای و String می کنید و داخل متغیر SD می ریزید:
با این دستور 09/11/1389 که داخل متغیر SD هستش رو تبدیل یه 09/11/89 می کنید و دوباره داخل SD می ریزیدکد:SD:=DateToStr(Date_1)
حالا می تونید تاریخی که قراره مقایسه با اون انجام بشه رو بریزید توی SD2 و خیلی راحت این دو تا رو مقایسه کنید تا ببینید برابر هست یا نهکد:SD:=Copy(Date_2, 3, Length(SD))
---------------------------------------------------------------------کد:If SD1 = SD2 Then ShowMessage('SAME');
ولی اگر می خواهید ببینید که از تاریخ مذبور گذشته یا نه:
دو تا تاریخ مورد نظر رو توی متغیرهای Date_1 و Date_2 بریزید که از نوع TDate هستند. بعد دو رقمیشون کنید و دوباره تاریخشون کنید، حالا با یه مقایسه کوچک تر بزرگتر ساده می تونید بفهمید در چه وضعی هستند. برات یه مثال می زنم با فرض اینکه دو تا تاریخ رو در متغیرهای Date_1 و Date_2 که از نوع TDate هستند ریختی و Date_2 چهار رقمی هستش:
امیدوارم کمک کرده باشه.کد:Date_2 := StrToDate(Copy(DateToStr(Date_2), 3, Length(DateToStr(Date_2))));
If Date_1 < Date_2 Then ShowMessage('Days Left');
If Date_1 = Date_2 Then ShowMessage('Target Day Reached');
If Date_1 > Date_2 Then ShowMessage('Target Day Passed');
من خیلی با کامپوننت شمسی کار نکردم ولی فکر می کنم که تاریخ رو با یک رشته به شما می ده. برای این کار این دستورات را در نظر یگیرید:(D1:تاریخ شما و D2 تاریخ شمسی):
کد:var D1,D2:String;
begin
D1:= "13" + D1;
end;
با این دستورات --13 به ابتدای تاریخ شما اضافه می شود و دوباره در خود آن ذخیره می شود.
با این کار دو تاریخ یکدست می شوند.
مشکل تاریخ با عنایت دوستان حل شد.
چطوری تو یک بانک اطلاعاتی مثل پارادوکس بر اساس محتویات یک فیلد جست و جو کنم و نتایج رو تو یه عنصری مثل memo قرار بدم؟؟
چگونه برای edit فیلتر قرار بدم مثلا اگه فقط عدد بخواهیم بگیریم دیگه اجازه تایپ حروف به کاربر نده و بر عکس !؟
چطوری میشه فقط اجازه تایپ 10 رقم به کاربر داد؟
بچه ها خواهشا به این یکی سوالمم جواب بدبد:
تو برنامه هایی مثل مدیریت کافی نت یه قسمتی هست که لیست کامپیوترهای شبکه رو به صورت ایکون کامپیوتر نشون میدن که وقتی اون کامپیوتر فعال باشه اون آیکون روشن میشه کسی می تونه راهنماییم کنه در این مورد؟ اگه سورسی دارین برام بذارین خواهشا.
برای مورد اول شما قبلا جواب داده شده ولی برای مورد دوم(تایپ ده رقم) باید از کامپوننت Edit همیشگی استفاده کنید با این تفاوت که در بخش MaxLenght آن 10 را مینویسد:
کد:Edit1.MaxLength:=10;
برای جستجو باید بانک اطلاعاتی رو فیلتر کنی که باز هم ارجاعت می دم به امضاهای مرد مباح. بعد از اینکه فیلتر کردی بخونیشون و بریزیشون تو MEMO.
برای اینکه کاربر نتونه عدد وارد کنی می تونی از MASK EDIT استفاده کنی و یا تابع هایی هم هست که Edit معمولی رو کاری کنی که حرف نگیره.
برای تعیین اندازه نوشته تمام خانواده های EDIT ها خاصیتی دارند به اسم MaxLength همونطور که دوستمون توضیح داد اندازش رو باید اونجا مشخص کنی
با سلام
برای جست و جو در پایگاه داده روش های مختلفی وجود دارد :
1- استفاده از دستورات T-sql در query مانند :
query1.close;
query1.sql.clear;
query1.sql.add(select * from Table1 where Field1 = 'test');
query1.open;
2- استفاده از filter در table مانند :
table1.fillter := 'Field1=''test''';
table1.filltered := true;
3- استفاده از دستور locate یا lookup در table مانند :
ADOTable1.Locate('Field1', edit1.Text, [loPartialKey]);
توجه داشته باشید دستورات Locate و Lookup اگر رکورد مورد نظر را پیدا کردند true در غیر این صورت false بر میگردانند
و...
و یکی از روش ها برای نمایش مقدار پیدا شده به صورت زیر است :
memo1.text := ADOTable1.FieldValue["Field1"]
توجه داشته باشید که دستور FieldValue مقدار variant را بر میگرداند.
با تشکر
برای اینکه از این عنصر استفاده کنید همان طور که CPUSatan گفتند باید روی آن کلیک راست کنید و سپس Input Mask Editor را انتخاب کنید. و در بخش InputMask دقیقا این را بنویسید:
مطمئنم که مشکلتون حل می شه.کد:9999999999;
تو برنامه هایی مثل مدیریت کافی نت یه قسمتی هست که لیست کامپیوترهای شبکه رو به صورت ایکون کامپیوتر نشون میدن که وقتی اون کامپیوتر فعال باشه اون آیکون روشن میشه کسی می تونه راهنماییم کنه در این مورد؟ اگه سورسی دارین برام بذارین خواهشا.
این قضیه کافی نت واسه خودش کلی بحث داره، داستان دیگه ای داره کلا..... حالا دقیق می خوای چاکار کنی؟ فقط می خوای دنبال یه کامپیوتر دیگه ای بگردی همونطور که دنبال یه پوشه میگردی می تونی از کامپوننت استفاده کنی که هست. ولی اگه می خوای واسه منظور های دیگه ای نشونش بدی مثل SHELL ویندوز.... خوب باید خیلی چیزهارو در نظر بگیری. در یک توضیح ساده نمی گنجه....
جدا خیلی کمکم کردید دستتون درد نکنه جمیعا
حالا چطوری وقتی جستو جو کردم با یه پیام آبشاری در taskbar اعلام کنم که مثلا وقت چک فلان به مبلغ فلان رسیده؟
اگه از کامپوننت استفاده میشه لطفا معرفیش کنید.
اتفاقا این سوال رو من هم دارم.
چطور میشه که در قسمت Icon Tray در Taskbar آیکون برنامه نشان داده بشه و پیغامی بدیم؟
بچه ها خواهشا کمک کنید چرا دیگه کسی جواب نمیده؟؟؟؟؟؟؟؟؟؟؟؟؟
سلام دوست عزیز
با استفاده از کامپوننت CoolTray براحتی میتونید آیکون برنامه رو به tray ببرید و بالون نمایش بدین.
با سلام
با استفاده از کامپوننت TrayIcon می توانید این کار را انجام دهید.
این کامپوننت جزو کامپوننت های اصلی دلفی است و شما می توانید ان را در برگه additional پیدا کنید
با تشکر
ممنون از M.Hashemi عزیز اما کدام نسخه ی دلفی؟
دست همتون درد نکنه
من از دلفی 7 استفاده می کنم و این کامپوننت تو برگه additional نیست میشه لینک رجیستر شده این کامپوننت رو بزارید؟
دوست عزیز TrayIcon فکر میکنم از 2009 به بالاتر اضافه شده. دلفی 7 نداره.
همون کامپوننت Cool Tray بسیار عالی و مفید هستش. یه سرچ بزنی نسخه فولش رو گیر میاری.
با سلام
کامپوننتی را که من معرفی کردم در دلفی 2010 به صورت پیش فرض وجود دارد.
اما در مورد دلفی 7 نمیدونم.
از همه دوستان دعوت میکنم که به دلفی 2010 مهاجرت کنند.
از هر نظر به دلفی 7 سر دارد(حداقل نظر منه).
با تشکر
این کاپوننت کامپوننت خوبی هستش، CoolTray هم دارم ولی نتونستم پیدا کنم. اگر خیلی خواستیش بگو بیشتر بگردم بذارم برات. امیدوارم مشکلت حل شه:
کد:http://rapidshare.com/files/418791021/SysIcon.rar
ممنون CPUSatan عزیز خوب بود ولی من CoolTray رو ندیدم امکاناتش مثل همینه یا بیشتره؟
چون من هرچی دنیال آدرسش گشتم همه فیلتر بود.