| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Друзья, мне бы пару слов про основы :)) [D7, Paradox]
Intelligent © (2004-11-17 09:57:00)У меня есть таблица базы данных Paradox7, в которой лежит информация о зарегистрированных пользователях. Я понял как брать значение конкретной ячейки и присваивать его переменной, но не пойму, как запихнуть значение другой переменной в заданную ячейку?
SergP (2004-11-18 09:08:00) [1]2 Intelligent ©
Думаю тебе это немного поможет:
http://emanual.ru/download/794-19.html
Hmm (2004-11-18 00:54:00) [2]ПОИСК:
a:='Иван'
Table1.locate('Name',a,[]);
Данная функция переместит указатель на ПЕРВУЮ запись в столбце Name удовлетворяющую некой A (Иван). Также она возвращает булевое значение ,т.е если Table1.locate(...)=false искомой записи не существует.
В скобаках [] можно также указать опции поиска: loCaseInsensitive,loPartialkey
Intelligent (2004-11-17 23:45:00) [3]Спасибо большое, уважаемый мастер! Теперь все получилось!..
А вы не могли бы подсказать как упростить поиск нужной записи?
И почему использовать goto - нехорошо? Я использую его для того, чтобы после удачного выбора нужных записей не перебирать дальше всю таблицу до конца, а закончить подпрограмму. Как можно без него это сделать, не подскажете?
SergP (2004-11-17 22:19:00) [4]
> goto 1;
Кстати, такие штуки в паскале без необходимости тоже использовать нехорошо... Не привыкай к ним...
SergP (2004-11-17 22:12:00) [5]
...
Table1.edit; // это для изменения текущей записи. Для добавления новой
// используй Table1.insert
Table1.FieldByName('Name').AsString:=s[2];
Table1.FieldByName('Surname').AsString:=s[3];
...
Table1.post;
...
Только поиск нужной записи у тебя нехорошо сделан....
Intelligent (2004-11-17 21:57:00) [6]да да... простите за такую неопределенность... да, я использую компонент Table. И пишу следующий код для взятия значений всех полей для заданного пользователя... но... если я правильно понял вас... "поменять местами правую и левую части...", то это у меня не работало... я пробовал.
Table1.First;
while not table1.eof do begin
s[1]:=Table1.FieldByName('Nickname').AsString;
if s[1]=a then begin
table1.FieldByNam('IP').AsString:=Edit2.Text;
s[2]:=Table1.FieldByName('Name').AsString;
s[3]:=Table1.FieldByName('Surname').AsString;
s[4]:=Table1.FieldByName('Sex').AsString;
s[5]:=Table1.FieldByName('Age').AsString;
s[6]:=Table1.FieldByName('Phone').AsString;
s[7]:=Table1.FieldByName('IP').AsString;
for i2:=1 to 7 do Memo1.Lines.Add(s[i2]);
goto 1;
end;
Table1.Next;
end;
где a - ник, введенный в Edit1, а lable 1 находится в конце подпрограммы.
ЮЮ (2004-11-17 10:53:00) [7]>ЮЮ, ну зачем же так образно. Человек с открытым сердцем пришел...
но с совершенно закрытыми мыслями. Ну не вижу, я как именно он "берет значение конкретной ячейки", пэтому не могу привести код, адекватный его "Я понял"
malamba (2004-11-17 10:33:00) [8]ЮЮ, ну зачем же так образно. Человек с открытым сердцем пришел...
Intelligent, Вас интересует, как ввести значение в таблицу базы данных. Это зависит от того, какими компонентами Вы пользуетесь.
Если Table, то там можно сразу заводить значение ( не пользуюсь им, поэтому подробностей не помню)
Если SQL-подобными компонентами, то можно вводить значение, используя язык запросов SQL.
Тема достоточно объемная, материалы по ней можно найти в Инете.
(-Папа, а отчего солнце светит?
-Не знаю.
-А почему луна ночью?
-Не знаю.
- А почему звезды такие маленькие?
-Не знаю.
-Что ты к отцу с расспросами пристаешь?!
-Нет, ну почему же. Откуда он все узнает, как не от меня?)
ЮЮ (2004-11-17 10:10:00) [9]попробуй поменять местами правую и левые части в твоем "понял как брать значение ..."
| |
