1 Umumiy ma’lumot. Dasturning to’liq nomi va uning maqsadi

5. Dasturni yaratish bo’yicha ishlarning tarkibi va mazmuni.

Dasturning kod qismi.

procedure TForm1.cxTabSheet4Resize(Sender: TObject);

begin

form1.cxGrid4.Width:=Trunc(form1.cxTabSheet4.Width/3);

form1.cxGrid5.Width:=Trunc(form1.cxTabSheet4.Width/3);

form1.cxGrid6.Width:=Trunc(form1.cxTabSheet4.Width/3);

end;

procedure TForm1.DBEdit1Change(Sender: TObject);

var a,b:string;

begin

a:=dbedit1.Text;

b:=QuotedStr(a);

with form1.ADOQueryUqituvchilar do

begin

Close; SQL.Clear; SQL.Add('select * from Uqituvchi where id_fan like'+b+' order by id'); Open;

end;

with form1.ADOQueryMavzular do

begin

Close; SQL.Clear; SQL.Add('select * from mavzular where id_fan like'+b+' order by id'); Open;

end;

end;

procedure TForm1.dxBarLargeButton12Click(Sender: TObject);

begin

form6.Close;

end;

procedure TForm1.dxBarLargeButton1Click(Sender: TObject);

begin

form1.ADOQueryStudentlar.Append;

form2.Show; //YANGI TALABA KIRITISH UCHUN KOD

end;

procedure TForm1.dxBarLargeButton3Click(Sender: TObject);

begin

form1.ADOQueryDavomat.Append;

form3.Show; //DAVOMAT KIRITISH UCHUN KOD

end;

procedure TForm1.dxBarLargeButton4Click(Sender: TObject);

begin

form1.ADOQueryBaholari.Append;

form5.Show; //BAHOLAR KIRITISH UCHUN KOD

end;

procedure TForm1.dxBarLargeButton6Click(Sender: TObject);

begin

form4.Show; //FAN MAVZU O'QITUVCHI KIRITISH UCHUN KOD

end;

procedure TForm1.dxBarLargeButton7Click(Sender: TObject);

begin

form1.dxRibbon1.ColorSchemeName:=form1.dxSkinChooserGalleryItem1.SelectedSkinName; //TEMANI O"ZGARTIRADIGAN KOD

form1.cxPageControl1.LookAndFeel.SkinName:=form1.dxSkinChooserGalleryItem1.SelectedSkinName;

form1.cxGrid1.LookAndFeel.SkinName:=form1.dxSkinChooserGalleryItem1.SelectedSkinName;

form1.cxGrid2.LookAndFeel.SkinName:=form1.dxSkinChooserGalleryItem1.SelectedSkinName;

form1.cxGrid3.LookAndFeel.SkinName:=form1.dxSkinChooserGalleryItem1.SelectedSkinName;

form1.cxGrid4.LookAndFeel.SkinName:=form1.dxSkinChooserGalleryItem1.SelectedSkinName;

form1.cxGrid5.LookAndFeel.SkinName:=form1.dxSkinChooserGalleryItem1.SelectedSkinName;

form1.cxGrid6.LookAndFeel.SkinName:=form1.dxSkinChooserGalleryItem1.SelectedSkinName;

end;

procedure TForm1.dxBarLargeButton8Click(Sender: TObject);

begin

form1.frxReportDavomat.ShowReport(); //DAVOMAT HISOBOTINI CHIQARIB BERADI

end;

procedure TForm1.dxBarLargeButton9Click(Sender: TObject);

begin

form1.frxReportBaholar.ShowReport(); //BAHOLAR HISOBOTINI CHIQARIB BERADI

end;

procedure TForm1.Edit1Change(Sender: TObject);

var a,b:string;

begin

a:='%'+edit1.Text+'%'; //BAZADAN QIDIRISH UCHUN KOD

b:=quotedstr(a);

with form1.ADOQueryDavomat do

begin

close; sql.Clear; sql.Add('select * from davomat where fan like'+b+' or guruh like'+b+' or student like'+b+' or sana like'+b+' or uqituvchi like'+b+' order by id'); open;

end;

end;

procedure TForm1.Edit2Change(Sender: TObject);

var a,b:string;

begin

a:='%'+form1.Edit2.Text+'%';

b:=QuotedStr(a);

with form1.ADOQueryBaholari do

begin

close; sql.Clear; sql.Add('select * from sessiya_baholari where guruhi like'+b+' or fan_nomi like'+b+' or talaba_fish like'+b+' or sana like'+b+' or ball like'+b+' or uqituvchisi like'+b+' order by id'); Open;

end;

end;

procedure TForm1.Edit3Change(Sender: TObject);

var a,b:string;

begin

a:='%'+form1.Edit3.Text+'%'; b:=quotedstr(a);

with form1.ADOQueryStudentlar do

begin

close; sql.Clear; sql.Add('select * from studentlar where kirgan_yili like'+b+' or guruhi like'+b+' or fish like'+b+' or millati like'+b+' or turmush_tarzi like'+b+' or tugilgan_sana like'+b+' or jinsi like'+b+' or talim_turi like'+b+' or uy_manzili like'+b+' or yashash_joyi like'+b+' or telefoni like'+b+' order by id'); open;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

DisableAero := True;

end;

procedure TForm1.Ozgartirish1Click(Sender: TObject);

begin

form2.Show;

end;

end.