2 (uses Unit2)
Джерела даних (ТDataSource) пов'язані з відповідними наборами даних (TADOQuery) через властивість DataSet у джерел даних.
В
Рис. 7
Для відображення вмісту наборів даних на формі були розміщені такі компоненти як таблиця cxGrid (з вкладки Dev Express), стандартні компоненти DBEdit, DBNavigator
Пов'язані через властивість DataSource з відповідними джерелами даних. А також, для компонентів DBEdit через властивість DataField - з відповідними полями таблиць БД. p align="justify"> Для відображення полів даних, які будуть відображатися при виконанні програми, в свойстванного таблиці (cxGrid) були додані потрібні поля, натиснувши на кнопку В«Retrieve FieldsВ» (Мал. 8)
бази даний інформаційний
В
Рис.8
У базі даних присутній фільтр, компонент RadioGroup з двома (Мал. 9) перемикачами (все, за змістом)
В
Рис. 9
Цей фільтр-перемикач буде давати можливість відображати (запитувати з БД), або:
В§ всі записи з таблиці замовлення, ціна бази даних,
В§ тільки ті, які будуть відповідати обраній користувачем рядку в таблиці замовник на екранній формі.
Поточний код фільтра.
В
В
Рис. 10
У таблиці послуги було створено поле Фото
Для його створення в таблиці послуги в SQL Server було додано поле з типом Varbinary (MAX)
При додаванні в програму цього поля, в його властивості був зазначений тип Properties-Imag (Мал. 11).
В
Рис.11
Щоб мати можливість додавати зображення у форматі BMP в Базу даних було розміщено на формі компонент OpenPictureDialog (Мал. 12).
В
Рис. 12
Для зручності в наслідку вибору BMP-файлів у властивості Filter цього компонента устанановілі фільтр на вибір файлів (Мал. 13).
В
Рис. 13
Далі, був створений обробник на подію OnClick у кнопки Button і вписаний наступний програмний код:
procedure TForm1.Button1Click (Sender: TObject); DM do begindlgOpenPic1.Execute then beginnot (T1.State in [dsInsert, dsEdit]) then.Edit;
// cxgrdbclmnGrid1DBTableView1photo.LoadFromFile (dlgOpenPic1.FileName);;;;
Стандартним компонентом для управління записами БД через Delphi-додаток служить компонент DBNavigator із закладки Data Controls (Мал. 14)
В
Рис 14
Зв'язавши його з ...
