Interface

uses

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

StdCtrls, Grids, DBGrids, ComCtrls, Menus, Buttons,Registry,printers;

type

TfmMain = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

DBGrid1: TDBGrid;

Label1: TLabel;

edFind: TEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

mnTemi: TMenuItem;

N4: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

DBGrid2: TDBGrid;

Label2: TLabel;

edFind2: TEdit;

btnExit: TBitBtn;

tbnFirmaAbout: TBitBtn;

btnRabotiAbout: TBitBtn;

btnBeginWork: TBitBtn;

N13: TMenuItem;

N14: TMenuItem;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

N15: TMenuItem;

Excel1: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

N24: TMenuItem;

Label3: TLabel;

Label4: TLabel;

N27: TMenuItem;

N30: TMenuItem;

N31: TMenuItem;

N32: TMenuItem;

N33: TMenuItem;

N34: TMenuItem;

PrintDialog1: TPrintDialog;

N35: TMenuItem;

edtHeaderFont1: TEdit;

FontDialog1: TFontDialog;

N36: TMenuItem;

procedure mnTemiClick(Sender: TObject);

procedure edFindChange(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure edFind2Change(Sender: TObject);

procedure tbnFirmaAboutClick(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure btnRabotiAboutClick(Sender: TObject);

procedure btnBeginWorkClick(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

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

procedure N6Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure Excel1Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure btnExitClick(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure N27Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure N33Click(Sender: TObject);

procedure N34Click(Sender: TObject);

procedure N35Click(Sender: TObject);

procedure N36Click(Sender: TObject);

procedure N11Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

{ Keeps track of vertical space in pixels, printed on a page }

AmountPrinted: integer;

{ Private declarations }

PixelsInInchx: integer;

LineHeight: Integer;

{ Number of pixels in 1/10 of an inch. This is used for line spacing }

TenthsOfInchPixelsY: integer;

NeedPass:integer;

ShablonDirectory:string[250]; //Директория с шаблонами

ServerName:string[100]; //Почтовый сервер

RegistrationName:string[100]; //Имя регистрации на почтовом сервере

adresfrom:string; //Email адрес Эксперта

LastClientBase:string[50]; //Последняя открытая база клиентов

LastPClientBase:string[50]; //последняя открытая база постоянных клиентов

param1:string[15];

param2:string[15];

//Процедура печати строк таблицы

procedure PrintLine(Items: TStringList);

//Печать заголовка таблицы

procedure PrintHeader(head:string);

//Печать заголовков столбцов таблицы

procedure PrintColumnNames;

end;

var

fmMain: TfmMain;