Помощь в написании студенческих работ
Антистрессовый сервис

БИБЛИОГРАФИЧЕСКИЙ Список. 
Разработка приложения управления базами данных "Математика"

Реферат: БИБЛИОГРАФИЧЕСКИЙ Список. Разработка приложения управления базами данных "Математика"
РефератПомощь в написанииУзнать стоимостьмоей работы

Петров, В. Н. Информационные системы: учеб. пособие / В. Н. Петров. — СПб.: Питер, 2002. — 588 с. Осипов Д. Л. Базы данных и Delphi: Теория и практика. (+DVD) — СПб.: БХВ-Петербург, 2011 — 752 с. Sql. Add ('where (Ученые.Фамилия like'''+'%'+f+'%'+''')and (Ученые.КодУченого=научные_утв.Фамилия)'); Sql. Add ('where (Ученые.Фамилия like'''+'%'+f+'%'+''')and (Ученые.КодУченого=научные_утв.Фамилия… Читать ещё >

БИБЛИОГРАФИЧЕСКИЙ Список. Разработка приложения управления базами данных "Математика" (реферат, курсовая, диплом, контрольная)

  • 1. Голицин О. Л., Максимов Н. В., Васильков И. А. Информационные системы. Учеб. пособие. — М.: Форум 2010
  • 2. Культин Н. Б. Основы программирования в Delphi7. — СПб.: БХВ-Петербург, 2003 — 608 с.
  • 3. Осипов Д. Л. Базы данных и Delphi: Теория и практика. (+DVD) — СПб.: БХВ-Петербург, 2011 — 752 с.
  • 4. Петров, В. Н. Информационные системы: учеб. пособие / В. Н. Петров. — СПб.: Питер, 2002. — 588 с.
  • 5. Фленов М. Е. Библия Delphi. (+CD-ROM) — СПб.: БХВ — Петербург, 2011 — 688 с.

Интернет-ресурсы:

  • 1. Московский государственный университет им. М. В. Ломоносова: [Электронный ресурс] URL: http://www.msu.ru. (Дата обращения: 08.04.2015).
  • 2. Интернет ресурс Википедия https://ru.wikipedia.org (Дата обращения: 08.04.2015).
  • 3. Пошаговая инструкция создания программы на Delphi — чайнику! [Электронный ресурс] http://delphinew.ru // Создание базы данных в Delphi: URL: http://delphinew.ru/sozdanie-bazi-dannich-v-delphi/ (Дата обращения: 10.04.2015)
  • 4. Теоремы по математике. Категории. http://ru.math.wikia.com/ (Дата обращения: 10.04.2015)
  • 5. Теоремы http://edu.alnam.ru/

Приложения

Листинг.

procedure TForm1. Button1Click (Sender: TObject);

begin.

form2.Show;

Form1.Hide;

form8.DBNavigator1.Visible:=true;

form8.DBNavigator2.Visible:=false;

form8.DBGrid1.ReadOnly:=false;

form8.DBImage1.ReadOnly:=false;

form6.DBNavigator2.Visible:=true;

form6.DBNavigator1.Visible:=false;

form6.DBEdit1.ReadOnly:=false;

form6.DBEdit2.ReadOnly:=false;

form6.DBMemo1.ReadOnly:=false;

form6.DBImage1.ReadOnly:=false;

form4.DBNavigator1.Visible:=True;

form4.DBNavigator2.Visible:=False;

form4.DBGrid1.ReadOnly:=false;

form4.DBMemo1.ReadOnly:=false;

end;

procedure TForm1. BitBtn1Click (Sender: TObject);

begin.

close;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin.

form3.Show;

Form8.DBNavigator1.Visible:=false;

Form8.DBNavigator2.Visible:=true;

form8.DBGrid1.ReadOnly:=true;

form8.DBImage1.ReadOnly:=true;

Form4.DBNavigator1.Visible:=false;

Form4.DBNavigator2.Visible:=true;

form4.DBGrid1.ReadOnly:=true;

form4.DBMemo1.ReadOnly:=true;

form6.DBNavigator2.Visible:=false;

form6.DBNavigator1.Visible:=true;

form6.DBEdit1.ReadOnly:=true;

form6.DBEdit2.ReadOnly:=true;

form6.DBMemo1.ReadOnly:=true;

form6.DBImage1.ReadOnly:=true;

end;

end.

procedure TForm2. Button2Click (Sender: TObject);

begin.

Form2.Close;

form1.Show;

end;

procedure TForm2. Button1Click (Sender: TObject);

begin.

if edit1. Text='20 021 995' then form3.Show.

else.

Showmessage ('Неправильно!');

end;

end.

procedure TForm3. Button1Click (Sender: TObject);

begin.

form6.show;

close;

end;

procedure TForm3. Button2Click (Sender: TObject);

begin.

form4.show;

close;

end;

procedure TForm3. Button3Click (Sender: TObject);

begin.

form8.show;

end;

procedure TForm3. Button4Click (Sender: TObject);

begin.

form1.show;

form2.close;

form3.Close;

end;

end.

procedure TForm4. N5Click (Sender: TObject);

begin.

datamodule4.ADOTable2.IndexFieldNames:='название ASC';

end;

procedure TForm4. N6Click (Sender: TObject);

begin.

datamodule5.ADOTable2.IndexFieldNames:='название DESC';

end;

procedure TForm4. N4Click (Sender: TObject);

begin.

t:=inputbox ('Поиск типа','Введите тип','');

datamodule5.ADOTable2.Filtered:=true;

datamodule5.ADOTable2.Filter:='тип='+quotedstr (t);

if datamodule5. ADOTable2.RecordCount=0 then.

begin.

showmessage ('Нет таких записей!'); datamodule5. ADOTable2.Filtered:=false;

end;

end;

procedure TForm4. N3Click (Sender: TObject);

begin.

f:=inputbox ('Поиск Типа','Введите фамилию','');

With datamodule5. ADOQuery2 do.

begin.

sql.Clear;

sql.Add ('Select Ученые. Фамилия, Ученые. Фото, Научные_утв.название, Научные_утв.тип, Научные_утв.Доказательство, Научные_утв.наименование_раздела');

sql.Add ('From Ученые, Научные_утв');

sql.Add ('where (Ученые.Фамилия like'''+'%'+f+'%'+''')and (Ученые.КодУченого=Научные_утв.Фамилия)');

sql.Add ('order by Ученые. Фамилия asc');

active:=true;

end;

if datamodule5. Adoquery2.recordcount0 then.

begin.

form14.show;

{Form7.DBEdit1.datafield:='Фамилия'; form7. DBEdit2.datafield:='Имя';}.

end.

else showmessage ('Нет таких записей!');

form4.Hide;

end;

procedure TForm4. Dthyenmcz1Click (Sender: TObject);

begin.

form4.Close;

form3.Show;

end;

procedure TForm4. N11Click (Sender: TObject);

begin.

form11.show;

end;

end.

procedure TForm6. N10Click (Sender: TObject);

begin.

f:=inputbox ('Поиск Фамилии','Введите Фамилию','');

With datamodule5. ADOQuery1 do.

begin.

sql.Clear;

sql.Add ('Select Ученые. Фамилия, Ученые. Имя, Ученые. Фото, научные_утв.название, научные_утв.Доказательство');

sql.Add ('From Ученые, научные_утв');

sql.Add ('where (Ученые.Фамилия like'''+'%'+f+'%'+''')and (Ученые.КодУченого=научные_утв.Фамилия)');

sql.Add ('order by Ученые. Фамилия');

active:=true;

end;

if datamodule5. ADOQuery1.RecordCount0 then.

begin.

form7.show;

end.

else showmessage ('Нет таких записей!');

form6.Hide;

end;

procedure TForm6. N14Click (Sender: TObject);

begin.

datamodule5.ADOTable1.IndexFieldNames:='Фамилия ASC';

end;

procedure TForm6. N15Click (Sender: TObject);

begin.

datamodule5.ADOTable1.IndexFieldNames:='Фамилия DESC';

end;

procedure TForm6. N1Click (Sender: TObject);

begin.

form6.Close;

Form3.Show;

end;

procedure TForm6. N5Click (Sender: TObject);

begin.

AboutBox.Show;

end;

procedure TForm6. N3Click (Sender: TObject);

begin.

Form11.show;

end;

procedure TForm6. N6Click (Sender: TObject);

begin.

f:=inputbox ('Поиск Фамилии','Введите Фамилию','');

With datamodule5. ADOQuery1 do.

begin.

sql.Clear;

sql.Add ('Select Ученые. Фамилия, Ученые. Имя, Ученые. Фото, научные_утв.название, научные_утв.Доказательство');

sql.Add ('From Ученые, научные_утв');

sql.Add ('where (Ученые.Фамилия like'''+'%'+f+'%'+''')and (Ученые.КодУченого=научные_утв.Фамилия)');

sql.Add ('order by Ученые. Фамилия');

active:=true;

end;

if datamodule5. ADOQuery1.RecordCount0 then.

begin.

form7.show;

end.

else showmessage ('Нет таких записей!');

form6.Hide;

end;

end.

procedure TForm7. Button1Click (Sender: TObject);

begin.

form7.Close;

Form6.Show;

end;

end.

procedure TForm8. N7Click (Sender: TObject);

begin.

AboutBox.show;

end;

procedure TForm8. N8Click (Sender: TObject);

begin.

datamodule5.ADOTable1.Filtered:=false;

end;

procedure TForm8. N2Click (Sender: TObject);

begin.

t:=inputbox ('Поиск фигуры','Введите фигуру','');

datamodule5.ADOTable4.Filtered:=true;

datamodule5.ADOTable4.Filter:='фигура='+quotedstr (t);

if datamodule5. ADOTable4.RecordCount=0 then.

begin.

showmessage ('Нет таких записей!'); datamodule5. ADOTable4.Filtered:=false;

end;

end;

procedure TForm8. N3Click (Sender: TObject);

begin.

datamodule5.ADOTable4.Filtered:=false;

end;

procedure TForm8. N14Click (Sender: TObject);

begin.

f:=inputbox ('Поиск Фамилии','Введите Фамилию','');

With datamodule5. ADOQuery1 do.

begin.

sql.Clear;

sql.Add ('Select Ученые. Фамилия, Ученые. Имя, Ученые. Фото, Научные_утв.название, Научные_утв.Доказательство');

sql.Add ('From Ученые, Научные_утв');

sql.Add ('where (Ученые.Фамилия like'''+'%'+'%'+''')and (Ученые.КодУченого=Научные_утв.Фамилия)');

sql.Add ('order by Ученые. Фамилия asc');

active:=true;

end;

if datamodule5. Adoquery1.recordcount0 then.

begin.

form7.show;

{Form7.DBEdit1.datafield:='Фамилия'; form7. DBEdit2.datafield:='Имя';}.

end.

else showmessage ('Нет таких записей!');

form6.Hide;

end;

procedure TForm8. N1Click (Sender: TObject);

begin.

form8.Close;

form3.Show;

end;

procedure TForm8. N12Click (Sender: TObject);

begin.

datamodule5.ADOTable4.IndexFieldNames:='наименование ASC';

end;

procedure TForm8. N13Click (Sender: TObject);

begin.

datamodule5.ADOTable4.IndexFieldNames:='наименование DESC';

end;

procedure TForm8. N6Click (Sender: TObject);

begin.

form11.show;

end;

end.

procedure TForm11. TreeView1DblClick (Sender: TObject);

begin.

if TreeView1.Items.Item[0]. Selected=true.

Then form11. Memo1.Lines.Loadfromfile ('spravka/vvod parolya. txt');

if TreeView1.Items.Item[2]. Selected=true.

Then form11. Memo1.Lines.Loadfromfile ('spravka/sort.txt');

if TreeView1.Items.Item[3]. Selected=true.

Then form11. Memo1.Lines.Loadfromfile ('spravka/poisk.txt');

if TreeView1.Items.Item[4]. Selected=true.

Then form11. Memo1.Lines.Loadfromfile ('spravka/pechat.txt');

if TreeView1.Items.Item[6]. Selected=true.

Then form11. Memo1.Lines.Loadfromfile ('spravka/dobavl.txt');

if TreeView1.Items.Item[7]. Selected=true.

Then form11. Memo1.Lines.Loadfromfile ('spravka/izmen.txt');

if TreeView1.Items.Item[8]. Selected=true.

Then form11. Memo1.Lines.Loadfromfile ('spravka/udaslen.txt');

if TreeView1.Items.Item[9]. Selected=true.

Then form11. Memo1.Lines.Loadfromfile ('spravka/vyhod.txt');

end;

end.

procedure TForm14. Button1Click (Sender: TObject);

begin.

Form14.Close;

Form4.Show;

end;

end.

Распечатка запросов

БИБЛИОГРАФИЧЕСКИЙ Список. Разработка приложения управления базами данных
Распечатка отчетов.

Распечатка отчетов.

БИБЛИОГРАФИЧЕСКИЙ Список. Разработка приложения управления базами данных
Показать весь текст
Заполнить форму текущей работой

Сессия? Спокойно!