R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

Download 3,49 Mb.

bet	75/147
Sana	03.01.2022
Hajmi	3,49 Mb.
	#314841

1 ... 71 72 73 74 75 76 77 78 ... 147

Bog'liq
c asosiy

Maydon	Turi
Izoh
aDate	ДАТА/ВРЕМЯ	Sana
aTask	Строковый, 50 belgili	Rejalashtirilgan tadbir (topshiriqlar)

1.48-rasm. Kundalik dastur formasi

1.20-jadval. ADOConnection1 komponentasi xususiyati qiymatlari

Xususiyati

Qiymati

ConnectionString

Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=D:\Data\Planner.mdb;

Persist Security Info=False

1.21-jadval. ADODataSet1 komponentasi xususiyati qiymatlari

Xususiyati	Qiymati
Connection	ADOConnection1
CommandText	SELECT * FROM schedule ORDER BY aData

1.22-jadval. DataSource1 komponentasi xususiyati qiymatlari

Xususiyati	Qiymati
DataSet	ADODataSet1

1.23-jadval. DataGrid1 komponentasi xususiyati qiymatlari

Xususiyati	Qiymati
DataSource	DataSource1
Columns[0].FildName	aDate
Columns[0].Title.Caption	Qachon
Columns[1].FildName	aTask
Columns[1].Title.Caption	Nima

#include

#include //EOleException ga murojaat uchun

AnsiString stDay[7] ={"yakshanba", "dushanba", "seshanba", "shorshanba", "payshanba", "juma", "shanba"};

AnsiString stMonth[12] = {"yanvar", "fevral", "mart", "aprel", "may", "iyun", "iyul", "avgust", "sentabr", "oktabr", "noyabr", "dekabr"};

void __fastcall TForm1::FormShow(TObject *Sender)

{

TDateTime Today, // bugun

NextDay;//keyingi kun (ertaga bo'lishi shart emas)

Word Year, Month, Day; //Yil, Oy, Kun

Today = Now ();

DecodeDate(Today, Year, Month, Day);

Label1->Caption= "Bugun "+IntToStr(Day)+" " +

stMonth[Month-1]+" "+IntToStr(Year)+" yil, " +

stDay[DayOfWeek(Today) -1];

Label2->Caption="Bugun va yaqin kunlar";

/* keyingi kunni hisoblash, agar bugun juma bo’lsa, unda unutmaslik kerak, dushanbaga rejalashtiriladi va keyingi kun dushanba deb hisoblanadi */

switch (DayOfWeek(Today)) {

case 6 : NextDay = Today + 3; break; // bugun juma

case 7 : NextDay = Today + 2; break; // bugun shanba

default: NextDay = Today + 1;

}

ADODataSet1->CommandText="SELECT * FROM schedule WHERE aDate BETWEEN DateValue('"+

FormatDateTime("dd/mm/yyyy",Today)+"')AND DateValue('"+

FormatDateTime("dd/mm/yyyy",NextDay)+"')ORDER BY

aDate";

// agar kerak bo’lsa, SQL-bo’yruqni tasvirlash

if (CheckBox1->Checked) ShowSQL();

//agar MB ODBC ma’lumotlar manbaida ro’yxatdan

//o’tmagan bo’lsa, EOleException istisno yuzaga keladi

try

{

//ma’lumotlar to’plamini ochish (ADODataSetl->

//CommandText da SQL-bo’yrug’ini bajarish

ADODataSet1->Open();

}

catch (EOleException &e){

//EOleException turi murojaatli bo’lishi uchun,

//dasturda #include direktivasini

//qo’shish kerak

ShowMessage("MB ga murojaatda xatolik. Planner.mdb MB" " tizimda dplaner nomi ostida\n ODBC ma’lumotlar"

"manbaida ro’yxatdan o’tgan bo’lishi shart");

Button1->Enabled = false;

Button2->Enabled = false;

Button3->Enabled = false;

Button4->Enabled = false;

return;

}

if (!ADODataSet1->RecordCount )

ShowMessage("Bugun va yaqin kunlarga xech qanday"

"ishlar rejalashtirilmagan.");

}

// Bugun tugmasini bosish

void __fastcall TForm1::Button1Click(TObject *Sender)

{

AnsiString today =

FormatDateTime("dd/inm/yyyy",Now());

Form1->Label2->Caption = "Bugun ";

ADODataSet1->Close(); //ma’lumotlar to’plamini yopish

// so’rovlar kriteriyasini o’zgartirish

ADODataSet1->CommandText="SELECT * FROM schedule"

"WHERE aDate = DateValue('" + today +"')";

if(CheckBox1->Checked) ShowSQL();//so’rovni chiqarish

ADODataSet1->Open();//yangi so’rov bilan ma’lumotlar

//to’plamini ochish

}

// Ertaga tugmasini bosish

void __fastcall TForm1::Button2Click(TObject *Sender)

{

AnsiString tomorrow =

FormatDateTime("dd/mm/yyyy",Now()+1);

Label2->Caption = "Ertaga";

ADODataSet1->Close() ;

// so’rov kriteriyasini o’zgartirish

ADODataSet1->CommandText = "SELECT * FROM schedule"

"WHERE aDate = DateValue('" + tomorrow + " ')";

if(CheckBox1->Checked) ShowSQL();

ADODataSet1->Open(); // so’rovni bajarish

if(!ADODataSet1->RecordCount )

{

ShowMessage("Ertaga xech qanday ish"

"rejalashtirilmagan!");

}

// Shu hafta tugmasini bosish

void __fastcall TForm1::Button3Click(TObject *Sender)

{

// "shu hafta " – bu joriy kundan hafta oxirigacha

// (yakshanbagacha)

TDateTime Present, eWeek;

Label2->Caption = "Shu haftada";

Present= Now(); // Now – joriy sanani qaytaradi

eWeek = EndOfAWeek(YearOf(Present),WeekOf(Present));

/* StartOfWeek, EndOfAWeek, YearOf va WeekOf larga murojaat qilish uchun DateUtils.hpp ni qo’shish kerak*/

ADODataSet1->Close();

ADODataSet1->CommandText = "SELECT * FROM schedule"

"WHERE aDate BETWEEN DateValue('" +

FormatDateTime("dd/mm/yyyy",Present)+"') AND "

"DateValue('"+ FormatDateTime("dd/mm/yyyy", eWeek)+"') ORDER BY aDate";

if ( CheckBox1->Checked) ShowSQL();

ADODataSet1->Open();

if (!ADODataSet1->RecordCount )

ShowMessage("Shu haftaga xech qanday ish"

"rejalashtirilmagan.");

}

// Barchasi tugmasini bosish

void __fastcall TForm1::Button4Click(TObject *Sender)

{

ADODataSet1->Close();

ADODataSet1->CommandText =

"SELECT * FROM schedule ORDER BY aDate";

if (CheckBox1->Checked) ShowSQL();

ADODataSet1->Open();

Label2->Caption = "Все, что намечено сделать";

}

// SQL-bo’yruqni tasvirlash

void __fastcall TForm1::ShowSQL(void)

{

ShowMessage(ADODataSet1->CommandText);

}

Download 3,49 Mb.

Do'stlaringiz bilan baham: