Дипломная работа: Автоматизация процесса контроля знаний учащихся ГБОУ города Москвы школы №656 А.С. Макаренко

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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
Источник: https://baza.diplomsite.ru/previewfile/2090

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
- Программа ГПИ
'Заповит' Рейнгольда Глиэра: стилистические особенности
'Просвещенный абсолютизм' Екатерины II и его влияние на развитие русской культуры
'Создание и продвижение интернет - платформы реферальной системы' на примере компании Бартер–кард
«Методы учета затрат на производство продукции, работ, услуг»Курсовая работа
«Теория человеческих потребностей Маслоу»