Дата регистрации 10 Май 2023
5700 ПродажOq-oltin axborot texnologiyalari texnikumida toʻgaraklar axborot tizimining dasturiy taʼminotini ishlab chiqish
![StringGrid1->RowCount = row + 1;
StringGrid1->Cells[0][row] = togNom;
StringGrid1->Cells[1][row] = rahbar;
StringGrid1->Cells[2][row] = kun;
StringGrid1->Cells[3][row] = FormatDateTime("hh:nn", vaqt);
ShowMessage("To’garak muvaffaqiyatli qo’shildi!");
} else {
ShowMessage("Iltimos, barcha maydonlarni to’ldiring.");
}
}
Dasturda chiqadigan asosiy ustunlar (StringGrid):
1.1-jadval
To’garak nomi Rahbar Hafta kuni Vaqti
IT Innovatorlar A. Karimov Dushanba 15:00
Dizayn san’ati Z. Matkarimova Payshanba 13:30
Hisobot yaratish funksiyasi (faylga saqlash):
cpp
КопироватьРедактировать
void _fastcall TForm1::btnSaqlashClick(TObject *Sender)
{
if (SaveDialog1->Execute()) {
TStringList *list = new TStringList;
for (int i = 1; i < StringGrid1->RowCount; i++) {
30](https://docx.uz/documents/aa71a79e-ef2f-44db-9134-a737fb9a1c43/page_30.png?v=3)
![ILOVA
Ushbu kod to’garaklar axborot tizimini yaratishga bag’ishlangan bo’lib,
foydalanuvchi tomonidan:
Yangi to’garak qo’shish,
Ishtirokchilarni kiritish,
Ma’lumotlarni ko’rish,
Statistika tuzish,
Hisobotni faylga saqlash,
Ro’yxatni tozalash kabi amallar bajarilishi mumkin.
Dastur kodining listingi
// To’garaklar axborot tizimi — Form1 asosiy dastur
// *** GLOBAL O’ZGARUVCHILAR ***
TStringList *togaraklar;
// FORMA YUKLANGANDA TO’GARAKLAR RO’YXATINI
YUKLASH
void _fastcall TForm1::FormCreate(TObject *Sender)
{
StringGrid1->Cells[0][0] = "To’garak nomi";
StringGrid1->Cells[1][0] = "Rahbar";
StringGrid1->Cells[2][0] = "Hafta kuni";
StringGrid1->Cells[3][0] = "Vaqti";
StringGrid1->RowCount = 2;
}
// *** TO’GARAK QO’SHISH FUNKSIYASI ***
void _fastcall TForm1::btnQoshishClick(TObject *Sender)
{
String togNom = edtTogarakNomi->Text;
String rahbar = edtRahbar->Text;
String kun = cmbHaftaKuni->Text;
40](https://docx.uz/documents/aa71a79e-ef2f-44db-9134-a737fb9a1c43/page_40.png?v=3)
![StringGrid2->Cells[3][row] = DateToStr(sana);
ShowMessage("Ishtirokchi muvaffaqiyatli qo’shildi!");
} else {
ShowMessage("Barcha maydonlarni to’ldiring.");
}
}
// *** HISOBOT TUZISH (STATISTIKA) ***
void _fastcall TForm1::btnHisobotClick(TObject *Sender)
{
TStringList *hisobot = new TStringList;
for (int i = 1; i < StringGrid2->RowCount; i++) {
String nom = StringGrid2->Cells[2][i];
int idx = hisobot->IndexOf(nom);
if (idx == -1)
hisobot->AddObject(nom, (TObject*)1);
else
hisobot->Objects[idx] = (TObject*)((int)hisobot->Objects[idx] + 1);
}
Memo1->Lines->Clear();
for (int i = 0; i < hisobot->Count; i++) {
String s = hisobot->Strings[i] + " – " + IntToStr((int)hisobot-
>Objects[i]) + " ishtirokchi";
Memo1->Lines->Add(s);
}
delete hisobot;
42](https://docx.uz/documents/aa71a79e-ef2f-44db-9134-a737fb9a1c43/page_42.png?v=3)
![String s = togaraklar->Strings[i] + " – " + IntToStr((int)togaraklar-
>Objects[i]) + " ishtirokchi";
Memo1->Lines->Add(s);
}
delete togaraklar;
}
Natija (Memo1 da chiqariladigan misol):
IT Innovatorlar – 5 ishtirokchi
Dizayn san’ati – 3 ishtirokchi
Robotics – 4 ishtirokchi
Dasturdagi ro’yxatni tozalash funksiyasi:
void _fastcall TForm1::btnTozalashClick(TObject *Sender)
{
StringGrid1->RowCount = 2;
for (int i = 1; i < StringGrid1->ColCount; i++) {
StringGrid1->Cells[i][1] = "";
}
ShowMessage("Ro’yxat tozalandi.");
}
Ilova uchun qo’shiladigan qisqa izoh:
33](https://docx.uz/documents/aa71a79e-ef2f-44db-9134-a737fb9a1c43/page_33.png?v=3)
![if (fio != "" && guruh != "" && togarak != "") {
int row = StringGrid2->RowCount;
StringGrid2->RowCount = row + 1;
StringGrid2->Cells[0][row] = fio;
StringGrid2->Cells[1][row] = guruh;
StringGrid2->Cells[2][row] = togarak;
StringGrid2->Cells[3][row] = DateToStr(sana);
ShowMessage("Ishtirokchi muvaffaqiyatli qo’shildi!");
} else {
ShowMessage("Iltimos, barcha maydonlarni to’ldiring.");
}
}
Statistik hisobot: Qatnashuvlar soni
Hisobot olish (har bir to’garak bo’yicha ishtirokchilar soni):
void _fastcall TForm1::btnHisobotClick(TObject *Sender)
{
TStringList *togaraklar = new TStringList;
for (int i = 1; i < StringGrid2->RowCount; i++) {
String nom = StringGrid2->Cells[2][i]; // to’garak nomi
int idx = togaraklar->IndexOf(nom);
if (idx == -1)
togaraklar->AddObject(nom, (TObject*)1);
else
togaraklar->Objects[idx] = (TObject*)((int)togaraklar->Objects[idx]
+ 1);
}
Memo1->Lines->Clear();
for (int i = 0; i < togaraklar->Count; i++) {
32](https://docx.uz/documents/aa71a79e-ef2f-44db-9134-a737fb9a1c43/page_32.png?v=3)
![TDateTime vaqt = dtpVaqt->Time;
if (togNom != "" && rahbar != "" && kun != "") {
int row = StringGrid1->RowCount;
StringGrid1->RowCount = row + 1;
StringGrid1->Cells[0][row] = togNom;
StringGrid1->Cells[1][row] = rahbar;
StringGrid1->Cells[2][row] = kun;
StringGrid1->Cells[3][row] = FormatDateTime("hh:nn", vaqt);
ShowMessage("To’garak muvaffaqiyatli qo’shildi!");
} else {
ShowMessage("Iltimos, barcha maydonlarni to’ldiring.");
}
}
// *** ISHTIROKCHI QO’SHISH FUNKSIYASI ***
void _fastcall TForm1::btnIshtirokchiQoshishClick(TObject *Sender)
{
String fio = edtFIO->Text;
String guruh = edtGuruh->Text;
String togarak = cmbTogarak->Text;
TDateTime sana = dtpSana->Date;
if (fio != "" && guruh != "" && togarak != "") {
int row = StringGrid2->RowCount;
StringGrid2->RowCount = row + 1;
StringGrid2->Cells[0][row] = fio;
StringGrid2->Cells[1][row] = guruh;
StringGrid2->Cells[2][row] = togarak;
41](https://docx.uz/documents/aa71a79e-ef2f-44db-9134-a737fb9a1c43/page_41.png?v=3)
![String line = StringGrid1->Cells[0][i] + ", " +
StringGrid1->Cells[1][i] + ", " +
StringGrid1->Cells[2][i] + ", " +
StringGrid1->Cells[3][i];
list->Add(line);
}
list->SaveToFile(SaveDialog1->FileName);
delete list;
ShowMessage("Ma'lumotlar saqlandi.");
}
}
Natija (dastur ishlaganda foydalanuvchi nima ko’radi):
To’garak nomi, rahbari, kuni va vaqti kiritiladi.
“Qo’shish” tugmasi bosilganda ma’lumotlar ro’yxatga qo’shiladi.
Ro’yxat to’ldiriladi va “Saqlash” tugmasi bosilganda .txt faylga yoziladi.
Har bir amal bo’yicha tizim xabar beradi.
Dastur Davomi: Ishtirokchi (o’quvchi) qo’shish formasi
Form komponentlari:
TEdit – F.I.Sh., Guruh
TComboBox – To’garakni tanlash
TDateTimePicker – Ro’yxatdan o’tgan sana
TButton – "Qo’shish", "Tozalash"
Kod:
void _fastcall TForm2::btnIshtirokchiQoshishClick(TObject *Sender)
{
String fio = edtFIO->Text;
String guruh = edtGuruh->Text;
String togarak = cmbTogarak->Text;
TDateTime sana = dtpSana->Date;
31](https://docx.uz/documents/aa71a79e-ef2f-44db-9134-a737fb9a1c43/page_31.png?v=3)
![}
// *** MA’LUMOTLARNI FAYLGA SAQLASH ***
void _fastcall TForm1::btnSaqlashClick(TObject *Sender)
{
if (SaveDialog1->Execute()) {
TStringList *list = new TStringList;
for (int i = 1; i < StringGrid1->RowCount; i++) {
String line = StringGrid1->Cells[0][i] + ", " +
StringGrid1->Cells[1][i] + ", " +
StringGrid1->Cells[2][i] + ", " +
StringGrid1->Cells[3][i];
list->Add(line);
}
list->SaveToFile(SaveDialog1->FileName);
delete list;
ShowMessage("Ma'lumotlar muvaffaqiyatli saqlandi.");
}
}
// *** RO’YXATNI TOZALASH ***
void _fastcall TForm1::btnTozalashClick(TObject *Sender)
{
StringGrid1->RowCount = 2;
for (int i = 1; i < StringGrid1->ColCount; i++) {
StringGrid1->Cells[i][1] = "";
}
ShowMessage("Ro’yxat tozalandi.");
}
Izoh:
43](https://docx.uz/documents/aa71a79e-ef2f-44db-9134-a737fb9a1c43/page_43.png?v=3)
Oq-oltin axborot texnologiyalari texnikumida toʻgaraklar axborot tizimining dasturiy taʼminotini ishlab chiqish