| Class TDictEditForm (unit Unit4) |
TForm
| Constructors |
| Functions |
procedure ChangeQuery(Sender: TObject);
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);| 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;