Bugungi kunda baza yoki muhim komponent sifatida ma'lumotlar bazasiga EGA bo'lmagan har qanday muhim axborot tizimini tasavvur qilish qiyin

4. DASTURIY TA'MINOT MODULINI AMALGA OLISH

1. Modulni qanday yaratish kerak

Microsoft vositalaridan foydalangan holda ma'lumotlar bazasida saqlanadi Vizual Basic 6.0, u foydalanuvchiga eng vizual va qulay tarzda taqdim etiladi.

Ma'lumotlar bazasining o'zi eng yaxshi Microsoft bilan amalga oshiriladi idora kirish . Modulni ishlab chiqishni mahsulot kodi, mahsulot nomi, miqdori, narxi va yetkazib beruvchini o'z ichiga olgan ma'lumotlar bazasini yaratishdan boshlaymiz va uni 4.1-rasmda ko'rsatilganidek to'ldiramiz.



4.1-rasm - Maishiy elektr jihozlari do'konining ma'lumotlar bazasi



4.2-rasm - Maishiy elektr jihozlari do'konining ma'lumotlar bazasi sxemasi
Keyin Visual -ga o'ting Modulning dasturiy ta'minotini keyingi bajarish uchun asos.
Biz standart loyihani yaratamiz. Ma'lumotlar komponentini 1-formaga , har bir jadvaldagi Buyruq tugmachalariga va TextBox matn maydonlariga (jadval maydonlaridagi ma'lumotlarni ko'rsatish uchun) tortamiz. Biz Ma'lumotlar komponentlarining Sarlavhalar xususiyatlarini mos ravishda maishiy texnika do'koni qiymatlariga o'rnatdik. Tugmalarni qo'shish, sotish, topish, o'chirish va hokazolarga o'rnating.
Keyin Label komponentalaridan foydalanib, har bir oyna uchun teglar yasaymiz. Shaklning Caption xususiyatini maishiy elektr jihozlari sotiladigan do'konning ma'lumotlar bazasi qiymatiga o'rnatdik.
Komponentlarni 4.2-rasmga muvofiq joylashtiramiz.



4.1-rasm - Asosiy shaklning dastlabki ko'rinishi


Dastur modullari ro'yxati

Shaxsiy pastki buyruq1_Click()

Data1.Recordset.AddNew
end sub
Shaxsiy pastki buyruq2_Click()
Agar Matn 6. Matn = 0 Keyin
MsgBox "To'ldiriladigan element miqdorini kiriting"
Agar tugasa
Text4.Text = Text4.Text + Int(Matn6.Text)
end sub

Shaxsiy pastki buyruq3_Click()

Agar Matn 7. Matn = 0 Keyin
MsgBox "Sotish kerak bo'lgan mahsulot miqdorini kiriting"
Agar tugasa
Text4.Text = Text4.Text - Text7.Text
Matn8.Matn = Matn3.Matn * Matn7.Matn

end sub

Shaxsiy pastki buyruq4_Click()
Data1.Recordset.Delete
end sub