Пасько В.П. Самоучитель работы на персональном компьютере, 6-е изд., переработанное. - СПб: Питер; Киев: Издательская группа BHV, 2005 - с.654.
Яснев Ю.Д. Базы данных Access. Учебное пособие для студентов 2 курса экономических специальностей. - Челябинск, 2000 - с.55.
Аппак М.А. Автоматизированные рабочие места на основе персональных ЭВМ.- М.: Радио и связь, 1989 - с.176
Яворский В.В., Яворская Г.М. Введение в информационные технологии. - Издательство «Фолиант»: Астана - 2007 - с.255.
Гагарина Л.Г., Кокорева Е.В., Виснадул Б.Д. Технология разработки программного обеспечения: Учебное пособие - («Высшее образование») - М.: ИД «ФОРУМ» - ИНФРА-М, 2008 - с. 400.
Яворский В.В., Томилова Н.И. Технология разработки программного обеспечения. - Астана: Фолиант, 2007 - с.376.
Автоматизированные информационные технологии в экономике: Учебник М.И.Семенов, И.Т.Трубилин, В.М. Лойко, Т.П.Барановская; под общей ред. И.Т.Трубилина. - М.: Финансы и статистика, 2001 - с.368
Автоматизированное рабочее место для статистической обработки данных/В.В. Шураков, Д.М. Дайитбегов, С.В. Мизрохи, С.В. Ясеновский. - М.: Финансы и статистика, 1990 - с.190.
Климова Л.М. Delhi7. Основы программирования. Решение типовых задач. - М.: КУДИЦ-ОБРАЗ, 2006 - с.480.
Культин Н.Б. Delhi в задачах и примерах. - С.-П.: БХВ - Петербург, 2007 - с.247.
Культин Н.Б. Delhi.NET в задачах и примерах. - С.-П.: БХВ - Петербург, 2006 - с.384.
Нил Дж. Рубенкинг Язык программирования Delphi для "чайников". Введение в Borland Delphi 2006. - М.: «Диалектика» <http://ru.wikipedia.org/wiki/%D0%94%D0%B8%D0%B0%D0%BB%D0%B5%D0%BA%D1%82%D0%B8%D0%BA%D0%B0_(%D0%B8%D0%B7%D0%B4%D0%B0%D1%82%D0%B5%D0%BB%D1%8C%D1%81%D1%82%D0%B2%D0%BE)>, 2007 - с.336
Лямец В.И., Тевяшев А.Д. Системный анализ. - Харьков: ХТУРЭ, 1998 - с.252.
Приложение
Unit1;:byte; Put,Put2:string; Form1: TForm1;
{$R *.DFM}ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer): THandle;zFileName, zParams, zDir: array[0..79] of Char;:= ShellExecute(Application.MainForm.Handle, nil, StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),StrPCopy(zDir, DefaultDir), ShowCmd);end;ponedelnik;z,fff:integer;
begin // подсчет часы на будущию неделюform1.peg5.TabIndex=0 then // если суббота // по всем группам
for z:=1 to form1.StringGrid1.ColCount-1 doform1.Table2.Active:=false; //база дисцеплин группы 1.Table2.DatabaseName:=put+'\BDE\GRUPP';.Table2.TableName:=form1.StringGrid1.Cells[z,0]+'.db';.Table2.Active:=true; // открытие БД дистциплин группы.Table2.First; // Table2.FieldByName('Q').Value:=0;not form1.Table2.Eof do begin form1.Table2.Edit; //по всем парам 2.Table2.FieldByName('_N').Value:=form1.Table2.FieldByName('_N').Value+form1.Table2.FieldByName('N').Value;(form1.Table2.FieldByName('_N').Value>0) then //если часы осталисьform1.Table2.FieldByName('A').Value:=trunc(form1.Table2.FieldByName('_N').Value/2); //3 form1.Table2.FieldByName('VO_N').Value:=trunc(form1.Table2.FieldByName('A').Value/6)+1;end //3begin form1.Table2.FieldByName('VO_N').Value:=0; {form1.Table2.FieldByName('A').Value:=0} end;.Table2.Next; end;{2}fff:=0;.Table2.First; while not form1.Table2.eof do begin fff:=fff+form1.Table2.FieldByName('_N').Value; form1.Table2.Next; end; form1.Table2.First; while not form1.Table2.eof do begin form1.Table2.Edit; form1.Table2.FieldByName('Q').Value:=trunc(fff/12)+1; form1.Table2.Next;end;
end; { //1 //конец подсчет часы на будущию неделю } end;
procedure TForm1.BitBtn1Click(Sender: TObject); // нажата кнопка д.у преподователяform1.Menu:=MainMenu1; form1.Table1.DatabaseName:=put+'\BDE\DANNI'; form1.Table1.TableName:='PREPODOVATELI.DB';.Table1.Active:=true; FORM1.DBGri1.DataSource:=DataSource1; form1.Notebook1.ActivePage:='EditPrepodovateli';;TForm1.BitBtn2Click(Sender: TObject); // нажата кнопка д.у предметform1.Menu:=MainMenu2; form1.Table1.DatabaseName:=put+'\BDE\DANNI'; form1.Table1.TableName:='Predmeti.db';.Table1.Active:=true; FORM1.DBGri2.DataSource:=DataSource1; form1.Notebook1.ActivePage:='EditPredmeti';;TForm1.BitBtn3Click(Sender: TObject); // нажата кнопка д.у группуform1.Menu:=MainMenu3; form1.Table1.DatabaseName:=put+'\BDE\DANNI'; form1.Table1.TableName:='Gruppi.db';.Table1.Active:=true; FORM1.DBGri3.DataSource:=DataSource1; form1.Notebook1.ActivePage:='EditGruppi';;TForm1.Nazed2Click(Sender: TObject);form1.Table1.IndexName:=''; form1.Menu:=MainMenu; FORM1.DBGri2.DataSource.Edit;.Table1.Active:=false; form1.Notebook1.ActivePage:='титульный';;TForm1.Nazed3Click(Sender: TObject);form1.Table1.IndexName:=''; form1.Menu:=MainMenu; FORM1.DBGri3.DataSource.Edit;.Table1.Active:=false; form1.Notebook1.ActivePage:='титульный';;TForm1.ADD1Click(Sender: TObject);form1.Panel1_1.Enabled:=false; form1.Panel1.Visible:=false; form1.Panel1_3.Visible:=true; form1.DBGri1.Enabled:=false;;TForm1.ADD2Click(Sender: TObject);form1.Panel2_4.Visible:=false; form1.Panel2_1.Visible:=true; form1.Panel2.Enabled:=false; form1.DBGri2.Enabled:=false;;TForm1.ADD3Click(Sender: TObject);Panel3_5.Visible:=false; form1.Panel3.Visible:=true; panel3_3.Enabled:=false; form1.DBGri3.Enabled:=false;;TForm1.Delete1Click(Sender: TObject);IF not form1.Table1.IsEmpty THEN BEGIN FORM1.Table1.Delete end ELSE application.MessageBox('Таблица не содержит никаких данных','Внимание',0);TForm1.Delete2Click(Sender: TObject);IF not form1.Table1.IsEmpty THEN BEGIN FORM1.Table1.Delete end
ELSE application.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;
procedure TForm1.Delete3Click(Sender: TObject);IF not form1.Table1.IsEmpty THEN BEGIN(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.db'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG0'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG0'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.PX'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG1'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG1'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG2'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG2'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG3'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG3'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG4'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG4')); FORM1.Table1.Delete; END
ELSE application.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;
procedure TForm1.Locat3Click(Sender: TObject);i:string;IF not form1.Table1.IsEmpty THEN BEGIN case form1.RadioGroup3.ItemIndex of 0:i:='INDEX'; 1:i:='NAME';end;Table1.Locate(i, Edit3.Text,[loCaseInsensitive, loPartialKey]) then else.MessageBox('Поиск не дал результата','Внимание',0); form1.Edit3.Text:='';END ELSE application.MessageBox('Таблица не содержит никаких данных','Внимание',0); Edit3.Text:=''; end;TForm1.Locat1Click(Sender: TObject);I:STRING;IF not form1.Table1.IsEmpty THEN BEGIN case form1.RadioGroup1.ItemIndex of 0:i:='TAB';1:i:='PREPOD';end;Table1.Locate(i, Edit1.Text,[loCaseInsensitive, loPartialKey]) then else.MessageBox('Поиск не дал результата','Внимание',0);Edit1.Text:='';end
ELSE application.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;
procedure TForm1.Locat2Click(Sender: TObject);I:STRING;IF not form1.Table1.IsEmpty THENcase form1.RadioGroup2.ItemIndex of 0:i:='KOD'; 1:i:='PREDMET'; end;Table1.Locate(i, Edit2.Text,[loCaseInsensitive, loPartialKey]) then else.MessageBox('Поиск не дал результата','Внимание',0); form1.Edit2.Text:=''; endapplication.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;TForm1.Edit1Change(Sender: TObject);if edit1.Text='' then locat1.Enabled:=false else locat1.Enabled:=true; end;TForm1.Edit2Change(Sender: TObject);if edit2.Text='' then locat2.Enabled:=false else locat2.Enabled:=true; end;TForm1.Edit3Change(Sender: TObject);if edit3.Text='' then locat3.Enabled:=false else locat3.Enabled:=true; end;TForm1.EditPar3Click(Sender: TObject);IF not form1.Table1.IsEmpty THEN BEGIN.Menu:=MainMenu4;form1.Table1.IndexName:='';form1.Notebook1.ActivePage:='Список предметов'; //свясь с базой нагрузки <группа>.db.Table2.DatabaseName:=put+'\BDE\GRUPP'; form1.Table2.TableName:=form1.Table1.FieldByName('Name').Text+'.db';.Table2.Active:=true; Label14.Caption:='Группа '+Table1.FieldByName('Name').AsString; //свясь с базой PREDMETI.db.Table1.Active:=false; form1.Table1.DatabaseName:=put+'\BDE\DANNI'; form1.Table1.TableName:='PREDMETI.db';.Table1.Active:=true; //свясь с БД Prepodovateli.db.Table3.DatabaseName:=put+'\BDE\DANNI'; form1.Table3.TableName:='Prepodovateli.db'; form1.Table3.Active:=true;.DBGri4.DataSource:=DataSource2;form1.DBComboBox4.DataSource:=DataSource2; form1.DBComboBox4.ListSource:=DataSource1;.DBComboBox4.DataField:='PREDMET';form1.DBComboBox4.KeyField:='predmet';form1.DBComboBox4_4.DataSource:=DataSource2;.DBComboBox4_4.ListSource:=DataSource3;form1.DBComboBox4_4.DataField:='prepod';form1.DBComboBox4_4.KeyField:='prepod';.DBEdit4.DataSource:=DataSource2;form1.DBEdit4.DataField:='VV';form1.DBEdit4_4.DataSource:=DataSource2;.DBEdit4_4.DataField:='N'; END ELSE application.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;TForm1.Nazad4Click(Sender: TObject);.Table2.IndexName:='';form1.Menu:=MainMenu3;form1.DBEdit4.DataField:='';form1.DBEdit4.DataSource.Edit;form1.DBEdit4_4.DataField:='';.DBEdit4_4.DataSource.Edit;fORM1.DBGri4.DataSource.Edit;form1.DBComboBox4.DataField:=''; form1.DBComboBox4.KeyField:=''; form1.DBComboBox4.DataSource.Edit; form1.DBComboBox4.ListSource.Edit;form1.DBComboBox4_4.DataField:=''; form1.DBComboBox4_4.KeyField:=''; form1.DBComboBox4_4.DataSource.Edit; form1.DBComboBox4.ListSource.Edit;form1.Notebook1.ActivePage:='EditGruppi';.Table1.Active:=false; form1.Table1.TableName:=''; form1.Table1.DatabaseName:='';form1.Table2.Active:=false;.Table2.DatabaseName:=''; form1.Table2.TableName:='';form1.Table3.Active:=false; form1.Table3.DatabaseName:='';.Table3.TableName:='';form1.Table1.DatabaseName:=put+'\BDE\DANNI';form1.Notebook1.ActivePage:='EditGruppi';.Table1.TableName:='Gruppi.db';form1.Table1.Active:=true;FORM1.DBGri3.DataSource:=DataSource1; end;TForm1.ADD3_1Click(Sender: TObject);z:integer;if not fileexists(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.db') then begin.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.db'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.db'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.XG0'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.XG0'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.YG0'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.YG0'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.PX'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.PX'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.XG1'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.XG1'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.YG1'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.YG1'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.XG2'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.XG2'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.YG2'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.YG2'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.XG3'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.XG3'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.YG3'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.YG3'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.XG4'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.XG4'),true);.CopyFile(pchar(put+'\BDE\GRUPP\BOL\BOLVANKA.YG4'),pchar(put+'\BDE\GRUPP\'+edit3_3_3.Text+'.YG4'),true);z:=1 to 6 do FORM1.Table1.Insert; form1.Table1.FieldByName('index').Value:=strtoint(edit3_3.Text);.Table1.FieldByName('NAME').Value:=edit3_3_3.Text; form1.Table1.Next; form1.Table1.Prior;panel3.Visible:=false;_3_3.Text:='';edit3_3.Text:='';panel3_3.Enabled:=true;Panel3_5.Visible:=true;form1.DBGri3.Enabled:=true;end
else application.MessageBox(' Группа уже существует ','В н и м а н и е',0) end;
procedure TForm1.Nazad1Click(Sender: TObject);.DBGri1.DataSource.Edit;form1.Table1.Active:=false; form1.Table1.IndexName:='';.Notebook1.ActivePage:='титульный';form1.Menu:=MainMenu; end;TForm1.CenclClick(Sender: TObject);_5.Visible:=true;panel3.Visible:=false;panel3_3.Enabled:=true;.DBGri3.Enabled:=true; end;TForm1.Editen3Click(Sender: TObject);IF not form1.Table1.IsEmpty THEN BEGIN Panel3_5.Visible:=false;_2.Text:=form1.Table1.FieldByName('Name').Text; edit3_1.Text:=form1.Table1.FieldByName('index').Text;.Panel3_2.Visible:=true; panel3_3.Enabled:=false;.DBGri3.Enabled:=false; ENDapplication.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;TForm1.EditBtn3_1Click(Sender: TObject);Panel3_5.Visible:=true;panel3_2.Visible:=false;panel3_3.Enabled:=true;.DBGri3.Enabled:=true; end;TForm1.EditBtn3Click(Sender: TObject);Panel3_5.Visible:=true;.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.db'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.db'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG0'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.XG0'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG0'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.YG0'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.PX'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.PX'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG1'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.XG1'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG1'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.YG1'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG2'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.XG2'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG2'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.YG2'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG3'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.XG3'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG3'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.YG3'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG4'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.XG4'));.MoveFile(pchar(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG4'),pchar(put+'\BDE\GRUPP\'+edit3_2.Text+'.YG4'));.Table1.Edit; form1.Table1.FieldByName('Name').Value:=edit3_2.Text; form1.Table1.FieldByName('index').Value:=strtoint(edit3_1.Text);_2.Visible:=false;panel3_3.Enabled:=true;form1.DBGri3.Enabled:=true; end;TForm1.ADD4Click(Sender: TObject);form1.Panel4.Enabled:=false;form1.DBGri4.Enabled:=false;.Panel4_4.Visible:=true;form1.Table2.Insert; end;TForm1.AddBtn4Click(Sender: TObject);form1.Table2.FieldByName('VP').Value:=form1.Table2.FieldByName('VV').Value;.Table2.FieldByName('_N').Value:=form1.Table2.FieldByName('N').Value;.Table2.FieldByName('VO_N').Value:=0; try form1.Table2.Next;.Panel4_4.Visible:=false; form1.Table2.Prior;.Panel4.Enabled:=true; form1.DBGri4.Enabled:=true;application.MessageBox('Повторение дисцеплины','Внимание',0) end; end;TForm1.DelBtn4Click(Sender: TObject);form1.Panel4.Enabled:=true; form1.DBGri4.Enabled:=true; form1.Table2.Delete;.Panel4_4.Visible:=false; end;TForm1.Delete4Click(Sender: TObject);IF not form1.Table2.IsEmpty THEN BEGIN form1.Table2.Delete; end
ELSE application.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;
procedure TForm1.Edit4Click(Sender: TObject);IF not form1.Table2.IsEmpty THEN BEGIN form1.Table3.First;not form1.Table3.Eof doform1.DBCombo4.Items.Add(form1.Table3.FieldByName('PREPOD').Text);.Table3.Next; form1.Panel4.Enabled:=false; form1.DBGri4.Enabled:=false;.DBCombo4.Text:=form1.Table2.FieldByName('PREPOD').Text;.Edit4_3.Text:=form1.Table2.FieldByName('VV').Text;.Edit4_4.Text:=form1.Table2.FieldByName('N').Text;.Panel4_1.Visible:=true; end ELSE
application.MessageBox('Таблица не содержит никаких данных','Внимание',0)
end;TForm1.ADD4_1Click(Sender: TObject);form1.Panel4.Enabled:=true; form1.DBGri4.Enabled:=true; form1.Table2.Edit;.Table2.FieldByName('PREPOD').Value:=Form1.DBCombo4.Text;.Table2.FieldByName('VV').Value:=Form1.Edit4_3.Text;.Table2.FieldByName('N').Value:=Form1.Edit4_4.Text;.Table2.FieldByName('VP').Value:=form1.Table2.FieldByName('VV').Value;.Table2.FieldByName('_N').Value:=form1.Table2.FieldByName('N').Value;.Table2.FieldByName('VO_N').Value:=0; Form1.Panel4_1.Visible:=false; end;TForm1.Cencl4_1Click(Sender: TObject);form1.Panel4.Enabled:=true; form1.DBGri4.Enabled:=true; .Panel4_1.Visible:=false; end;TForm1.DelAll4Click(Sender: TObject);IF not form1.Table2.IsEmpty THEN BEGIN form1.Table2.First;
if iDOK=application.MessageBox('Все данные которые содержатся в этой тоблице будут'+#13+'У Н И Ч Т О Ж Е Н Ы','В Н И М А Н И Е',1) then
while not form1.Table2.IsEmpty do begin form1.Table2.Delete; end end
ELSE application.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;
procedure TForm1.DelAll3Click(Sender: TObject);IF not form1.Table1.IsEmpty THEN BEGIN form1.Table1.First;
if iDOK=application.MessageBox('Все данные которые содержатся в этой тоблице будут'+#13+'У Н И Ч Т О Ж Е Н Ы','В Н И М А Н И Е',1) then
while not form1.Table1.IsEmpty doDeleteFile(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.db'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG0'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG0'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.PX'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG1'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG1'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG2'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG2'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG3'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG3'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.XG4'));(string(put+'\BDE\GRUPP\'+form1.Table1.FieldByName('Name').Text+'.YG4'));.Table1.Delete; end END ELSE
application.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;
procedure TForm1.CenclBtn2Click(Sender: TObject);edit2_1.Text:='';edit2_2.Text:=''; form1.Panel2_1.Visible:=false;form1.Panel2.Enabled:=true;.DBGri2.Enabled:=true;form1.Panel2_4.Visible:=true; end;TForm1.AddBtn2Click(Sender: TObject);FORM1.Table1.Insert; form1.Table1.FieldByName('KOD').Value:=edit2_1.Text;.Table1.FieldByName('PREDMET').Value:=edit2_2.Text; edit2_1.Text:='';edit2_2.Text:='';.Panel2_1.Visible:=false; form1.Panel2.Enabled:=true; form1.DBGri2.Enabled:=true;.Table1.Next; form1.Table1.Prior; form1.Panel2_4.Visible:=true; end;TForm1.EditBtn2Click(Sender: TObject);IF not form1.Table1.IsEmpty THEN BEGIN_3.Text:=form1.Table1.FieldByName('KOD').Text;_4.Text:=form1.Table1.FieldByName('PREDMET').Text;.Panel2_2.Visible:=true; form1.Panel2_4.Visible:=false; END ELSE
application.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;
procedure TForm1.EdBtn2Click(Sender: TObject);FORM1.Table1.Edit; form1.Table1.FieldByName('KOD').Value:=edit2_3.Text;.Table1.FieldByName('PREDMET').Value:=edit2_4.Text; edit2_3.Text:='';edit2_4.Text:='';.Panel2_2.Visible:=false; form1.Panel2.Enabled:=true; form1.DBGri2.Enabled:=true;.Table1.Next; form1.Table1.Prior; form1.Panel2_4.Visible:=true;end;TForm1.CenBtn2Click(Sender: TObject);edit2_3.Text:='';edit2_4.Text:='';form1.Panel2_2.Visible:=false;form1.Panel2.Enabled:=true;.DBGri2.Enabled:=true;form1.Panel2_4.Visible:=true;end;TForm1.DelBtn2Click(Sender: TObject);IF not form1.Table1.IsEmpty THEN BEGIN form1.Table1.First;
if iDOK=application.MessageBox('Все данные которые содержатся в этой тоблице будут'+#13+'У Н И Ч Т О Ж Е Н Ы','В Н И М А Н И Е',1) then begin
while not form1.Table1.IsEmpty do FORM1.Table1.Delete; end END
ELSE application.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;
procedure TForm1.BitBtn6Click(Sender: TObject);IF not form1.Table1.IsEmpty THEN BEGIN form1.Panel1_4.Visible:=true;.Panel1_1.Enabled:=false;form1.Panel1.Visible:=false;form1.DBGri1.Enabled:=false;.Edit1_4.Text:=form1.Table1.FieldByName('TAB').Text;.Edit1_5.Text:=form1.Table1.FieldByName('PRepod').Text end
ELSE application.MessageBox('Таблица не содержит никаких данных','Внимание',0)end;
procedure TForm1.DelAll1Click(Sender: TObject);IF not form1.Table1.IsEmpty THEN BEGINiDOK=application.MessageBox('Все данные которые содержатся в этой тоблице будут'+#13+'У Н И Ч Т О Ж Е Н Ы','В Н И М А Н И Е',1) then while not form1.Table1.IsEmpty do FORM1.Table1.Delete;end ELSE
application.MessageBox('Таблица не содержит никаких данных','Внимание',0) end;
procedure TForm1.AddBtn1Click(Sender: TObject);FORM1.Table1.Insert; form1.Table1.FieldByName('TAB').Value:=editAdd1_1.Text;.Table1.FieldByName('PRepod').Value:=editAdd1_2.Text;_1.Text:='';editAdd1_2.Text:=''; form1.Panel1.Visible:=true;.Panel1_3.Visible:=false; form1.DBGri1.Enabled:=true; form1.Table1.Next;.Table1.Prior; form1.Panel1_1.Enabled:=true;end;TForm1.CenclBtn1Click(Sender: TObject);form1.Panel1_1.Enabled:=true;form1.Panel1.Visible:=true;form1.Panel1_3.Visible:=false;.DBGri1.Enabled:=true; end;TForm1.EditBtn1_5Click(Sender: TObject);FORM1.Table1.Edit; form1.Table1.FieldByName('TAB').Value:=edit1_4.Text;.Table1.FieldByName('PRepod').Value:=edit1_5.Text;form1.Panel1_4.Visible:=false;.Panel1_1.Enabled:=true;form1.Panel1.Visible:=true;form1.DBGri1.Enabled:=true;end;TForm1.BitBtn1_5Click(Sender: TObject);form1.Panel1_4.Visible:=false; form1.Panel1_1.Enabled:=true;form1.Panel1.Visible:=true;.DBGri1.Enabled:=true; end;TForm1.N11Click(Sender: TObject);form1.Table1.IndexName:='t'; end;TForm1.N12Click(Sender: TObject);form1.Table1.IndexName:='P'; end;TForm1.MenuItem10Click(Sender: TObject);form1.Table1.IndexName:='k'; end;TForm1.MenuItem11Click(Sender: TObject);form1.Table1.IndexName:='p'; end;TForm1.MenuItem21Click(Sender: TObject);form1.Table1.IndexName:='ind'; end;TForm1.MenuItem22Click(Sender: TObject);form1.Table1.IndexName:=''; end;TForm1.MenuItem32Click(Sender: TObject);form1.Table2.IndexName:='pt'; end;TForm1.MenuItem33Click(Sender: TObject);form1.Table2.IndexName:='pd'; end;TForm1.N14Click(Sender: TObject);form1.Table2.IndexName:='v'; end;TForm1.N15Click(Sender: TObject);form1.Table2.IndexName:='NN'; end;
// нажаа кнопка расписаниеTForm1.BitBtn5Click(Sender: TObject);q:integer;//Связ с базой дат.Date_Table.Active:=false;form1.Date_Table.DatabaseName:=put+'\BDE\DANNI';.Date_Table.TableName:='Data.DB';form1.Date_Table.Active:=true;.Table2.DatabaseName:=put+'\BDE\DANNI';form1.Table2.TableName:='GRUPPI.db';.Table2.Active:=true; IF not form1.Table2.IsEmpty THEN BEGIN form1.Menu:=MainMenu5; form1.peg5.TabIndex:=-1;.StringGrid1.ColWidths[0]:=60; form1.StringGrid1.Cells[0,0]:='Группы';.StringGrid1.Cells[0,1]:='1 пара'; form1.StringGrid1.Cells[0,2]:='2 пара';.StringGrid1.Cells[0,3]:='3 пара'; form1.StringGrid1.Cells[0,4]:='4 пара';.StringGrid1.Cells[0,5]:='5 пара'; form1.StringGrid1.Cells[0,6]:='6 пара';.StringGrid1.Cells[0,7]:='7 пара'; form1.StringGrid1.Cells[0,8]:='8 пара';
// осуществления доступа к базе GRUPPI.DB
form1.Table1.Active:=false; form1.Table1.DatabaseName:=put+'\BDE\DANNI';.Table1.TableName:='Gruppi.db'; Table1.IndexName:=''; form1.Table1.Active:=true; form1.StringGrid1.ColCount:=1;{form1.Table1.RecordCount+1; }q:=1;
//заполнения таблици группами учащихсяnot form1.Table1.Eof do BEGIN Table2.Active:=false;.DatabaseName:=put+'\BDE\GRUPP';.TableName:=form1.Table1.FieldByName('NAME').Text+'.db'; Table2.Active:=true; if not form1.Table2.IsEmpty then begin form1.StringGrid1.ColCount:=form1.StringGrid1.ColCount+1;.StringGrid1.Cells[q,0]:=form1.Table1.FieldByName('NAME').Text; q:=q+1;;form1.Table1.Next;END; // осуществления доступа к базе DEN_?.DB.Table1.Active:=false;form1.Notebook1.ActivePage:='РАСПИСАНИЕ';ENDbegin application.MessageBox('Нет не одной группы','Внимание',0);.Table2.Active:=false;end;end;TForm1.Nazad5Click(Sender: TObject);q,w:integer;N47.Enabled:=false; N48.Enabled:=false; form1.RASPRED5.Enabled:=FALSE;.Del5.Enabled:=false; form1.Creat5.Enabled:=false; form1.peg5.TabIndex:=-1;.Menu:=MainMenu; form1.Table1.Active:=false; form1.Notebook1.ActivePage:='титульный'; form1.Table2.Active:=false;q:=1 to form1.StringGrid1.ColCount-1 do begin for w:=1 to 8 do.StringGrid1.Cells[q,w]:=''; end; end;
// выбор дня неделиTForm1.peg5Change(Sender: TObject);q,w:integer;N47.Enabled:=true; N48.Enabled:=true; form1.Del5.Enabled:=true; form1.Creat5.Enabled:=TRUE; q:=0; form1.Table1.Active:=false; form1.Table1.DatabaseName:=put+'\BDE\DNI_nedeli';.Table1.TableName:='DEN_'+inttostr(form1.peg5.TabIndex+1)+'.DB';.Table1.Active:=true; //Пишит дату.Date_Table.First; for w:=1 to form1.peg5.TabIndex do form1.Date_Table.Next;.Caption:='Составленное на '+Date_Table.FieldByName('Ч').AsString;
//заполнение таблициnot form1.Table1.IsEmpty THEN for q:=1 to form1.StringGrid1.ColCount-1 doif form1.Table1.Locate('GRUPPI',form1.StringGrid1.Cells[q,0],[]) then for w:=1 to 8 do.StringGrid1.Cells[q,w]:=form1.Table1.FieldByName('p_'+inttostr(w)).Text+'/'+form1.Table1.FieldByName('pr_'+inttostr(w)).Text else for w:=1 to 8 do form1.StringGrid1.Cells[q,w]:='';else begin for q:=1 to form1.StringGrid1.ColCount-1 do begin for w:=1 to 8 do form1.StringGrid1.Cells[q,w]:=''; end; end;if form1.peg5.TabIndex=0 then q:=6 else q:=form1.peg5.TabIndex;
// разрешить составить расписание на другой день
if ((Table4.FieldByName('Q'+inttostr(form1.peg5.TabIndex)).Value=0)(Table4.FieldByName('Q'+inttostr(q-1)).Value=1 )(Date_Table.FieldByName('Ч').AsDateTime<Date)) or (q=6)(Table4.FieldByName('Q0').Value=0) nd(Table4.FieldByName('Q1').Value=0)(Table4.FieldByName('Q2').Value=0) nd(Table4.FieldByName('Q3').Value=0)(Table4.FieldByName('Q4').Value=0) nd(Table4.FieldByName('Q5').Value=0)begin form1.RASPRED5.Enabled:=true; form1.Bit.Enabled:=true end else begin form1.Bit.Enabled:=false; form1.RASPRED5.Enabled:=false; end; end;clears;q,w:integer;form1.Table1.First; for q:=1 to form1.StringGrid1.ColCount-1 do beginw:=1 to 8 do begin form1.StringGrid1.Cells[q,w]:=''; form1.Table1.Edit;.Table1.FieldByName('PR_'+inttostr(w)).Text:=''; form1.Table1.FieldByName('P_'+inttostr(w)).Text:=''; end; end; form1.Table1.Next; end; // составить расписание на текущий деньTForm1.RASPRED5Click(Sender: TObject);opn,wq;D:TDateTime; x:integer;//ошибки ввода
m:integer;//номер пары:integer;//пршло пар у группы,q,w,u,p,l,z:integer; //q = группа в таблици:real; //остаток пар на неделю// если начало недели добавить часыform1.peg5.TabIndex=0 then ponedelnik; // если понедельник// запомнить дату
form1.Date_Table.Prior; d:=Date_Table.FieldByName('Ч').AsDateTime;.Date_Table.Next; form1.Date_Table.Edit;form1.peg5.TabIndex=0 then begin form1.Date_Table.Last;:=Date_Table.FieldByName('Ч').AsDateTime; form1.Date_Table.First;.Date_Table.Edit;form1.Date_Table.FieldByName('Ч').AsDateTime:=D+2 end else begin form1.Date_Table.Prior;d:=Date_Table.FieldByName('Ч').AsDateTime;.Date_Table.Next; form1.Date_Table.Edit;.Date_Table.FieldByName('Ч').AsDateTime:=D+1;; form1.Date_Table.Post; // обновляет на дисплее.Date_Table.First;for w:=1 to form1.peg5.TabIndex do form1.Date_Table.Next;.Caption:='Составленное на '+Date_Table.FieldByName('Ч').AsString;