Разработка программного средства "Портфолио педагога"

end;

end.

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDM = class(TDataModule)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

Users: TADOQuery;

Anketa: TADOQuery;

DataSource2: TDataSource;

Disc: TADOQuery;

DataSource3: TDataSource;

Obraz: TADOQuery;

DataSource4: TDataSource;

AnkObraz: TADOQuery;

DataSource5: TDataSource;

AnkDisc: TADOQuery;

DataSource6: TDataSource;

Blago: TADOQuery;

DataSource7: TDataSource;

Diplom: TADOQuery;

DataSource8: TDataSource;

Gramota: TADOQuery;

DataSource9: TDataSource;

Nagrada: TADOQuery;

DataSource10: TDataSource;

Otr_Nagrada: TADOQuery;

DataSource11: TDataSource;

Avtor_Mat: TADOQuery;

DataSource12: TDataSource;

DataSource13: TDataSource;

Res_Vneur: TADOQuery;

DataSource14: TDataSource;

UsersID_Users: TAutoIncField;

UsersLogin: TWideStringField;

UsersPass: TWideStringField;

AnketaID_Anketa: TAutoIncField;

AnketaFIO: TWideStringField;

AnketaData_Rojd: TDateTimeField;

AnketaDipl_Uhr: TWideStringField;

AnketaDipl_Spec: TWideStringField;

AnketaOsn_Doljn: TWideStringField;

AnketaWnutr_Sovm: TWideStringField;

AnketaStaj_Ped: TIntegerField;

AnketaStaj_Doljn: TIntegerField;

AnketaKval_Kat: TWideStringField;

AnketaKval_Data: TDateTimeField;

AnketaMesto_Gor: TWideStringField;

AnketaMesto_Name: TWideStringField;

AnketaMesto_Data: TDateTimeField;

AnketaID_Users: TIntegerField;

DiscID_Disc: TAutoIncField;

DiscName: TWideStringField;

ObrazID_Obraz: TAutoIncField;

ObrazName: TWideStringField;

AnkObrazID_AnkObraz: TAutoIncField;

AnkObrazID_Anketa: TIntegerField;

AnkObrazID_Obraz: TIntegerField;

AnkDiscID_AnkDisc: TAutoIncField;

AnkDiscID_Anketa: TIntegerField;

AnkDiscID_DIsc: TIntegerField;

BlagoID_Blago: TAutoIncField;

BlagoID_Anketa: TIntegerField;

BlagoOt_Kogo: TWideStringField;

BlagoGod: TWideStringField;

BlagoDrugoe: TWideStringField;

DiplomID_Diplom: TAutoIncField;

DiplomID_Anketa: TIntegerField;

DiplomKem: TWideStringField;

DiplomKogda: TDateTimeField;

DiplomDrugoe: TWideStringField;

GramotaID_Gramota: TAutoIncField;

GramotaID_Anketa: TIntegerField;

GramotaKem: TWideStringField;

GramotaGod: TWideStringField;

GramotaZaHto: TWideStringField;

NagradaID_Nagrada: TAutoIncField;

NagradaID_Anketa: TIntegerField;

NagradaKem_Vydana: TWideStringField;

NagradaGorod: TWideStringField;

NagradaGod: TWideStringField;

NagradaDrugoe: TWideStringField;

Otr_NagradaOtr_Nagrada: TAutoIncField;

Otr_NagradaID_Anketa: TIntegerField;

Otr_NagradaKem_Wyd: TWideStringField;

Otr_NagradaGorod: TWideStringField;

Otr_NagradaGod: TWideStringField;

Otr_NagradaDrugoe: TWideStringField;

Avtor_MatID_Avtor_Mat: TAutoIncField;

Avtor_MatID_Anketa: TIntegerField;

Avtor_MatProgram: TBooleanField;

Avtor_MatMetod: TBooleanField;

Avtor_MatPublic: TBooleanField;

Avtor_MatPechat: TBooleanField;

Avtor_MatElect_Res: TBooleanField;

GramotaDrugoe: TWideStringField;

AnketaGod_Konc: TWideStringField;

Res_UchID_Res_Uch: TAutoIncField;

Res_UchID_Anketa: TIntegerField;

Res_UchPred_Olimp: TBooleanField;

Res_UchPred_Olimp_Ur: TWideStringField;

Res_UchKonkurs: TBooleanField;

Res_UchKonkurs_Ur: TWideStringField;

Res_UchNpk: TBooleanField;

Res_UchNpk_Ur: TWideStringField;

Res_VneurID_Res_Vneur: TAutoIncField;

Res_VneurID_Anketa: TIntegerField;

Res_VneurKonkurs: TBooleanField;

Res_VneurKonkurs_Ur: TWideStringField;

Res_VneurKoncert: TBooleanField;

Res_VneurKoncert_Ur: TWideStringField;

Res_VneurVystav: TBooleanField;

Res_VneurVystav_Ur: TWideStringField;

Res_VneurTurnir: TBooleanField;

Res_VneurTurnir_Ur: TWideStringField;

Res_VneurSorevn: TBooleanField;

Res_VneurSorevn_Ur: TWideStringField;

AnkDiscNameDisc: TStringField;

AnkDisc2: TADOQuery;

AutoIncField1: TAutoIncField;

IntegerField1: TIntegerField;

IntegerField2: TIntegerField;

StringField1: TStringField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

{$R *.dfm}

end.

unit Unit3;

interface

uses

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

Dialogs, ExtCtrls, Buttons, ComCtrls, StdCtrls, Grids, DBGrids, ExtDlgs;

type

TMain = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Label1: TLabel;

Edit1: TEdit;

DateTimePicker1: TDateTimePicker;

Label2: TLabel;

ListBox1: TListBox;

Label3: TLabel;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

ComboBox1: TComboBox;

Button1: TButton;

Edit2: TEdit;

Label4: TLabel;

ComboBox2: TComboBox;

Label5: TLabel;

Label6: TLabel;

ComboBox3: TComboBox;

ListBox2: TListBox;

ComboBox5: TComboBox;

Button2: TButton;

SpeedButton1: TSpeedButton;

SpeedButton4: TSpeedButton;

Label8: TLabel;

Edit3: TEdit;

UpDown1: TUpDown;

Label9: TLabel;

Edit4: TEdit;

Label10: TLabel;

UpDown2: TUpDown;

Label11: TLabel;

Edit5: TEdit;

DateTimePicker2: TDateTimePicker;

Label12: TLabel;

TabSheet3: TTabSheet;

PageControl2: TPageControl;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

TabSheet7: TTabSheet;

TabSheet8: TTabSheet;

Panel1: TPanel;

DBGrid1: TDBGrid;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

DBGrid2: TDBGrid;

Panel2: TPanel;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

DBGrid3: TDBGrid;

Panel3: TPanel;

SpeedButton11: TSpeedButton;

SpeedButton12: TSpeedButton;

SpeedButton13: TSpeedButton;

DBGrid4: TDBGrid;

Panel4: TPanel;

SpeedButton14: TSpeedButton;

SpeedButton15: TSpeedButton;

SpeedButton16: TSpeedButton;

DBGrid5: TDBGrid;

Panel5: TPanel;

SpeedButton17: TSpeedButton;

SpeedButton18: TSpeedButton;

SpeedButton19: TSpeedButton;

TabSheet9: TTabSheet;

Edit6: TEdit;

Label13: TLabel;

Label14: TLabel;

Edit7: TEdit;

Label15: TLabel;

Label7: TLabel;

ComboBox4: TComboBox;

PageControl3: TPageControl;

TabSheet10: TTabSheet;

TabSheet11: TTabSheet;

CheckBox1: TCheckBox;

ListBox3: TListBox;

SpeedButton20: TSpeedButton;

SpeedButton21: TSpeedButton;

ComboBox6: TComboBox;

Label16: TLabel;

Label17: TLabel;

OpenPictureDialog1: TOpenPictureDialog;

ListBox4: TListBox;

SpeedButton22: TSpeedButton;

SpeedButton23: TSpeedButton;

ComboBox7: TComboBox;

Label18: TLabel;

CheckBox2: TCheckBox;

ListBox5: TListBox;

SpeedButton24: TSpeedButton;

SpeedButton25: TSpeedButton;

ComboBox8: TComboBox;

Label19: TLabel;

CheckBox3: TCheckBox;

Label20: TLabel;

Label21: TLabel;

CheckBox4: TCheckBox;

ComboBox9: TComboBox;

ListBox6: TListBox;

CheckBox5: TCheckBox;

ComboBox10: TComboBox;

ListBox7: TListBox;

ComboBox11: TComboBox;

ListBox8: TListBox

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

SpeedButton26: TSpeedButton;

SpeedButton27: TSpeedButton;

Label25: TLabel;

SpeedButton28: TSpeedButton;

SpeedButton29: TSpeedButton;

Label26: TLabel;

Label27: TLabel;

SpeedButton30: TSpeedButton;

SpeedButton31: TSpeedButton;

TabSheet12: TTabSheet;

CheckBox7: TCheckBox;

Label28: TLabel;

ComboBox12: TComboBox;

ListBox9: TListBox;

Label29: TLabel;

SpeedButton32: TSpeedButton;

SpeedButton33: TSpeedButton;

CheckBox8: TCheckBox;

Label30: TLabel;

ComboBox13: TComboBox;

ListBox10: TListBox;

SpeedButton34: TSpeedButton;

SpeedButton35: TSpeedButton;

Label31: TLabel;

TabSheet13: TTabSheet;

CheckBox9: TCheckBox;

ListBox11: TListBox;

SpeedButton36: TSpeedButton;

SpeedButton37: TSpeedButton;

ListBox12: TListBox;

CheckBox10: TCheckBox;

ListBox13: TListBox;

CheckBox11: TCheckBox;

ListBox14: TListBox;

CheckBox12: TCheckBox;

ListBox15: TListBox;

CheckBox13: TCheckBox;

SpeedButton38: TSpeedButton;

SpeedButton39: TSpeedButton;

SpeedButton40: TSpeedButton;

SpeedButton41: TSpeedButton;

SpeedButton42: TSpeedButton;

SpeedButton43: TSpeedButton;

SpeedButton44: TSpeedButton;

SpeedButton45: TSpeedButton;

SpeedButton46: TSpeedButton;

SpeedButton47: TSpeedButton;

DateTimePicker3: TDateTimePicker;

Label32: TLabel;

Button3: TButton;

Button4: TButton;

SG: TStringGrid;

procedure FormActivate(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

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

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton19Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure SpeedButton14Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton15Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure SpeedButton20Click(Sender: TObject);

procedure SpeedButton21Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure SpeedButton23Click(Sender: TObject);

procedure SpeedButton25Click(Sender: TObject);

procedure SpeedButton22Click(Sender: TObject);

procedure SpeedButton24Click(Sender: TObject);

procedure CheckBox3Click(Sender: TObject);

procedure SpeedButton31Click(Sender: TObject);

procedure SpeedButton30Click(Sender: TObject);

procedure SpeedButton28Click(Sender: TObject);

procedure SpeedButton29Click(Sender: TObject);

procedure SpeedButton27Click(Sender: TObject);

procedure SpeedButton26Click(Sender: TObject);

procedure CheckBox6Click(Sender: TObject);

procedure CheckBox5Click(Sender: TObject);

procedure CheckBox4Click(Sender: TObject);

procedure SpeedButton32Click(Sender: TObject);

procedure SpeedButton34Click(Sender: TObject);

procedure SpeedButton33Click(Sender: TObject);

procedure SpeedButton35Click(Sender: TObject);

procedure CheckBox7Click(Sender: TObject);

procedure CheckBox8Click(Sender: TObject);

procedure SpeedButton36Click(Sender: TObject);

procedure SpeedButton37Click(Sender: TObject);

procedure SpeedButton38Click(Sender: TObject);

procedure SpeedButton40Click(Sender: TObject);

procedure SpeedButton44Click(Sender: TObject);

procedure SpeedButton46Click(Sender: TObject);

procedure SpeedButton39Click(Sender: TObject);

procedure SpeedButton41Click(Sender: TObject);

procedure SpeedButton45Click(Sender: TObject);

procedure SpeedButton47Click(Sender: TObject);

procedure CheckBox9Click(Sender: TObject);

procedure CheckBox10Click(Sender: TObject);

procedure CheckBox11Click(Sender: TObject);

procedure CheckBox12Click(Sender: TObject);

procedure CheckBox13Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Main: TMain;

nuser:string;

Function MyRemoveDir(sDir : String) : Boolean;

implementation

uses Unit1, Unit2, Unit4, Unit5, Unit6, Unit7, Unit10, Unit11;

{$R *.dfm}

procedure TMain.FormActivate(Sender: TObject);

var

i:integer;

begin

//заполняем выпадающий список образований

ComboBox1.Items.Clear;

DM.Obraz.First;

while not DM.Obraz.Eof do

begin

ComboBox1.Items.Add(DM.ObrazName.Value);

DM.Obraz.Next;

end;

ComboBox1.ItemIndex:=0;

//заполняем выпадающий список дисциплин

ComboBox5.Items.Clear;

DM.Disc.First;

while not DM.Disc.Eof do

begin

ComboBox5.Items.Add(DM.DiscName.Value);

DM.Disc.Next;

end;

ComboBox5.ItemIndex:=0;

ComboBox4.Items.Clear;

for i:=1950 to 2012 do

ComboBox4.Items.Add(IntToStr(i));

ComboBox4.ItemIndex:=20;

end;

procedure TMain.SpeedButton2Click(Sender: TObject);

var

i:integer;

begin

for i:=0 to ListBox1.Items.Count-1 do

if ListBox1.Items[i]=ComboBox1.Text then

begin

ShowMessage('Образование уже есть в списке!');

exit;

end;

ListBox1.Items.Add(ComboBox1.Text);

end;

procedure TMain.SpeedButton3Click(Sender: TObject);

begin

ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

procedure TMain.Button1Click(Sender: TObject);

var

nm:string;

begin

nm:=inputbox('Добавление образования',

'Введите образование:','');

if nm='' then exit;

//проверяем есть ли такое образование в таблице

DM.Obraz.First;

while not DM.Obraz.Eof do

begin

if DM.ObrazName.Value=nm then

begin

ShowMessage('Такое образование уже существует!');

exit;

end;

DM.Obraz.Next;

end;

//добавляем образование

DM.Obraz.Append;

DM.ObrazName.Value:=nm;

DM.Obraz.Post;

FormActivate(Self);

end;

procedure TMain.SpeedButton1Click(Sender: TObject);

var

i:integer;

begin

for i:=0 to ListBox2.Items.Count-1 do

if ListBox2.Items[i]=ComboBox5.Text then

begin

ShowMessage('Дисциплина уже есть в списке!');

exit;

end;

ListBox2.Items.Add(ComboBox5.Text);

end;

procedure TMain.SpeedButton4Click(Sender: TObject);

begin

ListBox2.Items.Delete(ListBox2.ItemIndex);

end;

procedure TMain.Button2Click(Sender: TObject);

var

nm:string;

begin

nm:=inputbox('Добавление дисциплины',

'Введите дисциплину:','');

if nm='' then exit;

//проверяем есть ли такое образование в таблице

DM.Disc.First;

while not DM.Disc.Eof do

begin

if DM.DiscName.Value=nm then

begin

ShowMessage('Такая дисциплина уже существует!');

exit;

end;

DM.Disc.Next;

end;

//добавляем образование

DM.Disc.Append;

DM.DiscName.Value:=nm;

DM.Disc.Post;

FormActivate(Self);

end;

procedure TMain.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

//ограничение на ввод - только цифры

if not (key in['0','1','2','3','4','5','6','7','8',char(8),'9']) then key:=#0;

end;

procedure TMain.SpeedButton6Click(Sender: TObject);

begin

AddGosNagrada.Caption:='Добавление гос награды';

AddGosNagrada.Tag:=0;

AddGosNagrada.Edit1.Text:='';

AddGosNagrada.Edit2.Text:='';

AddGosNagrada.Memo1.Text:='';

AddGosNagrada.ShowModal;

end;

procedure TMain.SpeedButton7Click(Sender: TObject);

begin

//если нет записей выходим

if DM.Nagrada.RecordCount=0 then exit;

AddGosNagrada.Caption:='Изменение гос награды';

AddGosNagrada.Tag:=1;

AddGosNagrada.Edit1.Text:=DM.NagradaKem_Vydana.Value;

AddGosNagrada.Edit2.Text:=DM.NagradaGorod.Value;

AddGosNagrada.ComboBox1.Text:=Dm.NagradaGod.Value;

AddGosNagrada.Memo1.Text:=DM.NagradaDrugoe.Value;

AddGosNagrada.ShowModal;

end;

procedure TMain.SpeedButton5Click(Sender: TObject);

begin

//если нет записей выходим

if DM.Nagrada.RecordCount=0 then exit;

if messagedlg('Вы действительно хотите удалить гос награду №'

+inttostr(DM.NagradaID_Nagrada.value)+'?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

DM.Nagrada.Delete;

end;

end;

procedure TMain.SpeedButton8Click(Sender: TObject);

begin

//если нет записей выходим

if DM.Otr_Nagrada.RecordCount=0 then exit;

if messagedlg('Вы действительно хотите удалить отр награду №'

+inttostr(DM.Otr_NagradaOtr_Nagrada.value)+'?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

DM.Otr_Nagrada.Delete;

end;

end;

procedure TMain.SpeedButton10Click(Sender: TObject);

begin

//если нет записей выходим

if DM.Otr_Nagrada.RecordCount=0 then exit;

AddGosNagrada.Caption:='Изменение отр награды';

AddGosNagrada.Tag:=3;

AddGosNagrada.Edit1.Text:=DM.Otr_NagradaKem_Wyd.Value;

AddGosNagrada.Edit2.Text:=DM.Otr_NagradaGorod.Value;

AddGosNagrada.ComboBox1.Text:=Dm.Otr_NagradaGod.Value;

AddGosNagrada.Memo1.Text:=DM.Otr_NagradaDrugoe.Value;

AddGosNagrada.ShowModal;

end;

procedure TMain.SpeedButton9Click(Sender: TObject);

begin

AddGosNagrada.Caption:='Добавление отр награды';

AddGosNagrada.Tag:=2;

AddGosNagrada.Edit1.Text:='';

AddGosNagrada.Edit2.Text:='';

AddGosNagrada.Memo1.Text:='';

AddGosNagrada.ShowModal;

end;

procedure TMain.SpeedButton12Click(Sender: TObject);

begin

AddBlago.Caption:='Добавление благодарности';

AddBlago.Tag:=0;

AddBlago.Edit1.Text:='';

AddBlago.Memo1.Text:='';

AddBlago.ShowModal;

end;

procedure TMain.SpeedButton13Click(Sender: TObject);

begin

//если нет записей выходим

if DM.Blago.RecordCount=0 then exit;

AddBlago.Caption:='Изменение благодарности';

AddBlago.Tag:=1;

AddBlago.Edit1.Text:=DM.BlagoOt_Kogo.Value;

AddBlago.ComboBox1.Text:=DM.BlagoGod.Value;

AddBlago.Memo1.Text:=DM.BlagoDrugoe.Value;

AddBlago.ShowModal;

end;

procedure TMain.SpeedButton11Click(Sender: TObject);

begin

//если нет записей выходим

if DM.Blago.RecordCount=0 then exit;

if messagedlg('Вы действительно хотите удалить благодарность №'

+inttostr(DM.BlagoID_Blago.value)+'?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

DM.Blago.Delete;

end;

end;

procedure TMain.SpeedButton17Click(Sender: TObject);

begin

//если нет записей выходим

if DM.Diplom.RecordCount=0 then exit;

if messagedlg('Вы действительно хотите удалить диплом №'

+inttostr(DM.DiplomID_Diplom.value)+'?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

DM.Diplom.Delete;

end;

end;

procedure TMain.SpeedButton19Click(Sender: TObject);

begin

//если нет записей выходим

if DM.Diplom.RecordCount=0 then exit;

AddDiplom.Caption:='Изменение диплома';

AddDiplom.Tag:=1;

AddDiplom.Edit1.Text:=DM.DiplomKem.Value;

AddDiplom.DateTimePicker1.Date:=DM.DiplomKogda.Value;

AddDiplom.Memo1.Text:=DM.BlagoDrugoe.Value;

AddDiplom.ShowModal;

end;

procedure TMain.SpeedButton18Click(Sender: TObject);

begin

AddDiplom.Caption:='Добавление диплома';

AddDiplom.Tag:=0;

AddDiplom.Edit1.Text:='';

AddDiplom.DateTimePicker1.Date:=Date;

AddDiplom.Memo1.Text:='';

AddDiplom.ShowModal;

end;

procedure TMain.SpeedButton14Click(Sender: TObject);

begin

//если нет записей выходим

if DM.Gramota.RecordCount=0 then exit;

if messagedlg('Вы действительно хотите удалить грамоту №'

+inttostr(DM.GramotaID_Gramota.value)+'?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

DM.Gramota.Delete;

end;

end;

procedure TMain.SpeedButton16Click(Sender: TObject);

begin

//если нет записей выходим

if DM.Gramota.RecordCount=0 then exit;

AddGramot.Caption:='Изменение грамоты';

AddGramot.Tag:=1;

AddGramot.Edit1.Text:=DM.GramotaKem.Value;

AddGramot.Edit2.Text:=DM.GramotaZaHto.Value;

AddGramot.ComboBox1.Text:=Dm.GramotaGod.Value;

AddGramot.Memo1.Text:=DM.GramotaDrugoe.Value;

AddGramot.ShowModal;

end;

procedure TMain.SpeedButton15Click(Sender: TObject);

begin

AddGramot.Caption:='Добавление грамоты';

AddGramot.Tag:=0;

AddGramot.Edit1.Text:='';

AddGramot.Edit2.Text:='';

AddGramot.Memo1.Text:='';

AddGramot.ShowModal;

end;

procedure TMain.CheckBox1Click(Sender: TObject);

var

tekdir:string;

begin

if CheckBox1.Checked then

begin

ComboBox6.Enabled:=true;

Label16.Enabled:=true;

Label17.Enabled:=true;

ListBox3.Enabled:=true;

SpeedButton20.Enabled:=true;

SpeedButton21.Enabled:=true;

end;

if CheckBox1.Checked=false then

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Учебная деятельность\Предметные олимипады';

if ListBox3.Items.Count<>0 then

begin

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

//удаляем каталог

MyRemoveDir(tekdir);

ListBox3.Items.Clear;

end

else

begin

CheckBox1.Checked:=true;

exit;

end;

end;

ComboBox6.Enabled:=false;

Label16.Enabled:=false;

Label17.Enabled:=false;

ListBox3.Enabled:=false;

SpeedButton20.Enabled:=false;

SpeedButton21.Enabled:=false;

end;

end;

procedure TMain.SpeedButton20Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Учебная деятельность\Предметные олимипады';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox3.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton21Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Учебная деятельность\Предметные олимипады';

if ListBox3.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox3.Items[ListBox3.ItemIndex]);

ListBox3.Items.Delete(ListBox3.ItemIndex);

end;

procedure TMain.CheckBox2Click(Sender: TObject);

var

tekdir:string;

begin

if CheckBox2.Checked then

begin

ComboBox7.Enabled:=true;

Label18.Enabled:=true;

Label20.Enabled:=true;

ListBox4.Enabled:=true;

SpeedButton22.Enabled:=true;

SpeedButton23.Enabled:=true;

end;

if CheckBox2.Checked=false then

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Учебная деятельность\Конкурсы';

if ListBox4.Items.Count<>0 then

begin

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

//удаляем каталог

MyRemoveDir(tekdir);

ListBox4.Items.Clear;

end

else

begin

CheckBox2.Checked:=true;

exit;

end;

end;

ComboBox7.Enabled:=false;

Label18.Enabled:=false;

Label20.Enabled:=false;

ListBox4.Enabled:=false;

SpeedButton22.Enabled:=false;

SpeedButton23.Enabled:=false;

end;

end;

procedure TMain.SpeedButton23Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Учебная деятельность\Конкурсы';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories(tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox4.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton25Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Учебная деятельность\Научно практические конференции';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories(tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox5.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton22Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Учебная деятельность\Конкурсы';

if ListBox4.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox4.Items[ListBox4.ItemIndex]);

ListBox4.Items.Delete(ListBox4.ItemIndex);

end;

procedure TMain.SpeedButton24Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Учебная деятельность\Научно практические конференции';

if ListBox5.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox5.Items[ListBox5.ItemIndex]);

ListBox5.Items.Delete(ListBox5.ItemIndex);

end;

//удаление каталога со всеми файлами

Function MyRemoveDir(sDir : String) : Boolean;

var

iIndex : Integer;

SearchRec : TSearchRec;

sFileName : String;

begin

Result := False;

sDir := sDir + '\*.*';

iIndex := FindFirst(sDir, faAnyFile, SearchRec);

while iIndex = 0 do begin

sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;

if SearchRec.Attr = faDirectory then begin

if (SearchRec.Name <> '' ) and

(SearchRec.Name <> '.') and

(SearchRec.Name <> '..') then

MyRemoveDir(sFileName);

end else begin

if SearchRec.Attr <> faArchive then

FileSetAttr(sFileName, faArchive);

if NOT DeleteFile(sFileName) then

ShowMessage('Could NOT delete ' + sFileName);

end;

iIndex := FindNext(SearchRec);

end;

FindClose(SearchRec);

RemoveDir(ExtractFileDir(sDir));

Result := True;

end;

procedure TMain.CheckBox3Click(Sender: TObject);

var

tekdir:string;

begin

if CheckBox3.Checked then

begin

ComboBox8.Enabled:=true;

Label19.Enabled:=true;

Label21.Enabled:=true;

ListBox5.Enabled:=true;

SpeedButton24.Enabled:=true;

SpeedButton25.Enabled:=true;

end;

if CheckBox3.Checked=false then

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Учебная деятельность\Научно практические конференции';

if ListBox5.Items.Count<>0 then

begin

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

//удаляем каталог

MyRemoveDir(tekdir);

ListBox5.Items.Clear;

end

else

begin

CheckBox3.Checked:=true;

exit;

end;

end;

ComboBox8.Enabled:=false;

Label19.Enabled:=false;

Label21.Enabled:=false;

ListBox5.Enabled:=false;

SpeedButton24.Enabled:=false;

SpeedButton25.Enabled:=false;

end;

end;

procedure TMain.SpeedButton31Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Конкурсы';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox8.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton30Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Конкурсы';

if ListBox8.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox8.Items[ListBox8.ItemIndex]);

ListBox8.Items.Delete(ListBox8.ItemIndex);

end;

procedure TMain.SpeedButton28Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Концерты';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox7.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton29Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Концерты';

if ListBox7.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox7.Items[ListBox7.ItemIndex]);

ListBox7.Items.Delete(ListBox7.ItemIndex);

end;

procedure TMain.SpeedButton27Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Выставки';

if ListBox6.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox6.Items[ListBox6.ItemIndex]);

ListBox6.Items.Delete(ListBox6.ItemIndex);

end;

procedure TMain.SpeedButton26Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Выставки';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox6.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.CheckBox6Click(Sender: TObject);

var

tekdir:string;

begin

if CheckBox6.Checked then

begin

ComboBox11.Enabled:=true;

Label27.Enabled:=true;

Label26.Enabled:=true;

ListBox8.Enabled:=true;

SpeedButton30.Enabled:=true;

SpeedButton31.Enabled:=true;

end;

if CheckBox6.Checked=false then

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Конкурсы';

if ListBox8.Items.Count<>0 then

begin

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

//удаляем каталог

MyRemoveDir(tekdir);

ListBox8.Items.Clear;

end

else

begin

CheckBox6.Checked:=true;

exit;

end;

end;

ComboBox11.Enabled:=false;

Label27.Enabled:=false;

Label26.Enabled:=false;

ListBox8.Enabled:=false;

SpeedButton30.Enabled:=false;

SpeedButton31.Enabled:=false;

end;

end;

procedure TMain.CheckBox5Click(Sender: TObject);

var

tekdir:string;

begin

if CheckBox5.Checked then

begin

ComboBox10.Enabled:=true;

Label23.Enabled:=true;

Label25.Enabled:=true;

ListBox7.Enabled:=true;

SpeedButton28.Enabled:=true;

SpeedButton29.Enabled:=true;

end;

if CheckBox5.Checked=false then

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Концерты';

if ListBox7.Items.Count<>0 then

begin

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

//удаляем каталог

MyRemoveDir(tekdir);

ListBox7.Items.Clear;

end

else

begin

CheckBox5.Checked:=true;

exit;

end;

end;

ComboBox10.Enabled:=false;

Label23.Enabled:=false;

Label25.Enabled:=false;

ListBox7.Enabled:=false;

SpeedButton28.Enabled:=false;

SpeedButton29.Enabled:=false;

end;

end;

procedure TMain.CheckBox4Click(Sender: TObject);

var

tekdir:string;

begin

if CheckBox4.Checked then

begin

ComboBox9.Enabled:=true;

Label24.Enabled:=true;

Label22.Enabled:=true;

ListBox6.Enabled:=true;

SpeedButton26.Enabled:=true;

SpeedButton27.Enabled:=true;

end;

if CheckBox4.Checked=false then

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Выставки';

if ListBox6.Items.Count<>0 then

begin

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

//удаляем каталог

MyRemoveDir(tekdir);

ListBox6.Items.Clear;

end

else

begin

CheckBox4.Checked:=true;

exit;

end;

end;

ComboBox9.Enabled:=false;

Label24.Enabled:=false;

Label22.Enabled:=false;

ListBox6.Enabled:=false;

SpeedButton26.Enabled:=false;

SpeedButton27.Enabled:=false;

end;

end;

procedure TMain.SpeedButton32Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Турниры';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox9.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton34Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Соревнования';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox10.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton33Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Турниры';

if ListBox9.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox9.Items[ListBox9.ItemIndex]);

ListBox9.Items.Delete(ListBox9.ItemIndex);

end;

procedure TMain.SpeedButton35Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Турниры';

if ListBox10.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox10.Items[ListBox10.ItemIndex]);

ListBox10.Items.Delete(ListBox10.ItemIndex);

end;

procedure TMain.CheckBox7Click(Sender: TObject);

var

tekdir:string;

begin

if CheckBox7.Checked then

begin

ComboBox12.Enabled:=true;

Label28.Enabled:=true;

Label29.Enabled:=true;

ListBox9.Enabled:=true;

SpeedButton32.Enabled:=true;

SpeedButton33.Enabled:=true;

end;

if CheckBox7.Checked=false then

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Турниры';

if ListBox9.Items.Count<>0 then

begin

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

//удаляем каталог

MyRemoveDir(tekdir);

ListBox9.Items.Clear;

end

else

begin

CheckBox7.Checked:=true;

exit;

end;

end;

ComboBox12.Enabled:=false;

Label28.Enabled:=false;

Label29.Enabled:=false;

ListBox9.Enabled:=false;

SpeedButton32.Enabled:=false;

SpeedButton33.Enabled:=false;

end;

end;

procedure TMain.CheckBox8Click(Sender: TObject);

var

tekdir:string;

begin

if CheckBox8.Checked then

begin

ComboBox13.Enabled:=true;

Label31.Enabled:=true;

Label30.Enabled:=true;

ListBox10.Enabled:=true;

SpeedButton34.Enabled:=true;

SpeedButton35.Enabled:=true;

end;

if CheckBox8.Checked=false then

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Внеурочная деятельность\Сорвенования';

if ListBox10.Items.Count<>0 then

begin

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

//удаляем каталог

MyRemoveDir(tekdir);

ListBox10.Items.Clear;

end

else

begin

CheckBox8.Checked:=true;

exit;

end;

end;

ComboBox13.Enabled:=false;

Label31.Enabled:=false;

Label30.Enabled:=false;

ListBox10.Enabled:=false;

SpeedButton34.Enabled:=false;

SpeedButton35.Enabled:=false;

end;

end;

procedure TMain.SpeedButton36Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Программы';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox11.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton37Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Программы';

if ListBox11.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox11.Items[ListBox11.ItemIndex]);

ListBox11.Items.Delete(ListBox11.ItemIndex);

end;

procedure TMain.SpeedButton38Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Методические разработки';

if ListBox12.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox12.Items[ListBox12.ItemIndex]);

ListBox12.Items.Delete(ListBox12.ItemIndex);

end;

procedure TMain.SpeedButton40Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Публикации';

if ListBox13.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox13.Items[ListBox13.ItemIndex]);

ListBox13.Items.Delete(ListBox13.ItemIndex);

end;

procedure TMain.SpeedButton44Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Печатные издания';

if ListBox14.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox14.Items[ListBox14.ItemIndex]);

ListBox14.Items.Delete(ListBox14.ItemIndex);

end;

procedure TMain.SpeedButton46Click(Sender: TObject);

var

tekdir:string;

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Электронные ресурсы';

if ListBox15.ItemIndex=-1 then exit;

DeleteFile(tekdir+'\'+ListBox15.Items[ListBox15.ItemIndex]);

ListBox15.Items.Delete(ListBox15.ItemIndex);

end;

procedure TMain.SpeedButton39Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Методические разработки';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox12.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton41Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Публикации';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox13.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton45Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Печатные издания';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox14.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.SpeedButton47Click(Sender: TObject);

var

tekdir:string;

begin

//определяем директория для хранения файлов

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Электронные ресурсы';

if OpenPictureDialog1.Execute then

begin

//если нет директориит - создаем ее

if not DirectoryExists(tekdir)

then ForceDirectories (tekdir);

CopyFile(Pchar(OpenPictureDialog1.FileName),

Pchar(tekdir+'\'+ExtractFileName(OpenPictureDialog1.FileName)), true);

ListBox15.Items.Add(ExtractFileName(OpenPictureDialog1.FileName));

end;

end;

procedure TMain.CheckBox9Click(Sender: TObject);

var

tekdir:string;

begin

if CheckBox9.Checked then

begin

ListBox11.Enabled:=true;

SpeedButton36.Enabled:=true;

SpeedButton37.Enabled:=true;

end;

if CheckBox9.Checked=false then

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Программы';

if ListBox11.Items.Count<>0 then

begin

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

//удаляем каталог

MyRemoveDir(tekdir);

ListBox11.Items.Clear;

end

else

begin

CheckBox9.Checked:=true;

exit;

end;

end;

ListBox11.Enabled:=false;

SpeedButton36.Enabled:=false;

SpeedButton37.Enabled:=false;

end;

end;

procedure TMain.CheckBox10Click(Sender: TObject);

var

tekdir:string;

begin

if CheckBox10.Checked then

begin

ListBox12.Enabled:=true;

SpeedButton38.Enabled:=true;

SpeedButton39.Enabled:=true;

end;

if CheckBox10.Checked=false then

begin

tekdir:=ExtractFilePath(ParamStr(0))

+'Users\'+nuser+

'\Авторские материалы\Методические разработки';

if ListBox12.Items.Count<>0 then

begin

if messagedlg('При снятии галочки все файлы из этой категории будут удалены! '

+'Хотите продолжить?'

,Mtconfirmation, [mbYes, mbNo],0)=mrYes

then begin

//удаляем каталог

MyRemoveDir(tekdir);

ListBox12.Items.Clear;

end

else

begin

CheckBox10.Checked:=true;

exit;

end;

end;

ListBox12.Enabled:=false;

SpeedButton38.Enabled:=false;

SpeedButton39.Enabled:=false; end;

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