Скачать: CL | DM;

Для 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c