Создание базы данных для предметной области "Нотариальная контора"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?о университета, [Электронный ресурс] - www.mstu.edu.ru .
..">Материалы сайта Интернет университет информационных технологий, [Электронный ресурс] - www.intuit.ru .
.Хомоненко А. Delphi 7, программирование, BHV СПб, 2003 г., 1216 с.
.Райордан Р. Основы реляционных баз данных: Пер. с англ. - М.: Издательско-торговый дом Русская Редакция, 2001. - 384 с.
Приложение А
Процедуры добавления данных
procedure TForm2.Button1Click(Sender: TObject);(Edit1.Text=) or (Edit2.Text=) or (Edit3.Text=) or (Edit4.Text=) then ShowMessage(Заполните все поля!) else.ADOQuery1.SQL.Add(INSERT INTO Клиенты ( Название, Вид_деятельности, Адрес, Телефон ) VALUES );.ADOQuery1.SQL.Add((+Edit1.Text+);.ADOQuery1.SQL.Add(,+Edit2.Text+);.ADOQuery1.SQL.Add(,+Edit3.Text+);.ADOQuery1.SQL.Add(,+Edit4.Text+);.ADOQuery1.SQL.Add(););.ADOQuery1.ExecSQL;.ADODataSet2.Active:=false;.ADODataSet2.Active:=true;.ADODataSet1.Active:=false;.ADODataSet1.Active:=true;.ADOQuery1.SQL.Clear;.Close();;;TForm3.Button1Click(Sender: TObject);(Edit1.Text=) or (Edit2.Text=) then ShowMessage(Заполните все поля!) else.ADOQuery1.SQL.Add (INSERT INTO Услуги ( Название, Описание ) VALUES);.ADOQuery1.SQL.Add((+Edit1.Text+);.ADOQuery1.SQL.Add(,+Edit2.Text+);.ADOQuery1.SQL.Add(););.ADOQuery1.ExecSQL;.ADODataSet2.Active:=false;.ADODataSet2.Active:=true;.ADODataSet2.Active:=false;.ADODataSet2.Active:=true;.ADOQuery1.SQL.Clear;.Close();;;TForm4.Button1Click(Sender: TObject);(DBLookupComboBox1.Text=) or (DBLookupComboBox2.Text=) or (Edit3.Text=) or (Edit4.Text=) or (Edit5.Text=) then ShowMessage(Заполните все поля!) else.ADOQuery1.SQL.Add (INSERT INTO Сделки ( Код_клиента, Код_услуги, Сумма, Комиссионные, Описание ) VALUES );.ADOQuery1.SQL.Add((+IntToStr(Form4.DataSource1.DataSet.FieldValues[Код_клиента]));.ADOQuery1.SQL.Add(,+IntToStr(Form4.DataSource2.DataSet.FieldValues[Код_услуги]));.ADOQuery1.SQL.Add(,+Edit3.Text+);.ADOQuery1.SQL.Add(,+Edit4.Text+);.ADOQuery1.SQL.Add(,+Edit5.Text+);.ADOQuery1.SQL.Add(););.ADOQuery1.ExecSQL;.ADODataSet2.Active:=false;.ADODataSet2.Active:=true;.ADODataSet1.Active:=false;.ADODataSet1.Active:=true;.ADOQuery1.SQL.Clear;
form4.Close();;;