Class TDictEditForm (unit Unit4)

Inherits from

TForm

Constructors



Functions

procedure ChangeQuery(Sender: TObject);

Public declarations

procedure FormCreate(Sender: TObject);


procedure ListBox1Click(Sender: TObject);


procedure PageControl1Change(Sender: TObject);


procedure Query1AfterEdit(DataSet: TDataSet);


procedure Query1BeforePost(DataSet: TDataSet);


procedure Query4NewRecord(DataSet: TDataSet);


procedure VSFormFunc1AfterFormCreate(Sender: TObject);


procedure FormActivate(Sender: TObject);

Private declarations

Properties

Events

Variables

AddBtn : TBitBtn;


AutoEdit1 : TAutoEdit;


DataSource1 : TDataSource;


DataSource2 : TDataSource;


DataSource3 : TDataSource;


DataSource4 : TDataSource;


DelBtn : TBitBtn;


EditBtn : TBitBtn;


ListBox1 : TListBox;


PageControl1 : TPageControl;


Panel2 : TPanel;


PI_ROL_ID : TDicButton;


PtFormLink1 : TPtFormLink;


Query1 : TQuery;


Query1PI_CLE_FIO : TStringField;


Query1PI_CLE_NAM : TStringField;


Query1PI_CLE_NUM : TFloatField;


Query1PI_CLE_PWD : TStringField;


Query1PI_ROL_ID : TFloatField;


Query1RO_ROL_CMT : TStringField;


Query2 : TQuery;


Query2FU_FUN_CMT : TStringField;


Query2FU_FUN_ID : TIntegerField;


Query2FU_FUN_NAM : TStringField;


Query3 : TQuery;


Query3RO_ROL_CMT : TStringField;


Query3RO_ROL_ID : TIntegerField;


Query4 : TQuery;


Query4FU_FUN_CMT : TStringField;


Query4FU_FUN_NAM : TStringField;


Query4RF_FUN_ID : TFloatField;


Query4RF_FUN_STS : TStringField;


Query4RF_ROL_ID : TFloatField;


Query4RO_ROL_CMT : TStringField;


RF_FUN_ID : TDicButton;


RF_FUN_STS : TVSComboBox;


RF_ROL_ID : TDicButton;


SearchDBGrid1 : TSearchDBGrid;


SearchDBGrid2 : TSearchDBGrid;


SearchDBGrid3 : TSearchDBGrid;


SearchDBGrid4 : TSearchDBGrid;


TabSheet1 : TTabSheet;


TabSheet2 : TTabSheet;


TabSheet3 : TTabSheet;


TabSheet4 : TTabSheet;


VSFormFunc1 : TVSFormFunc;



Constructors


Functions


procedure ChangeQuery(Sender: TObject);

Public declarations


procedure FormCreate(Sender: TObject);


procedure ListBox1Click(Sender: TObject);


procedure PageControl1Change(Sender: TObject);


procedure Query1AfterEdit(DataSet: TDataSet);


procedure Query1BeforePost(DataSet: TDataSet);


procedure Query4NewRecord(DataSet: TDataSet);


procedure VSFormFunc1AfterFormCreate(Sender: TObject);


procedure FormActivate(Sender: TObject);

Private declarations


Properties


Events


Variables


AddBtn : TBitBtn;


AutoEdit1 : TAutoEdit;


DataSource1 : TDataSource;


DataSource2 : TDataSource;


DataSource3 : TDataSource;


DataSource4 : TDataSource;


DelBtn : TBitBtn;


EditBtn : TBitBtn;


ListBox1 : TListBox;


PageControl1 : TPageControl;


Panel2 : TPanel;


PI_ROL_ID : TDicButton;


PtFormLink1 : TPtFormLink;


Query1 : TQuery;


Query1PI_CLE_FIO : TStringField;


Query1PI_CLE_NAM : TStringField;


Query1PI_CLE_NUM : TFloatField;


Query1PI_CLE_PWD : TStringField;


Query1PI_ROL_ID : TFloatField;


Query1RO_ROL_CMT : TStringField;


Query2 : TQuery;


Query2FU_FUN_CMT : TStringField;


Query2FU_FUN_ID : TIntegerField;


Query2FU_FUN_NAM : TStringField;


Query3 : TQuery;


Query3RO_ROL_CMT : TStringField;


Query3RO_ROL_ID : TIntegerField;


Query4 : TQuery;


Query4FU_FUN_CMT : TStringField;


Query4FU_FUN_NAM : TStringField;


Query4RF_FUN_ID : TFloatField;


Query4RF_FUN_STS : TStringField;


Query4RF_ROL_ID : TFloatField;


Query4RO_ROL_CMT : TStringField;


RF_FUN_ID : TDicButton;


RF_FUN_STS : TVSComboBox;


RF_ROL_ID : TDicButton;


SearchDBGrid1 : TSearchDBGrid;


SearchDBGrid2 : TSearchDBGrid;


SearchDBGrid3 : TSearchDBGrid;


SearchDBGrid4 : TSearchDBGrid;


TabSheet1 : TTabSheet;


TabSheet2 : TTabSheet;


TabSheet3 : TTabSheet;


TabSheet4 : TTabSheet;


VSFormFunc1 : TVSFormFunc;