unit Unit1dataentry;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, AdvPanel, AdvSmoothLabel, DBAdvSmoothLabel, StdCtrls, Mask,
DBCtrlsEh, DB, MemDS, DBAccess, Uni, MainUnit, AdvGlassButton, DBCtrls, ADODB,
Buttons;
type
TForm1dataentry = class(TForm)
AdvPanel1: TAdvPanel;
Label4: TLabel;
Edit1daftar2: TEdit;
UniQuery1dataentry: TUniQuery;
UniConnection1: TUniConnection;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1dataentry: TForm1dataentry;
implementation
{$R *.dfm}
///////////////////////////////////////////////////////////////////
// Database : D_assess ( SQL Server )
// Table : landbak
// Field : Number int
//////////////////////////////////////////////////////////////////
procedure TForm1dataentry.FormCreate(Sender: TObject);
var
vv:variant;
begin
UniQuery1dataentry.Close;
UniQuery1dataentry.SQL.Clear;
UniQuery1dataentry.SQL.Add('select max(number) from landbak');
UniQuery1dataentry.Open;
edit1daftar2.text:=UniQuery1dataentry.FieldByName( 'number').AsString;
end;
end.