برنامه اعلام سررسید چک

ابتدا فرض می کنیم که شنا تاریخ مورد نظرتون که 09/11/1389 هستش رو تو متغیری به اسم Date_1 که از نوع TDate هستش می ریزید.
شما با این دستور 09/11/1389 که از نوع TDate هستش رو تبدیل به نوع رشته ای و String می کنید و داخل متغیر SD می ریزید:

کد:

---

SD:=DateToStr(Date_1)

---

با این دستور 09/11/1389 که داخل متغیر SD هستش رو تبدیل یه 09/11/89 می کنید و دوباره داخل SD می ریزید

کد:

---

SD:=Copy(Date_2, 3, Length(SD))

---

حالا می تونید تاریخی که قراره مقایسه با اون انجام بشه رو بریزید توی SD2 و خیلی راحت این دو تا رو مقایسه کنید تا ببینید برابر هست یا نه

کد:

---

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 اعلام کنم که مثلا وقت چک فلان به مبلغ فلان رسیده؟
اگه از کامپوننت استفاده میشه لطفا معرفیش کنید.