133
TQRLabel *QRLabel16;
TQRLabel *QRLabel17;
TQRBand *QRBand3;
TQRDBText *QRDBText1;
TQRDBText *QRDBText5;
TQRDBText *QRDBText7;
TQRLabel *QRLabel7;
TQRLabel *QRLabelOtdel;
private: // User declarations
public: // User declarations
__fastcall TFormPrintStatistic1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormPrintStatistic1 *FormPrintStatistic1;
//---------------------------------------------------------------------------
#endif
UnitAdmin
//---------------------------------------------------------------------------
#ifndef UnitAdminH
#define UnitAdminH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ActnList.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <DBTables.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <ImgList.hpp>
#include <ToolWin.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFAdmin : public TForm
{
134
__published: // IDE-managed Components
TStatusBar *StatusBar1;
TPanel *Panel1;
TSplitter *Splitter1;
TGroupBox *GroupBox1;
TToolBar *ToolBar3;
TToolButton *ToolButton3;
TToolButton *ToolButton4;
TToolButton *ToolButton5;
TDBGrid *DBGDisc;
TPanel *Panel2;
TSplitter *Splitter2;
TGroupBox *GroupBox2;
TToolBar *ToolBar1;
TToolButton *ToolButton1;
TToolButton *ToolButton11;
TToolButton *ToolButton12;
TDBGrid *DBGTema;
TGroupBox *GroupBox3;
TToolBar *ToolBar2;
TToolButton *ToolButton2;
TToolButton *ToolButton6;
TToolButton *ToolButton7;
TToolButton *ToolButton8;
TToolButton *ToolButton9;
TToolButton *ToolButton10;
TBitBtn *BitBtn1;
TToolButton *ToolButton14;
TToolButton *ToolButton13;
TDBGrid *DBGTests;
TActionList *ActionList1;
TAction *ActionDiscEdit;
TAction *ActionClose;
TAction *ActionTemaEdit;
TAction *ActionTestEdit;
TAction *ActionTestsQuest;
TAction *ActionTestRun;
TAction *ActionTestGroup;
TAction *ActionTemaGroup;
TAction *ActionTestCnv;
TImageList *ImageList1;
TOpenDialog *OpenDialog1;
TQuery *QTmp;
TTable *TableQuest;
135
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TAction *ActionEdit;
TMenuItem *ActionEdit1;
TAction *ActionGroup;
TOpenDialog *OpenDialog;
TPopupMenu *PopupMenu1;
TMenuItem *N6;
TMenuItem *N7;
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall FormActivate(TObject *Sender);
void __fastcall ActionDiscEditExecute(TObject *Sender);
void __fastcall ActionCloseExecute(TObject *Sender);
void __fastcall ActionTemaEditExecute(TObject *Sender);
void __fastcall ActionTestEditExecute(TObject *Sender);
void __fastcall ActionTestsQuestExecute(TObject *Sender);
void __fastcall ActionTestRunExecute(TObject *Sender);
void __fastcall ActionTestGroupExecute(TObject *Sender);
void __fastcall ActionTemaGroupExecute(TObject *Sender);
void __fastcall ActionTestCnvExecute(TObject *Sender);
void __fastcall DBGTestsDblClick(TObject *Sender);
void __fastcall ActionEditExecute(TObject *Sender);
void __fastcall ActionGroupExecute(TObject *Sender);
void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
private: // User declarations
public: // User declarations
virtual __fastcall TFAdmin(TComponent* Owner);
int IndexStr;
void __fastcall VisibleMenu();
AnsiString __fastcall SetSection(AnsiString &Str);
AnsiString __fastcall SetString(AnsiString &Str, AnsiString StrFind);
bool __fastcall FindString(AnsiString Str, AnsiString StrFind);
int __fastcall Zagolovok(TStringList *List);
int __fastcall GetQuest(TStringList *List);
void __fastcall SokrLP(AnsiString &Str);
void __fastcall EditStr();
void __fastcall Inter(); // монстр - интрепритация
void __fastcall Export(); // монстр - экспорт
136
void __fastcall Import(); // монстр - импорт
void __fastcall Delete(); // монстр - удадление
};
//---------------------------------------------------------------------------
extern PACKAGE TFAdmin *FAdmin;
//---------------------------------------------------------------------------
#endif
UnitUsers
object FUsers: TFUsers
Left = 157
Top = 239
Hint = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1080
BorderStyle = bsDialog
Caption =
#1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1080
ClientHeight = 368
ClientWidth = 716
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poScreenCenter
ShowHint = True
Visible = True
OnActivate = FormActivate
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 349
Width = 716
Height = 19
Panels = <>
SimplePanel = False
end
object Panel2: TPanel
137
Left = 414
Top = 0
Width = 302
Height = 349
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object Panel4: TPanel
Left = 0
Top = 281
Width = 302
Height = 68
Align = alClient
BevelInner = bvLowered
TabOrder = 0
object BitBtn4: TBitBtn
Left = 166
Top = 25
Width = 99
Height = 25
Action = ActionClose
Cancel = True
Caption = #1047#1072#1082#1088#1099#1090#1100
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
TabOrder = 0
Glyph.Data = {
66010000424D6601000000000000760000002800000018000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888000088888000088888888888888888000EEE0FFFF8888888
888000EEEEEE0000F88888800080EEEEEEEE0000F88888888880EEEEEEEE0000
138
F88888888880EEEEEEEE0000F88888888880EEEEE60E0000F88888888880EEEE
6B6E0000F88888888880EEEEEEEE0000F88888888880E66666EE0000F8888888
8880E6BBB6EE0000F88888888880E6BBB6EE0000F88888888880E6BBB6EE0000
F88888888880E66BB6EE0000F88888888880EEE666EE0000F8888880008000EE
EEEE0000F8888888888888000EEE0000F8888888800008888000088888888888
88888888888888888888}
end
object Button1: TButton
Left = 64
Top = 24
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 302
Height = 281
Hint = #1042#1074#1077#1076#1080#1090#1077'
'#1076#1072#1085#1085#1099#1077'
'#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
Align = alTop
Caption = #1042#1074#1077#1076#1080#1090#1077'
'#1076#1072#1085#1085#1099#1077'
'#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 36
139
Width = 37
Height = 13
Caption = #1051#1086#1075#1080#1085
end
object Label2: TLabel
Left = 8
Top = 68
Width = 31
Height = 13
Caption = #1060#1048#1054
end
object Label3: TLabel
Left = 8
Top = 102
Width = 45
Height = 13
Caption = #1055#1072#1088#1086#1083#1100
end
object Label4: TLabel
Left = 8
Top = 134
Width = 42
Height = 13
Caption = #1043#1088#1091#1087#1087#1072
end
object EditName: TEdit
Left = 91
Top = 32
Width = 206
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 166
Top = 173
Width = 99
Height = 25
Action = ActionAdd
140
Caption = #1044#1086#1073#1072#1074#1080#1090#1100
TabOrder = 5
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777777777777777777777700000000000777770FFFFFFFFF0777770FFFFFFFFF
0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF
0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFF0000777770FFFFFF0F0
7777770FFFFFF007777777000000007777777777777777777777}
end
object BitBtn2: TBitBtn
Left = 166
Top = 205
Width = 99
Height = 25
Action = ActionEdit
Caption = #1048#1079#1084#1077#1085#1080#1090#1100
TabOrder = 6
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777744444444477777774FFFFFFF477777774F0000
0F470000004FFFFFFF470FFFFF4F00000F470F00004FFFFFFF470FFFFF4F00F4
44470F00004FFFF4F4770FFFFF4FFFF447770F00F044444477770FFFF0F07777
77770FFFF0077777777700000077777777777777777777777777}
end
object BitBtn3: TBitBtn
Left = 166
141
Top = 238
Width = 99
Height = 25
Action = ActionDel
Caption = #1059#1076#1072#1083#1080#1090#1100
TabOrder = 7
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888800000000008888880FFFFFFFF08888880FFFFFFFF
088881F0F777777F088811F0F75BFB7F0888811F11BFBF7F088888151877777F
088888511FFFFFFF08885111F1FFF00008881580FF1FF0F088888880FFFFF008
8888888000000088888888888888888888888888888888888888}
end
object EditFIO: TEdit
Left = 91
Top = 63
Width = 206
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object EditPassword: TEdit
Left = 91
Top = 96
Width = 206
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
142
Font.Style = []
ParentFont = False
TabOrder = 2
end
object EditGR: TEdit
Left = 91
Top = 130
Width = 206
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object RadioGroupAdmin: TRadioGroup
Left = 8
Top = 160
Width = 145
Height = 108
Caption = #1055#1088#1072#1074#1072'
'#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
ItemIndex = 0
Items.Strings = (
#1059#1095#1072#1097#1080#1081#1089#1103
#1055#1088#1077#1087#1086#1076#1072#1074#1072#1090#1077#1083#1100
#1040#1076#1084#1080#1085#1080#1089#1090#1088#1072#1090#1086#1088
#1042#1089#1077' '#1087#1088#1072#1074#1072)
TabOrder = 4
end
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 414
Height = 349
Align = alClient
Caption =
#1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1080