ДОДАТОК А. КОД ПРОГРАМИ АДМІНІСТРУВАННЯ

program Deeplom;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5};

 

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.Run;

end.

unit Unit1;

interface

uses

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

Dialogs, DB, ADODB, StdCtrls, Buttons;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

Button1: TButton;

Button2: TButton;

Button3: TButton;

BitBtn1: TBitBtn;

BitBtn4: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.showModal;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Form4.ShowModal

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form5.ShowModal

end;

end.

 

unit Unit2;

interface

uses

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

Dialogs, Unit1, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, DBCtrls;

type

TForm2 = class(TForm)

temy: TADOQuery;

DBGrid1: TDBGrid;

temy_: TDataSource;

new1: TBitBtn;

del1: TBitBtn;

save1: TBitBtn;

otmena1: TBitBtn;

DBGrid2: TDBGrid;

paragraf: TADOQuery;

paragraf_: TDataSource;

DBMemo1: TDBMemo;

new2: TBitBtn;

del2: TBitBtn;

otmena2: TBitBtn;

save2: TBitBtn;

Label1: TLabel;

paragrafid_paragraf: TAutoIncField;

paragrafid_tema: TIntegerField;

paragrafnomer: TWideStringField;

paragraftext: TMemoField;

procedure new1Click(Sender: TObject);

procedure del1Click(Sender: TObject);

procedure save1Click(Sender: TObject);

procedure temyAfterOpen(DataSet: TDataSet);

procedure temyAfterInsert(DataSet: TDataSet);

procedure paragraftextGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

procedure new2Click(Sender: TObject);

procedure del2Click(Sender: TObject);

procedure otmena2Click(Sender: TObject);

procedure save2Click(Sender: TObject);

procedure paragrafAfterInsert(DataSet: TDataSet);

procedure paragrafAfterCancel(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm2.new1Click(Sender: TObject);

begin

Temy.Insert;

DBGrid1.SelectedField.FocusControl;

end;

procedure TForm2.del1Click(Sender: TObject);

begin

if MessageDlg('Видалити запис? ', mtConfirmation, [mbYes, mbNo], 0)=6 then

Temy.Delete;

end;

procedure TForm2.save1Click(Sender: TObject);

begin

if (Temy.State in [dsInsert, dsEdit]) then

Temy.Post;

end;

procedure TForm2.temyAfterOpen(DataSet: TDataSet);

begin

new1.Enabled: =true;

del1.Enabled: =true;

save1.Enabled: =false;

otmena1.Enabled: =false;

end;

procedure TForm2.temyAfterInsert(DataSet: TDataSet);

begin

new1.Enabled: =false;

del1.Enabled: =false;

save1.Enabled: =true;

otmena1.Enabled: =true;

end;

procedure TForm2.paragraftextGetText(Sender: TField; var Text: String;

 DisplayText: Boolean);

begin

 Text: =Sender.AsString;

end;

procedure TForm2.new2Click(Sender: TObject);

begin

paragraf.Insert

end;

procedure TForm2.del2Click(Sender: TObject);

begin

if MessageDlg('Видалити параграф? ', mtConfirmation, [mbYes, mbNo], 0)=6 then

paragraf.Delete;

end;

procedure TForm2.otmena2Click(Sender: TObject);

begin

paragraf.Cancel

end;

procedure TForm2.save2Click(Sender: TObject);

begin

paragraf.Post

end;

procedure TForm2.paragrafAfterInsert(DataSet: TDataSet);

begin

new2.Enabled: =false;

del2.Enabled: =false;

save2.Enabled: =true;

otmena2.Enabled: =true;

end;

procedure TForm2.paragrafAfterCancel(DataSet: TDataSet);

begin

new2.Enabled: =true;

del2.Enabled: =true;

save2.Enabled: =false;

otmena2.Enabled: =false;

end;

end.

 

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, Unit1, Buttons;

type

TForm3 = class(TForm)

gruppy: TADOQuery;

DBGrid1: TDBGrid;

Label1: TLabel;

gruppy_: TDataSource;

new1: TBitBtn;

del1: TBitBtn;

save1: TBitBtn;

DBGrid2: TDBGrid;

Label2: TLabel;

ucheniki_: TDataSource;

gruppyid_gruppa: TAutoIncField;

gruppygod_nachala_obucheniya: TIntegerField;

gruppyname_gruppy: TWideStringField;

gruppyfio_prepodavatelya: TWideStringField;

new2: TBitBtn;

del2: TBitBtn;

ucheniki: TADOQuery;

uchenikiid_uchenika: TAutoIncField;

uchenikifamiliya: TWideStringField;

uchenikiimya: TWideStringField;

uchenikiotchestvo: TWideStringField;

uchenikid_rojdeniya: TDateTimeField;

uchenikiid_gruppa: TIntegerField;

otmena1: TBitBtn;

uchenikilogin: TWideStringField;

uchenikiparol: TWideStringField;

otmena2: TBitBtn;

save2: TBitBtn;

procedure new1Click(Sender: TObject);

procedure gruppyAfterPost(DataSet: TDataSet);

procedure del1Click(Sender: TObject);

procedure save1Click(Sender: TObject);

procedure new2Click(Sender: TObject);

procedure del2Click(Sender: TObject);

procedure gruppyAfterInsert(DataSet: TDataSet);

procedure gruppyAfterDelete(DataSet: TDataSet);

procedure uchenikiAfterInsert(DataSet: TDataSet);

procedure uchenikiAfterDelete(DataSet: TDataSet);

procedure otmena2Click(Sender: TObject);

procedure save2Click(Sender: TObject);

procedure otmena1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.new1Click(Sender: TObject);

begin

Gruppy.Insert;

DBGrid1.SelectedField.FocusControl;

end;

 

procedure TForm3.gruppyAfterPost(DataSet: TDataSet);

begin

gruppy.close;

gruppy.open;

end;

procedure TForm3.del1Click(Sender: TObject);

begin

if MessageDlg('Видалити групу? ', mtConfirmation, [mbYes, mbNo], 0)=6 then

gruppy.Delete;

end;

procedure TForm3.save1Click(Sender: TObject);

begin

if (gruppy.State in [dsInsert, dsEdit]) then

gruppy.Post;

end;

procedure TForm3.new2Click(Sender: TObject);

begin

ucheniki.Insert

end;

procedure TForm3.del2Click(Sender: TObject);

begin

if MessageDlg('Видалити студента? ', mtConfirmation, [mbYes, mbNo], 0)=6 then

ucheniki.Delete;

end;

procedure TForm3.gruppyAfterInsert(DataSet: TDataSet);

begin

new1.Enabled: =false;

del1.Enabled: =false;

save1.Enabled: =true;

otmena1.Enabled: =true;

end;

procedure TForm3.gruppyAfterDelete(DataSet: TDataSet);

begin

new1.Enabled: =true;

del1.Enabled: =true;

save1.Enabled: =false;

otmena1.Enabled: =false;

end;

procedure TForm3.uchenikiAfterInsert(DataSet: TDataSet);

begin

new2.Enabled: =false;

del2.Enabled: =false;

save2.Enabled: =true;

otmena2.Enabled: =true;

end;

procedure TForm3.uchenikiAfterDelete(DataSet: TDataSet);

begin

new2.Enabled: =true;

del2.Enabled: =true;

save2.Enabled: =false;

otmena2.Enabled: =false;

end;

procedure TForm3.otmena2Click(Sender: TObject);

begin

ucheniki.Cancel

end;

procedure TForm3.save2Click(Sender: TObject);

begin

ucheniki.Post

end;

procedure TForm3.otmena1Click(Sender: TObject);

begin

gruppy.Cancel

end;

end.

 

unit Unit4;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Unit1, DB, ADODB, Grids, DBGrids, DBCtrls,

dbcgrids, Buttons, ExtDlgs, jpeg;

type

TForm4 = class(TForm)

bilet: TADOQuery;

bilet_: TDataSource;

DBGrid1: TDBGrid;

vopros: TADOQuery;

 vopros_: TDataSource;

DBGrid2: TDBGrid;

GroupBox1: TGroupBox;

voprosid_voprosa: TAutoIncField;

voprosid_bileta: TIntegerField;

voprosvopros: TMemoField;

voprosimage: TWideStringField;

DBMemo1: TDBMemo;

DBCtrlGrid1: TDBCtrlGrid;

Label1: TLabel;

DBMemo2: TDBMemo;

DBCheckBox1: TDBCheckBox;

otvet: TADOQuery;

otvet_: TDataSource;

BitBtn1: TBitBtn;

otvetid_otvet: TAutoIncField;

otvetid_voprosa: TIntegerField;

otvetotvet: TMemoField;

otvetpravilniy: TBooleanField;

save: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

GroupBox2: TGroupBox;

Image1: TImage;

OpenPictureDialog1: TOpenPictureDialog;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

Label2: TLabel;

BitBtn9: TBitBtn;

DBText1: TDBText;

biletid_bileta: TAutoIncField;

biletname: TIntegerField;

voprosnomer: TIntegerField;

save1: TBitBtn;

save2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure otvetAfterInsert(DataSet: TDataSet);

procedure vopros_DataChange(Sender: TObject; Field: TField);

procedure saveClick(Sender: TObject);

procedure otvetAfterEdit(DataSet: TDataSet);

procedure otvetAfterCancel(DataSet: TDataSet);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure voprosAfterEdit(DataSet: TDataSet);

procedure BitBtn5Click(Sender: TObject);

procedure otvetBeforePost(DataSet: TDataSet);

procedure BitBtn4Click(Sender: TObject);

procedure biletnameGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

procedure biletnameSetText(Sender: TField; const Text: String);

procedure biletAfterPost(DataSet: TDataSet);

procedure voprosnomerGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

procedure voprosnomerSetText(Sender: TField; const Text: String);

procedure voprosAfterPost(DataSet: TDataSet);

procedure voprosAfterInsert(DataSet: TDataSet);

procedure voprosBeforeInsert(DataSet: TDataSet);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure biletAfterEdit(DataSet: TDataSet);

procedure save2Click(Sender: TObject);

procedure save1Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

zagrujena_novaya_kartinka: integer;

vopros_last: integer;

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

if otvet.RecordCount> =5 then

begin

Application.MessageBox('Можливо максимум 5 відповідей! ', 'Увага', 0);

end

else

begin

otvet.Insert;

otvetpravilniy.AsBoolean: =false;

end;

end;

procedure TForm4.otvetAfterInsert(DataSet: TDataSet);

begin

otvetid_voprosa.AsInteger: =

voprosid_voprosa.AsInteger;

save.Enabled: =true;

end;

procedure TForm4.vopros_DataChange(Sender: TObject; Field: TField);

begin

otvet.Close;

otvet.open;

zagrujena_novaya_kartinka: =0;

if voprosimage.AsString< > '' then

BEGIN

 try

image1.Picture.LoadFromFile('C: \Deeplom\image\'+voprosid_voprosa.AsString+'.jpg')

 except

 image1.Picture.LoadFromFile('C: \Deeplom\image\null.jpg');

 end;

END

ELSE

image1.Picture.LoadFromFile('C: \Deeplom\image\null.jpg');

end;

procedure TForm4.saveClick(Sender: TObject);

begin

otvet.post;

end;

 

procedure TForm4.otvetAfterEdit(DataSet: TDataSet);

begin

save.Enabled: =true;

end;

 

procedure TForm4.otvetAfterCancel(DataSet: TDataSet);

begin

save.Enabled: =false;

end;

 

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

if vopros.State in [dsEdit, dsInsert] then

vopros.Post;

 

if zagrujena_novaya_kartinka=1 then

if MessageDlg('Зберегти зображення? ', mtConfirmation, [mbYes, mbNo], 0)=6 then

begin

Image1.Picture.SaveToFile('C: \Deeplom\image\'+voprosid_voprosa.AsString+'.jpg');

if not (vopros.State in [dsInsert, dsEdit]) then

vopros.Edit;

voprosimage.AsString: ='C: \Deeplom\image\'+voprosid_voprosa.AsString+'.jpg';

vopros.Post;

zagrujena_novaya_kartinka: =0;

end;

BitBtn3.Enabled: =false;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

OpenPictureDialog1.Execute;

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

BitBtn3.Enabled: =true;

zagrujena_novaya_kartinka: =1;

end;

 

procedure TForm4.voprosAfterEdit(DataSet: TDataSet);

begin

bitbtn3.Enabled: =true;

save2.Enabled: =true;

end;

 

procedure TForm4.BitBtn5Click(Sender: TObject);

begin

vopros.Insert

end;

 

procedure TForm4.otvetBeforePost(DataSet: TDataSet);

begin

if otvet.RecordCount> 5 then

begin

Application.MessageBox('Можливо максимум 5 відповідей! ', 'Внимание', 0);

otvet.Cancel;

end;

end;

 

procedure TForm4.BitBtn4Click(Sender: TObject);

begin

vopros_.Enabled: =false;

if vopros.State in [dsInsert, dsEdit] then

else vopros.Edit;

voprosimage.AsString: ='';

vopros.Post;

vopros_.Enabled: =true;

DeleteFile('C: \Deeplom\image\'+voprosid_voprosa.AsString+'.jpg');

BitBtn3.Click;

end;

 

procedure TForm4.biletnameGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

begin

Text: ='Билет №'+Sender.AsString;

end;

 

procedure TForm4.biletnameSetText(Sender: TField; const Text: String);

begin

if Pos('Квиток №', Text)> 0 then

begin

try

Sender.AsInteger: =StrToInt(Сміттю(Text, 8, Length(Text)));

except

Application.MessageBox('', '', 0);

end;

end

else

Sender.AsInteger: =StrToInt(Text);

end;

 

procedure TForm4.biletAfterPost(DataSet: TDataSet);

begin

bilet.close; bilet.open; bilet.First;

end;

 

procedure TForm4.voprosnomerGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

begin

Text: ='Вопрос №'+Sender.AsString;

end;

 

procedure TForm4.voprosnomerSetText(Sender: TField; const Text: String);

begin

if Pos('Питання №', Text)> 0 then

begin

try

Sender.AsInteger: =StrToInt(Сміттю(Text, 9, Length(Text)));

except

Application.MessageBox('', '', 0);

end;

end

else

Sender.AsInteger: =StrToInt(Text);

end;

procedure TForm4.voprosAfterPost(DataSet: TDataSet);

begin

vopros.close; vopros.open; vopros.First;

save2.Enabled: =false;

end;

procedure TForm4.voprosAfterInsert(DataSet: TDataSet);

begin

bitbtn3.Enabled: =true;

save2.Enabled: =true;

voprosnomer.AsInteger: =vopros_last;

end;

 

procedure TForm4.voprosBeforeInsert(DataSet: TDataSet);

begin

vopros.Last;

vopros_last: =voprosnomer.AsInteger+1;

if vopros_last> 20 then

 begin

Application.MessageBox(Pchar('Більше не можна! '), '', 0);

 Abort;

 end;

end;

 

procedure TForm4.BitBtn8Click(Sender: TObject);

begin

if MessageDlg('Видалити питання? ', mtConfirmation, [mbYes, mbNo], 0)=6 then

bilet.Delete

end;

 

procedure TForm4.BitBtn7Click(Sender: TObject);

begin

bilet.Insert

end;

 

procedure TForm4.BitBtn6Click(Sender: TObject);

begin

if MessageDlg('Видалити питання? ', mtConfirmation, [mbYes, mbNo], 0)=6 then

vopros.Delete;

end;

 

procedure TForm4.biletAfterEdit(DataSet: TDataSet);

begin

save1.Enabled: =true;

end;

 

procedure TForm4.save2Click(Sender: TObject);

begin

vopros.Post;

end;

 

procedure TForm4.save1Click(Sender: TObject);

begin

bilet.Post

end;

 

procedure TForm4.BitBtn9Click(Sender: TObject);

begin

if MessageDlg('Видалити відповідь? ', mtConfirmation, [mbYes, mbNo], 0)=6 then

otvet.Delete;

end;

end.

 

unit Unit5;

interface

uses

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

Dialogs, Grids, DBGrids, ComCtrls, Unit1, DB, ADODB, StdCtrls, DBCtrls,

Buttons, ComObj, Excel97;

type

TForm5 = class(TForm)

MonthCalendar1: TMonthCalendar;

DBGrid1: TDBGrid;

master: TADOQuery;

master_: TDataSource;

student: TADOQuery;

student_: TDataSource;

masterid_mastera: TAutoIncField;

masterfio_mastera: TWideStringField;

zapis: TADOQuery;

zapis_: TDataSource;

studentfio: TWideStringField;

studentid_uchenika: TAutoIncField;

zapisstudent1: TIntegerField;

zapisstudent2: TIntegerField;

zapisstudent3: TIntegerField;

zapisstudent4: TIntegerField;

zapisstudent5: TIntegerField;

zapisstudent6: TIntegerField;

zapisstudent7: TIntegerField;

zapisstudent8: TIntegerField;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

DBLookupComboBox4: TDBLookupComboBox;

DBLookupComboBox6: TDBLookupComboBox;

DBLookupComboBox7: TDBLookupComboBox;

DBLookupComboBox8: TDBLookupComboBox;

  DBLookupComboBox9: TDBLookupComboBox;

DateTimePicker1: TDateTimePicker;

 Label1: TLabel;

zapisid_dnya: TAutoIncField;

zapisid_mastera: TIntegerField;

zapisdata: TDateTimeField;

save: TBitBtn;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

SpeedButton1: TSpeedButton;

otchet: TADOQuery;

otchetfio_mastera: TWideStringField;

otchetdata: TDateTimeField;

otchetstudent1: TIntegerField;

otchetstudent2: TIntegerField;

otchetstudent3: TIntegerField;

otchetstudent4: TIntegerField;

otchetstudent5: TIntegerField;

otchetstudent6: TIntegerField;

otchetstudent7: TIntegerField;

otchetstudent8: TIntegerField;

otchet_: TDataSource;

DBGrid2: TDBGrid;

student2: TADOQuery;

student2id_uchenika: TAutoIncField;

student2familiya: TWideStringField;

student2imya: TWideStringField;

student2otchestvo: TWideStringField;

student2fio: TWideStringField;

procedure master_DataChange(Sender: TObject; Field: TField);

procedure zapisAfterEdit(DataSet: TDataSet);

procedure zapisAfterDelete(DataSet: TDataSet);

procedure MonthCalendar1Click(Sender: TObject);

procedure saveClick(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

const

mesyac: array[1..12] of string =('січень', 'лютий', 'березень', 'квітень', 'травень',

'червень', 'липень', 'серпень', 'вересень', 'жовтень', 'листопад', 'грудень');

implementation

{$R *.dfm}

procedure TForm5.master_DataChange(Sender: TObject; Field: TField);

begin

zapis.Close;

zapis.Parameters[0].Value: =masterid_mastera.AsInteger;

zapis.Parameters[1].Value: =StrToDate(DateToStr(DateTimePicker1.DateTime));

zapis.Open;

end;

procedure TForm5.zapisAfterEdit(DataSet: TDataSet);

begin

zapisid_mastera.AsInteger: =masterid_mastera.AsInteger;

zapisdata.AsDateTime: =StrToDate(DateToStr(DateTimePicker1.DateTime));

save.Enabled: =true

end;

procedure TForm5.zapisAfterDelete(DataSet: TDataSet);

begin

save.Enabled: =false

end;

procedure TForm5.MonthCalendar1Click(Sender: TObject);

begin

DateTimePicker1.DateTime: =MonthCalendar1.Date;

Master.Close;

Master.Open;

end;

procedure TForm5.saveClick(Sender: TObject);

begin

zapis.post;

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

var XL: Variant; // Excel

   i, j, s, year, month: integer;

   d1, d2: string;

procedure vivod(x: integer; y: integer; s: string);

Begin

XL.Cells[x, y].Value: =s;

end;

begin

Application.ProcessMessages;

   try

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

   except

   raise Exception.Create('Не можу запустити Excel');

   end;

month: =StrToInt(сміттю(DateToStr(DateTimePicker1.DateTime), 4, 2));

year: =StrToInt(сміттю(DateToStr(DateTimePicker1.DateTime), 7, 4));

if month = 12 then

 d2: =('12/31/'+IntToStr(year))

else

 begin

d1: =DateToStr(StrToDate('01.'+IntToStr(StrToInt(сміттю(DateToStr(DateTimePicker1.DateTime), 4, 2))+1)+'.'+IntToStr(year)) -1); //31.12.2011

 d2: =copy(d1, 4, 2)+'/'+copy(d1, 1, 2)+'/'+copy(d1, 7, 4);

 end;

otchet.Close;

otchet.SQL.Clear;

otchet.SQL.Add('SELECT master.fio_mastera, '+

' zapis.data, '+

' zapis.student1, '+

' zapis.student2, '+

' zapis.student3, '+

' zapis.student4, '+

' zapis.student5, '+

' zapis.student6, '+

' zapis.student7, '+

' zapis.student8 '+

' FROM master RIGHT JOIN zapis ON master.id_mastera = zapis.id_mastera '+

' WHERE ((zapis.data> =#'+copy(DateToStr(DateTimePicker1.DateTime), 4, 2)+'/'+'01'+'/'+copy(DateToStr(DateTimePicker1.DateTime), 7, 4)+'#)'+

' And (zapis.data< =#'+d2+'#) and (master.fio_mastera='''+masterfio_mastera.AsString+''')) '+

' order by zapis.data ');

otchet.ExecSQL;

otchet.Open;

if otchet.RecordCount> 0 then

Begin

// Занедбаність даних

XL.Visible: = True;

XL.Workbooks.Add;

XL.Range[XL.Cells[1, 1], XL.Cells[1, 1]].ColumnWidth: =10;

XL.Range[XL.Cells[2, 2], XL.Cells[4, 4]].ColumnWidth: =30;

vivod(1, 1, 'Мастер: '+masterfio_mastera.AsString);

vivod(2, 1, 'График виробничого навчання на '+ mesyac[StrToInt(сміттю(DateToStr(DateTimePicker1.datetime), 4, 2))]);

 

vivod(4, 1, 'с 07-00 до 08-00');

vivod(5, 1, 'с 08-00 до 09-00');

vivod(6, 1, 'с 09-00 до 10-00');

vivod(7, 1, 'с 10-00 до 11-00');

vivod(8, 1, 'с 11-00 до 12-00');

vivod(09, 1, 'с 13-00 до 14-00');

vivod(10, 1, 'с 14-00 до 15-00');

vivod(11, 1, 'с 15-00 до 16-00');

XL.Range[XL.Cells[1, 1], XL.Cells[1, 1]].ColumnWidth: =15;

XL.Range[XL.Cells[1, 2], XL.Cells[1, 32]].ColumnWidth: =30;

j: =2;

while not otchet.Eof do

 begin

 //Друк

vivod(3, j, otchetdata.AsString);

for i: =1 to 8 do

begin

student2.Close;

student2.Parameters[0].Value: =TIntegerField(FindComponent('otchetstudent'+IntToStr(i))).Value;

student2.open;

if student2fio.AsString< > '' then

vivod(3+i, j, student2fio.AsString)

else

vivod(3+i, j, '---');

end;

otchet.Next;

j: =j+1;

 end;

 

XL.Range[XL.Cells[4, 1], XL.Cells[11, j-1]].Borders.Item[xlInsideHorizontal].LineStyle: =$00000001;

XL.Range[XL.Cells[4, 1], XL.Cells[11, j-1]].Borders.Item[xlInsideVertical].LineStyle: =$00000001;

XL.Range[XL.Cells[4, 1], XL.Cells[11, j-1]].Borders.Item[xlEdgeTop].LineStyle: =$00000009;

XL.Range[XL.Cells[4, 1], XL.Cells[11, j-1]].Borders.Item[xlEdgeBottom].LineStyle: =$00000009;

XL.Range[XL.Cells[4, 1], XL.Cells[11, j-1]].Borders.Item[xlEdgeLeft].LineStyle: =$00000009;

XL.Range[XL.Cells[4, j-1], XL.Cells[11, j-1]].Borders.Item[xlEdgeRight].LineStyle: =$00000009;

XL.Range[XL.Cells[4, 1], XL.Cells[11, j-1]].HorizontalAlignment: = xlLeft;

XL.Range[XL.Cells[4, 1], XL.Cells[11, j-1]].VerticalAlignment: = xlTop;

XL.Range[XL.Cells[4, 1], XL.Cells[11, j-1]].WrapText: = True;

End

else

Application.MessageBox('У цього майстра немає занять на цьому тижні! ', '', 0);

end;

end.

⇐ Предыдущая1234567Следующая ⇒

Поделиться: