Приложение п Листинг файла AboutBox

unit Unit12;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

AboutBox.Close;

end;

end.

Приложение р Листинг файла Form_Opisanie_po

unit Unit14;

interface

uses

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

Dialogs, StdCtrls;

type

TForm_Opisanie_PO = class(TForm)

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_Opisanie_PO: TForm_Opisanie_PO;

implementation

{$R *.dfm}

procedure TForm_Opisanie_PO.Button1Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('zona.txt');

end;

end.

Приложение с Листинг файла Form_Otchet

unit Unit13;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ADODB, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ComObj, StdCtrls, Mask;

type

TForm13 = class(TForm)

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

Button1: TButton;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

DataSource2: TDataSource;

Button2: TButton;

ADOQuery2: TADOQuery;

DataSource3: TDataSource;

DBLookupComboBox1: TDBLookupComboBox;

ADOQuery3: TADOQuery;

DBLookupComboBox2: TDBLookupComboBox;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure DBLookupComboBox1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

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

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);

begin

adoquery2.sql.clear;

adoquery2.sql.add('SELECT Группы.Группы, Группы.Курс, [Электронный журнал].Фамилия, [Электронный журнал].Имя, Предметы.Предмет, [Электронный журнал].Оценка FROM [Группы] INNER JOIN [Электронный журнал] ON Группы.[Код группы] = [Электронный журнал].[Код группы]'+' INNER JOIN [Предметы] ON [Электронный журнал].[Код предмета] = Предметы.[Код предмета]'+' where Группы.Группы='+QuotedStr(DBLookupComboBox1.text)+'AND КУРС = ' + DBLookupComboBox2.text);

adoquery2.active:=true;

end;

procedure TForm13.Button2Click(Sender: TObject);

Var

ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;

BeginCol, BeginRow, j: integer;

RowCount, ColCount: Integer;

AppLocation:string;

begin

BeginCol := 1;

BeginRow := 4;

RowCount := ADOQuery2.RecordCount;

ColCount := ADOQuery2.FieldDefs.Count;

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

ExcelApp.DisplayAlerts := false;

ExcelApp.Application.EnableEvents := false;

Workbook := ExcelApp.WorkBooks.Add(GetCurrentDir() + '\Книга1.xlsx');

ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

ADOQuery1.DisableControls;

ADOQuery1.First;

While Not ADOQuery2.eof Do

Begin

For J := 1 To ADOQuery2.FieldDefs.Count Do

Begin

ArrayData[ADOQuery2.RecNo, J] :=

ADOQuery2.FieldbyName(ADOQuery2.FieldDefs.Items[j - 1].DisplayName).value;

End;

ADOQuery2.Next;

End;

ADOQuery2.EnableControls;

Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1,

BeginCol + ColCount - 1];

Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];

Range.Value := ArrayData;

ExcelApp.Visible := True;

end;

procedure TForm13.DBLookupComboBox1Click(Sender: TObject);

begin

adoquery3.sql.clear;

adoquery3.sql.add('SELECT DISTINCT Курс FROM Группы Where Группы='+QuotedStr(DBLookupComboBox1.text));

adoquery3.active:=true;

end;

procedure TForm13.FormActivate(Sender: TObject);

begin

adoquery1.sql.clear;

adoquery1.sql.add('SELECT Группы FROM Группы Group by Группы');

adoquery1.active:=true;

end;

procedure TForm13.Button3Click(Sender: TObject);

begin

Form13.Close;

end; end.