Список литературы.

1. Бобровский С. Delphi 5: Учебный курс. - СПб.: Питер, 2000.

2. Карпова Т. Базы данных: модели, разработка, реализация. – СПб.: Питер, 2001.

3. Крёнке Д. Теория и практика построения баз данных. 8-е изд., СПб.: Питер, 2003.

4. Граббер М. Understanding SQL. М.: Лори, 1993.

5. Шумаков В., Фаронов П. Delphi 5. Руководство разработчика баз данных. М.: Нолидж, 2000.

6. Кириллов В., Громов Г. Структуризированный язык запросов (SQL)/СПбГИТМО. СПб.

7. Ковязин А., Востриков С. Мир InterBase. 2-е изд. М.: КУДИЦ-ОБРАЗ, 2003.

8. Фаронов В. Программирование баз данных в Delphi 6. Учебный курс. СПб.: Питер, 2002.

9. Скляр А. Введение в InterBase. М.: Горячая линия – Телеком, 2002.

10. Информационный портал www.ibase.ru.

11. Кузнецов С. Язык баз данных SQL/92//www.citforum.ru/database/sqlbook/sqlbook_05.shtml

12. Дарахвелидзе П., Марков Е. Программирование в Delphi 7. СПб.: BHV-Петербург, 2003.

13. Пржиялковский В. Модели, баз данных и СУБД в информационных системах//http://www.ccas.ru/~prz/book2.htm

14. Технология распределенных баз данных//http://ami.nstu.ru/~vms/lecture/lecture10/lecture10.htm

15. Фаронов В. Профессиональная работа в Delphi 6. Библиотека программиста. – СПб.: Питер, 2002.

16. Ливчак И.Ф., Воронов Ю.В. Охрана окружающей среды. М.:Стройиздат, 1988 – 191с.

17. Липаев В.В., Потапов А.И. Оценка затрат на разра­ботку программных средств. – М.: Финансы и стати­стика, 1998.- 180 с.

18. Модин А.А., Яковенко Е.Г., Погребной Е.П. Спра­вочник разработчика АСУ. - М.: Экономика, 1978.

19. Неверова Е.Г. Исследование проблем создания баз данных для информационных систем./ Сборник статей “Информационные системы в экономике”. - Алматы: Экономика – 1997 г. - с.35-42.

20. Неверова Е.Г. Технология проектирования баз дан­ных и знаний, Алматы, 2000.

21. Новое в охране труда и окружающей среды.(материалы 3 международной научно-технической конференции). Алматы, 1998 –248 с.

22. Охрана окружающей среды и рациональное использование природных ресурсов Республики Казахстан. Алматы: Госкомстат Республики Казахстан, 1997 – 191 с.

23. Пушкарева Л.А. Развитие информационной техноло­гии./ Сборник статей “Информационные системы в экономике”. - Алматы: Экономика – 1997 г. - с.42-51.

24. Под ред. А.Н. Наумова. - М.: Фи­нансы и статистика, 1991. – 352 с.

25. Тимофеева Е.П. Некоторые вопросы безопасности ин­формационных систем./ Сборник статей “Информационные системы в экономике”. - Алматы: Экономика – 1997 г. - с.119-124.

Приложение 1 Линстинг программы

unit Unit1;

Function ReadStrParam(sName:string):string;

var

Form1: TForm1; ViruchkaProdaji,ViruchkaZaProkat,KolKomediy,KolMelodram,KolBoevikov,

KolUjasov,KolMult,KolDoc,KolSerialov,KolFantasi,KolTrillerov,KolNauch,KolHistory,KolMus,

IDUser:integer;

implementation

uses Unit2, Unit3, Unit4, Unit6, Unit7, Unit5, Unit8, Unit9, Unit10,

Unit13, Unit12, Unit14, Unit15, Unit16, Unit18, Unit17, Unit20, Unit21,

Unit11, Unit19, Unit22, Unit23, Unit25, Unit24;

{$R *.dfm}

Function ReadStrParam(sName:string):string;

Var Reg:TRegistry;

begin

Reg:=TRegistry.Create;

with reg do

begin

OpenKey('Software\Cinema',True);

Result:=ReadString(sName);

CloseKey;

Free;

end;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

form2.show

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

if messagedlg('Вы уверены?',mtInformation,[mbYes,mbNo],0)= MrYes then

begin

IBStoredProc1.ParamByName('Nazv').AsString:=IBTable1.FieldByName('Namefilm').AsString;

IBStoredProc1.ExecProc;

IBTable1.Refresh;

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

form13.show

end;

procedure TForm1.SpeedButton6Click(Sender: TObject);

begin

IBTable1.Cancel;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

form14.show

end;

procedure TForm1.N14Click(Sender: TObject);

begin

form23.show

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

IBTable1.Refresh;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

IBTable1.Next;

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

IBTable1.Prior;

end;

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin

if messagedlg('Закрыть программы и подсчитать выручку?',mtInformation,[mbOK],0)=mrOK then

begin

ADD_Prognoz.ParamByName('DataPrognoza').AsDate:=DateTimePicker1.Date;

ADD_Prognoz.ParamByName('KolKomediy').AsInteger:=KolKomediy;

ADD_Prognoz.ParamByName('KolMelodram').AsInteger:=KolMelodram;

ADD_Prognoz.ParamByName('KolBoevikov').AsInteger:=KolBoevikov;

ADD_Prognoz.ParamByName('KolUjasov').AsInteger:=KolUjasov;

ADD_Prognoz.ParamByName('KolMult').AsInteger:=KolMult;

ADD_Prognoz.ParamByName('KolDoc').AsInteger:=KolDoc;

ADD_Prognoz.ParamByName('KolSerialov').AsInteger:=KolSerialov;

ADD_Prognoz.ParamByName('KolFantasi').AsInteger:=KolFantasi;

ADD_Prognoz.ParamByName('Koltrilerov').AsInteger:=KolTrillerov;

ADD_Prognoz.ParamByName('KolNauchnih').AsInteger:=KolNauch;

ADD_Prognoz.ParamByName('KolHistory').AsInteger:=KolHistory;

ADD_Prognoz.ParamByName('KolMus').AsInteger:=KolMus;

ADD_Prognoz.ExecProc;

//////////////////////////RaschetViruchki///////////////////////////////////////////

ViruchkaProdaji:=0;

form8.IBTable1.Filter:='DataProdaji='+ CHR(39)+Datetostr(DateTimePicker1.Date)+chr(39);

form8.IBTable1.Filtered:=true;

ViruchkaProdaji:=form14.IBTable1.FieldByName('Nakrutka').AsInteger* form8.IBTable1.RecordCount;

form6.IBTable1.Insert;

form6.IBTable1.FieldByName('Data').AsDateTime:=DateTimePicker1.DateTime;

form6.IBTable1.FieldByName('Summa').AsInteger:=ViruchkaProdaji;

form6.IBTable1.FieldByName('Salon').AsInteger:= strtoint(ReadStrParam('Number Salun'));

form6.IBTable1.Post;

form7.IBTable1.Insert;

form7.IBTable1.FieldByName('Data').AsDateTime:=DateTimePicker1.DateTime;

form7.IBTable1.FieldByName('Summa').AsInteger:=Unit5.ViruchkaZaProkat;

form7.IBTable1.FieldByName('Salon').AsInteger:=strtoint(ReadStrParam('Number Salun'));

form7.IBTable1.Post;

form22.IBTable1.Insert;

form22.IBTable1.FieldByName('Data').AsDateTime:=DateTimePicker1.DateTime;

form22.IBTable1.FieldByName('Summa').AsInteger:=ViruchkaProdaji+Unit5.ViruchkaZaProkat;

form22.IBTable1.FieldByName('Salon').AsInteger:=strtoint(ReadStrParam('Number Salun'));

form22.IBTable1.Post

end;

IBDataBase1.Close;

form5.IBTable1.Close;

form8.IBTable1.Close;

form12.IBTable1.Close;

form13.IBTable1.Close;

form15.IBTable1.Close;

close;

end;

procedure TForm1.SpeedButton9Click(Sender: TObject);

begin

form9.Show;

end;

procedure TForm1.N18Click(Sender: TObject);

begin

form8.Show

end;

procedure TForm1.N20Click(Sender: TObject);

begin

form10.show

end;

procedure TForm1.N6Click(Sender: TObject);

begin

IBTable1.IndexName:='namefilmIndex';

end;

procedure TForm1.N9Click(Sender: TObject);

begin

IBTable1.IndexName:='cenaindex';

end;

procedure TForm1.N7Click(Sender: TObject);

begin

IBTable1.IndexName:='janrindex';

end;

procedure TForm1.N8Click(Sender: TObject);

begin

IBTable1.IndexName:='godvipuskaindex';

end;

procedure TForm1.SpeedButton7Click(Sender: TObject);

begin

If ComboBox1.Text='' then

begin

messagedlg('Введите фамилию продавца!',mtWarning,[mbOK],0);

exit;

end;

IBTable1.Edit;

IBtable1.FieldByName('KolKopiy').AsInteger:=IBtable1.FieldByName('KolKopiy').AsInteger-1;

IBTable1.Post;

///////////////////////////////Favorit////////////////////////////////////////////////

form8.IBTable1.Filter:='NameVideozap='+ CHR(39)+IBtable1.FieldByName('NameFilm').AsString+chr(39);

form8.IBTable1.Filtered:=true;

if form8.IBTable1.RecordCount>form14.IBTable1.FieldByName('KolKOpiyFavorit').AsInteger then

begin

ADD_FAvorit.ParamByName('data').AsDate:=DateTimePicker1.Date;

ADD_Favorit.ParamByName('NameFilm').AsString:=IBTable1.FieldByName('NameFilm').AsString;

ADD_Favorit.ExecProc;

end;

form8.IBTable1.Filtered:=false;

//////////////////////////////Prognoz//////////////////////////////////////////////////

if IBtable1.FieldByName('Janr').asstring='Комедия' then

begin

KOlKomediy:=kolKomediy+1;

end;

if IBtable1.FieldByName('Janr').asstring='Мелодрама' then

begin

KOlMelodram:=kolmelodram+1;

end;

if IBtable1.FieldByName('Janr').asstring='Боевик' then

begin

KOlBoevikov:=kolBoevikov+1;

end;

if IBtable1.FieldByName('Janr').asstring='Ужас' then

begin

KOlUjasov:=kolUjasov+1;

end;

if IBtable1.FieldByName('Janr').asstring='Мультфильм' then

begin

KOLMult:=kolMult+1;

end;

if IBtable1.FieldByName('Janr').asstring='Документальный' then

begin

KOlDoc:=kolDoc+1;

end;

if IBtable1.FieldByName('Janr').asstring='Сериал' then

begin

KOlserialov:=kolSerialov+1;

end;

if IBtable1.FieldByName('Janr').asstring='Фантастика' then

begin

KOlFantasi:=kolFantasi+1;

end;

if IBtable1.FieldByName('Janr').asstring='Триллер' then

begin

KOlTrillerov:=kolTrillerov+1;

end;

if IBtable1.FieldByName('Janr').asstring='Научно-познавательный' then

begin

KOlNauch:=kolNauch+1;

end;

if IBtable1.FieldByName('Janr').asstring='Исторический' then

begin

KOlHistory:=kolHistory+1;

end;

if IBtable1.FieldByName('Janr').asstring='Музыкальный' then

begin

KOlMus:=kolMus+1;

end;

///////////////////////////////////ADD_Prodaja//////////////////////////////

IBStoredProc2.ParamByName('namefilm').AsString:=IBTable1.FieldByName('Namefilm').AsString;

IBStoredProc2.ParamByName('janr').AsString:=IBTable1.FieldByName('janr').AsString;

IBStoredProc2.ParamByName('tipnositelta').AsString:=IBTable1.FieldByName('tipnositelya').AsString;

IBStoredProc2.ParamByName('dataprodaji').AsDate:=DateTimePicker1.Date;

IBStoredProc2.ParamByName('cena').AsSmallInt:=IBTable1.FieldByName('cena').AsInteger;

IBStoredProc2.ParamByName('fioprodovca').AsString:=combobox1.Text;

IBStoredProc2.ExecProc;

/////////////////////////////////////////////////////////////////

///////////////////////////////////////////////////////////////////

if IBTable1.FieldByName('KOlkopiy').AsInteger=1 then

begin IBStoredProc3.ParamByName('Nazv').AsString:=IBTable1.FieldByName('Namefilm').AsString;

IBStoredProc3.ExecProc;

IBTable1.Refresh;

end;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form8.Show

end;

procedure TForm1.N17Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form12.show;

end;

procedure TForm1.FormShow(Sender: TObject);

Var SystemTime:TSystemTime;

begin

/////////////////////////////RefreshData///////////////////////////////

form16.ShowModal;

form18.Show;

form18.Close;

Unit5.ViruchkaZaProkat:=0;

//form1.Caption:='Салон номер'+ReadStrParam('Number Salun');

GetLocalTime(SystemTime);

DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form6.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form8.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form21.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form9.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form9.DateTimePicker2.DateTime:=SystemTimeToDateTime(SystemTime);

form11.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form11.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form19.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

end;

procedure TForm1.N22Click(Sender: TObject);

begin

form18.show;

end;

procedure TForm1.N19Click(Sender: TObject);

begin

form17.show

end;

procedure TForm1.N23Click(Sender: TObject);

begin

form6.Show

end;

procedure TForm1.N24Click(Sender: TObject);

begin

form7.Show

end;

procedure TForm1.N25Click(Sender: TObject);

begin

form22.show;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

form25.show;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

form20.Show;

end;

procedure TForm1.N26Click(Sender: TObject);

begin

form24.show

end;

procedure TForm1.N27Click(Sender: TObject);

begin

form16.SpeedButton2.Enabled:=false;

form16.Show;

end;

end.

var

Form5: TForm5;ViruchkaZaProkat:integer;

implementation

uses Unit7, Unit1, Unit11, Unit14;

{$R *.dfm}

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

If RadioButton1.Checked then

begin

IBTable1.IndexName:='NameVideZapisiIndex'

end;

If RadioButton2.Checked then

begin

IBtable1.IndexName:='DataSdachiVprokatIndex';

end;

If RadioButton3.Checked then

begin

IBTable1.IndexName:='DataVozvrataIndex';

end;

If RadioButton4.Checked then

begin

IBTable1.IndexName:='SummaZalogaIndex';

end;

If RadioButton5.Checked then

begin

IBTable1.IndexName:='CnaProkataIndex';

end;

If RadioButton6.Checked then

begin

IBTable1.IndexName:='FioKlientaIndex';

end;

If RadioButton7.Checked then

begin

IBTable1.IndexName:='DomTelKlientaIndex';

end;

end;

procedure TForm5.SpeedButton3Click(Sender: TObject);

begin

if form1.IBTable1.Locate('NameFilm',IBTable1.fieldByName('Namevidezapisi').AsString,[])=true then

begin

If IBTable1.FieldByName('TipNositelya').AsString='DVD'then

begin

ViruchkaZaProkat:=ViruchkaZaProkat+form14.IBTable1.FieldByName('ProkatDVD').AsInteger;

end;

If IBTable1.FieldByName('TipNositelya').AsString='VHS'then

begin

ViruchkaZaProkat:=ViruchkaZaProkat+form14.IBTable1.FieldByName('ProkatVHS').AsInteger;

end;

If IBTable1.FieldByName('TipNositelya').AsString='VCD'then

begin

ViruchkaZaProkat:=ViruchkaZaProkat+form14.IBTable1.FieldByName('ProkatVCD').AsInteger;

end;

IBStoredProc1.ParamByName('Nazv').AsString:=IBTable1.fieldByName('Namevidezapisi').AsString;

IBStoredProc1.ExecProc;

form1.IBTable1.Edit;

form1.IBtable1.FieldByName('KolKopiy').AsInteger:=form1.IBtable1.FieldByName('KolKopiy').AsInteger+1;

form1.IBTable1.Post;

form1.IBTable1.Refresh;

IBTable1.Refresh;

end;

end;

procedure TForm5.FormShow(Sender: TObject);

begin

IBTable1.Refresh;

end;

procedure TForm5.SpeedButton4Click(Sender: TObject);

begin

close

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

if (edit1.Text='')and(edit2.Text='') then

begin

messagedlg('Введите информацию поиска!',mtWarning,[mbOK],0);

exit;

end;

if edit2.Text='' then

begin

if IBTable1.Locate('fioklienta',edit1.Text,[])=false then

begin

messagedlg('Ничего не найдено',mtInformation,[mbOK],0);

end;

end;

if edit1.Text='' then

begin

if IBTable1.Locate('Domtelklienta',strtoint(edit2.Text),[])=false then

begin

messagedlg('Ничего не найдено',mtInformation,[mbOK],0);

end;

end;

end;

procedure TForm5.SpeedButton6Click(Sender: TObject);

begin

form11.show;

end;

procedure TForm5.SpeedButton5Click(Sender: TObject);

begin

ProkatRV.Execute;

end;

end.

var

Form13: TForm13;Cena:integer;

implementation

Uses unit1, Unit14, Unit15,unit12;

{$R *.dfm}

procedure TForm13.SpeedButton2Click(Sender: TObject);

begin

close

end;

procedure TForm13.SpeedButton1Click(Sender: TObject);

var i,CenaDVD,CenaVHS,CenaVCD:integer;

begin

SpeedButton5.Enabled:=true;

CenaDVD:=0;CenaVHS:=0;CenaVCD:=0;

IBTable1.First;

for i:=1 to IBTable1.RecordCount do

begin

if IBTable1.FieldByName('TipNositelya').AsString='DVD'then

begin

IBTable1.Edit;

CenaDVD:=CenaDVD+IBtable1.FieldByName('CenaED').asinteger*IBtable1.fieldByName('Kolkopiy').asinteger;

ibtable1.FieldByName('CenaObsh').AsInteger:=CenaDVD;

end;

if IBTable1.FieldByName('TipNositelya').AsString='VHS'then

begin

IBTable1.Edit;

CenaVHS:=CenaVHS+IBtable1.FieldByName('CenaED').asinteger*IBtable1.fieldByName('Kolkopiy').asinteger;

ibtable1.FieldByName('CenaObsh').AsInteger:=CenaVHS;

end;

if IBTable1.FieldByName('TipNositelya').AsString='VCD'then

begin

IBTable1.Edit;

CenaVCD:=CenaVCD+IBtable1.FieldByName('CenaED').asinteger*IBtable1.fieldByName('Kolkopiy').asinteger;

ibtable1.FieldByName('CenaObsh').AsInteger:=CenaVCD;

end;

IBTable1.next;

end;

Cena:=CenaDVD+CenaVHS+CenaVCD;

Label1.Caption:='Сумма закупки' = '+ inttostr(Cena);

form15.IBTable1.Insert;

form15.IBTable1.FieldByName('Datazakupki').AsDateTime:=IBTable1.FieldByName('DataZakupki').AsDateTime;

form15.IBTable1.FieldByName('Postavshik').AsString:=IBTable1.FieldByName('Postavshik').AsString;

form15.IBTable1.FieldByName('SummaZakupki').AsInteger:=Cena;

end;

procedure TForm13.SpeedButton5Click(Sender: TObject);

var I,Kol:integer;

begin

if MessageDlg('Закупка закончена, перенести информацию в основную базу?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Begin

Kol:=0;

IBTable1.First;

for I:=1 to IBTable1.RecordCount do

begin

Form1.IBTable1.Insert;

Form1.IBTable1.FieldByName('NameFilm').AsString:=IBtable1.fieldbyname('NameFilma').AsString;

Form1.IBTable1.FieldByName('Janr').AsString:=IBtable1.fieldbyname('Janr').AsString;

if IBTable1.FieldByName('TipNositelya').AsString='DVD'then

form1.IBTable1.FieldByName('Cena').AsInteger:=IBTable1.FieldByName('CenaED').AsInteger+strtoint(form14.DBEdit2.text);

if IBTable1.FieldByName('TipNositelya').AsString='VHS'then

form1.IBTable1.FieldByName('Cena').AsInteger:=IBTable1.FieldByName('CenaED').AsInteger+strtoint(form14.DBEdit3.text);

if IBTable1.FieldByName('TipNositelya').AsString='VCD'then

form1.IBTable1.FieldByName('Cena').AsInteger:=IBTable1.FieldByName('CenaED').AsInteger+strtoint(form14.DBEdit4.text);

form1.IBTable1.FieldByName('TipNositelya').AsString:=IBTable1.fieldbyname('TipNositelya').AsString;

form1.IBTable1.FieldByName('KolKopiy').AsInteger:=IBTable1.fieldbyname('KolKopiy').AsInteger;

form1.IBTable1.FieldByName('Sostoyanie').AsString:='1';

form1.IBTable1.Post;

IBtable1.Next;

end;

end;

IBTable1.First;

for I:=1 to IBTable1.RecordCount do

begin

kol:= kol+IBTable1.fieldbyname('KOlKopiy').AsInteger;

IBTable1.Next;

end;

form15.IBTable1.FieldByName('ObsheeKolZakupki').AsInteger:=kol;

form15.IBTable1.Post;

//IBTable1.EmptyTable;/////

end;

procedure TForm13.SpeedButton4Click(Sender: TObject);

begin

form15.show

end;

procedure TForm13.SpeedButton3Click(Sender: TObject);

begin

ZakupkaRV.Execute;

end;

procedure TForm13.FormShow(Sender: TObject);

begin

form12.Show;

form12.Close;

end;

procedure TForm13.IBTable1AfterInsert(DataSet: TDataSet);

begin

GroupBox1.Enabled:=true;

GroupBox2.Enabled:=true;

GroupBox3.Enabled:=true;

end;

procedure TForm13.ComboBox2Change(Sender: TObject);

begin

IBTable1.Edit;

IBTable1.FieldByName('Postavshik').AsString:=ComboBox2.Text;

end;

procedure TForm13.ComboBox1Change(Sender: TObject);

begin

IBTable1.Edit;

IBTable1.FieldByName('Janr').AsString:=ComboBox1.Text;

end;

procedure TForm13.ComboBox3Change(Sender: TObject);

begin

IBTable1.Edit;

IBTable1.FieldByName('TipNositelya').AsString:=ComboBox3.Text;

end;

procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);

begin

IBTable1.Edit;

SpeedButton5.Enabled:=false;

end;

end.

procedure WriteStrParam(sName,sValue:string);

Function ReadStrParam(sName:string):string;

var

Form18: TForm18;

implementation

{$R *.dfm}

uses unit1, Unit20;

Procedure WriteStrParam(sName,sValue:string);

Var Reg:Tregistry;

begin

Reg:=TRegistry.Create;

with Reg do

begin

OpenKey('Software\Cinema',True);

WriteString(sName,sValue);

CloseKey;

Free;

end;

end;

Function ReadStrParam(sName:string):string;

Var Reg:TRegistry;

begin

Reg:=TRegistry.Create;

with reg do

begin

OpenKey('Software\Cinema',True);

Result:=ReadString(sName);

CloseKey;

Free;

end;

end;

procedure TForm18.BitBtn1Click(Sender: TObject);

begin

close

end;

procedure TForm18.SpeedButton1Click(Sender: TObject);

begin

close

end;

procedure TForm18.SpeedButton2Click(Sender: TObject);

var i:integer;

begin

WriteStrParam('Number salun',Spinedit1.Text);

WriteStrParam('KolProdavcov',Spinedit2.Text);

WriteStrParam('KolSalonov',Spinedit3.Text);

ModalResult:=mrOk;

form20.ComboBox1.Items.Clear;

for i:=1 to SpinEdit3.Value do

begin

form20.ComboBox1.Items.Add(inttostr(i));

end;

end;

procedure TForm18.FormShow(Sender: TObject);

var i:integer;

begin

form1.Combobox1.Items.Clear;

IBTable1.Refresh;

IBTable1.First;

for i:=1 to IBTable1.RecordCount do

begin

form1.combobox1.Items.Add(IBTable1.FieldByName('Fio').AsString);

IBTable1.Next;

end;

SpinEdit2.Text:=ReadStrParam('KolProdavcov');

SpinEdit3.Text:=ReadStrParam('Kolsalonov');

end;

procedure TForm18.IBTable1AfterPost(DataSet: TDataSet);

begin

spinedit2.Value:=IBTable1.RecordCount;

end;

end.

var

Form23: TForm23;

implementation

{$R *.dfm}

uses unit1, unit8, Unit25;

procedure TForm23.SpeedButton1Click(Sender: TObject);

begin

chart1.Series[0].Clear;

chart1.Series[1].Clear;

close

end;

procedure TForm23.SpeedButton2Click(Sender: TObject);

begin

form25.show

end;

procedure TForm23.FormShow(Sender: TObject);

begin

chart1.Series[0].Clear;

chart1.Series[1].Clear;

IBTable1.Refresh

end;

procedure TForm23.SpeedButton3Click(Sender: TObject);

Var i,min1,sr,max1,recKolKomediy1,recKolKomediy2,recKolKomediy3,RecKolMelodram1,RecKolMelodram2,RecKolMelodram3,

RecKolBoevikov1,RecKolBoevikov2,RecKolBoevikov3,RecKolUjasov1,RecKolUjasov2,RecKolUjasov3,RecKolMult1,

RecKolMult2,RecKolMult3, RecKolDoc1,RecKolDoc2,RecKolDoc3,RecKolSerialov1,RecKolSerialov2,RecKolSerialov3,

RecKolFantasi1,RecKolFantasi2,RecKolFantasi3,RecKolTrilerov1,RecKolTrilerov2,RecKolTrilerov3,RecKolHistory1,

RecKolHistory2,ReckolHistory3,RecKolMus1,RecKolMus2,recKolMus3,ReckolNauchnih1,ReckolNauchnih2,ReckolNauchnih3:integer;

SrKolMelodram1,SrKolMelodram2,SrKolMelodram3,SrKolKomediy1,SrKolKomediy2,SrKolKomediy3,

SrKolBoevikov1,SrKolBoevikov2,SrKolBoevikov3:extended;SrKolUjasov1,SrKolUjasov2,SrKolUjasov3,

SrKolMult1,SrKolMult2,SrKolMult3,SrKolDoc1,SrKolDoc2,SrKolDoc3,SrKolSerialov1,SrKolSerialov2,SrKolSerialov3,

SrKolFantasi1,SrKolFantasi2,SrKolfantasi3,SrKolTrilerov1,SrkolTrilerov2,SrKolNauchnih1,SrkolNauchnih2,

SrkolNauchnih3,SrKolTrilerov3,SrKolHistory1,

SrKolHistory2,SrKolHistory3,SrkolMus1,SrKolMus2,SrKolMus3:extended;

begin

min1:=36;sr:=50;max1:=65;

SrKolKomediy1:=0;

SrKolKomediy2:=0;

SrKolKomediy3:=0;

Prognoz.Last;//

for i:=1 to 92 do

begin

prognoz.Prior;// end;

for i:=1 to 30 do// begin

KolKomediy1:=SRKolKomediy1+Prognoz.FieldByName('KolKomediy').AsInteger;

Prognoz.Next;

end;

SrKolKomediy1:=SrKolKomediy1/30;

for i:=1 to 30 do //// begin

SRKolKomediy2:=SRKolKomediy2+Prognoz.FieldByName('KolKomediy').AsInteger;

Prognoz.Next;

end;

SrKolKomediy2:=SrKolKomediy2/30;

for i:=1 to 30 do//

begin

SRKolKomediy3:=SRKolKomediy3+Prognoz.FieldByName('KolKomediy').AsInteger;

Prognoz.Next;

end;

SrKolKomediy3:=SrKolKomediy3/30;

chart1.Series[0].AddXY(2,SRKolkomediy1,'',ClTeeColor);

chart1.Series[0].AddXY(4,SRKolkomediy2,'',ClTeeColor);

chart1.Series[0].AddXY(6,SRKolkomediy3,'',ClTeeColor);

/////////////////////////////// //////////////////////////////////

if SrKolKomediy3>sr then

begin

if SrKolKomediy2>sr then

begin

if SrKolKomediy1<sr then

begin

RecKolKomediy1:=min1;

end;

end;

end;

if SrKolKomediy3>sr then

begin

if SrKolKomediy2>sr then

begin

if SrKolKomediy1>sr then

begin

RecKolKomediy1:=min1;

end;

end;

end;

if SrKolKomediy3>sr then

begin

if SrKolKomediy2<sr then

begin

if SrKolKomediy1<sr then

begin

RecKolKomediy1:=max1;

end;

end;

end;

if SrKolKomediy3<sr then

begin

if SrKolKomediy2<sr then

begin

if SrKolKomediy1<sr then

begin

RecKolKomediy1:=min1;

end;

end;

end;

if SrKolKomediy3<sr then

begin

if SrKolKomediy2<sr then

begin

if SrKolKomediy1>sr then

begin

RecKolKomediy1:=max1;

end;

end;

end;

if SrKolKomediy3<sr then

begin

if SrKolKomediy2>sr then

begin

if SrKolKomediy1<sr then

begin

RecKolKomediy1:=min1;

end;

end;

end;

if SrKolKomediy3<sr then

begin

if SrKolKomediy2>sr then

begin

if SrKolKomediy1>sr then

begin

RecKolKomediy1:=min1;

end;

end;

end;

if ReckolKomediy1<sr then

begin

if SrKolKomediy3<sr then

begin

if SrKolKomediy2>sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy1<sr then

begin

if SrKolKomediy3<sr then

begin

if SrKolKomediy2<sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy1<sr then

begin

if SrKolKomediy3>sr then

begin

if SrKolKomediy2>sr then

begin

RecKolKomediy2:=min1;

end;

end;

end;

if ReckolKomediy1<sr then

begin

if SrKolKomediy3>sr then

begin

if SrKolKomediy2<sr then

begin

RecKolKomediy2:=min1;

end;

end;

end;

if ReckolKomediy1>sr then

begin

if SrKolKomediy3>sr then

begin

if SrKolKomediy2>sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy1>sr then

begin

if SrKolKomediy3>sr then

begin

if SrKolKomediy2<sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy1>sr then

begin

if SrKolKomediy3<sr then

begin

if SrKolKomediy2>sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy1>sr then

begin

if SrKolKomediy3<sr then

begin

if SrKolKomediy2<sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy2<sr then

begin

if recKolKomediy1<sr then

begin

if SrKolKomediy3<sr then

begin

RecKolKomediy3:=min1;

end;

end;

end;

if ReckolKomediy2<sr then

begin

if recKolKomediy1<sr then

begin

if SrKolKomediy3>sr then

begin

RecKolKomediy3:=min1;

end;

end;

end;

if ReckolKomediy2<sr then

begin

if recKolKomediy1>sr then

begin

if SrKolKomediy3>sr then

begin

RecKolKomediy3:=max1;

end;

end;

end;

if ReckolKomediy2<sr then

begin

if recKolKomediy1>sr then

begin

if SrKolKomediy3<sr then

begin

RecKolKomediy3:=max1;

end;

end;

end;

if ReckolKomediy2>sr then

begin

if recKolKomediy1>sr then

begin

if SrKolKomediy3>sr then

begin

RecKolKomediy3:=max1;

end;

end;

end;

if ReckolKomediy2>sr then

begin

if recKolKomediy1>sr then

begin

if SrKolKomediy3<sr then

begin

RecKolKomediy3:=min1;

end;

end;

end;

if ReckolKomediy2>sr then

begin

if recKolKomediy1<sr then

begin

if SrKolKomediy3<sr then

begin

RecKolKomediy3:=max1;

end;

end;

end;

if ReckolKomediy2>sr then

begin

if recKolKomediy1<sr then

begin

if SrKolKomediy3>sr then

begin

RecKolKomediy3:=max1;

end;

end;

end;

chart1.Series[1].AddXY(6,SrKolKomediy3,'',ClTeeColor);

chart1.Series[1].AddXY(8,RecKolKomediy1,'',ClTeeColor);

chart1.Series[1].AddXY(10,RecKolKomediy2,'',ClTeeColor);

chart1.Series[1].AddXY(12,RecKolKomediy3,'',ClTeeColor);