Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Для Johnmena. Нумерация записи. [D6, Paradox]

Mike Kouzmine © (2002-08-07 15:30:00)
"Нет такой крепости, которую бы не взяли большевики"
И.В. Сталин

Работает

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.

Mike Kouzmine (2002-08-07 17:13:00) [1]
В смысле? Не работает?

Lusha (2002-08-07 17:12:00) [2]
>Mike Kouzmine (07.08.02 15:30)
Очередная гора трупов... А крепость так и осталась неприступной... Может что-то с идеологией.... :)

Mike Kouzmine (2002-08-07 16:37:00) [3]
Для парадокса

Johnmen (2002-08-07 16:27:00) [4]
>Mike Kouzmine

А для чего пробовал ?

Mike Kouzmine (2002-08-07 16:12:00) [5]
Пардон, для DBF не пробовал, возможно и нет

Mike Kouzmine (2002-08-07 16:11:00) [6]
Для DBF и DB

Mike Kouzmine (2002-08-07 16:10:00) [7]
Это для фильтрованых наборов.

Johnmen (2002-08-07 16:08:00) [8]
Да и зачем все это раз есть RecNo ? :)))

Johnmen (2002-08-07 16:05:00) [9]
Для какого-нибудь Дибейса м.б.и работает, а для SQL серверных БД - нет...

3JIA9I CyKA (2002-08-07 15:46:00) [10]
в смысле
"в private"

3JIA9I CyKA (2002-08-07 15:45:00) [11]
Не проверял. Но думаю, что если засунуть Cn и RECNO и private, то хуже не станет.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »