Приложение а Листинг программы

unit Unit1;

interface

uses

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

Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, Buttons, Mask, DBCtrls,

ExtCtrls, FMTBcd, SqlExpr, ColorGrd, Spin, Gauges, Menus, OleCtnrs;

type

TForm1 = class(TForm)

Table2: TTable;

DataSource2: TDataSource;

BitBtn1: TBitBtn;

DataSource3: TDataSource;

Table3: TTable;

DBGrid3: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn2: TBitBtn;

Edit1: TEdit;

Label4: TLabel;

DBGrid2: TDBGrid;

Button1: TButton;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

BitBtn3: TBitBtn;

Label5: TLabel;

OleContainer1: TOleContainer;

N5: TMenuItem;

N6: TMenuItem;

SaveDialog1: TSaveDialog;

Label6: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

fname:string;

implementation

uses unit2,unit3, Unit4;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

form2.QuickRep1.Preview;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Table2.Locate('HOMEP', Edit1.Text, [loCaseInsensitive, loPartialKey]);

Table2.Locate('Familia', Edit1.Text, [loCaseInsensitive, loPartialKey]);

Table2.Locate('NAME', Edit1.Text, [loCaseInsensitive, loPartialKey]);

Table2.Locate('Fakyltet', Edit1.Text, [loCaseInsensitive, loPartialKey]);

Table2.Locate('Grunna', Edit1.Text, [loCaseInsensitive, loPartialKey]);

Table2.Locate('KYPATOP', Edit1.Text, [loCaseInsensitive, loPartialKey]);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.QuickRep1.Preview;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if Combobox1.text = 'сведенья' then

form3.QuickRep1.Preview;

if Combobox1.text = 'выговор' then

form2.QuickRep1.Preview;

if Combobox1.text = 'форма' then

form4.Show;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

i:integer;

begin

for i:=0 to Table2.RecordCount-1 do

begin

Combobox2.Items.Add( Table2.FieldByName('Fakyltet').AsString);

Table2.Next;

Table2.Filtered :=true;

end;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Table2.Filtered :=false;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

Table2.filter:='Fakyltet='''+Combobox2.text+'''';

Table2.Filtered :=true;

end;

unit Unit2;

interface

uses

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

Dialogs, ExtCtrls, QuickRpt, QRCtrls, Grids, Calendar;

type

TForm2 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRLabel1: TQRLabel;

QRBand3: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRSubDetail1: TQRSubDetail;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRSysData1: TQRSysData;

QRSysData2: TQRSysData;

QRBand2: TQRBand;

QRSysData3: TQRSysData;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRDBText7: TQRDBText;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRDBText8: TQRDBText;

QRLabel7: TQRLabel;

QRDBText9: TQRDBText;

QRDBText10: TQRDBText;

QRLabel8: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

end.

unit Unit3;

interface

uses

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

Dialogs, ExtCtrls, QuickRpt, QRCtrls, Grids, Calendar;

type

TForm3 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRLabel1: TQRLabel;

QRBand3: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRSubDetail1: TQRSubDetail;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRSysData1: TQRSysData;

QRSysData2: TQRSysData;

QRBand2: TQRBand;

QRSysData3: TQRSysData;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRDBText7: TQRDBText;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRDBText8: TQRDBText;

QRLabel7: TQRLabel;

QRDBText9: TQRDBText;

QRDBText10: TQRDBText;

QRLabel8: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

procedure TForm1.N5Click(Sender: TObject);

begin

if OLEContainer1.InsertObjectDialog then fname := '';

end;

procedure TForm1.N6Click(Sender: TObject);

begin

if (fname = ' ') then

if SaveDialog1.Execute then

fname := SaveDialog1.FileName

else exit;

OLEContainer1.SaveToFile(Copy(fname,0,Pos('.',fname)) + 'Тест.docx');

end;

end.