Class TDicForm (unit Dics)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure PageControl1Change(Sender: TObject);


function GetCurDataSource: TDataSource;


function GetCurQuery: TQuery;


function GetIndex: Integer;


function GetQueryByIndex(Idx: integer): TQuery;


Properties

property CurDataSource : TDataSource


property CurIndex : Integer


property CurQuery : TQuery


Events

Variables

AutoEdit1 : TAutoEdit;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


DataSource1 : TDataSource;


DataSource2 : TDataSource;


PageControl1 : TPageControl;


Panel1 : TPanel;


PtFormLink1 : TPtFormLink;


Query1 : TQuery;


Query1Da_Auto_ID : TSmallintField;


Query1Da_Auto_Name : TStringField;


Query2 : TQuery;


Query2Dd_Dr_ID : TSmallintField;


Query2Dd_Dr_Name : TStringField;


SearchDBGrid1 : TSearchDBGrid;


SearchDBGrid2 : TSearchDBGrid;


TabSheet1 : TTabSheet;


TabSheet2 : TTabSheet;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure PageControl1Change(Sender: TObject);


function GetCurDataSource: TDataSource;


function GetCurQuery: TQuery;


function GetIndex: Integer;


function GetQueryByIndex(Idx: integer): TQuery;


Properties


property CurDataSource : TDataSource


property CurIndex : Integer


property CurQuery : TQuery


Events


Variables


AutoEdit1 : TAutoEdit;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


DataSource1 : TDataSource;


DataSource2 : TDataSource;


PageControl1 : TPageControl;


Panel1 : TPanel;


PtFormLink1 : TPtFormLink;


Query1 : TQuery;


Query1Da_Auto_ID : TSmallintField;


Query1Da_Auto_Name : TStringField;


Query2 : TQuery;


Query2Dd_Dr_ID : TSmallintField;


Query2Dd_Dr_Name : TStringField;


SearchDBGrid1 : TSearchDBGrid;


SearchDBGrid2 : TSearchDBGrid;


TabSheet1 : TTabSheet;


TabSheet2 : TTabSheet;