Разработка программного средства "Портфолио педагога"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ata.ValueMain.DateTimePicker3.Date:=date;.ListBox2.Items.clear;
//добавлем текущие диiиплины.AnkDisc.First;not DM.AnkDisc.Eof doDM.AnkDiscID_Anketa.Value=Main.Tag then.ListBox2.Items.Add
(DM.Disc.Lookup(ID_Disc,DM.AnkDiscID_DIsc.Value,Name));
DM.AnkDisc.Next;;
//добавлем текущие образования
DM.AnkObraz.First;not DM.AnkObraz.Eof doDM.AnkObrazID_Anketa.Value=Main.Tag then.ListBox1.Items.Add
(DM.Obraz.Lookup(ID_Obraz,DM.AnkObrazID_Obraz.Value,Name));
DM.AnkObraz.Next;;
//-----------учебная деятельность--------------------
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+DM.Users.Lookup(ID_Users,DM.AnketaID_Users.Value
,Login)+\Учебная деятельность\Предметные олимипады;
if DirectoryExists(tekdir) then.Res_Uch.Locate(ID_Anketa,Main.Tag,[]);DM.Res_UchPred_Olimp.Value=true then.CheckBox1.Checked:=true;.ListBox3.Clear;(tekdir,*,Main.ListBox3.Items);.ComboBox6.Text:=DM.Res_UchPred_Olimp_Ur.Value;;.ListBox3.Clear;.CheckBox1.Checked:=false;;:=ExtractFilePath(ParamStr(0))
+Users\+DM.Users.Lookup(ID_Users,.AnketaID_Users.Value,Login)+
\Учебная деятельность\Конкурсы;DirectoryExists(tekdir) thenDM.Res_UchKonkurs.Value=true then.CheckBox2.Checked:=true;.ListBox4.Clear;(tekdir,*,Main.ListBox4.Items);.ComboBox7.Text:=DM.Res_UchKonkurs_Ur.Value;;.ListBox4.Clear;.CheckBox2.Checked:=false;;:=ExtractFilePath(ParamStr(0))
+Users\+DM.Users.Lookup(ID_Users,DM.AnketaID_Users.Value
,Login)+\Учебная деятельность\Научно практические конференции;
if DirectoryExists(tekdir) thenDM.Res_UchNpk.Value=true then.CheckBox3.Checked:=true;.ListBox5.Clear;(tekdir,*,Main.ListBox5.Items);.ComboBox8.Text:=DM.Res_UchNpk_Ur.Value;;.ListBox5.Clear;.CheckBox3.Checked:=false;;
//------------внеурочная деятельность-------------------:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Внеурочная деятельность\Конкурсы;
if DirectoryExists(tekdir) then.Res_Vneur.Locate(ID_Anketa,Main.Tag,[]);DM.Res_VneurKonkurs.Value=true then.CheckBox6.Checked:=true;
Main.ListBox8.Clear;
ScanDir(tekdir,*,Main.ListBox8.Items);.ComboBox11.Text:=DM.Res_VneurKonkurs_Ur.Value;;.ListBox8.Clear;.CheckBox6.Checked:=false;;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Внеурочная деятельность\Концерты;DirectoryExists(tekdir) then
begin.Res_Vneur.Locate(ID_Anketa,Main.Tag,[]);DM.Res_VneurKoncert.Value=true then.CheckBox5.Checked:=true;.ListBox7.Clear;(tekdir,*,Main.ListBox7.Items);.ComboBox10.Text:=DM.Res_VneurKoncert_Ur.Value;;.ListBox7.Clear;.CheckBox5.Checked:=false;;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Внеурочная деятельность\Выставки;DirectoryExists(tekdir) then.Res_Vneur.Locate(ID_Anketa,Main.Tag,[]);DM.Res_VneurVystav.Value=true then.CheckBox4.Checked:=true;
Main.ListBox6.Clear;
ScanDir(tekdir,*,Main.ListBox6.items);.ComboBox9.Text:=DM.Res_VneurVystav_Ur.Value;;.ListBox6.Clear;.CheckBox4.Checked:=false;;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Внеурочная деятельность\Турниры;DirectoryExists(tekdir) then.Res_Vneur.Locate(ID_Anketa,Main.Tag,[]);DM.Res_VneurTurnir.Value=true then.CheckBox7.Checked:=true;.ListBox9.Clear;(tekdir,*,Main.ListBox9.Items);.ComboBox12.Text:=DM.Res_VneurTurnir_Ur.Value;;.ListBox9.Clear;.CheckBox7.Checked:=false;;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Внеурочная деятельность\Соревнования;DirectoryExists(tekdir) then
begin.Res_Vneur.Locate(ID_Anketa,Main.Tag,[]);DM.Res_VneurSorevn.Value=true then.CheckBox8.Checked:=true;.ListBox10.Clear;(tekdir,*,Main.ListBox10.Items);.ComboBox13.Text:=DM.Res_VneurSorevn_Ur.Value;;.ListBox10.Clear;.CheckBox8.Checked:=false;;
//------------авторские материалы----------------:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Программы;
if DirectoryExists(tekdir) then.Avtor_Mat.Locate(ID_Anketa,Main.Tag,[]);DM.Avtor_MatProgram.Value=true then.CheckBox9.Checked:=true;.ListBox11.Clear;(tekdir,*,Main.ListBox11.Items);;.ListBox11.Clear;.CheckBox9.Checked:=false;;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Методические разработки;
if DirectoryExists(tekdir) then.Avtor_Mat.Locate(ID_Anketa,Main.Tag,[]);DM.Avtor_MatMetod.Value=true then.CheckBox10.Checked:=true;.ListBox12.Clear;(tekdir,*,Main.ListBox12.Items);;.ListBox12.Clear;.CheckBox10.Checked:=false;;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Публикации;DirectoryExists(tekdir) then.Avtor_Mat.Locate(ID_Anketa,Main.Tag,[]);DM.Avtor_MatPublic.Value=true then.CheckBox11.Checked:=true;.ListBox13.Clear;(tekdir,*,Main.ListBox13.Items);;.ListBox13.Clear;.CheckBox11.Checked:=false;;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Печатные издания;
if DirectoryExists(tekdir) then.Avtor_Mat.Locate(ID_Anketa,Main.Tag,[]);DM.Avtor_MatPechat.Value=true then.CheckBox12.Checked:=true;.ListBox14.Clear;(tekdir,*,Main.ListBox14.Items);;.ListBox14.Clear;.CheckBox12.Checked:=false;;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Авторские материалы\Электронные ресурсы;
if DirectoryExists(tekdir) then.Avtor_Mat.Locate(ID_Anketa,Main.Tag,[]);DM.Avtor_MatElect_Res.Value=true then.CheckBox13.Checked:=true;.ListBox15.Clear;(tekdir,*,Main.ListBox15.Items);;.ListBox15.Clear;.CheckBox13.Checked:=false;;.Blago.Active:=false;.Blago.Active:=true;.Gramota.Active:=false;.Gramota.Active:=true;.Nagrada.Active:=false;.Nagrada.Active:=true;.Diplom.Active:=false;.Diplom.Active:=true;.Otr_Nagrada.Active:=false;.Otr_Nagrada.Active:=true;
//--------------------------------------------.Visible:=false;.Show;;ScanDir(StartDir: String; Mask:string; List:TStrings);
{ Процедура выводит список директории в список List, начиная с директории,
указанной в StartDir. Mask - маска для получения файлов}
Var SearchRec : TSearchRec;Mask = then Mask:= *.*;StartDir[Length(StartDir)] <> \ then StartDir := StartDir + \;
IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
Begin
{ Чтобы выполнение "не подвисало" }
faDirectorythen.Add(SearchRec.Name)else(SearchRec.Name .) then
//List.Add(StartDir + SearchRec.Name + \);.Add(SearchRec.Name + \);
0;(SearchRec);;{IF};TLoginForm.SpeedButton2Click(Sender:TObject);.Edit1.Text:=;">{ Рекурсивный вызов }(StartDir + SearchRec.Name + \,Mask,List);;FindNext(SearchRec) <> 0;(SearchRec);; {IF};TLoginForm.SpeedButton2Click(Sender: TObject);.Edit1.Text:=;
AddUser.Edit2.Text:=;
AddUser.ShowModal;;.Unit2;, Classes, DB, ADODB;= class(TDataModule): TDataSource;: TADOConnection;: TADOQuery;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;_Nagrada: TADOQuery;: TDataSource;_Mat: TADOQuery;: TDataSource;: TDataSource;_Vneur: TADOQuery;: TDataSource;_Users: TAutoIncField;: TWideStringField;: TWideStringField;_Anketa: TAutoIncField;: TWideStringField;_Rojd: TDateTimeField;_Uhr: TWideStringField;_Spec: TWideStringField;_Doljn: TWideStringField;_Sovm: TWideStringField;_Ped: TIntegerField;_Doljn: TIntegerField;_Kat: TWideStringField;_Data: TDateTimeField;_Gor: TWideStringField;_Name: TWideStringField;_Data: TDateTimeField;_Users: TIntegerField;_Disc: TAutoIncField;: TWideStringField;_Obraz: TAutoIncField;: TWideStringField;_AnkObraz: TAutoIncField;_Anketa: TIntegerField;_Obraz: TIntegerField;_AnkDisc: TAutoIncField;_Anketa: TIntegerField;_DIsc: TIntegerField;_Blago: TAutoIncField;_Anketa: TIntegerField;_Kogo: TWideStringField;: TWideStringField;: TWideStringField;_Diplom: TAutoIncField;_Anketa: TIntegerField;: TWideStringField;: TDateTimeField;: TWideStringField;_Gramota: TAutoIncField;_Anketa: TIntegerField;: TWideStringField;: TWideStringField;: TWideStringField;_Nagrada: TAutoIncField;_Anketa: TIntegerField;_Vydana: TWideStringField;: TWideStringField