Создание электронного журнала в программе delphi 7 .

Мунаев У. С-А., ассистент кафедры ИТ и МПИ

Чеченский государственный педагогический университет

Создание электронного журнала в программе delphi 7 .

Аннотация. В статье рассмотрено создание программы в Visual Studio, а также подробный разбор ключевых элементов этой программы.

Ключевые слова: delphi 7, создание отдельных окон для удобства в пользовании, регистрация преподавателей, отчет по преподавателям выставляющие студентам баллы.

Окно для ввода логина и пароля преподавателя

Привязка программы, созданной в программе Delphi к айпи адресу

Окно для высвечивания факультетов, семестр, групп и вид дисциплины.

Окно для показа студентов относящиеся к выбранной группе

Окно для показа определенного студента, которому выставляют баллы за посещаемость и

Вид программы после открытия. Соответственно после открытия программы вводим логин и пароль, выбираем предмет, далее выбираем факультет, группу, семестр, смотря на вид дисциплины выбираем лекцию или практику. Нажимаем кнопку «найти» после, появляются студенты, которые относятся к данной группе.

Описание программы

begin

form1.IBDatabase1.Params.Values['user_name'] := Form1.Edit1.Text ;

form1.IBDatabase1.Params.Values['password'] := Form1.Edit2.Text ;

Form1.IBDatabase1.Connected := true ;

Form1.Edit2.Text := '';

Form1.IBQuery2.Close;

Form1.IBQuery2.Open;

Form1.IBQuery8.Close;

Form1.IBQuery8.Open;

Form1.IBQuery8.FetchAll();

Form1.IBQuery1.Close;

Form1.IBQuery1.Open;

Form1.IBQuery1.FetchAll();

Form1.IBQuery4.Close;

Form1.IBQuery4.Open;

Form1.IBQuery4.FetchAll();

end;

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);

begin

form1.IBQuery3.Close;

form1.IBQuery3.ParamByName('F').Value := DBLookupComboBox1.KeyValue ;

form1.IBQuery3.Open;

form1.IBQuery3.FetchAll();

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form1.IBQuery5.Close;

form1.IBQuery5.ParamByName('g').Value := DBLookupComboBox2.KeyValue;

form1.IBQuery5.Open;

form1.IBQuery6.Close;

form1.IBQuery5.Open;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

form1.DateTimePicker1.DateTime := Date;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

form1.IBQuery7.Close;

form1.IBQuery7.ParamByName('ST').Value := DBEdit6.Text ;

form1.IBQuery7.ParamByName('DAt').Value := DateToStr(DateTimePicker1.Date ) ;

form1.IBQuery7.ParamByName('BAl').Value := Edit3.Text ;

form1.IBQuery7.ParamByName('PRED').Value := DBEdit2.Text ;

form1.IBQuery7.ParamByName('ACT').Value := 1 ;

form1.IBQuery7.ParamByName('TIP').Value := DBLookupComboBox4.KeyValue ;

form1.IBQuery7.ParamByName('SEM').Value := DBLookupComboBox3.KeyValue ;

form1.IBQuery7.ParamByName('PR').Value := DBEdit7.Text ;

form1.IBQuery7.Open;

form1.IBTransaction1.CommitRetaining;;

form1.IBQuery7.Close;

form1.IBQuery7.ParamByName('ST').Value := DBEdit6.Text ;

form1.IBQuery7.ParamByName('DAt').Value := DateToStr(DateTimePicker1.Date ) ;

form1.IBQuery7.ParamByName('BAl').Value := Edit4.Text ;

form1.IBQuery7.ParamByName('PRED').Value := DBEdit2.Text ;

form1.IBQuery7.ParamByName('ACT').Value := 2 ;

form1.IBQuery7.ParamByName('TIP').Value := DBLookupComboBox4.KeyValue ;

form1.IBQuery7.ParamByName('SEM').Value := DBLookupComboBox3.KeyValue ;

form1.IBQuery7.ParamByName('PR').Value := DBEdit7.Text ;

form1.IBQuery7.Open;

form1.IBTransaction1.CommitRetaining;;

Edit3.Text := '0' ;

Edit4.Text := '0' ;

end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin

form1.IBQuery6.Close;

form1.IBQuery6.ParamByName('p').Value := form1.DBEdit2.Text;

form1.IBQuery6.ParamByName('ST').Value := form1.DBEdit3.Text;

form1.IBQuery6.ParamByName('S').Value := form1.DBEdit4.Text;

form1.IBQuery6.ParamByName('TIP').Value := DBLookupComboBox4.KeyValue;

form1.IBQuery6.Open;

form1.IBQuery9.Close;

form1.IBQuery9.ParamByName('p').Value := form1.DBEdit2.Text;

form1.IBQuery9.ParamByName('ST').Value := form1.DBEdit3.Text;

form1.IBQuery9.ParamByName('S').Value := form1.DBEdit4.Text;

form1.IBQuery9.Open;

form1.IBQuery10.Close;

form1.IBQuery10.ParamByName('p').Value := form1.DBEdit2.Text;

form1.IBQuery10.ParamByName('ST').Value := form1.DBEdit3.Text;

form1.IBQuery10.ParamByName('S').Value := form1.DBEdit4.Text;

form1.IBQuery10.Open;

end;

procedure TForm1.DBLookupComboBox5Click(Sender: TObject);

begin

Form1.DBLookupComboBox1.Enabled := true;

Form1.DBLookupComboBox2.Enabled := true;

Form1.DBLookupComboBox3.Enabled := true;

Form1.DBLookupComboBox4.Enabled := true; end; end.

Заключение

В заключении хочется отметить, что программа Visual Studio является легкой в освоении, компактной и универсальной программой. Позволяющая решать разного рода задачи, по разным направлениям.

Литература:

1. Абдулгалимов Г.Л. Проектирование методической системы профессиональной подготовки учителя информатики и преподавателя IT-дисциплин. Дисс…д.п.н., –М., –2009.

2. Кузнецов А.А., Сурхаев М.А. Совершенствование методической системы подготовки учителя информатики в условиях формирования новой образовательной среды.Учебное пособие.-М., 2012.

3. Магомедов Р.М., Сурхаев М.А. Предпосылки изменения компонентов методической подготовки будущего учителя информатики. // Известия Чеченского государственного педагогического института. 2014. № 1 (9). с. 22-25.

4. Новиков А.М. Российское образование в новой эпохе. Современное состояние. Векторы развития –М., –2000.

5. Семакин И.Г. Научно-методические основы построения базового курса информатики. Дисс…д.п.н., –Пермь., –2002.

6. Сурхаев М.А. Подготовка будущих учителей информатики для работы в условиях информационно-коммуникационной образовательной среды. –М., 2009.

7. Усманов С. Р., Мунаев У.С., Мунаев С.М. Внедрение в учебный процесс дистанционных образовательных технологий //Материалы I Всероссийской научно-практической конференции «ДАГЕСТАН – IT - 2015».

8. Хатаeва Р.С. Подготовка преподавателя к профессиональной деятельности в условиях информатизации образования. //Информатика и образование. 2014. № 6 (255). С. 79-80.

Literature:

1. Abdulgalimov G.L. Designing of methodical system of professional training of the teacher of computer science and the teacher of IT-disciplines. Diss ... pr.n., -M., -2009.

2. Kuznetsov AA, Surkhayev MA Improvement of the methodical system for the preparation of the teacher of computer science in the conditions of the formation of a new educational environment. Educational aid-M., 2012.

3. Magomedov RM, Surkhayev MA Prerequisites for changing the components of the methodical preparation of the future teacher of computer science. // Proceedings of the Chechen State Pedagogical Institute. 2014. No. 1 (9). from. 22-25.

4. Novikov A.M. Russian education in a new era. Current status. Vectors of development-М., -2000.

5. Semakin I.G. Scientific and methodical foundations of the basic computer science course. Diss ... Ph.D.,.-Perm., -2002.

6. Surkhayev M.A. Preparation of future teachers of informatics for work in conditions of information and communication educational environment. -M., 2009.

7. Usmanov SR, Munaev US, Munaev SM. Introduction of distance educational technologies into the educational process // Proceedings of the 1st All-Russian Scientific and Practical Conference "DAGESTAN - IT - 2015".

8. Khataeva R.S. Preparation of the teacher for professional activities in the context of the informatization of education. // Informatics and education. 2014. No. 6 (255). Pp. 79-80.

Munaev U.S.-A.

Chechen State Pedagogical University

Creating an electronic journal in the program delphi 7.

Annotation. The article describes the creation of a program in Visual Studio, as well as a detailed analysis of the key elements of this program.

Keywords: Visual Studio, creation of separate windows for ease of use, registration of teachers, a report on teachers giving points to students.