Savdo avtomatlarini boshqarish va mahsulot hisobini yuritish
![11
2.5. Oynalararo aloqa va umumiy dizayn yondashuvi
Dastur oynalari o‘ rtasidagi aloqa asosan tugmalar orqali amalga oshiriladi:
MyForm dan MyForm1 ga, MyForm1 dan MyForm2 ga o‘ tiladi. Shuningdek,
MyForm1 dan MyForm ga va MyForm2 dan MyForm1 ga qaytish imkoniyati
mavjud. MyForm da kiritilgan va saqlangan ma ’lumotlar (garchi kodda to‘g‘ ridan -
to‘g‘ ri ko‘ rsatilmagan bo‘ lsa ham) MyForm1 dagi ListBox ni to‘ ldirish uchun asos
bo‘ lishi mumkin (masalan, "mahsulot.csv" faylini o‘ qish orqali).
3. Ilovaning funksional imkoniyatlarini shakllantirish
3.1. MyForm (Mahsulotlarni boshqarish) oynasi funksiyalari
Bu oyna mahsulotlar ma ’lumotlar bazasini (bu holda DataGridView va CSV
fayl) boshqarish uchun asosiy vositalarni taqdim etadi.
Yangi m ahsulot qo‘ shish (button1_Click hodisasi):
Foydalanuvchi "Q o‘ shish" tugmasini bosganda, textBox1 dan textBox4 gacha
bo‘ lgan maydonlardagi matnlar olinadi. Keyin bu ma ’lumotlar dataGridView1
komponentasiga yangi qator sifatida qo‘ shiladi. Ushbu amal bajarilgandan so‘ ng,
kiritish maydonlari (TextBox lar) tozalanadi, bu esa keyingi mahsulotni kiritishga
tayyorgarlikni ta ’minlaydi.
private : System:: Void button1_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
String ^ nomi = textBox1 ->Text;
String ^ narxi = textBox2 ->Text;
String ^ soni = textBox3 ->Text;
String ^ kodi = textBox4 ->Text;
dataGridView1 ->ColumnCount = 4;
dataGridView1 ->Columns[0] ->Name = "Mahsulot nomi:" ;
dataGridView1 ->Columns[1] ->Name = "Narxi:" ;
dataGridView1 ->Columns[2] ->Name = "Soni:" ;
dataGridView1 ->Columns[3] ->Name = "Kodi:" ;
dataGridView1 ->Rows ->Add(nomi, narxi, soni, kodi);
textBox1 ->Clear();
textBox2 ->Clear();
textBox3 ->Clear();
textBox4 ->Clear();
}
Mahsulotni tahrirlashga tayyorlash (button2_Click hodisasi):
Foydalanuvchi dataGridView1 da biror qatorni tanlab, "Tahrirlash" tugmasini](https://docx.uz/documents/8d3346ca-d2fd-4b96-ba3b-fa5d7b074352/page_11.png?v=1)
![12
bossa, dastur avval faqat bitta qator tanlanganligini tekshiradi. Agar shart bajarilsa,
tanlangan qatorning indeksi (tahrirlashindeksi o‘ zgaruvchisiga) saqlanadi va shu
qatordagi ma ’lumotlar ("Nomi", "Narxi", "Soni", "Kodi" ustunlaridan) olinib,
tegishli textBox larga joylashtiriladi. Bu foydalanuvchiga mavjud ma ’lumotni
o‘ zgartirish imkonini beradi (ammo o‘ zgartirishni saqlash uchun odatda
"Saqlash" yoki alohida "Yangilash" tugmasi kerak bo‘ ladi, bu kodda button4_Click
qisman bajarishi mumkin). Agar birorta ham qator yoki birdan ko‘ p qator tanlangan
bo‘ lsa, xatolik haqida xabar chiqariladi.
private : int tahrirlashindeksi = -1;
private : System:: Void button2_Click(System:: Object ^ sender ,
System:: EventArgs ^ e) {
if (dataGridView1 ->SelectedRows ->Count == 1)
{
tahrirlashindeksi = dataGridView1 -
>SelectedRows[0] ->Index;
textBox1 ->Text = dataGridView1 -
>Rows[tahrirlashindeksi] ->Cells[ "Nomi" ]->Value ->ToString();
textBox2 ->Text = dataGridView1 -
>Rows[tahrirlashindeksi] ->Cells[ "Narxi" ]->Value ->ToString();
textBox3 ->Text = dataGridView1 -
>Rows[tahrirlashindeksi] ->Cells[ "Soni" ]->Value ->ToString();
textBox4 ->Text = dataGridView1 -
>Rows[tahrirlashindeksi] ->Cells[ "Kodi" ]->Value ->ToString();
}
else
{
MessageBox ::Show( "Iltimos, tahrirlash uchun
bitta qatorni tanlang!" );
}
}
Mahsulotni o‘ chirish (button3_Click hodisasi):
"O‘ chirish" tugmasi bosilganda, xuddi tahrirlashdagi kabi, faqat bitta qator
tanlanganligi tekshiriladi. Agar shart bajarilsa, tanlangan qatorning indeksi
aniqlanadi va dataGridView1 ->Rows ->RemoveAt() metodi yordamida shu qator
jadvaldan o‘ chiriladi. Muvaffaqiyatli o‘ chirilgandan so‘ ng yoki xatolik yuz
berganda (qator tanlanmagan bo‘ lsa) foydalanuvchiga tegishli xabar ko‘ rsatiladi.](https://docx.uz/documents/8d3346ca-d2fd-4b96-ba3b-fa5d7b074352/page_12.png?v=1)
![13
private : System:: Void button3_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
if (dataGridView1 ->SelectedRows ->Count == 1)
{
int tanlanganindeks = dataGridView1 -
>SelectedRows[0] ->Index;
dataGridView1 ->Rows -
>RemoveAt(tanlanganindeks);
MessageBox ::Show( "Mahsulot o‘ chirildi!" ,
"Ma ’lumot" , MessageBoxButtons :: OK ,
MessageBoxIcon :: Information );
}
else
{
MessageBox ::Show( "Iltimos, o‘ chirish uchun
bitta qatorni tanlang!" );
}
}
Ma ’lumotlarni faylga saqlash (button4_Click hodisasi):
"Saqlash" tugmasi dataGridView1 dagi joriy ma ’lumotlarni "mahsulot.csv" nomli
faylga yozish uchun m o‘ ljallangan. System::IO::StreamWriter obyekti yaratilib,
fayl ochiladi. Avvaliga faylga ustun nomlari (sarlavha) yoziladi. So‘ ngra sikl
yordamida dataGridView1 ning har bir qatoridagi (oxirgi bo‘ sh qatordan tashqari)
ma ’lumotlar olinadi va nuqtali vergul (;) bilan ajratilgan holda faylga yoziladi.
Faylga yozish tugagach, StreamWriter yopiladi va foydalanuvchiga ma ’lumotlar
saqlanganligi haqida xabar beriladi.
private : System:: Void button4_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
String ^ nomi = "mahsulot.csv" ;
System::IO:: StreamWriter ^ fayl = gcnew
System::IO:: StreamWriter (nomi);
fayl ->WriteLine( "Mahsulot nomi:; Narxi:; Soni:;
Kodi:" );
for (int i = 0; i < dataGridView1 ->Rows ->Count - 1;
i++) {
fayl ->WriteLine(](https://docx.uz/documents/8d3346ca-d2fd-4b96-ba3b-fa5d7b074352/page_13.png?v=1)
![14
dataGridView1 ->Rows[i] ->Cells[0] ->Value + ";" +
dataGridView1 ->Rows[i] ->Cells[1] ->Value + ";" +
dataGridView1 ->Rows[i] ->Cells[2] ->Value + ";" +
dataGridView1 ->Rows[i] ->Cells[3] ->Value
);
}
fayl ->Close();
MessageBox ::Show( "Mahsulotlar saqlandi!" );
}
Oynalararo navigatsiya (button5_Click va button6_Click hodisalari):
"Savdo jarayoniga o‘ tish" (button5 ) tugmasi bosilganda, MyForm1 sinfidan yangi
obyekt yaratiladi va ShowDialog() metodi orqali yangi oyna ochiladi. ShowDialog()
oynani modal rejimda ochadi, ya ’ni yangi oyna yopilmaguncha asosiy oyna
(MyForm ) bilan ishlash mumkin bo‘ lmaydi. "Yopish" (button6 ) tugmasi esa
Application::Exit() metodini chaqirib, butun dasturning ishlashini to‘ xtatadi.
private : System:: Void button5_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
MyForm1 ^ f1 = gcnew MyForm1 ();
f1 ->ShowDialog();
}
private : System:: Void button6_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
Application ::Exit();
}
3.2. MyForm1 (Savdo jarayoni) oynasi funksiyalari
Bu oyna mahsulot tanlash va virtual savatchani shakllantirish jarayonini
amalga oshiradi.
Mahsulotni savatchaga qo‘ shish (button1_Click hodisasi):
Foydalanuvchi listBox1 dan biror mahsulotni tanlab, textBox1 ga miqdorini kiritib,
"Q o‘ shish" tugmasini bossa, tanlangan mahsulot haqidagi ma ’lumot (nomi va narxi)
listBox1 ->SelectedItem dan olinadi. Bu satr ‘-’ belgisi bo‘ yicha ajratilib, mahsulot
nomi va birlik narxi aniqlanadi. textBox1 dagi miqdor olinadi. Shu ma ’lumotlar
asosida ListViewItem obyekti yaratiladi: asosiy element sifatida mahsulot nomi,
qo‘ shimcha elementlar (sub -items) sifatida miqdor va umumiy narx (narx * miqdor)
qo‘ shiladi. Tayyor bo‘ lgan ListViewItem listView1 (savatcha) ga qo‘ shiladi. Agar
listBox1 dan hech qanday mahsulot tanlanmagan bo‘ lsa, ogohlantirish xabari
chiqariladi.](https://docx.uz/documents/8d3346ca-d2fd-4b96-ba3b-fa5d7b074352/page_14.png?v=1)
![15
private : System:: Void button1_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
if (listBox1 ->SelectedIndex != -1) {
String ^ tanlanganMahsulot = listBox1 -
>SelectedItem ->ToString();
array <String ^>^ parts = tanlanganMahsulot -
>Split( ‘-’);
if (parts ->Length < 2) {
throw gcnew Exception ("Not o‘g‘ ri formatdagi
mahsulot ma ’lumoti!" );
}
String ^ mahsulotNomi = parts[0] ->Trim();
int narx = Convert ::ToInt32(parts[1] -
>Trim());
int miqdor = Convert :: ToInt32(textBox1 -
>Text);
ListViewItem ^ item = gcnew
ListViewItem (mahsulotNomi);
item ->SubItems ->Add(miqdor.ToString());
item ->SubItems ->Add((narx *
miqdor).ToString());
listView1 ->Items ->Add(item);
}
else {
MessageBox ::Show( "Iltimos, mahsulotni
tanlang!" );
}
}
Jami narxni hisoblash (button2_Click hodisasi):
"Jami narx" tugmasi bosilganda, listView1 (savatcha) ichidagi barcha elementlar
(ListViewItem ) bo‘ yicha sikl aylanadi. Har bir elementning uchinchi qo‘ shimcha
elementi (SubItems[2] , ya ’ni hisoblangan narx) olinadi, butun songa (Int32 )
o‘ tkaziladi va umumiy yi g‘ indiga (totalSum ) qo‘ shib boriladi. Sikl tugagach,
hisoblangan umumiy summa label4 ning matniga chiqariladi.](https://docx.uz/documents/8d3346ca-d2fd-4b96-ba3b-fa5d7b074352/page_15.png?v=1)
![16
private : System:: Void button2_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
int totalSum = 0;
for each (ListViewItem ^ item in listView1 ->Items) {
// Diqqat: listView1 bo‘ lishi kerak
// Jami summani hisoblash
totalSum += Convert :: ToInt32(item ->SubItems[2] -
>Text);
}
label4 ->Text = "Jami: " + totalSum.ToString() + "
so‘ m" ;
}
Oynalararo navigatsiya (button3_Click va button4_Click hodisalari):
"Ortga" (button3 ) tugmasi joriy MyForm1 oynasini this ->Hide() metodi yordamida
yashiradi (yopmaydi), bu esa MyForm ga qaytish imkonini beradi (chunki u
ShowDialog bilan ochilgan edi). "Savdo rasmlari formasi" (button4 ) tugmasi esa
xuddi MyForm dagi kabi, MyForm2 sinfidan obyekt yaratib, uni ShowDialog()
orqali modal rejimda ochadi.
private : System:: Void button3_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
this ->Hide();
}
private : System:: Void button4_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
MyForm2 ^ f2 = gcnew MyForm2 ();
f2 ->ShowDialog();
}
3.3. MyForm2 (Savdo jarayoni rasmlari) oynasi funksiyalari
Bu oyna rasmlarni ko‘ rish va ular orasida harakatlanish uchun oddiy
funksiyalarni taqdim etadi.
Papka tanlash va rasmlarni yuklash (button1_Click hodisasi):
"PAPKANI TANLASH" tugmasi bosilganda, standart FolderBrowserDialog oynasi
ochiladi. Foydalanuvchi papka tanlab "OK" ni bossa, tanlangan papkaning yo‘ li
(dialog ->SelectedPath ) olinadi.
So‘ ngra System::IO::Directory::GetFiles() metodi yordamida shu papkadagi
barcha .jpg kengaytmali fayllarning to‘ liq yo‘ llari rasmfayllari nomli massivga
(array) yoziladi. hozirgirasm indeksi 0 ga tenglashtiriladi (birinchi rasm). Agar](https://docx.uz/documents/8d3346ca-d2fd-4b96-ba3b-fa5d7b074352/page_16.png?v=1)
![17
papkada .jpg fayllar topilsa, birinchi rasm (rasmfayllari[0] ) pictureBox1
komponentasida ko‘ rsatiladi .
private : array <String ^>^ rasmfayllari;
int hozirgirasm = 0;
private : System:: Void button1_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
FolderBrowserDialog ^ dialog = gcnew
FolderBrowserDialog ();
if (dialog ->ShowDialog() ==
System::Windows::Forms:: DialogResult :: OK ) {
rasmfayllari =
System::IO:: Directory ::GetFiles(dialog ->SelectedPath,
"*.jpg" );
hozirgirasm = 0;
if (rasmfayllari ->Length > 0) {
pictureBox1 ->ImageLocation =
rasmfayllari[hozirgirasm];
}
}
}
Rasmlararo o‘ tish (button2_Click va button3_Click hodisalari):
"<" (button2 ) tugmasi bosilganda, agar rasmfayllari massivi mavjud bo‘ lsa va joriy
rasm indeksi (hozirgirasm ) 0 dan katta bo‘ lsa, indeks bittaga kamaytiriladi. ">"
(button3 ) tugmasi bosilganda esa, agar massiv mavjud va joriy indeks massivning
oxirgi elementidan kichik bo‘ lsa, indeks bittaga oshiriladi. Har ikkala holda ham,
yangi indeksga mos keluvchi rasm yo‘ li pictureBox1 ->ImageLocation ga o‘ rnatiladi
va label2 dagi hisoblagich yangilanadi. Bu foydalanuvchiga rasmlar galereyasida
oldinga va orqaga yurish imkonini beradi.
private : System:: Void button2_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
if (rasmfayllari && hozirgirasm > 0) {
hozirgirasm -- ;
pictureBox1 ->ImageLocation =
rasmfayllari[hozirgirasm];](https://docx.uz/documents/8d3346ca-d2fd-4b96-ba3b-fa5d7b074352/page_17.png?v=1)
![18
label2 ->Text = (hozirgirasm + 1).ToString() + "
/ " + rasmfayllari ->Length.ToString();
}
}
private : System:: Void button3_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
if (rasmfayllari && hozirgirasm < rasmfayllari -
>Length - 1) {
hozirgirasm++;
pictureBox1 ->ImageLocation =
rasmfayllari[hozirgirasm];
label2 ->Text = (hozirgirasm + 1).ToString() + "
/ " + rasmfayllari ->Length.ToString();
}
}
Ortga qaytish (button4_Click hodisasi): "Ortga qaytish" (button4 ) tugmasi
xuddi MyForm1 dagi "Ortga" tugmasi kabi ishlaydi: joriy MyForm2 oynasini this -
>Hide() metodi bilan yashiradi va boshqaruvni uni chaqirgan MyForm1 oynasiga
qaytaradi.
private : System:: Void button4_Click(System:: Object ^
sender , System:: EventArgs ^ e) {
this ->Hide();
}
4. Ilovaga ma ’lumotlarni kiritish, natijalar olish va testlash
Ma ’lumotlarni kiritish jarayoni
Dastur bilan ishlash foydalanuvchidan ma ’lum bir ketma -ketlikdagi amallarni
bajarishni talab qiladi:
Mahsulotlarni kiritish (MyForm oynasi):
Dastur ishga tushirilganda birinchi bo‘ lib MyForm oynasi ochiladi.
Yangi mahsulot qo‘ shish uchun foydalanuvchi oynaning chap qismidagi
maydonlarga ma ’lumotlarni kiritadi:
textBox1 : Mahsulotning nomi (masalan, "Coca -Cola").
textBox2 : Mahsulotning narxi (masalan, "8000").
textBox3 : Mahsulotning soni (masalan, "50" - bu yerda ombordagi yoki
partiyadagi umumiy son nazarda tutiladi).
textBox4 : Mahsulotning kodi (masalan, "CC01").
Ma ’lumotlar kiritilgach, "Q o‘ shish" (button1 ) tugmasi bosiladi.](https://docx.uz/documents/8d3346ca-d2fd-4b96-ba3b-fa5d7b074352/page_18.png?v=1)
Savdo avtomatlarini boshqarish va mahsulot hisobini yuritish
-
Похожие документы
- Bank faoliyatida avtomatlashtirilgan axborot tizimlari va texnologiyalari
- Bozor iqtisodyotning avzalliklari va kamchiliklari
- Bozor iqtisodiyoti o‘tishning hozirgi zamon modellari, bozor munosabatlariga o‘tish modellarining shakllanishi
- Firma va uning tashkiliy-iqtisodiy asoslari
- Iqtisodiy muvozanatlik, xususiy va umumiy muvozanatlik, makroiqtisodiy barqarorlik