Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2010, 17:57   #1
ankatito
 
Регистрация: 02.03.2010
Сообщений: 6
По умолчанию delphi ввод личных данных в программу

Привет)))
По СУБД задали курсовую "
Вот начала писать (я заочница....и оч плохо разбираюсь в этом)
Так вот: Я создала форму, на ней есть кнопка "Начать тестирование"
Нажимая её, появляется другая форма, где нужно ввести данные студента

ФАМИЛИЯ __________
ИМЯ __________
ОТЧЕСТВО __________
ГРУППА ____________
кнопка "Начать тест" кнопка "Отмена"

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.
ankatito вне форума Ответить с цитированием
Старый 19.04.2010, 18:18   #2
ankatito
 
Регистрация: 02.03.2010
Сообщений: 6
По умолчанию

1 и 3 вопрос смогла решить......
подскажите с 2 и 4
Я не поняла вашего вопроса, но я вам на него отвечу
ISQ 456791898
http://vkontakte.ru/id8698421
ankatito вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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