Kino hisobini avtomatlashtirish tizimi

Foydalanilgan manbalar ro'yxati

1. 
   Pol M. Duvall, Stiven Matias, Endryu Glover. Doimiy integratsiya. Dasturiy ta'minot sifatini yaxshilash va xavflarni kamaytirish / Pol M. Duvall, Steven Matthias - M. Williams, 2017 - 240 p.
   
2. 
   Pramodkumar J. Sadalaj, Martin Fauler. NoSQL. Aloqaviy bo'lmagan ma'lumotlar bazalarini ishlab chiqishning yangi metodologiyasi / Dmitriy Klyushin - M. Uilyams, 2017 -192 p.
   
3. 
   Ben Forta. 10 daqiqada SQL-ni mustaqil ravishda o'rganing / V. Ginzburg - M. Williams, 2017 -288 p.
   
4. 
   K. J. Sana. Ma'lumotlar bazasi tizimlariga kirish / K. J. Sana - M. Uilyams., 2017 -1328 b.
   
5. 
   Jeff Carpenter, Eben Hewitt / A. Slinkin - M.DMK Press, 2017 -400 p.
   
6. 
   Davy Silen, Arno Meysman, Muhammad Ali. Ma'lumotlar fanining asoslari va katta ma'lumotlar. Python va ma'lumotlar fanlari / Davy Silen, Arno Meysman - Sankt-Peterburg. Butrus, 2017 - 336 b.
   
7. 
   Maksim Babenko, Mixail Levin. Algoritmlar va ma'lumotlar tuzilmalari nazariyasiga kirish / Maksim Babenko, Mixail Levin - M. MTsNMO., 2017 - 144 p.
   
8. 
   Tomas Konnoli, Kerolin Begg. Ma'lumotlar bazasi. Dizayn, amalga oshirish va qo'llab-quvvatlash. Nazariya va amaliyot. / Tomas Konnolli, Kerolin Begg - M. Uilyams, 2017 - 1440 b.
   
9. 
   Joel Greys. maʼlumotlar fani. Noldan ma'lumotlar fani. / Andrey Logunov.-SPb., BHV-Peterburg, 2017 - 336 p.
   
10. 
    Skott Ambler, Pramodkumar J. Sadalaj. Ma'lumotlar bazasini qayta ishlash. Evolyutsion dizayn / Konstantin Ptitsyn -M. Uilyams, 2016 -368 p.
    

Ilova
Dastur ro'yxati
birlik 5;
interfeys
foydalanadi
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.DBCtrls,
Vcl.ExtCtrls;
turi
TForm5 = sinf (TForm)
1-tugma: TB tugmasi;
Label1: T Label;
Label2: T Label;
Label3: T Label;
DateTimePicker1: TDateTimePicker;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Eslatma1:TMMemo;
Label4: T Label;
Label5: T Label;
Label6: T Label;
Taymer1: TTimer;
protsedura Button1Click(Sender: TObject);
protsedura Timer1Timer(Sender: TObject);
xususiy
{ Shaxsiy deklaratsiyalar }
ommaviy
{ Ommaviy deklaratsiyalar }
oxiri;
var
Form5: TForm5;
amalga oshirish
{$R *.dfm}
Unit2, Unit4, Unit3 dan foydalanadi;
protsedurasi TForm5.Button1Click(Sender: TObject);
varName:TStrings;
i,n:integer;
boshlanishi
Name:=TStringList.Create;
Form2.ADOQuery1.Active :=False;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add('1-jadvaldan sarlavhani tanlang');
Form2.ADOQuery1.Active:=To'g'ri;
n:=Form2.ADOQuery1.RecordCount-1;
for i:=0 to n do begin Name.Add(Form2.ADOQuery1.FieldByName('Title').AsString); Form2.ADOQuery1.Keyingi; oxiri;
ComboBox1.Items:=Ism;
oxiri;
protsedura TForm5.Timer1Timer(Sender: TObject);
boshlanishi
Label4.Caption:='Film tanlandi: '+ComboBox1.Text;
Label5.Caption:='Tanlangan sana: '+FormatDateTime('dd/aa/yyyy', DateTimePicker1.Sana);
Label6.Caption:='Vaqt: ';
oxiri;
oxiri.
birlik 4;
interfeys
foydalanadi
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.Mask;
turi
TForm4 = sinf (TForm)
1-tugma: TB tugmasi;
2-tugma: TB tugmasi;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBMemo1: TDBMemo;
Label1: T Label;
Label2: T Label;
Label3: T Label;
Label4: T Label;
Label5: T Label;
protsedura Button1Click(Sender: TObject);
protsedura Button2Click(Sender: TObject);
xususiy
{ Shaxsiy deklaratsiyalar }
ommaviy
{ Ommaviy deklaratsiyalar }
oxiri;
var
Form4: TForm4;
amalga oshirish
{$R *.dfm}
Unit2, Unit3, Unit5 dan foydalanadi;
protsedura TForm4.Button1Click(Sender: TObject);
boshlanishi
Form2.ADOQuery1.Post;
yaqin;
oxiri;
protsedurasi TForm4.Button2Click(Sender: TObject);
boshlanishi
Form2.ADOQuery1.Bekor qilish;
yaqin;
oxiri;
oxiri.
birlik 3;
interfeys
foydalanadi
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids,
Data.Win.ADODB, Vcl.StdCtrls, Vcl.ExtCtrls;
turi
TForm3 = sinf (TForm)
1-tugma: TB tugmasi;
2-tugma: TB tugmasi;
3-tugma: TB tugmasi;
Label1: T Label;
4-tugma: TB tugmasi;
5-tugma: TB tugmasi;
Label2: T Label;
6-tugma: TB tugmasi;
7-tugma: TB tugmasi;
8-tugma: TB tugmasi;
Label3: T Label;
Eslatma1:TMMemo;
DBGrid1: TDBGrid;
RadioButton1: TRAdioButton;
RadioButton2: TRAdioButton;
Label4: T Label;
9-tugma: TB tugmasi;
Taymer1: TTimer;
Label5: T Label;
10-tugma: TB tugmasi;
protsedura Button1Click(Sender: TObject);
protsedura Button2Click(Sender: TObject);
protsedura Button3Click(Sender: TObject);
protsedura Button4Click(Sender: TObject);
protsedura Button5Click(Sender: TObject);
protsedura Button6Click(Sender: TObject);
protsedura Timer1Timer(Sender: TObject);
protsedura Button9Click(Sender: TObject);
protsedura Button10Click(Sender: TObject);
xususiy
{ Shaxsiy deklaratsiyalar }
ommaviy
{ Ommaviy deklaratsiyalar }
oxiri;
var
Form3: TForm3;
amalga oshirish
{$R *.dfm}
Unit2, Unit4, Unit5 dan foydalanadi;
protsedura TForm3.Button10Click(Sender: TObject);
boshlanishi
Label5.Caption:='Jadval yuklandi: Chiptalar';
//Rasp.Day,Rasp.Time1,Rasp.Time2,Rasp.Time3,Rasp.Time4,Rasp.Time5-ni chap Raspdan tanlang.
Form4.DBEdit1.DataField:='';
Form4.DBEdit2.DataField:='';
Form4.DBEdit3.DataField:='';
Form4.DBEdit4.DataField:='';
Form4.DBMemo1.DataField:='';
Form2.ADOQuery1.Active :=False;
Form2.ADOQuery1.SQL.Clear;
//Form2.ADOQuery1.SQL.Add('(Rasp.Day FROM Rasp) UNION ');
Form2.ADOQuery1.SQL.Add('Tanlash * FROM chiptalar');
//Form2.ADOQuery1.SQL.Add(' UNION (Tablica1. Sarlavhani Time2 sifatida tanlang Rasp FULL INNER JOIN Tablica1 ON Tablica1.FilmID=Rasp.Time2)');
Form2.ADOQuery1.Active:=To'g'ri;
Button3.Enabled:=False;
Button5.Enabled:=False;
Button4.Enabled:=False;
Button6.Enabled:=To'g'ri;
Button7.Enabled:=To'g'ri;
Button8.Enabled:=To'g'ri;
oxiri;
protsedurasi TForm3.Button1Click(Sender: TObject);
boshlanishi
Label5.Caption:='Jadval yuklangan: Filmlar';
Form4.DBEdit1.DataField:='';
Form4.DBEdit2.DataField:='';
Form4.DBEdit3.DataField:='';
Form4.DBEdit4.DataField:='';
Form4.DBMemo1.DataField:='';
Form2.ADOQuery1.Active :=False;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add('1-jadvaldan * TANGLASH');
Form2.ADOQuery1.Active:=To'g'ri;
Form4.DBEdit1.DataField:='Sarlavha';
Form4.DBEdit2.DataField:='Janr';
Form4.DBEdit3.DataField:='Reyting';
Form4.DBEdit4.DataField:='SCost';
Form4.DBMemo1.DataField:='Tavsif';
Button3.Enabled:=To'g'ri;
Button5.Enabled:=To'g'ri;
Button4.Enabled:=To'g'ri;
Button6.Enabled:=False;
Button7.Enabled:=False;
Button8.Enabled:=False;
oxiri;
protsedurasi TForm3.Button2Click(Sender: TObject);
boshlanishi
Label5.Caption:='Yuklangan jadval: Jadval';
//Rasp.Day,Rasp.Time1,Rasp.Time2,Rasp.Time3,Rasp.Time4,Rasp.Time5-ni chap Raspdan tanlang.
Form4.DBEdit1.DataField:='';
Form4.DBEdit2.DataField:='';
Form4.DBEdit3.DataField:='';
Form4.DBEdit4.DataField:='';
Form4.DBMemo1.DataField:='';
Form2.ADOQuery1.Active :=False;
Form2.ADOQuery1.SQL.Clear;
//Form2.ADOQuery1.SQL.Add('(Rasp.Day FROM Rasp) UNION ');
Form2.ADOQuery1.SQL.Add('Tanlash * Rasp');
//Form2.ADOQuery1.SQL.Add(' UNION (Tablica1. Sarlavhani Time2 sifatida tanlang Rasp FULL INNER JOIN Tablica1 ON Tablica1.FilmID=Rasp.Time2)');
Form2.ADOQuery1.Active:=To'g'ri;
Button3.Enabled:=False;
Button5.Enabled:=False;
Button4.Enabled:=False;
Button6.Enabled:=To'g'ri;
Button7.Enabled:=To'g'ri;
Button8.Enabled:=To'g'ri;
oxiri;
protsedurasi TForm3.Button3Click(Sender: TObject);
boshlanishi
Form2.ADOQuery1.Insert;
Form4.Show;
oxiri;
protsedurasi TForm3.Button4Click(Sender: TObject);
boshlanishi
Form2.ADOQuery1.Delete;
oxiri;
protsedurasi TForm3.Button5Click(Sender: TObject);
boshlanishi
Form4.Show;
oxiri;
protsedura TForm3.Button6Click(Sender: TObject);
boshlanishi
Form5.Show;
oxiri;
protsedura TForm3.Button9Click(Sender: TObject);
boshlanishi
Form2.ADOQuery1.Insert;
Form2.ADOQuery1.Active :=False;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add(''+Memo1.Matn);
Form2.ADOQuery1.Active:=To'g'ri;
oxiri;
protsedura TForm3.Timer1Timer(Sender: TObject);
boshlanishi
agar RadioButton1.Checked bo'lsa, boshlang
Button9.Enabled:=To'g'ri;
Memo1.Enabled:=To'g'ri;
oxiri
boshqa boshlanadi
Button9.Enabled:=False;
Memo1.Enabled:=False; oxiri
oxiri;
oxiri.