Форум: "Базы";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Вниз
Для Johnmena. Нумерация записи. Найти похожие ветки
← →
Mike Kouzmine (2002-08-07 15:30) [0]"Нет такой крепости, которую бы не взяли большевики"
И.В. Сталин
Работает
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, ADODB, StdCtrls, Mask, DBCtrls,
dbcgrids;
type
TForm1 = class(TForm)
Table1: TTable;
Table1SCLAD: TStringField;
Table1GROUP: TStringField;
Table1NNUM: TStringField;
Table1ED: TStringField;
Table1NAME: TStringField;
Table1KOLSCLAD: TFloatField;
Table1MESTOSCLAD: TStringField;
Table1KOLZAL: TFloatField;
Table1MASTOZAL: TStringField;
Table1KOLTEK: TFloatField;
Table1PRICE: TFloatField;
Table1COUNTRY: TStringField;
Table1GTD: TStringField;
Table1OPRIH: TFloatField;
Table1NUMREC: TIntegerField;
DataSource1: TDataSource;
Label1: TLabel;
DBGrid1: TDBGrid;
procedure Table1AfterOpen(DataSet: TDataSet);
procedure Table1CalcFields(DataSet: TDataSet);
procedure FormCreate(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
private
{ Private declarations }
public
Cn: Integer;
RECNO: Integer;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
begin
Cn := 0;
RECNO := 0;
Table1.Filtered := True;
end;
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
if RECNO < Table1.RecNo then
Inc(Cn)
else
Dec(Cn);
Table1NUMREC.Value := Cn;
RECNO := Table1.RecNo;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;
end;
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Cn := Table1NUMREC.Value;
end;
end.
← →
3JIA9I CyKA (2002-08-07 15:45) [1]Не проверял. Но думаю, что если засунуть Cn и RECNO и private, то хуже не станет.
← →
3JIA9I CyKA (2002-08-07 15:46) [2]в смысле
"в private"
← →
Johnmen (2002-08-07 16:05) [3]Для какого-нибудь Дибейса м.б.и работает, а для SQL серверных БД - нет...
← →
Johnmen (2002-08-07 16:08) [4]Да и зачем все это раз есть RecNo ? :)))
← →
Mike Kouzmine (2002-08-07 16:10) [5]Это для фильтрованых наборов.
← →
Mike Kouzmine (2002-08-07 16:11) [6]Для DBF и DB
← →
Mike Kouzmine (2002-08-07 16:12) [7]Пардон, для DBF не пробовал, возможно и нет
← →
Johnmen (2002-08-07 16:27) [8]>Mike Kouzmine
А для чего пробовал ?
← →
Mike Kouzmine (2002-08-07 16:37) [9]Для парадокса
← →
Lusha (2002-08-07 17:12) [10]>Mike Kouzmine (07.08.02 15:30)
Очередная гора трупов... А крепость так и осталась неприступной... Может что-то с идеологией.... :)
← →
Mike Kouzmine (2002-08-07 17:13) [11]В смысле? Не работает?
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c