VipeR
Имперская инквизиция
- Регистрация
- 14 Фев 2007
- Сообщения
- 6,097
- Реакции
- 45
- Баллы
- 0
Базы данных на Delphi
Этот небольшой гайд описывает создание СУБД в среде Borland Delphi 7. База данных будет нести показательный характер (в смысле несложная
) Смысл работы - создать базу данных автомобилей, в которой указаны модель, комплектация, производитель, дополнительные опции, цена. Разработать форму для оформления продажи автомобиля в которой нужно указать фамилию, имя, отчество покупателя, покупаемый автомобиль с перечислением всех характеристик. Оформить форму заказа и выдать на печать. Информацию о продаже занести в базу данных
В базах данных основополагающим элементом являются таблицы. Для создания базы данных как раз сначала и нужно создать необходимые таблицы. Компонент для создания таблиц называется Database Desktop (он находится в \Программы\Borland Delphi 7). Воть главное окно этой программки:
Кликаем пункт меню,выделенный на рисунке ("создать таблицу"). В появившемся крохотном диалоговом окошечке нужно выбрать тип таблицы базы данных. Лично я
пользуюсь типом Paradox 7, с ним и будем работать Была создана таблица Clients, где по сабжу будут храниться записи о продажах. ВСЕ текстовые поля должны обязательно иметь размерность, а у числовых полей ее не должно быть. К модели автомобиля (я объединил это поле с маркой) мы привяжем фотографию стального коня :
Теперя надо зарегить базу данных. Надо зайти в SQL Explorer (находится в том же меню, где и Database Desktop). Зашли в прогу, выбираем пункт меню Object => New... Опять появится крохотное оконце, где ниче менять не надо (драйвер базы данных - STANDARD). Тама пишем путь к базе данных (та папка, куда вы сохраняли все таблицы. Ведь вы их в одну папку покидали, надеюсь?) Пишем в поле path путь к своей базе, потом клик по свободной области - пункт меню Apply. Усе, база зарегена
Теперь можно заходить непосредственно в само приложение Delphi. Нужно создать модуль данных ..... для SQL-запросов. Заходим File => New ... => Data Module. На него киньте элемент со вкладки компонентов BDE => компонент Database (DBTables):
Еще нужны компоненты BDE => Query (DBTables). Их будет столько же, сколько у вас таблиц. В свою очередь, к каждому элементу Query необходимо прицепить еще один элемент (на этот раз последний), он находится в Data Access => DataSource (DB). Сделали? Теперь эти элементы нужно присвоить своей базе данных. У каждого элемента Query в поле DatabaseName надо прописать имя своей базы, причем нужно соблюсти подчиненность всех элементов (это делается путем тупого Drag & Drop перетаскивания). В конце концов в дереве объектов должно получиться следующее - к базе данных прицепляются запросы Query, а к запросам присваиваем объекты DataSource. Воть как на рисунке (должно быть в точности так):
Окно датамодуля должно выглядеть примерно следующим образом:
У каждого элемента DataSource в поле DataSet должен стоять соответствующий пункт (например, у меня DataSource1 подвязан к Query1, это значение и выставляем). Напомню, сколько таблиц, столько и запросов - элементов Query У каждого Query в поле SQL должна быть прописана скуэль-инструкция, первый запрос у меня извлекает записи из таблицы авто и воть текст его скуэль-запроса:
Пункт DataSource у элемента Query можно оставить пустым. После вышеуказанных действий нужно активировать запросы в элементах Query: а поле Active выставить значение True. Если все правильно сделать, то жесткого мата в ответ при активации запроса вы от дельфи не услышите 
Свойства элемента Database1 в датамодуле должны выглядеть примерно так (в поле DatabaseName надо написать какую-нибудь фигню в качестве имени вашей БД, желательно чтобы не совпадало с названием алиаса ):
Теперь можно создавать формы ..... что по сабжу и делаем. Создаем стартовую форму (по своему усмотрению) ..... я накидал туда пару кнопок со ссылками на другие формы (они и будут страницами доступа к данным). Одна из форм - простейший автокаталог (а зачем изощряться, тут важен принцип работы базы данных, а не ее дизайнерские наработки, коие в карман не положишь и на хлеб не намажешь, если нет самой структуры БД ). Воть форма автокаталога (если ее можно так назвать ) дизайн как у первоклассника ну да повторяю я им СОВСЕМ не занимался, не это главное:
Далее строится страница доступа к данным, она будет создана из формы, на коей будет размещена таблица (кинуть на форму элемент из вкладки Data controls => DBGrid (DBGrids), причем у этого элемента в свойствах в поле DataSource будет раскрывающийся список, в коем нужно выбрать тот DataSource (принадлежащий запросу), к коему будет подвязана эта таблица:
Если в списке свойств DBGrid в поле DataSource не будет доступных позиций, то это 98 пудов что косяк в датамодуле Элементы на формах несколько "обработаны" программным кодом, он здесь значения не имеет (совсем несложный) - все зависит от вашего Хочу и Могу
На форме заказа авто на кнопку "добавить" надо написать следующий код (он отвечает за выполнение SQL-инструкций):
В третьей строке вышеуказанного кода нужно подставить номер СВОЕГО юнита, модуля данных, а также таблицы с именами полей. Аналогично и ниже:
Код на кнопку "удалить":
В качестве допзадания нам поручили нам сделать печатную форму документа ....... такой "подставы" мы не ждали, ну да где наша не пропадала! Думали сначала сделать "по-человечески" через Rave Editor, но потом передумали и решили схалтурить хм ....... сделали через обычный MS Word. Для этого на форму, с коей будет производиться экспорт, надо кинуть два элемента со вкладки Servers (самая последняя) - это WordApplication и WordDocument. У них в свойствах в поле Autoconnect необходимо выставить значение true. Кидаем на форму батон и пишем на него такой код, заменяя мои уникальные имена и названия на свои :
Как вы заметили, в коде прописаны имя и адрес вордовского файла и его сначала нужно ручками создать. Строки
отвечают за саму таблицу в документе, в коде описываются ее 6 столбцов. Сама таблица:
После нажатия батона, отвечающего за экспорт, откроется сабж Ворд с таблицей и записями, коие в точности копируют таблицу с приложения (собственно это она и есть)
Извиняюсь за пару тяжелых фоток Надеюсь, кому то этот гайд помог или заинтересовал. Если есть вопросы, обращайтесь - по возможности ответим
Этот небольшой гайд описывает создание СУБД в среде Borland Delphi 7. База данных будет нести показательный характер (в смысле несложная
) Смысл работы - создать базу данных автомобилей, в которой указаны модель, комплектация, производитель, дополнительные опции, цена. Разработать форму для оформления продажи автомобиля в которой нужно указать фамилию, имя, отчество покупателя, покупаемый автомобиль с перечислением всех характеристик. Оформить форму заказа и выдать на печать. Информацию о продаже занести в базу данныхВ базах данных основополагающим элементом являются таблицы. Для создания базы данных как раз сначала и нужно создать необходимые таблицы. Компонент для создания таблиц называется Database Desktop (он находится в \Программы\Borland Delphi 7). Воть главное окно этой программки:
Кликаем пункт меню,выделенный на рисунке ("создать таблицу"). В появившемся крохотном диалоговом окошечке нужно выбрать тип таблицы базы данных. Лично я
пользуюсь типом Paradox 7, с ним и будем работать
Была создана таблица Clients, где по сабжу будут храниться записи о продажах. ВСЕ текстовые поля должны обязательно иметь размерность, а у числовых полей ее не должно быть. К модели автомобиля (я объединил это поле с маркой) мы привяжем фотографию стального коня :
Теперя надо зарегить базу данных. Надо зайти в SQL Explorer (находится в том же меню, где и Database Desktop). Зашли в прогу, выбираем пункт меню Object => New... Опять появится крохотное оконце, где ниче менять не надо (драйвер базы данных - STANDARD). Тама пишем путь к базе данных (та папка, куда вы сохраняли все таблицы. Ведь вы их в одну папку покидали, надеюсь?
) Пишем в поле path путь к своей базе, потом клик по свободной области - пункт меню Apply. Усе, база зарегена
Теперь можно заходить непосредственно в само приложение Delphi. Нужно создать модуль данных ..... для SQL-запросов. Заходим File => New ... => Data Module. На него киньте элемент со вкладки компонентов BDE => компонент Database (DBTables):
Еще нужны компоненты BDE => Query (DBTables). Их будет столько же, сколько у вас таблиц. В свою очередь, к каждому элементу Query необходимо прицепить еще один элемент (на этот раз последний
), он находится в Data Access => DataSource (DB). Сделали? Теперь эти элементы нужно присвоить своей базе данных. У каждого элемента Query в поле DatabaseName надо прописать имя своей базы, причем нужно соблюсти подчиненность всех элементов (это делается путем тупого Drag & Drop перетаскивания). В конце концов в дереве объектов должно получиться следующее - к базе данных прицепляются запросы Query, а к запросам присваиваем объекты DataSource. Воть как на рисунке (должно быть в точности так):
Окно датамодуля должно выглядеть примерно следующим образом:
У каждого элемента DataSource в поле DataSet должен стоять соответствующий пункт (например, у меня DataSource1 подвязан к Query1, это значение и выставляем). Напомню, сколько таблиц, столько и запросов - элементов Query
У каждого Query в поле SQL должна быть прописана скуэль-инструкция, первый запрос у меня извлекает записи из таблицы авто и воть текст его скуэль-запроса:
Код:
select*from avtoТеперь можно создавать формы ..... что по сабжу и делаем. Создаем стартовую форму (по своему усмотрению) ..... я накидал туда пару кнопок со ссылками на другие формы (они и будут страницами доступа к данным). Одна из форм - простейший автокаталог (а зачем изощряться, тут важен принцип работы базы данных, а не ее дизайнерские наработки, коие в карман не положишь и на хлеб не намажешь, если нет самой структуры БД
). Воть форма автокаталога (если ее можно так назвать ) дизайн как у первоклассника ну да повторяю я им СОВСЕМ не занимался, не это главное:
Далее строится страница доступа к данным, она будет создана из формы, на коей будет размещена таблица (кинуть на форму элемент из вкладки Data controls => DBGrid (DBGrids), причем у этого элемента в свойствах в поле DataSource будет раскрывающийся список, в коем нужно выбрать тот DataSource (принадлежащий запросу), к коему будет подвязана эта таблица:
Если в списке свойств DBGrid в поле DataSource не будет доступных позиций, то это 98 пудов что косяк в датамодуле
Элементы на формах несколько "обработаны" программным кодом, он здесь значения не имеет (совсем несложный) - все зависит от вашего Хочу и Могу На форме заказа авто на кнопку "добавить" надо написать следующий код (он отвечает за выполнение SQL-инструкций):
Код:
procedure TForm4.Button2Click(Sender: TObject);
begin
Unit2.DataModule2.Query2.SQL.Text:='Insert Into Clients (FIO, B_avto, Avto_options, Price, Koll)
Values("'+Edit1.Text+'","'+combobox1.Text+'","'+Edit3.Text+'","'+Edit4.Text+'","'+Edit2.Text+'")';
Unit2.DataModule2.Query2.ExecSQL;
Unit2.DataModule2.Query2.SQL.Text:='Select * From Clients';
Unit2.DataModule2.Query2.Active:=False;
Unit2.DataModule2.Query2.Active:=True;
end;Код на кнопку "удалить":
Код:
procedure TForm4.Button3Click(Sender: TObject);
begin
unit2.DataModule2.Query2.SQL.Text:='delete from Clients where Client_N="'+DbGrid1.Columns[0].Field.AsString+'"';
unit2.DataModule2.Query2.ExecSQL;
unit2.DataModule2.Query2.SQL.Text:='select*from Clients';
Unit2.DataModule2.Query2.Active:=False;
Unit2.DataModule2.Query2.Active:=True;
end;
Код:
procedure TForm4.Button4Click(Sender: TObject);
var i,j:integer;
Sub,Allb:string;
FileName:OleVariant;
begin
WordApplication1.Connect;
FileName:='D:\4-AC\FreeLancer\1.doc';
WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
Repeat
Inc(j);
i:=i+1;
WordDocument1.Tables.Item(1).Rows.Add(EmptyParam);
Sub:=DBGrid1.Columns[0].Field.AsString;
WordDocument1.Tables.Item(1).Cell(j+1,1).Range.InsertAfter(IntToStr(i));
WordDocument1.Tables.Item(1).Cell(j+1,2).Range.InsertAfter(DBGrid1.Columns[1].Field.AsString);
WordDocument1.Tables.Item(1).Cell(j+1,3).Range.InsertAfter(DBGrid1.Columns[2].Field.AsString);
WordDocument1.Tables.Item(1).Cell(j+1,4).Range.InsertAfter(DBGrid1.Columns[3].Field.AsString);
WordDocument1.Tables.Item(1).Cell(j+1,5).Range.InsertAfter(DBGrid1.Columns[4].Field.AsString);
WordDocument1.Tables.Item(1).Cell(j+1,6).Range.InsertAfter(DBGrid1.Columns[5].Field.AsString);
Until Sub=DBGrid1.Columns[0].Field.AsString;
end;
Код:
WordDocument1.Tables.Item(1).Cell(j+1,1).Range.InsertAfter(IntToStr(i));
WordDocument1.Tables.Item(1).Cell(j+1,2).Range.InsertAfter(DBGrid1.Columns[1].Field.AsString);
WordDocument1.Tables.Item(1).Cell(j+1,3).Range.InsertAfter(DBGrid1.Columns[2].Field.AsString);
WordDocument1.Tables.Item(1).Cell(j+1,4).Range.InsertAfter(DBGrid1.Columns[3].Field.AsString);
WordDocument1.Tables.Item(1).Cell(j+1,5).Range.InsertAfter(DBGrid1.Columns[4].Field.AsString);
WordDocument1.Tables.Item(1).Cell(j+1,6).Range.InsertAfter(DBGrid1.Columns[5].Field.AsString);После нажатия батона, отвечающего за экспорт, откроется сабж Ворд с таблицей и записями, коие в точности копируют таблицу с приложения (собственно это она и есть)
Извиняюсь за пару тяжелых фоток
Надеюсь, кому то этот гайд помог или заинтересовал. Если есть вопросы, обращайтесь - по возможности ответим 
