|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
07.04.2007, 21:35 | #1 (permalink) |
Имперская инквизиция
Регистрация: 14.02.2007
Сообщений: 6,097
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3046
|
Базы данных на Delphi
В базах данных основополагающим элементом являются таблицы. Для создания базы данных как раз сначала и нужно создать необходимые таблицы. Компонент для создания таблиц называется 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); После нажатия батона, отвечающего за экспорт, откроется сабж Ворд с таблицей и записями, коие в точности копируют таблицу с приложения (собственно это она и есть) :) Извиняюсь за пару тяжелых фоток :) Надеюсь, кому то этот гайд помог или заинтересовал. Если есть вопросы, обращайтесь - по возможности ответим ;) |
07.04.2007, 21:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вам даже не придется пользоваться поиском, вот аналогичные темы DELPHI Электронейтральность базы NOD 32 2.7 новые базы сигнатур |
02.05.2007, 14:40 | #2 (permalink) |
Новичок
Регистрация: 02.05.2007
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вопрос вот какой. Нужна БД, которая будет расположена на клиентской машине, и управляться программой написанной на Delphi. Так вот, БД - Access, то есть таблицы я в нем создаю...нужно ли прямо в Access создавать связи? Вроде как все управление ложиться на программу которая ей будет управлять, и вопросы целостности данных тоже вроде решаются программистом. Или я что то не понимаю... Просто если все таки управление ключами и связями реализуется непосредственно в приложении управляющем БД, то в чем разница использования того или иного поставщика дарйвера БД?
|
02.05.2007, 15:08 | #3 (permalink) |
Имперская инквизиция
Регистрация: 14.02.2007
Сообщений: 6,097
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3046
|
Хм ..... если что - создавайте отдельную тему, имхо в самом аксессе связи нужны. И само приложение там о-о-очень неплохо можно оформить, если с VBA дружим :)
|
02.05.2007, 15:22 | #4 (permalink) |
Новичок
Регистрация: 02.05.2007
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Не совсем понял ответ. Ясно что свзи в аксесе нужны... но если их во время создания БД нарисовать, то реально эти связи в Delphi как использовать.... то есть непонятно мне одно, проектирую я базу данных...все, она готова к использованию... например в том же аксесе. Но нужно мне, что бы у пользователя на экране не аксес болтался, а аккуратная программка, которая с этой БД работает... так вот, как мне использовать те связи которые я в аксесе создал при проектировании БД? Или мне все равно в Delphi переопределять связи между таблицами?
|
02.05.2007, 16:22 | #5 (permalink) |
Имперская инквизиция
Регистрация: 14.02.2007
Сообщений: 6,097
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3046
|
Пока думаю над твоим вопросом и параллельно спрашиваю - собственно почему такое разделение, ведь можно и базу и оболочку классно в аксессе оформить или наоборот только в Дельфи (там таблицы создаются в приложений Database Desktop)? :)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
06.08.2007, 15:33 | #10 (permalink) |
687948395
Регистрация: 02.07.2007
Сообщений: 4,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 317
|
Кто-нить знает сслыки на нормальные самоучители по дельфи? Киньте плиз, а то накачал самоучителей 5,два из них англииские(хотя было написано, что русские), другие два для профи, и один оставшиися тупой!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
delphi, бд delphi |
Опции темы | |
Опции просмотра | |
|
|