interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, UCh_TypeDB;

type

TfTeacherReg = class (TForm)

btnLoadJournal: TButton;

StringGrid1: TStringGrid;

btnContent: TButton;

sgParam: TStringGrid;

cbFIO: TComboBox;

sgTypeInstit: TStringGrid;

btnLogin: TButton;

cbClass: TComboBox;

cbClass2: TComboBox;

cbSubject: TComboBox;

cbSubject2: TComboBox;

edTabN: TEdit;

edPass: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button2: TButton;

procedure FormShow (Sender: TObject);

procedure btnLoadJournalClick (Sender: TObject);

procedure btnContentClick (Sender: TObject);

procedure btnLoginClick (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure edPassKeyPress (Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fTeacherReg: TfTeacherReg;

f_Ind: file of TIndivid;

TMyIndivid: TIndivid;

f_ParamInd: file of TParamIndivid;

TMyParamInd: TParamIndivid;

f_Param: file of TParam;

TMyParam: TParam;

f_CondValPar: file of TCondValPar;

TMyCondValPar: TCondValPar;

f_Institutions: file of TInstitutions;

TMyInstitutions: TInstitutions;

f_TeachLoadIndivid: file of TTeachLoadIndivid;

TMyTeachLoadIndivid: TTeachLoadIndivid;

f_StPlan: file of TStPlan;

TMyStPlan: TStPlan;

f_Subject: file of TSubject;

TMySubject: TSubject;

f_Class: file of TClass;

TMyClass: TClass;

implementation

{$R *. dfm}

Uses UCh_reg, UTch_Journal;

procedure TfTeacherReg. FormShow (Sender: TObject);

begin

// FCh_Reg. Show;

// cbFIO. Items. Delete (0);

btnContent. Click;

end;

procedure TfTeacherReg. btnLoadJournalClick (Sender: TObject);

begin

fJournal. lbClass. Caption: =cbClass2. Text;

fJournal. lbSubject. Caption: =cbSubject2. Text;

fJournal. lbTeacherTabNStrel. Caption: ='-> '+edTabN. Text;

fJournal. Show;

end;

procedure TfTeacherReg. btnContentClick (Sender: TObject);

var

i: Integer;

begin

StartDirDB_p: = GetCurrentDir+ '\Institutions\Data_School_СОШ_5';

cbFIO. Items. Clear;

// -----файл параметров индивидов

if FileExists (StartDirDB_p+'\Param_Individ. DDB')

then begin

AssignFile (f_ParamInd,StartDirDB_p+'\Param_Individ. DDB');

Reset (f_ParamInd);

i: =1;

if FileExists (StartDirDB_p+'\Individ. DDB')

then begin

AssignFile (f_ind,StartDirDB_p+'\Individ. DDB');

Reset (f_ind);

while not eof (f_ParamInd) do

begin

// if i>1 then StringGrid1. RowCount: =StringGrid1. RowCount+1;

Read (f_ParamInd,TMyParamInd);

if TMyParamInd. n_param=12345 then

begin

// -----файл индивидов

while not eof (f_ind) do

begin

if i>1 then StringGrid1. RowCount: =StringGrid1. RowCount+1;

Read (f_ind,TMyIndivid);

StringGrid1. Cells [0, i]: =TMyIndivid. Fam;

StringGrid1. Cells [1, i]: =TMyIndivid. Name;

StringGrid1. Cells [2, i]: =TMyIndivid. SName;

StringGrid1. Cells [3, i]: =IntToStr (TMyIndivid. n_Institutions);

cbFIO. Items. Add (TMyIndivid. Fam+' '+TMyIndivid. Name+' '+

TMyIndivid. SName+' '+TMyIndivid. TabN);

i: =i+1;

end;

end;

// --------------------

end;

// StringGrid1. Cells [0, i]: =IntToStr (TMyParamInd. n_param);

// StringGrid1. Cells [1, i]: =TMyParamInd. TabN;

// StringGrid1. Cells [2, i]: =TMyParamInd. Value;

// i: =i+1;

end;

CloseFile (f_ParamInd);

CloseFile (f_ind);

end;

// --------------------

// -----файл параметров

if FileExists (StartDirDB_p+'\Institutions. DDB')

then begin

AssignFile (f_Institutions,StartDirDB_p+'\Institutions. DDB');

Reset (f_Institutions); i: =1;

while not eof (f_Institutions) do

begin

if i>1 then sgTypeInstit. RowCount: =sgTypeInstit. RowCount+1;

Read (f_Institutions,TMyInstitutions);

sgTypeInstit. Cells [0, i]: =TMyInstitutions. Numer;

sgTypeInstit. Cells [1, i]: =IntToStr (TMyInstitutions. n_Institutions);

i: =i+1;

end;

CloseFile (f_Institutions);

end

else ShowMessage ('');

// -------------------------------------

end;

procedure TfTeacherReg. btnLoginClick (Sender: TObject);

var

i,j: Integer;

N_Str: Integer;

find: Boolean;

cbcount: Integer;

str,str2: String;

findpass: Boolean;

tabN: String;

begin

cbClass. Clear;

cbClass2. Clear;

cbSubject. Clear;

cbSubject2. Clear;

findpass: =false;

edTabN. Clear;

str: =cbFIO. Text;

for i: =length (cbFIO. Text) - 5 to length (cbFIO. Text) do

str2: =str2+str [i];

edTabN. Text: =str2;

tabN: =edTabN. Text;

// -----файл параметров

if FileExists (StartDirDB_p+'\Param_Individ. DDB')

then begin

AssignFile (f_CondValPar,StartDirDB_p+'\Param_Individ. DDB');

Reset (f_ParamInd); i: =1;

while not eof (f_ParamInd) do

begin

// if i>1 then sgParam. RowCount: =sgParam. RowCount+1;

Read (f_ParamInd,TMyParamInd);

if TMyParamInd. TabN=edTabN. Text then

edTabN. Text: =IntToStr (TMyParamInd. group);

if (TMyParamInd. TabN=tabN) and (TMyParamInd. Value=edPass. Text) then

findpass: =true;

// sgParam. Cells [0, i]: =TMyParamInd. TabN;

// sgParam. Cells [1, i]: =IntToStr (TMyParamInd. group);

i: =i+1;

end;

CloseFile (f_ParamInd);

end;

// -------------------------------------

if findpass and (edPass. Text<>'') then

begin

ShowMessage ('Пароль введён верно');

btnLoadJournal. Enabled: =true;

find: =false;

cbClass. Clear;

cbSubject. Clear;

cbClass2. Clear;

cbSubject2. Clear;

// ------------------------------------------------------------------------------

StartDirDB_p: = GetCurrentDir +'\Institutions\Data_School_СОШ_5';

if FileExists (StartDirDB_p+'\TeachLoadIndivid. DDB')

then begin

AssignFile (f_TeachLoadIndivid,StartDirDB_p+'\TeachLoadIndivid. DDB');

Reset (f_TeachLoadIndivid);

i: =1;

while not eof (f_TeachLoadIndivid) do

begin

Read (f_TeachLoadIndivid,TMyTeachLoadIndivid);

Delete (TMyTeachLoadIndivid. TabN,1,3);

if edTabN. Text=TMyTeachLoadIndivid. TabN then

begin

// ShowMessage ('Табельный номер найден');

N_Str: =TMyTeachLoadIndivid. n_RowStPlan;

// find: =true;

// ------------------------------------------------------------------------------

if FileExists (StartDirDB_p+'\StPlan. DDB') then

begin

AssignFile (f_StPlan,StartDirDB_p+'\StPlan. DDB');

Reset (f_StPlan);

while not eof (f_StPlan) do

begin

read (f_StPlan,TMyStPlan);

if TMyStPlan. n_RowStPlan=N_Str then

begin

for i: =0 to cbClass. Items. Count do

begin

if cbClass. Items. Strings [i] =IntToStr (TMyStPlan. n_class) then

begin

find: =true;

break;

end;

end;

if not find then

cbClass. Items. Add (IntToStr (TMyStPlan. n_class));

cbSubject. Items. Add (IntToStr (TMyStPlan. n_Subject));

end;

end;

CloseFile (f_StPlan);

// ------------------------------------------------------------------------------

for i: =0 to cbSubject. Items. Count do begin

if FileExists (StartDirDB_p+'\Subject. DDB') then

begin

AssignFile (f_Subject,StartDirDB_p+'\Subject. DDB');

Reset (f_Subject);

while not eof (f_Subject) do

begin

read (f_Subject,TMySubject);

if TMySubject. n_Subject=StrToIntDef (cbSubject. Items. Strings [i],0) then begin

cbSubject. Items. Delete (i);

cbSubject2. Items. Add (TMySubject. Subject);

end;

end;

end;

CloseFile (f_Subject);

end;

// ------------------------------------------------------------------------------

// ------------------------------------------------------------------------------

for i: =0 to cbClass. Items. Count do begin

if FileExists (StartDirDB_p+'\Class. DDB') then

begin

AssignFile (f_Class,StartDirDB_p+'\Class. DDB');

Reset (f_Class);

while not eof (f_Class) do

begin

read (f_Class,TMyClass);

if TMyClass. n_class=StrToIntDef (cbClass. Items. Strings [i],0) then

begin

cbClass. Items. Delete (i);

cbClass2. Items. Add (IntToStr (TMyClass. n_Prll_class) +TMyClass. Letter);

end;

end;

end;

CloseFile (f_Class);

end;

// ------------------------------------------------------------------------------

end;

// ------------------------------------------------------------------------------

end;

i: =i+1;

end;

CloseFile (f_TeachLoadIndivid);

end;

// ------------------------------------------------------------------------------

for j: =0 to cbClass2. Items. Count do

cbClass2. Items. Delete (j);

cbClass2. ItemIndex: =0;

cbSubject2. ItemIndex: =0;

end

else

begin

ShowMessage ('Пароль введён неверно');

edPass. Clear;

end;

end;

procedure TfTeacherReg. Button2Click (Sender: TObject);

begin

Close;

end;

procedure TfTeacherReg. edPassKeyPress (Sender: TObject; var Key: Char);

begin

if key=#13 then btnLogin. Click;

end;

end.

Размещено на Allbest.ru