![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 02.03.2010
Сообщений: 6
|
![]()
Привет)))
По СУБД задали курсовую " Вот начала писать (я заочница....и оч плохо разбираюсь в этом) Так вот: Я создала форму, на ней есть кнопка "Начать тестирование" Нажимая её, появляется другая форма, где нужно ввести данные студента ФАМИЛИЯ __________ ИМЯ __________ ОТЧЕСТВО __________ ГРУППА ____________ кнопка "Начать тест" кнопка "Отмена" 1)Если поле не заполнено, то должно появиться сообщение об ошибке (но этого не происходит) СДЕЛАЛА 2) когда вторая форма появляется, то курсор должен быть в Edit ФАМИлия....а у меня в EDIT ИМЯ.... ??? 3) при нажатии ENTER курсор должен перемещаться в след. поле....но этого так же не происходит...СДЕЛАЛА 4) как сделать так, чтоб эти данные записывались в БД (access), может у кого лит-ра есть на эту тематику Пожалуйста....посмотрите....подскаж ите бедной глупой студентке)))) private { Private declarations } public Vvedenie_imeni:boolean; { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.TestClick(Sender: TObject); begin if not((Fam.Text='')or (Im.Text='')or (Otch.Text='')or (Grup.Text=''))then begin Vvedenie_imeni:=true; Close; exit; end else if messagedlg('Введите данные',mterror,[mbagain,mbcancel],0)=mrcancel then begin Vvedenie_imeni:=false; Close; end else begin end; end; procedure TForm2.FormCreate(Sender: TObject); begin Fam.Text:=''; Im.Text:=''; Otch.Text:=''; Grup.Text:=''; end; procedure TForm2.Cancel2Click(Sender: TObject); begin Vvedenie_imeni:=false; Close; end; procedure TForm2.FamKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then Im.SetFocus; end; procedure TForm2.ImKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then Otch.SetFocus; end; procedure TForm2.OtchKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then Grup.SetFocus; end; procedure TForm2.FormShow(Sender: TObject); begin Fam.SetFocus; end; procedure TForm2.GrupKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then Test.Click; end; end.
Я не поняла вашего вопроса, но я вам на него отвечу
ISQ 456791898 http://vkontakte.ru/id8698421 Последний раз редактировалось ankatito; 19.04.2010 в 18:17. |
![]() |
![]() |
![]() |
#2 |
Регистрация: 02.03.2010
Сообщений: 6
|
![]()
1 и 3 вопрос смогла решить......
подскажите с 2 и 4
Я не поняла вашего вопроса, но я вам на него отвечу
ISQ 456791898 http://vkontakte.ru/id8698421 |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi. ввод-вывод данных | Maagistr | Помощь студентам | 1 | 12.12.2009 17:16 |
Delphi. ввод-вывод данных | Maagistr | Помощь студентам | 0 | 12.12.2009 17:14 |
Ввод данных | policedog | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 30.05.2009 21:53 |
Формат передаваемых данных хабам локальной сети, при отправке личных сообщений из DC клиетов | docm | Общие вопросы .NET | 0 | 18.11.2008 15:33 |
ввод в консольную программу. | terminadoor | Помощь студентам | 6 | 22.07.2008 12:17 |