Разработка программного средства "Портфолио педагога"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
mbYes, mbNo],0)=mrYesbegin.Otr_Nagrada.Delete;;;TMain.SpeedButton10Click(Sender: TObject);
//если нет записей выходимDM.Otr_Nagrada.RecordCount=0 then exit;.Caption:=Изменение отр награды;.Tag:=3;.Edit1.Text:=DM.Otr_NagradaKem_Wyd.Value;.Edit2.Text:=DM.Otr_NagradaGorod.Value;.ComboBox1.Text:=Dm.Otr_NagradaGod.Value;.Memo1.Text:=DM.Otr_NagradaDrugoe.Value;.ShowModal;;TMain.SpeedButton9Click(Sender: TObject);.Caption:=Добавление отр награды;.Tag:=2;.Edit1.Text:=;.Edit2.Text:=;.Memo1.Text:=;.ShowModal;;TMain.SpeedButton12Click(Sender: TObject);
begin.Caption:=Добавление благодарности;
AddBlago.Tag:=0;.Edit1.Text:=;.Memo1.Text:=;.ShowModal;;TMain.SpeedButton13Click(Sender: TObject);
//если нет записей выходимDM.Blago.RecordCount=0 then exit;.Caption:=Изменение благодарности;.Tag:=1;.Edit1.Text:=DM.BlagoOt_Kogo.Value;.ComboBox1.Text:=DM.BlagoGod.Value;.Memo1.Text:=DM.BlagoDrugoe.Value;.ShowModal;;TMain.SpeedButton11Click(Sender: TObject);
//если нет записей выходимDM.Blago.RecordCount=0 then exit;
if messagedlg(Вы действительно хотите удалить благодарность №
+inttostr(DM.BlagoID_Blago.value)+?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin.Blago.Delete;;;TMain.SpeedButton17Click(Sender: TObject);
//если нет записей выходимDM.Diplom.RecordCount=0 then exit;messagedlg(Вы действительно хотите удалить диплом №
+inttostr(DM.DiplomID_Diplom.value)+?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin.Diplom.Delete;;;TMain.SpeedButton19Click(Sender: TObject);
//если нет записей выходимDM.Diplom.RecordCount=0 then exit;.Caption:=Изменение диплома;.Tag:=1;.Edit1.Text:=DM.DiplomKem.Value;.DateTimePicker1.Date:=DM.DiplomKogda.Value;.Memo1.Text:=DM.BlagoDrugoe.Value;.ShowModal;;TMain.SpeedButton18Click(Sender: TObject);.Caption:=Добавление диплома;.Tag:=0;.Edit1.Text:=;.DateTimePicker1.Date:=Date;.Memo1.Text:=;.ShowModal;;TMain.SpeedButton14Click(Sender: TObject);
//если нет записей выходимDM.Gramota.RecordCount=0 then exit;
if messagedlg(Вы действительно хотите удалить грамоту №
+inttostr(DM.GramotaID_Gramota.value)+?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin.Gramota.Delete;;;TMain.SpeedButton16Click(Sender: TObject);
//если нет записей выходимDM.Gramota.RecordCount=0 then exit;.Caption:=Изменение грамоты;.Tag:=1;.Edit1.Text:=DM.GramotaKem.Value;.Edit2.Text:=DM.GramotaZaHto.Value;.ComboBox1.Text:=Dm.GramotaGod.Value;.Memo1.Text:=DM.GramotaDrugoe.Value;.ShowModal;;TMain.SpeedButton15Click(Sender: TObject);.Caption:=Добавление грамоты;.Tag:=0;.Edit1.Text:=;.Edit2.Text:=;.Memo1.Text:=;.ShowModal;;TMain.CheckBox1Click(Sender: TObject);:string;CheckBox1.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox1.Checked=false then:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Учебная деятельность\Предметные олимипады;
0then">if ListBox3.Items.Count<>0 then
if messagedlg(При снятии галочки все файлы из этой категории будут удалены!
+Хотите продолжить?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin
//удаляем каталог
MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.SpeedButton20Click(Sender: TObject);
var:string;
//определяем директория для хранения файлов
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Учебная деятельность\Предметные олимипады;
if OpenPictureDialog1.Execute then
//если нет директориит - создаем ееnot DirectoryExists(tekdir)ForceDirectories (tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+\+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton21Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Учебная деятельность\Предметные олимипады;
if ListBox3.ItemIndex=-1 then exit;(tekdir+\+ListBox3.Items[ListBox3.ItemIndex]);.Items.Delete(ListBox3.ItemIndex);;TMain.CheckBox2Click(Sender: TObject);:string;CheckBox2.Checked then.Enabled:=true;.Enabled:=true;
Label20.Enabled:=true;
ListBox4.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox2.Checked=false then:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
0then">\Учебная деятельность\Конкурсы;ListBox4.Items.Count<>0 then
beginmessagedlg(При снятии галочки все файлы из этой категории будут удалены!
+Хотите продолжить?
,Mtconfirmation, [mbYes, mbNo],0)=mrYesbegin
//удаляем каталог
MyRemoveDir(tekdir);.Items.Clear;.Checked:=true;;;;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false;;;TMain.SpeedButton23Click(Sender: TObject);
var:string;
//определяем директория для хранения файлов
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Учебная деятельность\Конкурсы;OpenPictureDialog1.Execute then
begin
//если нет директориит - создаем ее
if not DirectoryExists(tekdir)ForceDirectories(tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+\+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton25Click(Sender: TObject);
var:string;
//определяем директория для хранения файлов
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Учебная деятельность\Научно практические конференции;
if OpenPictureDialog1.Execute then
//если нет директориит - создаем ееnot DirectoryExists(tekdir)ForceDirectories(tekdir);(Pchar(OpenPictureDialog1.FileName),(tekdir+\+ExtractFileName(OpenPictureDialog1.FileName)), true);.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));;;TMain.SpeedButton22Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Учебная деятельность\Конкурсы;
if ListBox4.ItemIndex=-1 then exit;(tekdir+\+ListBox4.Items[ListBox4.ItemIndex]);.Items.Delete(ListBox4.ItemIndex);;TMain.SpeedButton24Click(Sender: TObject);:string;:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Учебная деятельность\Научно практические конференции;
if ListBox5.ItemIndex=-1 then exit;(tekdir+\+ListBox5.Items[ListBox5.ItemIndex]);.Items.Delete(ListBox5.ItemIndex);
end;
//удаление каталога со всеми файлами
)and">Function MyRemoveDir(sDir : String) : Boolean;: Integer;: TSearchRec;: String;:= False;:= sDir + \*.*;:= FindFirst(sDir, faAnyFile, SearchRec);iIndex = 0 do begin:= ExtractFileDir(sDir)+\+SearchRec.Name;SearchRec.Attr = faDirectory then begin(SearchRec.Name <> ) and
.)and">(SearchRec.Name <> .) and
..)then(sFileName);elsebeginSearchRec.Attr faArchive then(sFileName, faArchive);NOT DeleteFile(sFileName) then(Could NOT delete + sFileName);;:= FindNext(SearchRec);;(SearchRec);(ExtractFileDir(sDir));:= True;;TMain.CheckBox3Click(Sender: TObject);:string;CheckBox3.Checked then.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;CheckBox3.Checked=false then
begin
//определяем директория для хранения файлов
tekdir:=ExtractFilePath(ParamStr(0))
+Users\+nuser+
\Учебная деятельность\Научно практические конференции;
0then">if ListBox5.Items.Count<>0 then
if