Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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
1-95862
^Sanya
2002-08-16 23:02
2002.08.29
Little Question: Правда, что в ini больше 64Кб не похранишь?


4-96030
mike.dld
2002-06-27 15:45
2002.08.29
Рисунок из файла


7-95988
lexx@demon
2002-06-18 13:44
2002.08.29
Уважаемые мастера подскажите пожалуйста, как получить


1-95844
MARcoDEN
2002-08-17 15:36
2002.08.29
Проблема со вставкой ProgressBar в StatusBar


1-95831
XPatriot
2002-08-16 17:21
2002.08.29
Работа со строками





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский