Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.216.131.214] |
|
Сообщ.
#1
,
|
|
|
Сразу грю - в дельфи я полный чайник! В нашем <skip> универе дают базы данных, совершенно не дав при этом дельфи и при этом ещё и курсовую делать заставляют.
Сам вопрос: на form2 table1 открыта база данных: необходим код, который по нажатию кнопки перемещает выделеную строку в другую базу на form7 table1 при этом программа должна проверить есть ли подобная строка во второй базе данных, проверка должна осуществлятться по двум полям `name` & `vendor`. Используеться БД формата dBASE IV+Delphi6. |
Сообщ.
#2
,
|
|||
|
[курсовую делать заставляют.] За такое в войну растреливали. procedure TForm1.Label11Click(Sender: TObject); var i:integer; begin Form7.table1.Edit; for i:=0 to Form1.DataSet.FieldCount do begin Form7.table1.FieldByName(Form1.tableXXXXX.Fields[i].FieldName).AsString:=Form1.tableXXXXX.Fields[i].AsString; end; Form7.table1.Post; end;
Добавлено в ой ощибся . так правельнее for i:=0 to (Form1.DataSet.FieldCount-1) do Если не выйдет то for i:=1 to Form1.DataSet.FieldCount do |
Сообщ.
#3
,
|
|
|
вот и поиск
if not Table1.Locate('name;vendor',table1.FieldByName('name').asstring+';'+table1.FieldByName('vendor').asstring,[loCaseInsensitive,loPartialKey]) then ShowMessage('Не найдено Мля (дайте *****л*й разработчику)') else ShowMessage(' найдено но серавно дайте *** разработчику '); |
Сообщ.
#4
,
|
|||
|
Правильней будет Form7.table1.Insert; или Form7.table1.Append; |
Сообщ.
#5
,
|
|
|
Всем спасибо, вроде разобрался.
|
Сообщ.
#6
,
|
|||||
|
да твоя правда .... |