Cпасибо большое за советы, но:
1.Я не совсем ещё разбираюсь с Парадоксом, поэтому разбираться с SQL-серверами у меня нет сейчас времени.
2. Она у меня состоит из 2-х таблиц:
НомерПрепода (уникальный, автоинкремент)
ИмяПрепода
СуммаНаСчету
Адрес
Телефон
Должность
(всеобщему просмотру доступны лишь первые 3 поля, остальные - в другой таблице, на другой форме, которая открываетя за паролем)
И (вторая):
Индекс(уникальный, автоинкремент, на всякий случай)
НомерПрепода (не уникальный, integer)
Взнос
Дивиденды (начисляются со взноса (как мне сказали) - я так и не понял, почему дивиденды)
Сумма (до того, как сняли)
Снято
Итого. Итого со втрой таблицы помещается в первую (insert я ещё не написал).
Сейчас попробую сделать кое-какие запросы из тех, которые Вы мне предложили.
Спасибо Вам за совет, правда, я сам ещё не до конца с этим разобрался. Сейчас буду разбираться.
Ещё я пытался передать значение номера выбранной клетки в SQL-запрос через
indx:=dbgrid1.SelectedField.Index;
, напрямую не получилось тем методом, который был не так давно указан в этой конференции, решил через временную базу данных. Так он говорит, что Таблица или занята, или у меня нет прав доступа. Хотя я делал так, как было сказано в хелпе (эта часть прошла без проблем), но ещё добавил
1.
2.
3.
datamodule2.Table1.EmptyTable;
datamodule2.Table1.Insert;
datamodule2.Table1.Fields[ 0 ].AsInteger:=indx;
datamodule2.Table1.Post;
Вот исходник:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
with datamodule2.Table1 do
begin
close;
databasename:='Buhgalter1';
tabletype:=ttParadox;
tablename:='demo.db';
with fielddefs do
begin
with addfielddef do
begin
name:='ID';
datatype:=ftautoinc;
required:=true;
end;
with addfielddef do
begin
name:='indx';
datatype:=ftInteger;
required:=true;
end;
end;
with indexdefs do
begin
with addindexdef do
begin
name:='';
fields:='ID';//ID
options:=[ixPrimary];
end;
end;
createtable;
datamodule2.Table1.Open;
datamodule2.Table1.EmptyTable;
datamodule2.Table1.Insert;
datamodule2.Table1.Fields[ 0 ].AsInteger:=indx;
datamodule2.Table1.Post;
Ещё раз спасибо.
