Малюнок 9
5.8 Лістинг програми (програмний код)
unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids,, OleServer, ExcelXP, ComObj, Menus; =class (TForm): TDBGrid;: TDBNavigator;: TDataSource;: TTable; Code: TAutoIncField; Fam: TStringField; Imia: TStringField; Otch: TStringField; Predmet: TStringField; Klass: TStringField;: TLabel;: TBitBtn;: TBitBtn; : TBitBtn;: TBitBtn;: TEdit;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TButton; BitBtn1Click (Sender: TObject); BitBtn3Click (Sender: TObject); BitBtn2Click (Sender: TObject); N2Click ( Sender: TObject); N3Click (Sender: TObject); BitBtn5Click (Sender: TObject); FormActivate (Sender: TObject); N4Click (Sender: TObject); Button1Click (Sender: TObject); BitBtn6Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm2; Unit3, Unit4, Unit1;
{$ R *. dfm} TForm2.BitBtn1Click (Sender: TObject);.Filter:=«Fam=»+QuoTedStr(edit1.Text+«*»);.Filtered:=True;;TForm2.BitBtn3Click(Sender: TObject);. Filtered:=False;; TForm2.BitBtn2Click (Sender: TObject);. Text:=«»;; TForm2.N2Click (Sender: TObject);. IndexFieldNames:=«Fam»;; TForm2. N3Click (Sender: TObject);. IndexFieldNames:=«Predmet»;; TForm2.BitBtn5Click (Sender: TObject);. Show;; TForm2.FormActivate (Sender: TObject); Session do:=cmSession;(«Shkola»,ExtractFilePath(ParamStr(0))+«Data«,»PARADOX«);.Table1.Active:=True;:=cmAll;;;;TForm2.N4Click(Sender: TObject);. IndexFieldNames:=»Klass«;; TForm2.Button1Click (Sender: TObject);,Sheet,Colum:variant;,i,j:integer;:=CreateOleObject(»Excel.Application«);.Visible:=true;.Workbooks.Add(- 4167);.Workbooks[1].WorkSheets[1].Name:=»Отчёт«;:=XLApp.Workbooks[1].WorkSheets[»Отчёт«].Columns;.Columns[1].ColumnWidth:=20;.Columns[2].ColumnWidth:=20;.Columns[3].ColumnWidth:=20;.Columns[4].ColumnWidth:=20;.Columns[5].ColumnWidth:=20;:=XLApp.Workbooks[1].WorkSheets[»Отчёт«].Rows;.Rows[2].Font.Bold:=true;.Rows[1].Font.Bold:=true;.Rows[1].Font.Color:=clBlue;.Rows[1].Font.Size:=14;:=XLApp.Workbooks[1].WorkSheets[»Отчёт»];
Sheet.Cells [1,2]:=«Список співробітників ГУ Основний школи с.Подгорное»;.Cells[2,1]:=«Фамилия»;.Cells[2,2]:=«Имя»;.Cells[2,3]:=«Отчество»;.Cells[2,4]:=«Предмет»;
Sheet.Cells [2,5]:=«Клас»;:=3;. Table1.First; i:=1 to Table1.RecordCount doj:=1 to DBGrid1.Columns.Count do.Cells [Index, j]:=DBGrid1.Fields [j - 1]. AsString; (Index);. Next;;; TForm2.BitBtn6Click (Sender: TObject);. Close;;. Unit3;, Messages, SysUtils , Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, DB, ExtCtrls, DBCtrls, Grids, DBGrids,, OleServer, ExcelXP, ComObj, Menus;=class (TForm): TDataSource;: TTable;: TDBGrid;: TDBNavigator;: TLabel;: TDBGrid;: TDBNavigator;: TLabel;: TBitBtn; Code: TAutoIncField; Fam: TStringField; Imia: TStringField; Otch: TStringField; Datarogd: TStringField; Klass: TStringField; Adress: TStringField;: TDataSource;: TTable ; Code: TAutoIncField; Code2: TIntegerField; Predmet: TStringField;...
