PDA

View Full Version : کمک برای نوشتن برنامه ثبت رویدادها



pop123
سه شنبه 01 شهریور 1390, 22:26 عصر
دوستان می خوام تو برنامم یه قسمتی باشه که رویدادها رو ثبت کنه و یاد آوری کنه .
تا اونجا که می دونم این کار ها رو باید انجام بدم ..
1. یه جدول برای ثبت روییدادها
2. مقایسه تاریخ ثبت شده در دیتابیس با تاریخ روز سیستم
3. با هربار بالا اومدن ویندوز برنامه به صورت خود کار ( hide) اجرا بشه و تاریخ رو چک کنه اگه درست نبود دیگه سراغ چک کردن ساعت نره واگه درست بود این قسمت رو خوب نمیدونم که هر چند (دقیفه یا ثانیه ) ساعت ثبت شده رو با ساعت سیستم چک کنده اگه درست یود پیغام یادآوری نشون داده بشه
4. برنامه برای اجرا با هربار بالا آمدن ویندوز باید در ریجیستری ثبت یا در استارت آپ قرار بگیره

1. چه طور تاریخ داخل دیتابیس که شمسی هست رو با تاریخ حال سیستم مقایسه کنم ؟
2. جطور این قسمت از برنامه رو تو حالت hide اجرا کنم ؟
3.و همینطور چک کردن ساعت داخل دیتابیس با ساعت سیستم؟
4. چطور برنامه با هر بار اجرای ویندوز اجرا بشه ؟
ممنون میشم کمکم کنید

Vahid.Shatery
سه شنبه 01 شهریور 1390, 23:09 عصر
سلام
1-شما باید تاریخ سیستم که به صورت میلادی هست را با یک کامپوننت به تاریخ شمسی تبدیل کنید.
2-با کامپوننت های مختلف مانند TryIcon این کار انجام میشه .
3-توسط تایمر باید ساعت برنامه ( ساعتی که توسط کامپوننت از میلادی به شمسی تبدیل شده ) را با ساعت دیتابیس چک کنید .ضمنا ساعت ثبت شده در دیتابیس را همراه با ثانیه ذخیره کنید و تایمر را 1 ثانیه تنظیم کنید.
4-توسط استارتاپ و همون رجیستری که گفتین می شه این کار را انجام داد .

pop123
چهارشنبه 02 شهریور 1390, 13:11 عصر
1- با کامپوننت solarcalendar تاریخ رو شمسی کردم .ولی دستور مقایسه تاریخ داخل دیتابیس رو با تاریخ حال solarcalendar رو نمیدونم؟
2- قسمت مخفی بودن برنامه رو انجام دادم
3- قسمت مربوط به ساعت رو هم انجام دادم
4- قرار دادن برنامه در ریجستری و استارتاپ رو بلد نیستم ؟

Vahid.Shatery
چهارشنبه 02 شهریور 1390, 16:48 عصر
سلام

qry1.SQL.Text := 'SELECT * FROM tblTaghvim WHERE Date = ''' + edit1.text + ''' AND time = ''' +edit2.text+ '''' ;
qry1.Open;
i := qry1.FieldByName('Code').AsInteger;

with MainComponent.tbltaghvim do
begin
if (i <> 0) then
begin
//کار مورد نظر ( نمایش یک پیغام )
qry1.Close;
end;
end;