unit view;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, AdvGlowButton, Uni, StdCtrls, ShlObj, Grids, DBGrids,
DB,
MemDS, DBAccess;
type
Tform =
class(TForm)
timerstart: TTimer;
pnl_insertedit: TPanel;
lbl_materialdescription: TLabel;
lbl_tablecontent: TLabel;
advglowbtn_search: TAdvGlowButton;
advglowbtn_showall: TAdvGlowButton;
edt_materialdescription: TEdit;
dbgrid_data: TDBGrid;
datsrc_data: TDataSource;
procedure FormDestroy(Sender: TObject);
procedure timerstartTimer(Sender: TObject);
procedure SQLiteFile_DisplayAfterScroll(DataSet: TDataSet);
private
procedure prButtonandFieldControl(blLocked : Boolean);
procedure prDisplayDESADVCommissionData(sCommissionNo, sDescription, sDSMin, sDSMax :
String; blSearch : Boolean);
procedure prDisplayDESADVCommissionDetails(sCommissionNo, sDSMin, sDSMax :
String);
procedure prGetDESADVCommissionMinMaxDS(sDESADVModule :
String);
public
end;
.
.
.
procedure Tform.SQLiteFile_DisplayAfterScroll(DataSet: TDataSet);
begin
If (gblViewCommissions)
Then ShowMessage('
New Record Selected');
end;