if s <> '.' then
if s <> '..' then
begin
S:=StringReplace(s, '.db', '', [rfReplaceAll]);
ComboBox5.Items.Add(s);
end;
until FindNext(tsr) <> 0;
FindClose(tsr);
end;
procedure TForm_Zavych.MenuItem2Click(Sender: TObject);
begin
close;
end;
procedure TForm_Zavych.MenuItem3Click(Sender: TObject);
begin
Form_about.show;
end;
procedure TForm_Zavych.MenuItem5Click(Sender: TObject);
begin
Form_tz.Show;
end;
procedure TForm_Zavych.BitBtn2Click(Sender: TObject); // Открыть журнал
begin
if Combobox1.ItemIndex < 0 then ShowMessage ('Выберите учителя!') else
if Combobox2.ItemIndex < 0 then ShowMessage ('Выберите учителя и его предмет!')else
if Combobox3.ItemIndex < 0 then ShowMessage ('Выберите класс!') else
if Combobox4.ItemIndex < 0 then ShowMessage ('Выберите четверть!') else
begin
Form_jurnal.teacher_j:= Combobox1.text;
Form_jurnal.predmet_j:= Combobox2.text;
Form_jurnal.klass_j:= Combobox3.text ;
Form_jurnal.quarter_j:=Combobox4.text ;
Form_jurnal.Showmodal;
end;
end;
procedure TForm_Zavych.Button2Click(Sender: TObject);// Закрепить за учителем предмет!
begin
if (ListBox1.ItemIndex < 0 ) then ShowMessage ('Выберите учителя!') else
begin
edit_tchr:= ListBox1.Items[ListBox1.ItemIndex];
Form_teacher_pr.showmodal;
end;
end;
procedure TForm_Zavych.Button3Click(Sender: TObject);
begin
// Добавить класс
Form_add_kl.showmodal;
end;
procedure TForm_Zavych.Button4Click(Sender: TObject); // Закрепить в класс учеников!!
begin
if (ListBox2.ItemIndex < 0 ) then ShowMessage ('Выберите класс!') else
begin
edit_kl:= ListBox2.Items[ListBox2.ItemIndex];
Form_person_kl.Showmodal;
end;
end;
procedure TForm_Zavych.Button5Click_1(Sender: TObject);
begin
DeleteFile('db\teach_pr\' + ListBox1.Items[ListBox1.ItemIndex] + '.db');
Form_Zavych.ListBox_teacher(Sender) ;
Form_Zavych.ComboBox_teacher(Sender);
end;
procedure TForm_Zavych.Button5Click(Sender: TObject);
begin
// Удалить учителя
if (ListBox1.ItemIndex < 0 ) then ShowMessage ('Выберите учителя!') else
begin
Form_danger.showmodal ;
danger:=2;
end;
end;
procedure TForm_Zavych.Button6Click_1(Sender: TObject);
begin
// Редактировать имя учителя
edit_tchr:= ListBox1.Items[ListBox1.ItemIndex];
Form_edit_teacher.Showmodal;
end;
procedure TForm_Zavych.Button6Click(Sender: TObject);
begin
// Редактировать имя учителя
if (ListBox1.ItemIndex < 0 ) then ShowMessage ('Выберите учителя!') else
begin
Form_danger.showmodal ;
danger:=4;
end;
end;
procedure TForm_Zavych.Button7Click_1(Sender: TObject);
begin
DeleteFile('db\person_kl\' + ListBox2.Items[ListBox2.ItemIndex] + '.db');
Form_Zavych.ListBox_kl(Sender) ;
Form_Zavych.ComboBox_kl(Sender);
Form_Zavych.ComboBox_kl_1(Sender);
end;
procedure TForm_Zavych.Button7Click(Sender: TObject);
begin
// Удалить класс
if (ListBox2.ItemIndex < 0 ) then ShowMessage ('Выберите класс!') else
begin
Form_danger.showmodal ;
danger:=1;
end;
end;
procedure TForm_Zavych.Button8Click_1(Sender: TObject); // Редактировать имя класса
begin
edit_kl:= ListBox2.Items[ListBox2.ItemIndex];
Form_edit_kl.Showmodal;
end;
procedure TForm_Zavych.Button9Click(Sender: TObject);
begin
if Combobox5.ItemIndex < 0 then ShowMessage ('Выберите класс!') else
if Combobox6.ItemIndex < 0 then ShowMessage ('Выберите ученика!')else
begin
Form_report.klass:= Combobox5.text;
Form_report.person:= Combobox6.text;
Form_report.Showmodal;
end;
end;
procedure TForm_Zavych.Button8Click(Sender: TObject); // Редактировать имя класса
begin
if (ListBox2.ItemIndex < 0 ) then ShowMessage ('Выберите класс!') else
begin
Form_danger.showmodal ;
danger:=3;
end;
end;
procedure TForm_Zavych.ComboBox1Change(Sender: TObject);
begin
Form_Zavych.ComboBox_exercises (Sender);
end;
procedure TForm_Zavych.ComboBox5Change(Sender: TObject);
begin
ComboBox6.Items.LoadFromFile('db\person_kl\' + ComboBox5.text + '.db');
end;
procedure TForm_Zavych.FormClose(Sender: TObject);
begin
end;
procedure TForm_Zavych.FormShow(Sender: TObject);
// При открытии!
begin
Form_Zavych.ListBox_teacher(Sender);
Form_Zavych.ListBox_kl(Sender);
Form_Zavych.ComboBox_kl(Sender);
Form_Zavych.ComboBox_teacher(Sender);
Form_Zavych.ComboBox_kl_1 (Sender);
end;
procedure TForm_Zavych.ComboBox_kl(Sender: TObject); // При открытии заносим в КОМБОБОКС классы !
var
tsr : tsearchrec;
s : string;
begin
ComboBox3.Clear;
if FindFirst('db\person_kl\' + '*.*',faAnyFile,tsr) = 0 then
repeat
s:= tsr.name;
if s <> '.' then
if s <> '..' then
begin
S:=StringReplace(s, '.db', '', [rfReplaceAll]);
ComboBox3.Items.Add(s);
end;
until FindNext(tsr) <> 0;
FindClose(tsr);
end;
procedure TForm_Zavych.ComboBox_exercises(Sender: TObject); // КОМБОБОКС предметов!
begin
ComboBox2.Items.LoadFromFile('db\teach_pr\' + ComboBox1.text + '.db');
end;
procedure TForm_Zavych.ComboBox_teacher(Sender: TObject); // При открытии заносим в КОМБОБОКС Учителей!
var
tsr : tsearchrec;
s : string;
begin
ComboBox1.Clear;
if FindFirst('db\teach_pr\' + '*.*',faAnyFile,tsr) = 0 then
repeat
s:= tsr.name;
if s <> '.' then
if s <> '..' then
begin
S:=StringReplace(s, '.db', '', [rfReplaceAll]);
ComboBox1.Items.Add(s);
end;
until FindNext(tsr) <> 0;
FindClose(tsr);
end;
procedure TForm_Zavych.ListBox_teacher(Sender: TObject); // При открытии заносим в листбокс Учителей!
var
tsr : tsearchrec;
s : string;
begin
ListBox1.Clear;
if FindFirst('db\teach_pr\' + '*.*',faAnyFile,tsr) = 0 then
repeat
s:= tsr.name;
if s <> '.' then
if s <> '..' then
begin
S:=StringReplace(s, '.db', '', [rfReplaceAll]);
ListBox1.Items.Add(s);
end;
until FindNext(tsr) <> 0;
FindClose(tsr);
end;
procedure TForm_Zavych.ListBox_kl(Sender: TObject); // При открытии заносим в листбокс Классы!
var
tsr : tsearchrec;
s : string;
begin
ListBox2.Clear;
if FindFirst('db\person_kl\' + '*.*',faAnyFile,tsr) = 0 then
repeat
s:= tsr.name;
if s <> '.' then
if s <> '..' then
begin
S:=StringReplace(s, '.db', '', [rfReplaceAll]);
ListBox2.Items.Add(s);
end;
until FindNext(tsr) <> 0;
FindClose(tsr);
end;
end.
unit unit_parents;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons,
Menus, ExtCtrls;
type
{ TForm_Parents }
TForm_Parents = class(TForm)
BitBtn2: TBitBtn;
Button1: TButton;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
MainMenu1: TMainMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
procedure BitBtn2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure FormClose(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ComboBox_kl(Sender: TObject);
procedure ComboBox_kl_1(Sender: TObject);
procedure ComboBox_teacher(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure MenuItem5Click(Sender: TObject);
private
public
end;
var
Form_Parents: TForm_Parents;
implementation
uses
unit_jurnal, unit_report, unit_about, unit_tz;
{$R *.lfm}
{ TForm_Parents }
procedure TForm_Parents.FormShow(Sender: TObject); // При открытии
begin
Form_Parents.ComboBox_kl(Sender);
Form_Parents.ComboBox_kl_1(Sender);
Form_Parents.ComboBox_teacher(Sender);
end;
procedure TForm_Parents.ComboBox3Change(Sender: TObject);
begin
ComboBox4.Items.LoadFromFile('db\teach_pr\' + ComboBox3.text + '.db');
end;
procedure TForm_Parents.FormClose(Sender: TObject); // ПРи закрытии
begin
ComboBox1.Clear;
ComboBox2.Clear;
ComboBox3.Clear;
ComboBox4.Clear;
ComboBox5.Clear;
ComboBox6.ItemIndex := -1;
end;
procedure TForm_Parents.BitBtn2Click(Sender: TObject); // Кнопка открыть журнал
begin
if Combobox3.ItemIndex < 0 then ShowMessage ('Выберите учителя!') else
if Combobox4.ItemIndex < 0 then ShowMessage ('Выберите учителя и его предмет!')else
if Combobox5.ItemIndex < 0 then ShowMessage ('Выберите класс!') else
if Combobox6.ItemIndex < 0 then ShowMessage ('Выберите четверть!') else
begin
Form_jurnal.teacher_j:= Combobox3.text;
Form_jurnal.predmet_j:= Combobox4.text;
Form_jurnal.klass_j:= Combobox5.text ;
Form_jurnal.quarter_j:=Combobox6.text ;
Form_jurnal.prnts:=1;
Form_jurnal.Showmodal;
close;
end;
end;
procedure TForm_Parents.Button1Click(Sender: TObject);
begin
if Combobox1.ItemIndex < 0 then ShowMessage ('Выберите класс!') else
if Combobox2.ItemIndex < 0 then ShowMessage ('Выберите ученика!')else
begin
Form_report.klass:= Combobox1.text;
Form_report.person:= Combobox2.text;
Form_report.Showmodal;
//close;
end;
end;
procedure TForm_Parents.ComboBox1Change(Sender: TObject);
begin
ComboBox2.Items.LoadFromFile('db\person_kl\' + ComboBox1.text + '.db');
end;
procedure TForm_Parents.ComboBox_kl_1(Sender: TObject); // При открытии заносим в КОМБОБОКС классы !
var
tsr : tsearchrec;
s : string;
begin
ComboBox1.Clear;
if FindFirst('db\person_kl\' + '*.*',faAnyFile,tsr) = 0 then
repeat
s:= tsr.name;
if s <> '.' then
if s <> '..' then
begin
S:=StringReplace(s, '.db', '', [rfReplaceAll]);
ComboBox1.Items.Add(s);
end;
until FindNext(tsr) <> 0;
FindClose(tsr);
end;
procedure TForm_Parents.ComboBox_kl(Sender: TObject); // При открытии заносим в КОМБОБОКС классы !
var
tsr : tsearchrec;
s : string;
begin
ComboBox5.Clear;
if FindFirst('db\person_kl\' + '*.*',faAnyFile,tsr) = 0 then
repeat
s:= tsr.name;
if s <> '.' then
if s <> '..' then
begin
S:=StringReplace(s, '.db', '', [rfReplaceAll]);
ComboBox5.Items.Add(s);
end;
until FindNext(tsr) <> 0;
FindClose(tsr);
end;
procedure TForm_Parents.ComboBox_teacher(Sender: TObject); // При открытии заносим в КОМБОБОКС Учителей!
var
tsr : tsearchrec;
s : string;
begin
ComboBox3.Clear;
if FindFirst('db\teach_pr\' + '*.*',faAnyFile,tsr) = 0 then
repeat
s:= tsr.name;
if s <> '.' then
if s <> '..' then
begin
S:=StringReplace(s, '.db', '', [rfReplaceAll]);
ComboBox3.Items.Add(s);
end;
until FindNext(tsr) <> 0;
FindClose(tsr);
end;
procedure TForm_Parents.MenuItem3Click(Sender: TObject); // об авторе
begin
form_about.show;
end;
procedure TForm_Parents.MenuItem4Click(Sender: TObject);
begin
form_tz.show;
end;
procedure TForm_Parents.MenuItem5Click(Sender: TObject);
begin
close;
end;
end.
unit unit_teacher;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons, StdCtrls,
Menus, ExtCtrls;
type
{ TForm_teacher }
TForm_teacher = class(TForm)
BitBtn2: TBitBtn;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
MainMenu1: TMainMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
procedure BitBtn2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ComboBox_kl(Sender: TObject);
procedure ComboBox_teacher(Sender: TObject);
procedure ComboBox_exercises(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure MenuItem5Click(Sender: TObject);
private
public
end;
var
Form_teacher: TForm_teacher;
implementation
uses
unit_jurnal, unit_about, unit_tz;
{$R *.lfm}
{ TForm_teacher }
procedure TForm_teacher.FormShow(Sender: TObject); // При открытии
begin
Form_teacher.ComboBox_kl(Sender);
Form_teacher.ComboBox_teacher(Sender);
end;
procedure TForm_teacher.ComboBox1Change(Sender: TObject);
begin
Form_teacher.ComboBox_exercises (Sender);
end;
procedure TForm_teacher.BitBtn2Click(Sender: TObject);
begin
if Combobox1.ItemIndex < 0 then ShowMessage ('Выберите учителя!') else
if Combobox2.ItemIndex < 0 then ShowMessage ('Выберите учителя и его предмет!')else
if Combobox3.ItemIndex < 0 then ShowMessage ('Выберите класс!') else
if Combobox4.ItemIndex < 0 then ShowMessage ('Выберите четверть!') else
begin
Form_jurnal.teacher_j:= Combobox1.text;
Form_jurnal.predmet_j:= Combobox2.text;
Form_jurnal.klass_j:= Combobox3.text ;
Form_jurnal.quarter_j:=Combobox4.text ;
Form_jurnal.Show;
end;
end;
procedure TForm_teacher.ComboBox_kl(Sender: TObject); // При открытии заносим в КОМБОБОКС классы !
var
tsr : tsearchrec;
s : string;
begin
ComboBox3.Clear;
if FindFirst('db\person_kl\' + '*.*',faAnyFile,tsr) = 0 then
repeat
s:= tsr.name;
if s <> '.' then
if s <> '..' then
begin
S:=StringReplace(s, '.db', '', [rfReplaceAll]);
ComboBox3.Items.Add(s);
end;
until FindNext(tsr) <> 0;
FindClose(tsr);
end;
procedure TForm_teacher.ComboBox_teacher(Sender: TObject); // При открытии заносим в КОМБОБОКС Учителей!
var
tsr : tsearchrec;
s : string;
begin
ComboBox1.Clear;
if FindFirst('db\teach_pr\' + '*.*',faAnyFile,tsr) = 0 then
repeat
s:= tsr.name;
if s <> '.' then
if s <> '..' then
begin
S:=StringReplace(s, '.db', '', [rfReplaceAll]);
ComboBox1.Items.Add(s);
end;
until FindNext(tsr) <> 0;
FindClose(tsr);
end;
procedure TForm_teacher.ComboBox_exercises(Sender: TObject); // КОМБОБОКС предметов!
begin
ComboBox2.Items.LoadFromFile('db\teach_pr\' + ComboBox1.text + '.db');
end;
procedure TForm_teacher.MenuItem2Click(Sender: TObject);
begin
close;
end;
procedure TForm_teacher.MenuItem4Click(Sender: TObject);
begin
form_about.show;
end;
procedure TForm_teacher.MenuItem5Click(Sender: TObject);
begin
form_tz.show;
end;
end.
unit unit_jurnal;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Grids, Menus,
ExtCtrls, Math;
type
TDynStringArray = array of string;
TDynintArray_array = array of array of integer;
{ TForm_jurnal }
TForm_jurnal = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
ComboBox7: TComboBox;
FontDialog1: TFontDialog;
Image1: TImage;
Label1: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
MainMenu1: TMainMenu;
Memo1: TMemo;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
SaveDialog1: TSaveDialog;
SaveDialog2: TSaveDialog;
StringGrid1: TStringGrid;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button3Click_1(Sender: TObject);
procedure Button3Click_2(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormClose(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure MenuItem6Click(Sender: TObject);
procedure MenuItem8Click(Sender: TObject);
procedure MenuItem9Click(Sender: TObject);
procedure newFile (Sender: TObject);
procedure persons_array(Sender: TObject);
procedure Updategrid (Sender: TObject);
procedure Updategrid_SB (Sender: TObject);
procedure Updategrid_2 (Sender: TObject);
procedure update_tems (Sender: TObject);
procedure Updategrid_marks (Sender: TObject);
procedure ComboBox1_update (Sender: TObject);
procedure ComboBox7_update (Sender: TObject);
procedure ComboBox6_update (Sender: TObject);