Автоматизированная система по учету заселения и выселения студентов в общежитии №1 Барнаульского Государственного Педагогического колледжа

procedure TForm1.Edit1Change(Sender: TObject); //поиск

begin

DataModule2.ADOTable1.Locate('FIO_Stud',Edit1.Text,[loPartialKey]);

end;

procedure TForm1.Edit1DblClick(Sender: TObject); //очистка поля

begin

Edit1.Clear;

end;

procedure TForm1.N22Click(Sender: TObject); //сортировка

begin

DataModule2.ADOTable1.IndexFieldNames:='Komnata';

end;

procedure TForm1.N23Click(Sender: TObject); //сортировка

begin

DataModule2.ADOTable1.IndexFieldNames:='FIO_Stud';

end;

procedure TForm1.N24Click(Sender: TObject); //сортировка

begin

DataModule2.ADOTable1.IndexFieldNames:='Raion';

end;

procedure TForm1.N25Click(Sender: TObject);//сортировка

begin

DataModule2.ADOTable1.IndexFieldNames:='Gorod';

end;

procedure TForm1.N26Click(Sender: TObject);//сортировка

begin

DataModule2.ADOTable1.IndexFieldNames:='Adres';

end;

procedure TForm1.N27Click(Sender: TObject);//сортировка

begin

DataModule2.ADOTable1.IndexFieldNames:='Telefon';

end;

procedure TForm1.N28Click(Sender: TObject);//сортировка

begin

DataModule2.ADOTable1.IndexFieldNames:='Telefon_sot';

end;

procedure TForm1.N29Click(Sender: TObject);//сортировка

begin

DataModule2.ADOTable1.IndexFieldNames:='Gruppa';

end;

procedure TForm1.N30Click(Sender: TObject);//сортировка

begin

DataModule2.ADOTable1.IndexFieldNames:='Kurator';

end;

procedure TForm1.N31Click(Sender: TObject);//сортировка

begin

DataModule2.ADOTable1.IndexFieldNames:='Data_Zaselenia';

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); //выход из программы

begin

Form8.Close;

rewrite(seting);

Writeln(seting,Form1.DBGrid1.Columns.Items[1].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[2].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[3].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[4].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[5].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[6].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[7].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[8].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[9].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[10].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[11].Width);

Writeln(seting,Form1.DBGrid1.Columns.Items[12].Width);

Writeln(seting,Form4.DBGrid1.Columns.Items[1].Width);

Writeln(seting,Form4.DBGrid1.Columns.Items[2].Width);

Writeln(seting,Form4.DBGrid1.Columns.Items[3].Width);

CloseFile(seting);

end;

procedure TForm1.BitBtn5Click(Sender: TObject); //переход к личным данным

begin

if Edit1.Text='' then

begin

ShowMessage('Введите запись в поле поиска по ФИО студента');

end

else

begin

if Edit1.Text=DataModule2.ADOTable1.FieldValues['FIO_Stud'] then

begin

Form6.Caption:='Личные данные '+DataModule2.ADOTable1.FieldValues['FIO_Stud'];

with Form6 do

begin

Edit1.Text:=DataModule2.ADOTable1.FieldValues['FIO_Stud'];

Edit2.Text:=DataModule2.ADOTable1.FieldValues['Raion'];

Edit3.Text:=DataModule2.ADOTable1.FieldValues['Gorod'];

Edit4.Text:=DataModule2.ADOTable1.FieldValues['Adres'];

Edit5.Text:=DataModule2.ADOTable1.FieldValues['Telefon'];

Edit6.Text:=DataModule2.ADOTable1.FieldValues['Telefon_sot']; sDBLookupComboBox1.KeyValue:=DataModule2.ADOTable1.FieldValues['Gruppa']; sDBLookupComboBox2.KeyValue:=DataModule2.ADOTable1.FieldValues['Kurator']; sDBLookupComboBox3.KeyValue:=DataModule2.ADOTable1.FieldValues['Komnata'];

sDateEdit1.Date:=DataModule2.ADOTable1.FieldValues['Data_Zaselenia'];

Edit7.Text:=DataModule2.ADOTable1.FieldValues['FIO_Rod'];

Edit8.Text:=DataModule2.ADOTable1.FieldValues['Telefon_Rod'];

Edit9.Text:=DataModule2.ADOTable1.FieldValues['Telefon_sotov'];

sDateEdit2.Date:=DataModule2.ADOTable1.FieldValues['Data_roj'];

Memo1.Text:=DataModule2.ADOTable1.FieldValues['Primechanie'];

Form6.Show;

Form6.Visible:=true;

Form1.Enabled:=False;

end;

end

else

begin

ShowMessage('Запись не найдена');

Edit1.Clear;

end;

end;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); //запрет ввода

begin

if key=#13 then BitBtn5.Click;

end;

procedure TForm1.DBGrid1DblClick(Sender: TObject); //переход к личным данным

begin

with Form6 do

begin

Edit1.Text:=DataModule2.ADOTable1.FieldValues['FIO_Stud'];

Edit2.Text:=DataModule2.ADOTable1.FieldValues['Raion'];

Edit3.Text:=DataModule2.ADOTable1.FieldValues['Gorod'];

Edit4.Text:=DataModule2.ADOTable1.FieldValues['Adres'];

Edit5.Text:=DataModule2.ADOTable1.FieldValues['Telefon'];

Edit6.Text:=DataModule2.ADOTable1.FieldValues['Telefon_sot']; sDBLookupComboBox1.KeyValue:=DataModule2.ADOTable1.FieldValues['Gruppa']; sDBLookupComboBox2.KeyValue:=DataModule2.ADOTable1.FieldValues['Kurator'];

sDBLookupComboBox3.KeyValue:=DataModule2.ADOTable1.FieldValues['Komnata'];

sDateEdit1.Date:=DataModule2.ADOTable1.FieldValues['Data_Zaselenia'];

Edit7.Text:=DataModule2.ADOTable1.FieldValues['FIO_Rod'];

Edit8.Text:=DataModule2.ADOTable1.FieldValues['Telefon_Rod'];

Edit9.Text:=DataModule2.ADOTable1.FieldValues['Telefon_sotov'];

sDateEdit2.Date:=DataModule2.ADOTable1.FieldValues['Data_roj'];

Memo1.Text:=DataModule2.ADOTable1.FieldValues['Primechanie'];

Form6.Show;

Form6.Visible:=true;

Form1.Enabled:=False;

end;

end;

procedure TForm1.N4Click(Sender: TObject); //отображения формы о программе

begin

Form11.Show;

Form11.Visible:=true;

Form1.Enabled:=False;

end;

procedure TForm1.sSpeedButton5Click(Sender: TObject); //передает в Word данные из таблицы

var

MsWord : Variant;

i:integer;

begin

If DBGrid1.Columns.Items[0].Field.Text='' then begin

ShowMessage('Необходима хотябы одна запись');

end

else

begin

if IsWordInstalled = false

then

begin

MessageDlg('Не установлен Microsoft Word'+#13+'установка решит этупроблемму',mtWarning,[mbok],0);

exit;

end;

MSWord := CreateOLEObject('Word.Application');

MsWord.Visible := true;

MsWord.documents.add;

MsWord.ActiveDocument.PageSetup.Orientation := 1;

MsWord.Selection.Font.Bold := 1;

MsWord.Selection.Font.Size := 14;

MsWord.Selection.ParagraphFormat.Alignment := 1;

MsWord.selection.TypeText('Список студентов в общежитие на '+DateToStr(Date)+'');

MsWord.Selection.Font.Bold := 0;

MsWord.Selection.Font.Size := 12;

MsWord.Selection.Tables.add(MsWord.selection.Range,1,15,EmptyParam);

MsWord.Selection.Tables.Item(1).Columns.Item(1).Width:=DBGrid1.Columns.Items[1].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(2).Width:=DBGrid1.Columns.Items[2].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(3).Width:=DBGrid1.Columns.Items[3].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(4).Width:=DBGrid1.Columns.Items[4].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(5).Width:=DBGrid1.Columns.Items[5].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(6).Width:=DBGrid1.Columns.Items[6].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(7).Width:=DBGrid1.Columns.Items[7].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(8).Width:=DBGrid1.Columns.Items[8].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(9).Width:=DBGrid1.Columns.Items[9].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(10).Width:=DBGrid1.Columns.Items[10].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(11).Width:=DBGrid1.Columns.Items[11].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(12).Width:=DBGrid1.Columns.Items[12].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(13).Width:=DBGrid1.Columns.Items[2].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(14).Width:=DBGrid1.Columns.Items[7].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(15).Width:=DBGrid1.Columns.Items[8].Width;

MsWord.Selection.Tables.Item(1).Cell(1,1).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Комната');

MsWord.Selection.Tables.Item(1).Cell(1,2).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('ФИО студента');

MsWord.Selection.Tables.Item(1).Cell(1,3).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('День рождения');

MsWord.Selection.Tables.Item(1).Cell(1,4).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Район');

MsWord.Selection.Tables.Item(1).Cell(1,5).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Город (село)');

MsWord.Selection.Tables.Item(1).Cell(1,6).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Адрес');

MsWord.Selection.Tables.Item(1).Cell(1,7).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Телефон');

MsWord.Selection.Tables.Item(1).Cell(1,8).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Сотовый');

MsWord.Selection.Tables.Item(1).Cell(1,9).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Группа');

MsWord.Selection.Tables.Item(1).Cell(1,10).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Куратор');

MsWord.Selection.Tables.Item(1).Cell(1,11).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Дата заселения');

MsWord.Selection.Tables.Item(1).Cell(1,12).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Примечание');

MsWord.Selection.Tables.Item(1).Cell(1,13).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('ФИО родителей');

MsWord.Selection.Tables.Item(1).Cell(1,14).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Телефон');

MsWord.Selection.Tables.Item(1).Cell(1,15).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Сотовый');

i:=2;

DBGrid1.SelectedRows.Clear;

with DBGrid1.Datasource.DataSet do

begin

First;

DisableControls;

try

while not EOF do

begin

DBGrid1.SelectedRows.CurrentRowSelected := True;

MsWord.Selection.Tables.Item(1).Rows.Add(EmptyParam);

MsWord.Selection.Tables.Item(1).Cell(i,1).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[1].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,2).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[2].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,3).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[3].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,4).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[4].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,5).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[5].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,6).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[6].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,7).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[7].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,8).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[8].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,9).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[9].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,10).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[10].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,11).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[11].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,12).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[12].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,13).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[13].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,14).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[14].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,15).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[15].Field.AsString);

inc(i);

Next;

end;

finally

EnableControls;

end;

end;

end;

end;

procedure TForm1.N5Click(Sender: TObject); //отображения справки

begin

winhelp(Form1.Handle,'Readme\help.hlp',HELP_CONTEXT,1);

end;

procedure TForm1.sSpeedButton6Click(Sender: TObject); //отображения формы ввода пароля

begin

if BitBtn1.Visible=True then begin

ShowMessage('Вы уже в режиме редактирования');

end

else

begin

Form5.Label1.Visible:=True;

Form5.Visible:=True;

Form5.Panel1.Visible:=False;

Form5.Edit1.SetFocus;

Form1.Enabled:=False;

end;

end;

procedure TForm1.sSpeedButton10Click(Sender: TObject); //передает в Excel данные из таблицы

var XL: Variant;

i,j,n:integer;

begin

If DBGrid1.Columns.Items[0].Field.Text='' then begin

ShowMessage('Необходима хотябы одна запись');

end

else

begin

try

XL:=CreateOleObject('Excel.Application');

XL.Visible:=true;

except

Exception.Create('Error');

end;

XL.WorkBooks.Add;

XL.WorkBooks[1].WorkSheets[1].Name :='Студент';

XL.WorkBooks[1].WorkSheets[1].Cells[3,1]:='Комната';

XL.WorkBooks[1].WorkSheets[1].Cells[3,2]:='ФИО студента';

XL.WorkBooks[1].WorkSheets[1].Cells[3,3]:='Дата рождения';

XL.WorkBooks[1].WorkSheets[1].Cells[3,4]:='Район';

XL.WorkBooks[1].WorkSheets[1].Cells[3,5]:='Город';

XL.WorkBooks[1].WorkSheets[1].Cells[3,6]:='Адрес';

XL.WorkBooks[1].WorkSheets[1].Cells[3,7]:='Телефон';

XL.WorkBooks[1].WorkSheets[1].Cells[3,8]:='Телефон сотовый';

XL.WorkBooks[1].WorkSheets[1].Cells[3,9]:='Группа';

XL.WorkBooks[1].WorkSheets[1].Cells[3,10]:='Куратор';

XL.WorkBooks[1].WorkSheets[1].Cells[3,11]:='Дата заселения';

XL.WorkBooks[1].WorkSheets[1].Cells[3,12]:='Примечание';

XL.WorkBooks[1].WorkSheets[1].Cells[3,13]:='ФИО родителей';

XL.WorkBooks[1].WorkSheets[1].Cells[3,14]:='Телефон';

XL.WorkBooks[1].WorkSheets[1].Cells[3,15]:='Телефон сотовый';

Inc(i);

DataModule2.ADOTable1.Open;//открытие таблицы

DataModule2.ADOTable1.First;// регистр(маркер) в начале таблицы

while not DataModule2.ADOTable1.Eof do

Begin XL.WorkBooks[1].WorkSheets[1].Cells[i+3,1]:=DBGrid1.Columns.Items[1].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,2]:=DBGrid1.Columns.Items[2].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,3]:=DBGrid1.Columns.Items[3].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,4]:=DBGrid1.Columns.Items[4].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,5]:=DBGrid1.Columns.Items[5].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,6]:=DBGrid1.Columns.Items[6].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,7]:=DBGrid1.Columns.Items[7].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,8]:=DBGrid1.Columns.Items[8].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,9]:=DBGrid1.Columns.Items[9].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,10]:=DBGrid1.Columns.Items[10].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,11]:=DBGrid1.Columns.Items[11].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,12]:=DBGrid1.Columns.Items[12].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,13]:=DBGrid1.Columns.Items[13].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,14]:=DBGrid1.Columns.Items[14].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,15]:=DBGrid1.Columns.Items[15].Field.Text;

Inc(i);

DataModule2.ADOTable1.Next; //переход на следующую запись таблицы

End;

DataModule2.ADOTable1.close;//закрытие таблицы XL.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth:=DBGrid1.Columns.Items[1].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth:=DBGrid1.Columns.Items[2].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[3].ColumnWidth:=DBGrid1.Columns.Items[3].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[4].ColumnWidth:=DBGrid1.Columns.Items[4].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[5].ColumnWidth:=DBGrid1.Columns.Items[5].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[6].ColumnWidth:=DBGrid1.Columns.Items[6].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[7].ColumnWidth:=DBGrid1.Columns.Items[7].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[8].ColumnWidth:=DBGrid1.Columns.Items[8].Width/2.5; XL.WorkBooks[1].WorkSheets[1].Columns[9].ColumnWidth:=DBGrid1.Columns.Items[9].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[10].ColumnWidth:=DBGrid1.Columns.Items[10].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[11].ColumnWidth:=DBGrid1.Columns.Items[11].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[12].ColumnWidth:=DBGrid1.Columns.Items[12].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[13].ColumnWidth:=DBGrid1.Columns.Items[2].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[14].ColumnWidth:=DBGrid1.Columns.Items[7].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[15].ColumnWidth:=DBGrid1.Columns.Items[8].Width/2.5;

XL.WorkBooks[1].WorkSheets[1].PageSetup.LeftMargin:=1;

XL.WorkBooks[1].WorkSheets[1].PageSetup.RightMargin:=1;

XL.WorkBooks[1].WorkSheets[1].Range['A2:O2'].Merge;

XL.WorkBooks[1].WorkSheets[1].Cells[2,1]:='Таблица студентов';

j:=15+DBGrid1.FieldCount;

n:=1;

XL.WorkBooks[1].WorkSheets[1].Rows[2].HorizontalAlignment:=3;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Bold := True;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Color := clBlack;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Size := 16;

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Bold := True;

DataModule2.ADOTable1.Active:=true;

end;

end;

procedure TForm1.Edit2Change(Sender: TObject); //поиск

begin

DataModule2.ADOTable1.Locate('Komnata',Edit2.Text,[loPartialKey]);

end;

procedure TForm1.sSpeedButton4Click(Sender: TObject); //отображения формы поиска

begin

Form14.Show;

Form14.Visible:=True;

Form1.Enabled:=False;

end;

procedure TForm1.N14Click(Sender: TObject); //смена шрифта

begin

FontDialog1.Execute;

DBGrid1.Font:=FontDialog1.Font;

Form4.DBGrid1.Font:=FontDialog1.Font;

Form12.DBGrid1.Font:=FontDialog1.Font;

Form13.DBGrid1.Font:=FontDialog1.Font;

Form14.DBGrid1.Font:=FontDialog1.Font;

end;

procedure TForm1.N20Click(Sender: TObject); //смена шрифта

begin

FontDialog1.Execute;

DBGrid1.TitleFont:=FontDialog1.Font;

Form4.DBGrid1.TitleFont:=FontDialog1.Font;

Form12.DBGrid1.TitleFont:=FontDialog1.Font;

Form13.DBGrid1.TitleFont:=FontDialog1.Font;

Form14.DBGrid1.TitleFont:=FontDialog1.Font;

end;

procedure TForm1.sSpeedButton7Click(Sender: TObject); //отображения формы смены пароля

begin

Form5.Visible:=False;

Form5.Visible:=True;

Form5.Panel1.Visible:=True;

Form5.Edit2.SetFocus;

Form1.Enabled:=False;

end;

procedure TForm1.sSpeedButton8Click(Sender: TObject); //отображения формы блокировки приложения

begin

Form5.Show;

Form5.Edit1.SetFocus;

Form5.Visible:=True;

Form5.BorderIcons:=[];

Form5.Edit1.Clear;

Form5.BitBtn1.DragMode:=dmAutomatic;

Form5.Panel1.Visible:=False;

Form1.Enabled:=False;

end;

procedure TForm1.FormCreate(Sender: TObject); //загрузка и применения настроек

begin

AssignFile(seting,'setings.txt');

Reset(seting);

Readln(seting,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,b1,b2,b3);

DBGrid1.Columns.Items[1].Width:=a1;

DBGrid1.Columns.Items[2].Width:=a2;

DBGrid1.Columns.Items[3].Width:=a3;

DBGrid1.Columns.Items[4].Width:=a4;

DBGrid1.Columns.Items[5].Width:=a5;

DBGrid1.Columns.Items[6].Width:=a6;

DBGrid1.Columns.Items[7].Width:=a7;

DBGrid1.Columns.Items[8].Width:=a8;

DBGrid1.Columns.Items[9].Width:=a9;

DBGrid1.Columns.Items[10].Width:=a10;

DBGrid1.Columns.Items[11].Width:=a11;

DBGrid1.Columns.Items[12].Width:=a12;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); //запрет ввода

begin

If not (Key in ['а'..'я','А'..'Я','0'..'9','.',',','-',#8]) then key:=#0;

end;

procedure TForm1.Edit2DblClick(Sender: TObject); //отчистка поля

begin

Edit1.Clear;

end;

procedure TForm1.N33Click(Sender: TObject);

begin

if not DirectoryExists(ExtractFilePath(Application.ExeName)+'Rezerv') then

MkDir(ExtractFilePath(Application.ExeName)+'Rezerv');

CopyFile(PChar(ExtractFilePath(Application.ExeName)+'БГПК.mdb'), PChar(ExtractFilePath(Application.ExeName)+'Rezerv\Base_'+DateToStr(Now)+'.mdb'), True);

ShowMessage('Резев успешно сохранен');

end;

end.

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB, Menus;

type

TDataModule2 = class(TDataModule)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

ADOCommand1: TADOCommand;

ADOQuery1: TADOQuery;

DataSource2: TDataSource;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

DataSource3: TDataSource;

DataSource4: TDataSource;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

DataSource5: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

uses Unit1, Unit3, Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, DBCtrls,

sDBLookupComboBox, Mask, sMaskEdit, sCustomComboEdit, sTooledit;

type

TForm3 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label9: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

sDateEdit1: TsDateEdit;

sDBLookupComboBox1: TsDBLookupComboBox;

sDBLookupComboBox3: TsDBLookupComboBox;

Label1: TLabel;

Label8: TLabel;

Label10: TLabel;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Memo1: TMemo;

Label16: TLabel;

sDateEdit2: TsDateEdit;

DBEdit1: TDBEdit;

procedure BitBtn3Click(Sender: TObject);// сохраняет изменения записи в таблицу студент

procedure FormClose(Sender: TObject; var Action: TCloseAction);//закрывает форму3

procedure BitBtn2Click(Sender: TObject);// возврат к предидущей форме

procedure BitBtn1Click(Sender: TObject);

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

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

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

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

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

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

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

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

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

i:integer;

implementation

uses Unit2, Unit1, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, DateUtils;

{$R *.dfm}

procedure TForm3.BitBtn3Click(Sender: TObject);// сохраняет изменения записи в таблицу студент

var

a,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15:string;

begin

a1:=Edit1.Text;

a2:=Edit2.Text;

a3:=Edit3.Text;

a4:=Edit4.Text;

a5:=Edit5.Text;

a6:=Edit6.Text;

a7:=sDBLookupComboBox1.Text;

a8:=DBEdit1.Text;

a9:=sDBLookupComboBox3.Text;

a10:=DateToStr(sDateEdit1.Date);

a11:=Edit7.Text;

a12:=Edit8.Text;

a13:=Edit9.Text;

a14:=DateToStr(sDateEdit2.Date);

a15:=Memo1.Text;

a:=Label14.Caption;

DataModule2.ADOTable1.Active:=false;

DataModule2.ADOCommand1.CommandText:='update Student set FIO_stud='+'"'+a1+'"'+',Raion='+'"'+a2+'"'+',Gorod='+'"'+a3+'"'+',adres='+'"'+a4+'"'+',Telefon='+'"'+a5+'"'+',Telefon_sot='+'"'+a6+'"'+',Gruppa='+'"'+a7+'"'+',Kurator='+'"'+a8+'"'+',Komnata='+'"'+a9+'"'+',Data_zaselenia='+'"'+a10+'"'+',FIO_Rod='+'"'+a11+'"'+',Telefon_Rod='+'"'+a12+'"'+',Telefon_sotov='+'"'+a13+'"'+',Data_roj='+'"'+a14+'"'+',Primechanie='+'"'+a15+'"'+' where kod='+'"'+a+'"';

DataModule2.ADOCommand1.Execute;

DataModule2.ADOTable1.Active:=true;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

Edit7.Clear;

Edit8.Clear;

Edit9.Clear;

Form3.Memo1.Clear;

Form3.Close;

form1.Enabled:=True;

end;

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

//Закрывает форму

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

Edit7.Clear;

Edit8.Clear;

Edit9.Clear;

Form3.Memo1.Clear;

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

// возврат к предидущей форме

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

Edit7.Clear;

Edit8.Clear;

Edit9.Clear;

Form3.Memo1.Clear;

Form3.Close;

Form1.Show;

Form1.Edit1.SetFocus;

form1.Enabled:=True;

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

var q:integer;

begin

DataModule2.ADOQuery1.SQL.Text:='Select * From Student';

DataModule2.ADOQuery1.Open;

DataModule2.ADOQuery1.First;

if (Edit1.Text='') or

(Edit2.Text='') or

(sDateEdit2.Text='') or

(Edit3.Text='') or

(Edit4.Text='') or

(Edit7.Text='') or

(sDBLookupComboBox1.Text='') or

(DBEdit1.Text='') or

(sDBLookupComboBox3.Text='') or

(sDateEdit1.Text='') then BEGIN

MessageBox(Handle, 'Заполните все поля', 'Information', MB_OK) ;

exit;

end;

for q:=1 to DataModule2.ADOQuery1.RecordCount-1 do

begin

if (Edit1.Text=DataModule2.ADOQuery1.FieldByName('FIO_Stud').Value) and

(sDateEdit1.Date=DataModule2.ADOQuery1.FieldByName('Data_roj').Value) and

(Edit2.Text=DataModule2.ADOQuery1.FieldByName('Raion').Value) and

(Edit3.Text=DataModule2.ADOQuery1.FieldByName('Gorod').Value) and

(Edit4.Text=DataModule2.ADOQuery1.FieldByName('Adres').Value) and

(Edit5.Text=DataModule2.ADOQuery1.FieldByName('Telefon').Value) and

(Edit6.Text=DataModule2.ADOQuery1.FieldByName('Telefon_sot').Value) and (sDBLookupComboBox1.Text=DataModule2.ADOQuery1.FieldByName('Gruppa').Value) and

(DBEdit1.Text=DataModule2.ADOQuery1.FieldByName('Kurator').Value) and (sDBLookupComboBox3.Text=DataModule2.ADOQuery1.FieldByName('Komnata').Value) and (sDateEdit1.Date=DataModule2.ADOQuery1.FieldByName('Data_Zaselenia').Value) and

(Edit7.Text=DataModule2.ADOQuery1.FieldByName('FIO_Rod').Value) and

(Edit8.Text=DataModule2.ADOQuery1.FieldByName('Telefon_Rod').Value) and (Edit9.Text=DataModule2.ADOQuery1.FieldByName('Telefon_sotov').Value) then

begin

MessageBox(Handle, 'Такая запись существует', 'Information', MB_OK);

exit;

end else

begin

DataModule2.ADOQuery1.Next;

end;

end;

for i:=1 to 99999999 do

if DataModule2.ADOTable1.Locate('Kod',i,[])=false then break;

DataModule2.ADOTable1.Active:=False;

DataModule2.ADOQuery1.Insert;

DataModule2.ADOQuery1.FieldByName('FIO_Stud').Value:=Edit1.Text;

DataModule2.ADOQuery1.FieldByName('Data_roj').Value:=DateToStr(sDateEdit2.Date);

DataModule2.ADOQuery1.FieldByName('Raion').Value:=Edit2.Text;

DataModule2.ADOQuery1.FieldByName('Gorod').Value:=Edit3.Text;

DataModule2.ADOQuery1.FieldByName('Adres').Value:=Edit4.Text;

DataModule2.ADOQuery1.FieldByName('Telefon').Value:=Edit5.Text;

DataModule2.ADOQuery1.FieldByName('Telefon_sot').Value:=Edit6.Text;

DataModule2.ADOQuery1.FieldByName('Gruppa').Value:=sDBLookupComboBox1.Text;

DataModule2.ADOQuery1.FieldByName('Kurator').Value:=DBEdit1.Text;

DataModule2.ADOQuery1.FieldByName('Komnata').Value:=sDBLookupComboBox3.Text;

DataModule2.ADOQuery1.FieldByName('Data_Zaselenia').Value:=DateToStr(sDateEdit1.Date);

DataModule2.ADOQuery1.FieldByName('FIO_Rod').Value:=Edit7.Text;

DataModule2.ADOQuery1.FieldByName('Telefon_Rod').Value:=Edit8.Text;

DataModule2.ADOQuery1.FieldByName('Telefon_sotov').Value:=Edit9.Text;

DataModule2.ADOQuery1.FieldByName('Primechanie').Value:=Memo1.Text;

DataModule2.ADOQuery1.FieldByName('Kod').Value:=i;

DataModule2.ADOQuery1.Post;

DataModule2.ADOTable1.Active:=true;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

Edit7.Clear;

Edit8.Clear;

Edit9.Clear;

Form3.Memo1.Clear;

Form1.BitBtn3.Enabled:=True;

Form1.BitBtn2.Enabled:=True;

form1.Enabled:=True;

Close;

//добовляет записи в таблицу студенты

var s1,s2,s3,s4,s5,s6,s7,s8:string;

begin

s1:=edit1.Text;

s2:=edit2.Text;

s3:=edit3.Text;

s4:=edit4.Text;

s5:=ComboBox1.Text;

s6:=ComboBox3.Text;

s7:=ComboBox2.Text;

s8:=Edit5.Text;

DateToStr(DateTimePicker1.Date);

DataModule2.ADOTable1.Active:=false;

DataModule2.ADOCommand1.CommandText:='insert into Student values('+''''+s1+''''+','+''''+s2+''''+','+''''+s3+''''+','+''''+s4+''''+','+''''+s5+''''+','+''''+s6+''''+','+''''+s7+''''+','+''''+DateToStr(DateTimePicker1.Date)+''''+')';

DataModule2.ADOCommand1.Execute;

DataModule2.ADOTable1.Active:=true;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

ComboBox1.ClearSelection;

Edit4.Clear;

Edit5.Clear;

ComboBox2.ClearSelection;

ComboBox3.ClearSelection;

Form3.Close;

form1.Enabled:=True;}

end;

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я','А'..'Я','.',' ',#8]) then key:=#0;

end;

procedure TForm3.Edit8KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['0'..'9','-','+',',','(',')','-',#8]) then key:=#0;

end;

procedure TForm3.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['0'..'9','-','+',',','(',')',#8]) then key:=#0;

end;

procedure TForm3.Edit6KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['0'..'9','-','+',',','(',')',#8]) then key:=#0;

end;

procedure TForm3.Edit9KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['0'..'9','-','+',',','(',')',#8]) then key:=#0;

end;

procedure TForm3.Edit7KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я','А'..'Я','.',' ',#8]) then key:=#0;

end;

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я','А'..'Я','-',' ','-',#8]) then key:=#0;

end;

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

begin

If not (Key in ['а'..'я','А'..'Я','-',' ',#8]) then key:=#0;

end;

procedure TForm3.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я','А'..'Я','0'..'9','.',',','-',' ',#8]) then key:=#0;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, Menus, Buttons, ExtCtrls,

DBCtrls, Mask, sSkinManager, sSpeedButton, ToolWin, sToolBar, sMaskEdit,

sCustomComboEdit,XPMan,OleServer,WordXP,jpeg,DB, ADODB, Registry, ComObj, sTooledit,

ExcelXP;

type

TForm4 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Word1: TMenuItem;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Label1: TLabel;

Edit1: TEdit;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

ExcelApplication1: TExcelApplication;

PopupMenu1: TPopupMenu;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

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

procedure Edit1Change(Sender: TObject);

procedure Edit1DblClick(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Word1Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2, Unit10, Unit1;

{$R *.dfm}

function IsWordInstalled: Boolean;

var

Reg: TRegistry;

begin

Reg := TRegistry.Create;

try

Reg.RootKey := HKEY_CLASSES_ROOT;

Result := Reg.KeyExists('Word.Application');

finally

reg.Free;

end;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

var

f:string;

begin

F:=DataModule2.ADOTable4.FieldValues['Kurator'];

if MessageDlg

('Вы действительно хотите удалить '+f+'',mtConfirmation,[mbYes,mbNo],0)= idYes

then

DataModule2.ADOTable4.Delete;

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form4.Enabled:=False;;

Form10.Visible:=True;

Form10.BitBtn1.Visible:=True;

Form10.BitBtn3.Visible:=False;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

with form10 do

begin

Edit1.Text:=DataModule2.ADOTable4.FieldValues['Kurator'];

Edit2.Text:=DataModule2.ADOTable4.FieldValues['Telefon'];

Edit3.Text:=DataModule2.ADOTable4.FieldValues['Adres'];

Label4.Caption:=DataModule2.ADOTable4.FieldValues['Kod'];

end;

Form10.Show;

Form4.Enabled:=False;;

Form10.Visible:=True;

Form10.BitBtn1.Visible:=False;

Form10.BitBtn3.Visible:=True;

end;

procedure TForm4.BitBtn4Click(Sender: TObject);

begin

Edit1.Clear;

Close;

Form1.Show;

Form1.Enabled:=True;

Form1.Edit1.SetFocus;

end;

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

begin

Edit1.Clear;

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

end;

procedure TForm4.Edit1Change(Sender: TObject);

begin

DataModule2.ADOTable4.Locate('Kurator',Edit1.Text,[loPartialKey]);

end;

procedure TForm4.Edit1DblClick(Sender: TObject);

begin

Edit1.Clear;

end;

procedure TForm4.N3Click(Sender: TObject);

begin

DataModule2.ADOTable4.IndexFieldNames:='Kurator';

end;

procedure TForm4.N4Click(Sender: TObject);

begin

DataModule2.ADOTable4.IndexFieldNames:='telefon';

end;

procedure TForm4.N5Click(Sender: TObject);

begin

DataModule2.ADOTable4.IndexFieldNames:='adres';

end;

procedure TForm4.N8Click(Sender: TObject);

begin

winhelp(Form1.Handle,'Readme\help.hlp',HELP_CONTEXT,1);

end;

procedure TForm4.Word1Click(Sender: TObject);

var

MsWord : Variant;

i:integer;

begin

If DBGrid1.Columns.Items[0].Field.Text='' then begin

ShowMessage('Необходима хотябы одна запись');

end

else

begin

if IsWordInstalled = false

then

begin

MessageDlg('Не установлен Microsoft Word'+#13+'установка решит этупроблемму',mtWarning,[mbok],0);

exit;

end;

MSWord := CreateOLEObject('Word.Application');

MsWord.Visible := true;

MsWord.documents.add;

MsWord.Selection.Tables.add(MsWord.selection.Range,1,3,EmptyParam);

MsWord.Selection.Tables.Item(1).Columns.Item(1).Width:=DBGrid1.Columns.Items[1].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(2).Width:=DBGrid1.Columns.Items[2].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(3).Width:=DBGrid1.Columns.Items[3].Width;

MsWord.Selection.Tables.Item(1).Cell(1,1).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Куратор');

MsWord.Selection.Tables.Item(1).Cell(1,2).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Телефон');

MsWord.Selection.Tables.Item(1).Cell(1,3).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Адрес');

i:=2;

DBGrid1.SelectedRows.Clear;

with DBGrid1.Datasource.DataSet do

begin

First;

DisableControls;

try

while not EOF do

begin

DBGrid1.SelectedRows.CurrentRowSelected := True;

MsWord.Selection.Tables.Item(1).Rows.Add(EmptyParam);

MsWord.Selection.Tables.Item(1).Cell(i,1).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[1].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,2).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[2].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,3).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[3].Field.AsString);

inc(i);

Next;

end;

finally

EnableControls;

end;

end;

end;

end;

procedure TForm4.N6Click(Sender: TObject);

var XL: Variant;

i,j,n:integer;

begin

If DBGrid1.Columns.Items[0].Field.Text='' then begin

ShowMessage('Необходима хотябы одна запись');

end

else

begin

try

XL:=CreateOleObject('Excel.Application');

XL.Visible:=true;

except

Exception.Create('Error');

end;

XL.WorkBooks.Add;

XL.WorkBooks[1].WorkSheets[1].Name :='Куратор';

XL.WorkBooks[1].WorkSheets[1].Cells[3,1]:='Куратор';

XL.WorkBooks[1].WorkSheets[1].Cells[3,2]:='Телефон';

XL.WorkBooks[1].WorkSheets[1].Cells[3,3]:='Адрес';

Inc(i);

DataModule2.ADOTable4.Open;//открытие таблицы

DataModule2.ADOTable4.First;// регистр(маркер) в начале таблицы

while not DataModule2.ADOTable4.Eof do

Begin XL.WorkBooks[1].WorkSheets[1].Cells[i+3,1]:=DBGrid1.Columns.Items[1].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,2]:=DBGrid1.Columns.Items[2].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,3]:=DBGrid1.Columns.Items[3].Field.Text;

Inc(i);

DataModule2.ADOTable4.Next; //переход на следующую запись таблицы

End;

DataModule2.ADOTable4.close;//закрытие таблицы

XL.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth:=DBGrid1.Columns.Items[1].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth:=DBGrid1.Columns.Items[2].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[3].ColumnWidth:=DBGrid1.Columns.Items[3].Width/5.5;

XL.WorkBooks[1].WorkSheets[1].PageSetup.LeftMargin:=1;

XL.WorkBooks[1].WorkSheets[1].PageSetup.RightMargin:=1;

XL.WorkBooks[1].WorkSheets[1].Range['A2:C2'].Merge;

XL.WorkBooks[1].WorkSheets[1].Cells[2,1]:='Таблица кураторов';

j:=4+DBGrid1.FieldCount;

n:=1;

XL.WorkBooks[1].WorkSheets[1].Rows[2].HorizontalAlignment:=3;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Bold := True;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Color := clBlack;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Size := 16;

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Bold := True;

// присвоение ячейке значения

// XL.WorkBooks[1].WorkSheets[1].Cells[1, 1] := 'AIS_for_KFX';

//XL.Visible := true;

DataModule2.ADOTable4.Active:=true;

end;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

DBGrid1.Columns.Items[1].Width:=b1;

DBGrid1.Columns.Items[2].Width:=b2;

DBGrid1.Columns.Items[3].Width:=b3;

end;

procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я','А'..'Я','.',' ','-',#8]) then key:=#0;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Buttons, Menus, ExtCtrls;

type

TForm5 = class(TForm)

Label1: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Panel1: TPanel;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

BitBtn3: TBitBtn;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

BitBtn4: TBitBtn;

Edit1: TEdit;

Label2: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

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

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

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

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

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

private

{ Private declarations }

public

{ Public declarations }

function xortext(text:string):string;

function xortext1(text:string):string;

function xortext2(text:string):string;

Procedure MakePassword;

Function ReadPassword(pwrd:string):string;

end;

var

Form5: TForm5;

parol,Xy:String;

counter : integer;

NoSplash:byte;

implementation

uses Unit1, Unit2, Unit3, Unit6, Unit7, Unit8, Unit10 ,Unit9, DB,

ADODB, Math, Unit4, Unit12, Unit13;

{$R *.dfm}

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

if xortext(Edit1.Text) = ReadPassword(Xy) then begin

if MessageDlg

('Пароль принят ',mtInformation,[mbOK],0)= mrOk then begin

with Form1 do

begin

StatusBar1.Panels[0].Text:='Редактирование';

BitBtn1.Visible:=True;

BitBtn2.Visible:=True;

BitBtn3.Visible:=True;

N15.Visible:=True;

N16.Visible:=True;

N17.Visible:=True;

sSpeedButton7.Enabled:=True;

sSpeedButton8.Enabled:=True;

N8.Enabled:=True;

N9.Enabled:=True;

N10.Enabled:=True;

N6.Enabled:=True;

N13.Enabled:=True;

N33.Enabled:=True;

end;

With Form4 do

begin

BitBtn1.Visible:=True;

BitBtn2.Visible:=True;

BitBtn3.Visible:=True;

N10.Enabled:=True;

N11.Enabled:=True;

N12.Enabled:=True;

N13.Visible:=True;

N14.Visible:=True;

N15.Visible:=True;

end;

With Form12 do

begin

BitBtn1.Visible:=True;

BitBtn2.Visible:=True;

N1.Visible:=True;

N2.Visible:=True;

end;

With Form13 do

begin

BitBtn1.Visible:=True;

BitBtn2.Visible:=True;

BitBtn3.Visible:=True;

N1.Visible:=True;

N2.Visible:=True;

N3.Visible:=True;

end;

DataModule2.ADOTable1.IndexFieldNames:='Komnata';

DataModule2.ADOTable2.IndexFieldNames:='Komnata';

DataModule2.ADOTable3.IndexFieldNames:='Gruppa';

DataModule2.ADOTable4.IndexFieldNames:='Kurator';

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

Close;

end;

end

else begin

Edit1.Clear;

while counter<>0 do

begin

MessageDlg

('Пароль введен неверно',mtInformation ,[mbOK],0);

counter:=counter-1;

Label1.Caption:='Осталось попыток ввода: '+IntToStr(counter);

Break;

end;

if counter=0 then begin

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

end;

end;

end;

function TForm5.xortext(text:string):string;

var key, longkey : string;

i:integer;

toto: char;

begin

key:='0'; //ключ

for i := 0 to (length(Edit1.text) div length(key)) do

longkey := longkey + key;

for i := 1 to length(Edit1.text) do begin

toto := chr((ord(Edit1.text[i]) XOR ord(longkey[i])));

result := result + toto;

end;

end;

Procedure TForm5.MakePassword;

var

F:TextFile;

begin

AssignFile(F,'License.dat');

rewrite(F);

Write(F,Parol);

CloseFile(F);

end;

Function TForm5.ReadPassword(pwrd:string):string;

var F:TextFile;

begin

AssignFile(F,'License.dat');

try

reset(F);

except on EInOutError do begin

MessageDlg

('Не удается найти ключевого файла License.dat Приложение будет завершено',mtWarning ,[mbOK],0);

Application.Terminate;

end;

end;

Read(F,pwrd);

Xy:=pwrd;

Result:=pwrd;

CloseFile(F);

end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

Close;

end;

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

if xortext1(Edit2.Text) = ReadPassword(Xy) then begin

if Edit3.Text=Edit4.Text then begin

//ShowMessage('Ура!');

xortext2(Edit4.Text);

MakePassword;

MessageDlg

('Пароль был успешно изменен',mtInformation,[mbOK],0);

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

Close;

end

else

MessageDlg

('Новый пароль и подтверждение не совподают',mtWarning,[mbOK],0);

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

end

else

MessageDlg

('Неверный старый пароль',mtWarning,[mbOK],0);

end;

function TForm5.xortext1(text:string):string;

var key, longkey : string;

i:integer;

toto: char;

begin

key:='0'; //ключ

for i := 0 to (length(Edit2.text) div length(key)) do

longkey := longkey + key;

for i := 1 to length(Edit2.text) do begin

toto := chr((ord(Edit2.text[i]) XOR ord(longkey[i])));

result := result + toto;

end;

end;

function TForm5.xortext2(text:string):string;

var key, longkey : string;

i:integer;

toto: char;

begin

key:='0'; //ключ

for i := 0 to (length(Edit4.text) div length(key)) do

longkey := longkey + key;

for i := 1 to length(Edit4.text) do begin

toto := chr((ord(Edit4.text[i]) XOR ord(longkey[i])));

result := result + toto;

parol:=Result;

end;

end;

procedure TForm5.BitBtn4Click(Sender: TObject);

begin

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

Close;

end;

procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then BitBtn2.Click;

end;

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

begin

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

end;

procedure TForm5.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Edit3.SetFocus;

end;

procedure TForm5.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then BitBtn3.Click;

end;

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

begin

if key=#13 then Edit4.SetFocus;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, DBCtrls, sDBLookupComboBox, Mask, sMaskEdit, sCustomComboEdit,

sTooledit, StdCtrls;

type

TForm6 = class(TForm)

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label9: TLabel;

Label1: TLabel;

Label8: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label15: TLabel;

Label16: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

sDateEdit1: TsDateEdit;

sDBLookupComboBox1: TsDBLookupComboBox;

sDBLookupComboBox2: TsDBLookupComboBox;

sDBLookupComboBox3: TsDBLookupComboBox;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Memo1: TMemo;

sDateEdit2: TsDateEdit;

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1;

{$R *.dfm}

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

begin

Form1.Show;

Form1.Enabled:=True;

Form1.Edit1.SetFocus;

end;

end. unit Unit7;

interface

uses

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

Dialogs, StdCtrls, Mask, Buttons;

type

TForm7 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Edit1: TEdit;

Label1: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

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

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit1, Unit2, Unit3, Unit5, Unit6, Unit8, Unit9, ADODB, Unit12;

{$R *.dfm}

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

Edit1.Clear;

Form7.Close;

Form12.Show;

Form12.Enabled:=True;

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

var s1:string;

begin

s1:=edit1.Text;

DataModule2.ADOTable2.Active:=false;

DataModule2.ADOCommand1.CommandText:='insert into Komnata values('+''''+s1+''''+')';

DataModule2.ADOCommand1.Execute;

DataModule2.ADOTable2.Active:=true;

Edit1.Clear;

Form7.Close;

Form12.Show;

Form12.Enabled:=True;

DataModule2.ADOTable2.IndexFieldNames:='Komnata';

end;

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

begin

Edit1.Clear;

Form12.Show;

Form12.Enabled:=True;

end;

procedure TForm7.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я','А'..'Я','0'..'9','.',',','-',#8]) then key:=#0;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, ComCtrls, Outline, DirOutln,

dbcgrids, DBCtrls, ToolWin, Menus, XPMan, Buttons, jpeg;

type

TForm8 = class(TForm)

Timer1: TTimer;

Image1: TImage;

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

seting:text;{Файл с настройками}

implementation

uses Unit1, Unit5, Unit3, Unit2, Unit6, Unit7, Unit9, Unit4;

{$R *.dfm}

procedure TForm8.Timer1Timer(Sender: TObject);

var v,v1:Longint;

begin

If Form8.AlphaBlendValue<>0 Then Form8.AlphaBlendValue:=Form8.AlphaBlendValue-1

Else

Begin

Timer1.Enabled:=False;

Form8.Visible:=False;

Form1.Visible:=True;

Form1.WindowState:=wsMaximized;

DataModule2.ADOTable1.IndexFieldNames:='Komnata';

DataModule2.ADOTable2.IndexFieldNames:='Komnata';

DataModule2.ADOTable3.IndexFieldNames:='Gruppa';

DataModule2.ADOTable4.IndexFieldNames:='Kurator';

Form5.Panel1.Visible:=False;

End;

end;

procedure TForm8.FormCreate(Sender: TObject);

begin

If NoSplash=0 Then Timer1.Enabled:=True;

end;

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

Form5.Visible:=True;

Form5.Panel1.Visible:=False;

Form8.Visible:=False;

end;

procedure TForm8.FormActivate(Sender: TObject);

begin

Form8.Show;

end;

end.

unit Unit9;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, StdCtrls, Buttons, sDBLookupComboBox;

type

TForm9 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

BitBtn3: TBitBtn;

sDBLookupComboBox1: TsDBLookupComboBox;

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

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit1, Unit2, Unit3, Unit5, Unit6, Unit7, Unit8, Unit13;

{$R *.dfm}

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

begin

Edit1.Clear;

Form13.Show;

Form13.Enabled:=True;

end;

procedure TForm9.BitBtn1Click(Sender: TObject);

var s1,s2:string;

begin

s1:=edit1.Text;

s2:=sDBLookupComboBox1.Text;

DataModule2.ADOTable3.Active:=false;

DataModule2.ADOCommand1.CommandText:='insert into Gruppa values('+''''+s1+''''+','+''''+s2+''''+')';

DataModule2.ADOCommand1.Execute;

DataModule2.ADOTable3.Active:=true;

Edit1.Clear;

Form9.Close;

Form13.Enabled:=True;

Form13.Show;

DataModule2.ADOTable3.IndexFieldNames:='Gruppa';

end;

procedure TForm9.BitBtn2Click(Sender: TObject);

begin

Form9.Close;

Edit1.Clear;

Form13.Show;

Form13.Enabled:=True;

end;

procedure TForm9.BitBtn3Click(Sender: TObject);

begin

DataModule2.ADOTable3.Active:=false;

DataModule2.ADOCommand1.CommandText:='update Gruppa set Kurator='+'"'+sDBLookupComboBox1.Text+'"'+' where Gruppa='+'"'+Edit1.Text+'"';

DataModule2.ADOCommand1.Execute;

DataModule2.ADOTable3.Active:=true;

Edit1.Clear;

Form9.Close;

DataModule2.ADOTable3.IndexFieldNames:='Gruppa';

Form13.Show;

Form13.Enabled:=True;

end;

procedure TForm9.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я','А'..'Я','0'..'9','.',',','-',#8]) then key:=#0;

end;

end.

unit Unit10;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm10 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Label4: TLabel;

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

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

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

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

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

i:integer;

implementation

uses Unit1, Unit2, Unit3, Unit5, Unit6, Unit7, Unit8, Unit9, Unit4;

{$R *.dfm}

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

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Form4.Show;

Form4.Edit1.SetFocus;

Form4.Enabled:=True;

end;

procedure TForm10.BitBtn2Click(Sender: TObject);

begin

Form10.Close;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Form4.Show;

Form4.Edit1.SetFocus;

Form4.Enabled:=True;

end;

procedure TForm10.BitBtn1Click(Sender: TObject);

var q:integer;

begin

DataModule2.ADOQuery2.SQL.Text:='Select * From Kurator';

DataModule2.ADOQuery2.Open;

DataModule2.ADOQuery2.First;

if (Edit1.Text='') or

(Edit2.Text='') or

(Edit3.Text='') then BEGIN

MessageBox(Handle, 'Заполните все поля', 'Information', MB_OK) ;

exit;

end;

for q:=1 to DataModule2.ADOQuery2.RecordCount-1 do

begin

if (Edit1.Text=DataModule2.ADOQuery2.FieldByName('Kurator').Value) and

(Edit2.Text=DataModule2.ADOQuery2.FieldByName('Telefon').Value) and

(Edit3.Text=DataModule2.ADOQuery2.FieldByName('Adres').Value) then

begin

MessageBox(Handle, 'Такая запись существует', 'Information', MB_OK);

exit;

end else

begin

DataModule2.ADOQuery2.Next;

end;

end;

for i:=1 to 99999999 do

if DataModule2.ADOTable4.Locate('Kod',i,[])=false then break;

DataModule2.ADOTable4.Active:=False;

DataModule2.ADOQuery2.Insert;

DataModule2.ADOQuery2.FieldByName('Kurator').Value:=Edit1.Text;

DataModule2.ADOQuery2.FieldByName('Telefon').Value:=Edit2.Text;

DataModule2.ADOQuery2.FieldByName('Adres').Value:=Edit3.Text;

DataModule2.ADOQuery2.FieldByName('Kod').Value:=i;

DataModule2.ADOQuery2.Post;

DataModule2.ADOTable4.Active:=true;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Form4.Show;

Form4.Edit1.SetFocus;

form4.Enabled:=True;

DataModule2.ADOTable4.IndexFieldNames:='Kurator';

Close;

end;

procedure TForm10.BitBtn3Click(Sender: TObject);

begin

DataModule2.ADOTable4.Active:=false;

DataModule2.ADOCommand1.CommandText:='update Kurator set Kurator='+'"'+Edit1.Text+'"'+',Telefon='+'"'+Edit2.Text+'"'+',adres='+'"'+Edit3.Text+'"'+' where Kod='+'"'+Label4.Caption+'"';

DataModule2.ADOCommand1.Execute;

DataModule2.ADOTable4.Active:=true;

Edit1.Clear;

Edit2.Clear;