Ma'lumotlar bazalari bilan ishlash uchun ilova ishlab chiqish
Shaklda jadvalni ko'rsatish uchun unga komponentlarni joylashtirish kerak
Download 0.49 Mb.
|
Ma\'lumotlar bazalari bilan ishlash uchun ilova ishlab chiqish
Shaklda jadvalni ko'rsatish uchun unga komponentlarni joylashtirish kerak:
· Jadval (BDE yorlig'ida) - Ob'ekt inspektorida "Parametrlar" yorlig'ida Tablename xususiyatida kerakli jadvalni tanlang. 23-rasm · DBGrid (DataControls yorlig'ida) - jadvalni formada ko'rsatish uchun talab qilinadi, Ob'ekt inspektorida, DataSource xususiyatida kerakli ma'lumotlar manbasini ko'rsating. 24-rasm · DBNavigator (DataControls yorlig'ida) - jadval yozuvlari bo'ylab harakatlanish uchun zarur. Ob'ekt inspektorida DataSource xususiyati DBGriddagi kabi bir xil ma'lumotlar manbasini belgilaydi. Navigator funksiyalari ilova ishlayotgan vaqtda uning tugmalarini bosish orqali mavjud.Kompanentda 10 ta tugma mavjud. 25-rasm · DataSource (Ma'lumotlarga kirish yorlig'i) - ma'lumotlarga kirish uchun o'rta darajadagi komponent. DBMS jadvallari va ekrandagi boshqaruv elementlari (DBGrid, DBNavigator) o'rtasida vositachi bo'lib xizmat qiladi. 26-rasm 14. Ma'lumot (Memo) va tugmalar bilan maydon yaratish Memo komponenti Standart yorlig'ida joylashgan shaklga joylashtirilgan. 27-rasm "Parametrlar" yorlig'idagi ob'ekt inspektori, Lines xususiyatiga ko'rsatish uchun kerakli matnni kiriting. 28-rasm Tugmalar yaratish. Shaklni to'g'ri yopish uchun uning ustiga "Standart" yorlig'ida joylashgan "Buton" komponenti joylashtirilgan. 29-rasm Tugma ishlashi uchun OnClick hodisasi ishlov beruvchisida quyidagilarni ko'rsatishingiz kerak: protsedurasi TForm1.N5Click (Sender: TObject); boshlash Form2.Show; Form1.Close; oxiri; 15. Jadvallar uchun imzolar yaratish Kurs ishida jadvalga imzo chekish uchun Standart yorlig'ida joylashgan Lable komponentidan foydalanilgan. Ob'ekt inspektorida, Caption xususiyatida siz faqat matnni yozishingiz kerak. 30-rasm 16. Ochiladigan ro'yxat tuzing Mavjud ro'yxatdan buyruqni tanlash uchun ComboBox komponentidan (ochiladigan ro'yxat) foydalaning. Uni shu tarzda to'ldirish mumkin Ob'ekt inspektorida, Items xususiyatida siz quyidagilarni yozishingiz kerak: 31-rasm 16. Hisobotlarni yaratish Hisobot QReports vositasi yordamida yaratiladi, u boshidan ulangan bo'lishi kerak: Komponent-> paketlarni o'rnatish-> qo'shish bin papkasini oching dclqrt70.bpl faylini tanlang OK tugmasini bosing va keyin QReport komponentlari bilan yorliq paydo bo'ladi. Men foydalanadigan komponentlar: jadval 2 17. Dastur ro'yxati Loyihaning tavsifi Loyiha 1 dasturi; foydalanadi Shakllar, "Unit1.pas" dagi 1-birlik (Form1), "Unit2.pas" da (Form2) 2-birlik), "Unit3.pas" da (Form3) 3-birlik), "Unit4.pas" da (Form4) 4-birlik), "Unit5.pas" dagi 5 birlik (Form5), "Unit6.pas" da (Form6) 6-birlik), "Unit7.pas" dagi 7 birlik (Form7), "Unit8.pas" da (Form8) 8-birlik), "Unit9.pas" (Form9) da 9-birlik), "Unit10.pas" da 10 birlik (Form10), "Unit11.pas" da (Form11) 11-birlik), "Unit12.pas" da 12 birlik (Form12), "Unit13.pas" dagi 13-birlik (Form13), "Unit14.pas" da (Form14) birlik14; ($ R * .res) boshlash Application.Initialize; Application.CreateForm (TForm1, Form1); Application.CreateForm (TForm2, Form2); Application.CreateForm (TForm3, Form3); Application.CreateForm (TForm4, Form4); Application.CreateForm (TForm5, Form5); Application.CreateForm (TForm6, Form6); Application.CreateForm (TForm7, Form7); Application.CreateForm (TForm8, Form8); Application.CreateForm (TForm9, Form9); Application.CreateForm (TForm10, Form10); Application.CreateForm (TForm11, Form11); Application.CreateForm (TForm12, Form12); Application.CreateForm (TForm13, Form13); Application.CreateForm (TForm14, Form14); Application.Run; oxiri. Unit1 modulining tavsifi birlik 1; interfeys foydalanadi Dialoglar, StdCtrls; turi TForm1 = sinf (TForm) Memo1: TMemo; 1-tugma: TB tugmasi; 2-tugma: TB tugmasi; 3-tugma: TB tugmasi; xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Form1: TForm1; amalga oshirish Unit2, Unit4, Unit6, Unit7, Unit5, Unit8, Unit9, Unit10 dan foydalanadi; ($ R * .dfm) protsedurasi TForm1.Button3Click (Sender: TObject); boshlash Form2.show; oxiri; protsedurasi TForm1.Button2Click (Sender: TObject); boshlash Form1.Close; oxiri; protsedurasi TForm1.Button1Click (Sender: TObject); boshlash Form4.show; oxiri; oxiri. Unit2 modulining tavsifi birlik 2; interfeys foydalanadi Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar, Dialoglar, StdCtrls; turi TForm2 = sinf (TForm) Memo1: TMemo; GroupBox1: TGroupBox; 1-tugma: TB tugmasi; 2-tugma: TB tugmasi; protsedura Button1Click (Sender: TObject); Protsedura Button2Click (Sender: TObject); xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Shakl2: TForm2; amalga oshirish Unit3 dan foydalanadi; ($ R * .dfm) protsedurasi TForm2.Button1Click (Sender: TObject); boshlash Form3.show; Form2.Close; oxiri; protsedurasi TForm2.Button2Click (Sender: TObject); boshlash Form2.Close; oxiri; Unit3 modulining tavsifi birlik 3; interfeys foydalanadi Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar, Dialoglar, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls, QuickRpt, QRCtrls; turi TForm3 = sinf (TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet4: TTabSheet; TabSheet5: TTabSheet; TabSheet6: TTabSheet; DataSource1: TDataSource; DataSource2: TDataSource; DataSource3: TDataSource; DataSource4: TDataSource; 1-jadval: TTjadval; 2-jadval: TTjadval; 3-jadval: TTjadval; 4-jadval: TTjadval; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; DBGrid2: TDBGrid; DBNavigator2: TDBNavigator; DBGrid3: TDBGrid; DBNavigator3: TDBNavigator; DBGrid4: TDBGrid; DBNavigator4: TDBNavigator; DBGrid5: TDBGrid; DBNavigator5: TDBNavigator; DBGrid6: TDBGrid; DBNavigator6: TDBNavigator; 1-tugma: TB tugmasi; DataSource5: TDataSource; DataSource6: TDataSource; 5-jadval: TTjadval; 6-jadval: TTjadval; 1-so'rov: TQuery; 2-tugma: TB tugmasi; Label1: TLabel; Memo1: TMemo; Label3: TLabel; 3-tugma: TB tugmasi; protsedura Button1Click (Sender: TObject); Protsedura Button2Click (Sender: TObject); protsedura Button3Click (Yuborish: TObject); xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Form3: TForm3; amalga oshirish Unit5, Unit11 dan foydalanadi; ($ R * .dfm) protsedurasi TForm3.Button1Click (Sender: TObject); boshlash Form11.show; Form3.close; oxiri; protsedurasi TForm3.Button2Click (Sender: TObject); boshlash Query1.ExecSQL; Form3.Refresh; oxiri; protsedurasi TForm3.Button3Click (Sender: TObject); boshlash Form3.close; oxiri; Unit4 modulining tavsifi birlik 4; interfeys foydalanadi Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar, Dialoglar, StdCtrls; turi TForm4 = sinf (TForm) Memo1: TMemo; 1-tugma: TB tugmasi; protsedura Button1Click (Sender: TObject); xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Form4: TForm4; amalga oshirish Unit1 dan foydalanadi; ($ R * .dfm) protsedurasi TForm4.Button1Click (Sender: TObject); boshlash Form1.show; oxiri; 5-birlik modulining tavsifi birlik 5; interfeys foydalanadi Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar, Dialoglar, DB, DBTables, Gridlar, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls; turi TForm5 = sinf (TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; 1-so'rov: TQuery; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; DBNavigator1: TDBNavigator; 1-tugma: TB tugmasi; ComboBox1Change protsedurasi (Sender: TObject); Edit1Change protsedurasi (Sender: TObject); protsedura Button1Click (Sender: TObject); xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Form5: TForm5; amalga oshirish Unit11 dan foydalanadi; ($ R * .dfm) protsedurasi TForm5.ComboBox1Change (Sender: TObject); boshlash Query1.Active: = true; oxiri; protsedurasi TForm5.Edit1Change (Sender: TObject); boshlash So'rov1.Ochish; oxiri; protsedurasi TForm5.Button1Click (Sender: TObject); boshlash Form11.show; Form5.Close; oxiri; 6-qism tavsifi birlik 6; interfeys foydalanadi Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar, Dialoglar, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls; turi TForm6 = sinf (TForm) 1-tugma: TB tugmasi; Edit1: TEdit; DataSource1: TDataSource; DBGrid1: TDBGrid; 1-so'rov: TQuery; Label1: TLabel; DBNavigator1: TDBNavigator; Label2: TLabel; Memo1: TMemo; 2-tugma: TB tugmasi; Label3: TLabel; protsedura Button1Click (Sender: TObject); Protsedura Button2Click (Sender: TObject); xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Form6: TForm6; amalga oshirish Unit11 dan foydalanadi; ($ R * .dfm) protsedurasi TForm6.Button1Click (Sender: TObject); boshlash Query1.Close; agar bo'lmasa Query1.Prepared keyin So'rov1.Tayyorlash; agar uzunlik (edit1.text)<>keyin 0 boshqa boshlash Query1.Params.Value: = 0; oxiri; So'rov1.Ochish; oxiri; protsedurasi TForm6.Button2Click (Sender: TObject); boshlash Form11.show; Form6.Close; oxiri; 7-birlik modulining tavsifi birlik 7; interfeys foydalanadi Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar, Dialoglar, StdCtrls, Grids, DBGrids, DBTables, DB, Mask, DBCtrls, ExtCtrls, QRCtrls, QuickRpt; turi TForm7 = sinf (TForm) Label1: TLabel; Label2: TLabel; DataSource1: TDataSource; 1-so'rov: TQuery; Edit2: TEdit; 1-tugma: TB tugmasi; DBEdit1: TDBEdit; DBEdit2: TDBEdit; Label3: TLabel; DBGrid1: TDBGrid; Label4: TLabel; Label5: TLabel; DBNavigator1: TDBNavigator; 2-tugma: TB tugmasi; Label6: TLabel; Label7: TLabel; Memo1: TMemo; ComboBox1: TComboBox; Label8: TLabel; 3-tugma: TB tugmasi; protsedura Button1Click (Sender: TObject); Protsedura Button2Click (Sender: TObject); protsedura Button3Click (Yuborish: TObject); xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Form7: TForm7; amalga oshirish Unit5, Unit11 dan foydalanadi; ($ R * .dfm) protsedurasi TForm7.Button1Click (Sender: TObject); boshlash Query1.Close; agar bo'lmasa Query1.Prepared keyin So'rov1.Tayyorlash; agar uzunlik (edit2.text)<>keyin 0 Query1.Params.Value: = edit2.Text boshqa boshlash Query1.Params.Value: = 0; edit2.Text: = "Iltimos, sarlavha kiriting!"; oxiri; So'rov1.Ochish; oxiri; protsedurasi TForm7.Button2Click (Sender: TObject); boshlash Form5.show; Form7.close; oxiri; protsedurasi TForm7.Button3Click (Sender: TObject); boshlash Form11.show; Form7.close; oxiri; 8-birlik modulining tavsifi birlik 8; interfeys foydalanadi Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar, turi TForm8 = sinf (TForm) Label4: TLabel; DataSource1: TDataSource; 1-so'rov: TQuery; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; 1-tugma: TB tugmasi; Memo1: TMemo; protsedura Button1Click (Sender: TObject); xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Form8: TForm8; amalga oshirish Unit11 dan foydalanadi; ($ R * .dfm) protsedurasi TForm8.Button1Click (Sender: TObject); boshlash Form11.show; Form8.close; oxiri; 9-birlik modulining tavsifi birlik 9; interfeys foydalanadi Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar, Dialoglar, Gridlar, DBGrids, DB, DBTables, StdCtrls, Mask, DBCtrls, ExtCtrls; turi TForm9 = sinf (TForm) Edit1: TEdit; 1-so'rov: TQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; 1-tugma: TB tugmasi; 2-so'rov: TQuery; DataSource2: TDataSource; 2-tugma: TB tugmasi; DBEdit1: TDBEdit; DBNavigator1: TDBNavigator; Label1: TLabel; Label2: TLabel; Label3: TLabel; Nomi: TComboBox; 3-tugma: TB tugmasi; Memo1: TMemo; Label4: TLabel; 4-tugma: TB tugmasi; protsedura Button1Click (Sender: TObject); Protsedura Button2Click (Sender: TObject); protsedura Button3Click (Yuborish: TObject); xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Form9: TForm9; amalga oshirish Unit11, Unit13 dan foydalanadi; ($ R * .dfm) protsedurasi TForm9.Button1Click (Sender: TObject); boshlash Query1.Close; agar bo'lmasa Query1.Prepared keyin So'rov1.Tayyorlash; agar uzunlik (edit1.text)<>keyin 0 Query1.Params.Value: = edit1.Text boshqa boshlash Query1.Params.Value: = 0; edit1.Text: = "Iltimos, bitiruvchining ismini kiriting!"; oxiri; So'rov1.Ochish; oxiri; protsedurasi TForm9.Button2Click (Sender: TObject); boshlash Query2.Close; bo'lmasa Query2.Prepared keyin So'rov 2. Tayyorlash; agar uzunlik (edit1.text)<>keyin 0 Query2.Params.Value: = edit1.Text boshqa boshlash Query2.Params.Value: = 0; edit1.Text: = "Iltimos, semestr raqamini kiriting!"; oxiri; So'rov2.Ochish; oxiri; protsedurasi TForm9.Button3Click (Sender: TObject); boshlash Form11.show; Form9.close; oxiri; protsedurasi TForm9.Button4Click (Sender: TObject); boshlash Form13.QuickRep1.Preview; oxiri; 10-qismning tavsifi birlik 10; interfeys foydalanadi Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar, Dialoglar, ExtCtrls, QuickRpt, StdCtrls, DB, DBTables, Mask, DBCtrls, Gridlar, DBGrids; turi TForm10 = sinf (TForm) 1-tugma: TB tugmasi; 1-so'rov: TQuery; DataSource1: TDataSource; DBEdit1: TDBEdit; DBEdit2: TDBEdit; Label1: TLabel; Label2: TLabel; Edit1: TEdit; 2-tugma: TB tugmasi; Label3: TLabel; ComboBox1: TComboBox; Label4: TLabel; Label5: TLabel; Memo1: TMemo; Label6: TLabel; Label7: TLabel; 3-tugma: TB tugmasi; protsedura Button1Click (Sender: TObject); Protsedura Button2Click (Sender: TObject); protsedura Button3Click (Yuborish: TObject); xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Form10: TForm10; amalga oshirish Unit3, Unit7, Unit12, Unit11 dan foydalanadi; ($ R * .dfm) protsedurasi TForm10.Button1Click (Sender: TObject); boshlash Form12.QuickRep1.Preview; oxiri; protsedurasi TForm10.Button2Click (Sender: TObject); boshlash Query1.Close; agar bo'lmasa Query1.Prepared keyin So'rov1.Tayyorlash; agar uzunlik (edit1.text)<>keyin 0 Query1.Params.Value: = edit1.Text boshqa boshlash Query1.Params.Value: = 0; edit1.Text: = "Iltimos, sarlavha kiriting!"; oxiri; So'rov1.Ochish; oxiri; protsedurasi TForm10.Button3Click (Sender: TObject); boshlash Form11.show; oxiri; 11-qism tavsifi birlik 11; interfeys foydalanadi Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar, Dialoglar, StdCtrls; turi TForm11 = sinf (TForm) 1-tugma: TB tugmasi; 2-tugma: TB tugmasi; 3-tugma: TB tugmasi; 4-tugma: TB tugmasi; 5-tugma: TB tugmasi; 6-tugma: TB tugmasi; Memo1: TMemo; Label1: TLabel; Label2: TLabel; Label3: TLabel; 7-tugma: TB tugmasi; Label4: TLabel; Label5: TLabel; Protsedura Button2Click (Sender: TObject); protsedura Button1Click (Sender: TObject); Protsedura Button4Click (Sender: TObject); protsedura Button3Click (Yuborish: TObject); protsedura Button5Click (Yuborish: TObject); protsedura Button6Click (Sender: TObject); protsedura Button7Click (Sender: TObject); xususiy (Shaxsiy deklaratsiyalar) ommaviy (Ommaviy deklaratsiyalar) oxiri; var Form11: TForm11; amalga oshirish Download 0.49 Mb. Do'stlaringiz bilan baham: |
Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling
ma'muriyatiga murojaat qiling