Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Ввод данных через отдельные компоненты




 

Ввод данных в отдельные компоненты и запись в таблицу базы данных осуществляют следующим образом.

Первоначально необходимо подготовить форму для ввода данных. Возможный вид формы представлен на рис. 2.8.

 

Рис. 2.8. Форма для ввода данных через компоненты

 

Область для ввода данных располагается на компоненте Panel, свойство Caption очищено.

Поля ввода сопровождают надписи. Надписи созданы с помощью компонента Label, в свойство Caption введена русская надпись.

Поля для ввода созданы с помощью следующих компонентов:

текстовые поля - компонент Edit, свойство text очищают;

поле с раскрывающимся списком – компонент ComboBox, в свойстве Items вводят список значений, свойство text очищают;

поле для ввода даты DateTimePicker.

На кнопке Добавить (компонент Button) помещена процедура добавления введенных данных в таблицу базы данных (данные отражаются в компоненте DBGrid).

Имя_модуля_данных.ADOTable1.Append;

Имя_модуля_данных.ADOTable1 ['Sh_gr']:=Edit1.text;

Имя_модуля_данных.ADOTable1 ['Facul']:=ComboBox1.Text;

Имя_модуля_данных.ADOTable1 ['Spec']:=ComboBox2.Text;

Имя_модуля_данных.ADOTable1['Kurs']:= StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);

Имя_модуля_данных.ADOTable1 ['Star']:=Edit2.text;

Имя_модуля_данных.ADOTable1['Dat_zach']:=DateTimePicker1.Date;

Имя_модуля_данных.ADOTable1.Post;

 

На кнопке Очистить помещена процедура очистки полей ввода.

Edit1.text:='';

ComboBox1.Text:='';

ComboBox2.Text:='';

ComboBox3.Text:='';

Edit2.text:='';

 

Второй пример ввода данных в таблицу базы данных реализован следующим образом.

Первоначально создают форму для ввода данных. Возможный вид формы представлен на рис. 2.9.

Область для ввода данных располагается на компоненте Panel, свойство Caption очищено.

Поля ввода сопровождают надписи. Надписи созданы с помощью компонента Label, в свойство Caption введена русская надпись.

 

Рис. 2.9. Форма для ввода данных

 

Поля для ввода созданы с помощью следующих компонентов:

простые поля для ввода - с помощью компонента Edit;

группа зависимых переключателей – с помощью компонента RadioGroup (в свойстве Caption вносится надпись на русском языке; например, «Бюджет / Договор»), на компоненте RadioGroup помещают компоненты RadioButton (для них в свойстве Caption ставят надписи на русском языке);

независимый переключатель - с помощью компонента CheckBox (в свойстве Caption указывается надпись на русском языке, например, «Военнообязанный»);

поле с раскрывающимся списком - с помощью компонента ComboBox.

Раскрывающийся список выбирают из другой таблицы (в данном примере поле «Шифр группы» выбирают из таблицы «Группы»). Для формирования списка создают специальную процедуру.

Для формы в целом в событии OnActivate записывают следующую процедуру:

Имя_модуля_данных.ADOTable2.First;

While not Имя_модуля_данных.ADOTable2.Eof do

begin

ComboBox1.Items.Add(Имя_модуля_данных.ADOTable2.fieldByName('Sh_gr').Value);

Имя_модуля_данных.ADOTable2.Next;

end;

Данная процедура выбирает значения из поля Sh_gr таблицы ADOTable2, которая находится на модуле данных, и помещает их в значения (Items) в компонент ComboBox1.

На кнопке Добавить помещена процедура ввода данных в поля таблицы базы данных.

Имя_модуля_данных.ADOTable1.Append;

Имя_модуля_данных.ADOTable1 ['Nom_z']:=Edit1.text;

Имя_модуля_данных.ADOTable1 ['Fam']:=Edit2.text;

Имя_модуля_данных.ADOTable1 ['Im']:=Edit3.text;

Имя_модуля_данных.ADOTable1 ['Otch']:=Edit4.text;

Имя_модуля_данных.ADOTable1 ['Sh_gr']:=ComboBox1.Text;

if RadioButton1.Checked then Имя_модуля_данных.ADOTable1 ['B_D']:='Бюджет';

if RadioButton2.Checked then Имя_модуля_данных.ADOTable1 ['B_D']:='Договор';

if CheckBox1.Checked then Имя_модуля_данных.ADOTable1 ['V_sl']:='Да'

else Имя_модуля_данных.ADOTable1 ['V_sl']:='Нет';

Имя_модуля_данных.ADOTable1.Post;

 

На кнопке Очистить помещают процедуру очистки полей ввода.

Edit1.text:='';

Edit2.text:='';

Edit3.text:='';

Edit4.text:='';

ComboBox1.Text:='';

RadioButton1.Checked:= false;

RadioButton2.Checked:= false;

CheckBox1.Checked:=false;

 




Поделиться с друзьями:


Дата добавления: 2015-05-09; Просмотров: 482; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.009 сек.