Разработка программного приложения "Автоматизация учёта клиентов отдела вневедомственной охраны"

WordApp.Selection.Font.Size:=14;

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.TypeText('Начальнику ОВО при' +#13 +#10+'ОВД по Боровскому району'+#13 +#10+ 'подполковнику милиции' + #13 +#10+' Лузгачеву С.И.' +#13 +#10);

//WordApp.Selection.TypeText('от ' +DBEdit15.Text +#13 +#10+#13 +#10);

WordApp.Selection.TypeText('' +#13 +#10+#13 +#10+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=1;

WordApp.Selection.Font.Size:=14;

WordApp.Selection.TypeText('Заявление'+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Size:=15;

WordApp.Selection.Font.Bold:=false;

WordApp.Selection.TypeText(' Прошу Вас расторгнуть договор "об экстренном выезде наряда милиции вневедомственной охраны при срабатывании тревожной сигнализации и на техническое обслуживание технических средств охраны" на объекте ' +Edit2.Text ) ;

WordApp.Selection.TypeText(' расположенный по адресу: ' + Edit3.Text);

WordApp.Selection.TypeText(' с ' +DateToStr(DateTimePicker2.Date) +#10+#13 +#10);

//WordApp.Selection.TypeText('Оплату гарантирую.'+#13 +#10+#13 +#10+#13 +#10+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.TypeText(''+#13 +#10);

WordApp.Selection.TypeText('_______________ _____________'+#13 +#10);

WordApp.Selection.TypeText('подпись ФИО '+#13 +#10+#13 +#10)

end;

procedure Tzayav.N11Click(Sender: TObject);

var

WordApp,Doc:variant;

//Vrem :Word;

begin

try

wordapp:= CreateOleObject('Word.Application');

except

Showmessage('Word не установлен!');

exit;

end;

Wordapp.Visible:=true;

Doc:=Wordapp.Documents.Add;

//WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.Font.Size:=13;

//WordApp.Selection.Font.Bold:=true;

WordApp.Selection.TypeText('Директору ФГУП "Охрана"' +#13 +#10+'МВД РФ по Калужской области'+#13 +#10+ ' Шихирину Г.В.' + #13 +#10);

WordApp.Selection.TypeText('от ' +Edit1.Text +#13 +#10+#13 +#10);

WordApp.Selection.TypeText('' +#13 +#10+#13 +#10+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=1;

WordApp.Selection.Font.Size:=13;

WordApp.Selection.TypeText('Заявление'+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Size:=13;

WordApp.Selection.Font.Bold:=false;

WordApp.Selection.TypeText(' Прошу Вас временно приостановить действие договора № ' +Edit4.Text ) ;

WordApp.Selection.TypeText(' от ' +DateToStr(DateTimePicker1.Date) + 'года от 01 января 2008 года "на охрану квартир и помещений с личным имуществом граждан и на техническое обслуживание технических средств охраны" с ______ года. ');

//WordApp.Selection.TypeText(' с _____________ года в связи с отсутствием необходимости ' +#10+#13 +#10);

//WordApp.Selection.TypeText('Оплату гарантирую.'+#13 +#10+#13 +#10+#13 +#10+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.TypeText(''+#13 +#10);

WordApp.Selection.TypeText(' _____________'+#13 +#10);

WordApp.Selection.TypeText(' ФИО '+#13 +#10+#13 +#10);

end;

procedure Tzayav.N13Click(Sender: TObject);

var

WordApp,Doc:variant;

//Vrem :Word;

begin

try

wordapp:= CreateOleObject('Word.Application');

except

Showmessage('Word не установлен!');

exit;

end;

Wordapp.Visible:=true;

Doc:=Wordapp.Documents.Add;

//WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.Font.Size:=13;

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.TypeText('Начальнику ОВО при' +#13 +#10+'ОВД по Боровскому району'+#13 +#10+ 'подполковнику милиции' + #13 +#10+' Лузгачеву С.И.' +#13 +#10);

//WordApp.Selection.TypeText('от ' +DBEdit15.Text +#13 +#10+#13 +#10);

WordApp.Selection.TypeText('' +#13 +#10+#13 +#10+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=1;

WordApp.Selection.Font.Size:=13;

WordApp.Selection.TypeText('Заявление'+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Size:=13;

WordApp.Selection.Font.Bold:=false;

WordApp.Selection.TypeText(' Прошу Вас временно приостановить действие договора № ' +Edit4.Text ) ;

WordApp.Selection.TypeText(' от ' +DateToStr(DateTimePicker1.Date) + 'года "об экстренном выезде наряда милиции вневедомственной охраны при срабатывании тревожной сигнализации и на техническое обслужив директора технических средств охраны" ');

WordApp.Selection.TypeText(' с _____________ года по ____________ в связи ' +#10+#13 +#10);

//WordApp.Selection.TypeText('Оплату гарантирую.'+#13 +#10+#13 +#10+#13 +#10+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.TypeText(''+#13 +#10);

WordApp.Selection.TypeText(' _____________'+#13 +#10);

WordApp.Selection.TypeText(' ФИО '+#13 +#10+#13 +#10)

end;

procedure Tzayav.N14Click(Sender: TObject);

var

WordApp,Doc:variant;

//Vrem :Word;

begin

try

wordapp:= CreateOleObject('Word.Application');

except

Showmessage('Word не установлен!');

exit;

end;

Wordapp.Visible:=true;

Doc:=Wordapp.Documents.Add;

//WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.Font.Size:=13;

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.TypeText('Начальнику ОВО при' +#13 +#10+'ОВД по Боровскому району'+#13 +#10+ 'подполковнику милиции' + #13 +#10+' Лузгачеву С.И.' +#13 +#10);

//WordApp.Selection.TypeText('от ' +DBEdit15.Text +#13 +#10+#13 +#10);

WordApp.Selection.TypeText('' +#13 +#10+#13 +#10+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=1;

WordApp.Selection.Font.Size:=13;

WordApp.Selection.TypeText('Заявление'+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Size:=13;

WordApp.Selection.Font.Bold:=false;

WordApp.Selection.TypeText(' Прошу Вас временно приостановить действие договора № ' +Edit4.Text ) ;

WordApp.Selection.TypeText(' от ' +DateToStr(DateTimePicker1.Date) + 'года "об экстренном выезде наряда милиции вневедомственной охраны при срабатывании тревожной сигнализации и на техническое обслужив директора технических средств охраны" ');

WordApp.Selection.TypeText(' с _____________ года в связи с отсутствием необходимости ' +#10+#13 +#10);

//WordApp.Selection.TypeText('Оплату гарантирую.'+#13 +#10+#13 +#10+#13 +#10+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.TypeText(''+#13 +#10);

WordApp.Selection.TypeText(' _____________'+#13 +#10);

WordApp.Selection.TypeText(' ФИО '+#13 +#10+#13 +#10)

end;

procedure Tzayav.N12Click(Sender: TObject);

var

WordApp,Doc:variant;

//Vrem :Word;

begin

try

wordapp:= CreateOleObject('Word.Application');

except

Showmessage('Word не установлен!');

exit;

end;

Wordapp.Visible:=true;

Doc:=Wordapp.Documents.Add;

//WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.Font.Size:=14;

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.TypeText('Начальнику ОВО при' +#13 +#10+'ОВД по Боровскому району'+#13 +#10+ 'подполковнику милиции' + #13 +#10+' Лузгачеву С.И.' +#13 +#10);

//WordApp.Selection.TypeText('от ' +DBEdit15.Text +#13 +#10+#13 +#10);

WordApp.Selection.TypeText('' +#13 +#10+#13 +#10+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=1;

WordApp.Selection.Font.Size:=14;

WordApp.Selection.TypeText('Заявление'+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Size:=13;

WordApp.Selection.Font.Bold:=false;

WordApp.Selection.TypeText(' Прошу Вас возобновить действие договора № ' +Edit4.Text ) ;

WordApp.Selection.TypeText(' от ' +DateToStr(DateTimePicker1.Date) + ' года "на охрану объектов, подключенных на пульт централизованного наблюдения и на техническое обслуживание технических средств охраны" ');

WordApp.Selection.TypeText(' с ___________ ' +#10+#13 +#10);

//WordApp.Selection.TypeText('Оплату гарантирую.'+#13 +#10+#13 +#10+#13 +#10+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.TypeText(''+#13 +#10);

WordApp.Selection.TypeText(' _____________'+#13 +#10);

WordApp.Selection.TypeText(' ФИО '+#13 +#10+#13 +#10)

end;

procedure Tzayav.Button3Click(Sender: TObject);

begin

//Edit1.Text:= DateToStr(DateTimePicker1.Date) ;

ADOTable1.FieldByName('Дата_заявки').AsDateTime:=DateTimePicker2.Date;

//ADOTable1.FieldByName('Дата_начала_охраны').AsDateTime:=DateTimePicker1.Date;

end;

Form Dogowor

interface

uses

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

Dialogs, StdCtrls, Buttons, Mask, DBCtrls, DB, ADODB, ExtCtrls, Grids,

ExcelXP, WordXP, OleServer, RpDefine, RpRave, ComCtrls, XPMan, Menus,

AccessXP, DBGrids;

type

TDogowor = class(TForm)

Button1: TButton;

Button2: TButton;

XPManifest1: TXPManifest;

Button3: TButton;

Button4: TButton;

MainMenu1: TMainMenu;

N11: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

BitBtn2: TBitBtn;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Label20: TLabel;

Label21: TLabel;

DBEdit8: TDBEdit;

DBEdit7: TDBEdit;

DBNavigator2: TDBNavigator;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

Label24: TLabel;

Label23: TLabel;

Label2: TLabel;

Label4: TLabel;

Label16: TLabel;

Label17: TLabel;

DBEdit2: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

Label19: TLabel;

DBEdit18: TDBEdit;

Label3: TLabel;

Label5: TLabel;

Label7: TLabel;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit6: TDBEdit;

Label25: TLabel;

DBEdit24: TDBEdit;

Label22: TLabel;

DBEdit21: TDBEdit;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

TabSheet3: TTabSheet;

Label1: TLabel;

DBEdit1: TDBEdit;

DBComboBox1: TDBComboBox;

Label12: TLabel;

DBEdit12: TDBEdit;

DateTimePicker2: TDateTimePicker;

DateTimePicker3: TDateTimePicker;

Label14: TLabel;

Label15: TLabel;

DateTimePicker1: TDateTimePicker;

DBComboBox4: TDBComboBox;

Label8: TLabel;

DataSource1: TDataSource;

DBNavigator3: TDBNavigator;

Button6: TButton;

DataSource3: TDataSource;

ADOTable3: TADOTable;

DBNavigator1: TDBNavigator;

ADOTable3_: TAutoIncField;

ADOTable3_2: TWideStringField;

ADOTable3_3: TWideStringField;

ADOTable3_4: TBCDField;

ADOTable3_5: TDateTimeField;

ADOTable3__: TDateTimeField;

ADOTable3_6: TDateTimeField;

ADOTable3DSDesigner: TWideStringField;

DBText1: TDBText;

ADOTable1: TADOTable;

Label6: TLabel;

DBEdit5: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

Label9: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure DBEdit15Change(Sender: TObject);

procedure DBEdit1Change(Sender: TObject);

procedure PageControl1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Dogowor: TDogowor;

implementation

uses ComObj, Unit2, Unit3, Unit4, Bxod, Unit6, Unit7, zayavlenie, Unit8;

{$R *.dfm}

procedure TDogowor.BitBtn1Click(Sender: TObject);

begin

Close;

end;

procedure TDogowor.Button1Click(Sender: TObject);

var

WordApp,Doc:variant;

//Vrem :Word;

//i:Integer;

begin

try

wordapp:= CreateOleObject('Word.Application');

except

Showmessage('Word не установлен!');

exit;

end;

Wordapp.Visible:=false;

Doc:=Wordapp.Documents.Add;

MiProgressBar.show;

MiProgressBar.Button1.Click;

//WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=1;

WordApp.Selection.Font.Size:=11;

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.TypeText('Договор № ' + DBEdit1.Text +#13 +#10);

WordApp.Selection.TypeText('на охрану объектов, подключенных на пульт централизованного наблюдения' +#13 +#10);

WordApp.Selection.TypeText('и на техническое обслуживание технических средств охраны' +#13 +#10);

WordApp.Selection.Font.Size:=11;

WordApp.Selection.Paragraphs.Alignment:=3;

WordApp.Selection.Font.Bold:=False;

WordApp.Selection.TypeText (' ___________________ ' + DBEdit12.Text +#13 +#10);

WordApp.Selection.Font.Size:=7;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Bold:=False;

WordApp.Selection.TypeText(' (населенный пункт)'+#13 +#10);

WordApp.Selection.Font.Size:=11;

WordApp.Selection.Paragraphs.Alignment:=3;

WordApp.Selection.Font.Bold:=False;

WordApp.Selection.TypeText(' Отдел вневедомственной охраны при отделе внутренних дел Боровского района, по адресу г. Боровск ул. Ленина, д. 10, телефон 4-41-61, в лице начальника ОВО при ОВД Боровского района подполковника милиции С.И. Лузгачев ') ;

WordApp.Selection.TypeText('действующего на основании Положения, именуемый(ое) в дальнейшем "Охрана", с одной стороны, Федеральное государственное унитарное предприятие "Охрана" МВД России в лице директора Филиала Федерального государственного ');

WordApp.Selection.TypeText ('унитарного предприятия "Охрана" МВД России по Калужской области ' + DBEdit15.Text ) ;

WordApp.Selection.TypeText(' действующего на основании Устава, Положения о филиале и генеральной доверенности № '+ DBEdit17.Text) ;

WordApp.Selection.TypeText ('именуемое в дальнейшем "ФГУП", со второй стороны и ' + DBEdit2.Text + DBEdit15.Text);

// WordApp.Selection.TypeText('????????????????');

WordApp.Selection.TypeText(' именуемый(ое) в дальнейшем "Клиент", с третьей стороны, в дальнейшем вместе именуемые "Стороны", заключили настоящий договор о нижеследующем:'+#13 +#10 +#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=1;

WordApp.Selection.Font.Size:=11;

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.TypeText(' 1. Предмет договора'+#13 +#10);

WordApp.Selection.Font.Size:=11;

WordApp.Selection.Paragraphs.Alignment:=3;

WordApp.Selection.Font.Bold:=false;

WordApp.Selection.TypeText(' 1.1. "Охрана" оказывает услуги по централизованной охране путем приема на пульт централизованного наблюдения (далее - ПЦН) и реагирования посредством групп задержания (далее - ГЗ) на тревожные сообщения, поступающие с объектов ');

WordApp.Selection.TypeText ('"Клиента" (далее - Объект), в дни и часы, указанные в Перечне охраняемых объектов (далее - Перечень), являющемся неотъемлемой частью настоящего договора (Приложение № 1) в соответствии с Инструкцией о порядке пользования' ) ;

WordApp.Selection.TypeText (' средствами "Комплекса ТСО" (далее - Инструкция), являющейся неотъемлемой частью настоящего договора (Приложение № 2)'+#13 +#10 );

WordApp.Selection.TypeText (' 1.2. "ФГУП " принимает на себя обязательства выполнять плановое (регламентное) техническое обслуживание, неплановое техническое обслуживание и устранять неисправности совместно действующих технических средств охранной ');

WordApp.Selection.TypeText (' сигнализации, установленных на "Объекте" и объединенных системой инженерных сетей и коммуникаций (далее - Комплекс ТСО).'+#13 +#10);

WordApp.Selection.Paragraphs.Alignment:=1;

WordApp.Selection.Font.Size:=11;

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.TypeText('2. Общие положения'+#13 +#10);

WordApp.Selection.Font.Size:=11;

WordApp.Selection.Paragraphs.Alignment:=3;

WordApp.Selection.Font.Bold:=false;

/////////////////////////////// Таблица

WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Size:=10;

WordApp.Selection.Font.Color:=ClBlack;

//WordApp.Selection.Paragraphs.FirstlineIndent:=2;

Wordapp.ActiveDocument.Tables.Add(range:=WordApp.Selection.Range,NumRows:=1, NumColumns:=1, DefaultTablebehavior:=1, AutoFitBehavior:=0 ); ///строки , столбцы.

/////////// Заполняю шапку таблицы

WordApp.Selection.Font.Bold:=False;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.typetext('УФХ по калужской области (405038103703 при ОВД по Боровскому району л/ся 03371751790) ' );

//WordApp.Selection.moveright(12,1);

WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Size:=10;

WordApp.Selection.Font.Italic:=False;

WordApp.Selection.Font.Color:=ClBlack;

//WordApp.Selection.Paragraphs.FirstlineIndent:=2;

Wordapp.ActiveDocument.Tables.Add(range:=WordApp.Selection.Range,NumRows:=2, NumColumns:=3, DefaultTablebehavior:=1, AutoFitBehavior:=0 ); ///строки , столбцы.

WordApp.Selection.typetext('Юридический адрес:');

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('ИНН' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.typetext('400300341' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.Font.Bold:=false;

WordApp.Selection.typetext('Калужская обл., Боровский р-н., Ленина- 10 ' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('БИК' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.typetext('32452345' );

WordApp.Selection.Font.Bold:=False;

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext(' Почтовый адрес: ' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('РС' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('4050381000001000244' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('Боровский р-н., Ленина- 10 ' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('Кс' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('' );

WordApp.Selection.move(5,1);

WordApp.Selection.move(1,1);

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Size:=10;

WordApp.Selection.Font.Italic:=False;

WordApp.Selection.Font.Color:=ClBlack;

WordApp.Selection.Font.Bold:=False;

Wordapp.ActiveDocument.Tables.Add(range:=WordApp.Selection.Range,NumRows:=1, NumColumns:=2, DefaultTablebehavior:=1, AutoFitBehavior:=0 ); ///строки , столбцы.

WordApp.Selection.typetext(' ' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('Наименование банка: ГРКЦ ГУ Банк России по калужской области г. Калуга' );

WordApp.Selection.move(5,1);

WordApp.Selection.move(1,1);

WordApp.Selection.Font.Bold:=true;

//WordApp.Selection.Font.Color:=ClRed;

//WordApp.Selection.TypeText('Подпись заказчика______________ Подпись поставщика______________ ' +#13 +#10 );

//WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=0;

// WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Size:=10;

WordApp.Selection.Font.Italic:=False;

WordApp.Selection.Font.Color:=ClBlack;

WordApp.Selection.Font.Bold:=False;

//WordApp.Selection.Paragraphs.FirstlineIndent:=2;

Wordapp.ActiveDocument.Tables.Add(range:=WordApp.Selection.Range,NumRows:=1, NumColumns:=7, DefaultTablebehavior:=1, AutoFitBehavior:=0 ); ///строки , столбцы.

WordApp.Selection.typetext(' Телефон' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('4-40-40' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('Факс');

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext(' 6-58-98' );

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('Начальник ОВО' );

WordApp.Selection.moveright(12,1);

WordApp.Selection.typetext(' ');

WordApp.Selection.moveright(12,1) ;

WordApp.Selection.typetext('Лузгачев С.И. ');

/////////

WordApp.Selection.move(5,1);

WordApp.Selection.move(1,1);

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.move(5,1);

WordApp.Selection.move(1,1);

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.TypeText(' '+#13 +#10 +#13 +#10+#13 +#10+#13 +#10+#13 +#10+#13);

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.TypeText('ФГУП "Охрана"');

WordApp.Selection.Font.Size:=11;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Bold:=false;

/////////////////////////////// Таблица

WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=0;

WordApp.Selection.Font.Size:=10;

WordApp.Selection.Font.Color:=ClBlack;

//WordApp.Selection.Paragraphs.FirstlineIndent:=2;

Wordapp.ActiveDocument.Tables.Add(range:=WordApp.Selection.Range,NumRows:=1, NumColumns:=1, DefaultTablebehavior:=1, AutoFitBehavior:=0 ); ///строки , столбцы.

Form Obect

unit Unit5;

interface

uses

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

Dialogs, ComCtrls, XPMan, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB,

Buttons, StdCtrls, Mask, Menus, Spin;

type

TObect = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBComboBox1: TDBComboBox;

DBComboBox2: TDBComboBox;

DBComboBox3: TDBComboBox;

Label5: TLabel;

Label6: TLabel;

SpeedButton1: TSpeedButton;

Edit1: TEdit;

Label8: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

DBComboBox5: TDBComboBox;

Button1: TButton;

N3: TMenuItem;

DataSource1: TDataSource;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

Label7: TLabel;

Edit2: TEdit;

DBText1: TDBText;

DBEdit2: TDBEdit;

ADOTable1: TADOTable;

SpeedButton2: TSpeedButton;

ADOTable1_: TAutoIncField;

ADOTable1_2: TWideStringField;

ADOTable1DSDesigner: TWideStringField;

ADOTable1_3: TWideStringField;

ADOTable1DSDesigner1: TWideStringField;

ADOTable1DSDesigner2: TWideStringField;

ADOTable1DSDesigner3: TWideStringField;

procedure Edit1Change(Sender: TObject);

procedure DBComboBox4Change(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

// procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Obect: TObect;

implementation

uses ComObj, Unit1, zayavlenie;

{$R *.dfm}

procedure TObect.Edit1Change(Sender: TObject);

begin

{If Length(Edit1.Text)>0 then

ADOTable1.Filtered:=true

else ADOTable1.Filtered:=false;

ADOTable1.Filter:='Организация>'''+Edit1.Text+'"'''; }

end;

procedure TObect.DBComboBox4Change(Sender: TObject);

begin

{If Length(Edit1.Text)>0 then

ADOTable1.Filtered:=true

else ADOTable1.Filtered:=false;

ADOTable1.Filter:='Перезаключение>'''+DBComboBox4.Text+'"'''; }

end;

procedure TObect.N2Click(Sender: TObject);

var app,book,sheet:Variant;

i:integer;

CurDir:string;

begin

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

book:=app.WorkBooks.Add;

app.Visible := True;

book.Worksheets[3].Delete;

book.Worksheets[2].Delete;

book.Worksheets[1].Name:='Охраняемые объекты';

sheet:=book.Worksheets[1];

Obect.ADOTable1.First;

sheet.Range['B1']:='Отчёт по объектам';

sheet.Range['B2']:='Класс объекта';

sheet.Range['C2']:='Объект';

sheet.Range['d2']:='Адресс';

sheet.Range['e2']:='Перезаключение';

sheet.Range['A1:E1'].Select;

sheet.Range['b2:F2'].Borders[7].LineStyle:=1;

sheet.Range['B2:F2'].Borders[7].Weight:=-4138;

sheet.Range['B2:F2'].Borders[7].ColorIndex:=-4105;

sheet.Range['B2:F2'].Borders[8].LineStyle:=1;

sheet.Range['B2:F2'].Borders[8].Weight:=-4138;

sheet.Range['B2:F2'].Borders[8].ColorIndex:=-4105;

sheet.Range['B2:F2'].Borders[9].LineStyle:=1;

sheet.Range['B2:F2'].Borders[9].Weight:=-4138;

sheet.Range['B2:F2'].Borders[9].ColorIndex:=-4105;

sheet.Range['B2:F2'].Borders[10].LineStyle:=1;

sheet.Range['B2:F2'].Borders[10].Weight:=-4138;

sheet.Range['B2:F2'].Borders[10].ColorIndex:=-4105;

Sheet.Columns['B:B'].columnWidth:=20;

Sheet.Columns['C:C'].columnWidth:=10;

Sheet.Columns['D:D'].columnWidth:=40;

Sheet.Columns['E:E'].columnWidth:=40;

//Sheet.Columns['F:F'].columnWidth:=15;

for i:=2 to Obect.ADOTable1.RecordCount do

begin

sheet.Cells[i+1,2].Borders[7].LineStyle:=1;

sheet.Cells[i+1,2].Borders[7].Weight:=-4138;

sheet.Cells[i+1,2].Borders[7].ColorIndex:=-4105;

sheet.Cells[i+1,6].Borders[10].LineStyle:=1;

sheet.Cells[i+1,6].Borders[10].Weight:=-4138;

sheet.Cells[i+1,6].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+1,2]:= Obect.ADOTable1.FieldByName('Класс_Объекта').AsString;

sheet.Cells[i+1,3]:= Obect.ADOTable1.FieldByName('Объект').AsString;

sheet.Cells[i+1,4]:= Obect.ADOTable1.FieldByName('Адресс_Объекта').AsString;

// sheet.Cells[i+1,5]:= Obect.ADOTable1.FieldByName('Перезаключение').AsString;

//sheet.Cells[i+1,6]:=MainForm.WaresADOTable.FieldByName('Цена').AsCurrency;

Obect.ADOTable1.Next;

end;

for i:=2 to 6 do

begin

sheet.Cells[ Obect.ADOTable1.RecordCount+1,i].Borders[9].LineStyle:=1;

sheet.Cells[ Obect.ADOTable1.RecordCount+1,i].Borders[9].Weight:=-4138;

sheet.Cells[ Obect.ADOTable1.RecordCount+1,i].Borders[9].ColorIndex:=-4105;

end;

CurDir:=GetCurrentDir;

app.DisplayAlerts:=false;

book.SaveAs(CurDir+'\Охраняемые объекты.xls');

app.Visible:=true;

end;

procedure TObect.SpeedButton1Click(Sender: TObject);

begin

{If Length(DBEdit2.Text)>0 then

ADOTable1.Filtered:=true

else ADOTable1.Filtered:=false;

ADOTable1.Filter:='Организация>'''+DBEdit2.Text+''''; }

end;

procedure TObect.Button1Click(Sender: TObject);

begin

if not ADOTable1.Locate('Перезаключение', edit1.Text, []) then

ShowMessage('Таких договоров нет');

end;

procedure TObect.N3Click(Sender: TObject);

var Excel: variant;

begin

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

Excel.Visible := True;

Excel.Workbooks.Open('D:\Диплом\Объекты стоимостьуслуг.xls') ;

///////////////////////////////////////// открал

Excel.ActiveSheet.Range['E9'].Value := Dogowor.DBEdit1.Text;

Excel.ActiveSheet.Range['G9'].Value := Dogowor.DBEdit12.Text;

Excel.ActiveSheet.Range['L9'].Value := Dogowor.DBEdit15.Text;

Excel.ActiveSheet.Range['B21'].Value := Dogowor.DBEdit1.Text;

Excel.ActiveSheet.Range['C23'].Value := DBEdit1.Text;

Excel.ActiveSheet.Range['D23'].Value := DBEdit2.Text;

Excel.ActiveSheet.Range['G23'].Value := Edit2.Text;

Excel.ActiveSheet.Range['E23'].Value := Dogowor.DBComboBox1.Text;

Excel.ActiveSheet.Range['I23'].Value := ComboBox1.Text;

Excel.ActiveSheet.Range['J23'].Value := ComboBox3.Text;

Excel.ActiveSheet.Range['K23'].Value := ComboBox2.Text;

end;

procedure TObect.Button2Click(Sender: TObject);

begin

ADOTable1.Refresh;

end;

procedure TObect.SpeedButton2Click(Sender: TObject);

begin

DBEdit1.Text:= zayav.Edit2.Text ;

DBEdit2.Text:=zayav.Edit3.Text;

end;

Form raschet_wrem

interface

uses

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

Dialogs, StdCtrls, DB, ADODB, DBCtrls, ExtCtrls, ComCtrls, XPMan, Menus,

AxCtrls, OleCtrls, VCF1;

type

Traschet_wrem = class(TForm)

ComboBox1: TComboBox;

Label1: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

ComboBox4: TComboBox;

ComboBox5: TComboBox;

ComboBox6: TComboBox;

ComboBox7: TComboBox;

ComboBox8: TComboBox;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

ComboBox9: TComboBox;

ComboBox10: TComboBox;

ComboBox11: TComboBox;

ComboBox12: TComboBox;

ComboBox13: TComboBox;

ComboBox14: TComboBox;

ComboBox15: TComboBox;

ComboBox16: TComboBox;

Button1: TButton;

XPManifest1: TXPManifest;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

ComboBox17: TComboBox;

ComboBox18: TComboBox;

Edit5: TEdit;

ComboBox19: TComboBox;

ComboBox20: TComboBox;

CheckBox5: TCheckBox;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

ComboBox21: TComboBox;

ComboBox22: TComboBox;

Edit6: TEdit;

ComboBox23: TComboBox;

ComboBox24: TComboBox;

CheckBox6: TCheckBox;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

ComboBox25: TComboBox;

ComboBox26: TComboBox;

Edit7: TEdit;

ComboBox27: TComboBox;

ComboBox28: TComboBox;

CheckBox7: TCheckBox;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

ComboBox29: TComboBox;

ComboBox30: TComboBox;

Edit8: TEdit;

ComboBox31: TComboBox;

ComboBox32: TComboBox;

CheckBox8: TCheckBox;

Bevel1: TBevel;

Bevel2: TBevel;

Label2: TLabel;

Button2: TButton;

MainMenu1: TMainMenu;

Afqk1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

bvl1: TBevel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox5Click(Sender: TObject);

procedure CheckBox6Click(Sender: TObject);

procedure CheckBox7Click(Sender: TObject);

procedure CheckBox8Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure CheckBox3Click(Sender: TObject);

procedure CheckBox4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

raschet_wrem: Traschet_wrem;

WordApp, Doc, app, book, sheet, Excel: variant;

Row, Col: integer;

DestRange: OleVariant;

CurDir: String;

implementation

uses ComObj, Unit1, Types;

{$R *.dfm}

procedure Traschet_wrem.Button1Click(Sender: TObject);

begin

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

Excel.Visible := True;

//app:=CreateOleObject('Excel.Application');

book:=Excel.WorkBooks.Add;

book.Worksheets[3].Delete;

book.Worksheets[2].Delete;

book.Worksheets[1].Name:='Расчёт времени охраны';

sheet:=book.Worksheets[1];

//Можно помещать текст и значения в диапазон ячеек

//Поместить слово тест в диапазон ячеек

Excel.Range['h2', 'h4'].Font.FontStyle := 'Bold';

sheet.Range['A1:E1'].Select;

sheet.Range['A4:K21'].Borders[7].LineStyle:=1;

sheet.Range['A4:K21'].Borders[7].Weight:=-4138;

sheet.Range['A4:K21'].Borders[7].ColorIndex:=-4105;

sheet.Range['A4:K21'].Borders[8].LineStyle:=1;

sheet.Range['A4:K21'].Borders[8].Weight:=-4138;

sheet.Range['A4:K21'].Borders[8].ColorIndex:=-4105;

sheet.Range['A4:K21'].Borders[9].LineStyle:=1;

sheet.Range['A4:K21'].Borders[9].Weight:=-4138;

sheet.Range['A4:K21'].Borders[9].ColorIndex:=-4105;

sheet.Range['A4:K21'].Borders[10].LineStyle:=1;

sheet.Range['A4:K21'].Borders[10].Weight:=-4138;

sheet.Range['A4:K21'].Borders[10].ColorIndex:=-4105;

Sheet.Columns['K:K'].columnWidth:=10;

Excel.ActiveSheet.Range['d4'].Value := 'Таблица расчета времени охраны';

Excel.ActiveSheet.Range['d5'].Value := 'объектов, подключенных на пульт централизованного наблюдения ';

Excel.ActiveSheet.Range['d6'].Value := 'Договор № ' + Dogowor.DBEdit1.Text + ' от ' +Edit1.Text+ ' " Клиент" :';

//Excel.Range['A2', 'B7'].Interior.Color := clSilver; /// задание зальвки ячеек

//Sheet.Columns['B:B'].columnWidth:=30;

//Sheet.Columns['C:C'].columnWidth:=60;

//Sheet.Columns['D:D'].columnWidth:=40;

//DateToStr(DateTimePicker1.Date)

//Excel.ActiveSheet.Range['b8', 'B10'].Value := ' ';

Excel.ActiveSheet.Range['A11'].Value := 'Рабочие дни';

Excel.ActiveSheet.Range['A12'].Value := 'Выходной день - суббота';

Excel.ActiveSheet.Range['A13'].Value := 'Выходной день - воскресенье';

Excel.ActiveSheet.Range['A14'].Value := 'Праздничные дни';

Excel.ActiveSheet.Range['A15'].Value := 'Итого';

Excel.ActiveSheet.Range['d9'].Value := 'Количество';

Excel.ActiveSheet.Range['d10'].Value := 'дней охраны';

Excel.Range['D11:D15'].Interior.Color :=clSilver;

Excel.ActiveSheet.Range['d11'].Value := Edit1.Text ;

Excel.ActiveSheet.Range['d12'].Value := Edit2.Text ;

Excel.ActiveSheet.Range['d13'].Value := Edit3.Text ;

Excel.ActiveSheet.Range['d14'].Value := Edit4.Text ;

Excel.ActiveSheet.Range['d15'].Formula :='=Sum(D11:D14)';

Excel.ActiveSheet.Range['e8'].Value := 'Время охраны объекта в течение суток, час.';

Excel.ActiveSheet.Range['e9'].Value := 'C';

Excel.ActiveSheet.Range['e10'].Value := 'Час';

Excel.ActiveSheet.Range['e11'].Value := ComboBox1.Text ;

Excel.ActiveSheet.Range['e12'].Value := ComboBox2.Text ;

Excel.ActiveSheet.Range['e13'].Value := ComboBox5.Text ;

Excel.ActiveSheet.Range['e14'].Value := ComboBox7.Text ;

Excel.ActiveSheet.Range['f10'].Value := 'Мин';

Excel.ActiveSheet.Range['f11'].Value := ComboBox9.Text ;

Excel.ActiveSheet.Range['f12'].Value := ComboBox11.Text ;

Excel.ActiveSheet.Range['f13'].Value := ComboBox13.Text ;

Excel.ActiveSheet.Range['f14'].Value := ComboBox15.Text ;

Excel.ActiveSheet.Range['g9'].Value := 'До';

Excel.ActiveSheet.Range['g10'].Value := 'Час';

Excel.ActiveSheet.Range['g11'].Value := ComboBox3.Text ;

Excel.ActiveSheet.Range['g12'].Value := ComboBox4.Text ;

Excel.ActiveSheet.Range['g13'].Value := ComboBox6.Text ;

Excel.ActiveSheet.Range['g14'].Value := ComboBox8.Text ;

Excel.ActiveSheet.Range['H10'].Value := 'Мин';

Excel.ActiveSheet.Range['H11'].Value := ComboBox10.Text ;

Excel.ActiveSheet.Range['H12'].Value := ComboBox12.Text ;

Excel.ActiveSheet.Range['H13'].Value := ComboBox14.Text ;

Excel.ActiveSheet.Range['H14'].Value := ComboBox16.Text ;

Excel.ActiveSheet.Range['I9'].Value := 'Время';

Excel.ActiveSheet.Range['I10'].Value := 'охраны';

Excel.Range['i11:j15'].Interior.Color :=clSilver;

Excel.ActiveSheet.Range['I11'].Formula :='=G11-E11';

Excel.ActiveSheet.Range['I12'].Formula :='=G12-E12';

Excel.ActiveSheet.Range['I13'].Formula :='=G13-E13';

Excel.ActiveSheet.Range['I14'].Formula :='=G14-E14';

Excel.ActiveSheet.Range['I15'].Formula :='=Sum(I11:I14)';

Excel.ActiveSheet.Range['J9'].Value := 'Норма часов охраны ';

Excel.ActiveSheet.Range['J10'].Value := 'на год / на месяц';

Excel.ActiveSheet.Range['J11'].Formula :='=I11*D11';

Excel.ActiveSheet.Range['J12'].Formula :='=I12*D12';

Excel.ActiveSheet.Range['J13'].Formula :='=I13*D13';

Excel.ActiveSheet.Range['J14'].Formula :='=I14*D14';

Excel.ActiveSheet.Range['J15'].Formula :='=Sum(j11:j14)';

Excel.ActiveSheet.Range['B17'].Value := 'Руководитель "Клиента"';

Excel.ActiveSheet.Range['B19'].Value := '_____________________';

Excel.ActiveSheet.Range['B21'].Value := 'МП';

Excel.ActiveSheet.Range['I17'].Value := 'Начальник "Охраны"';

Excel.ActiveSheet.Range['I19'].Value := '_____________________';

Excel.ActiveSheet.Range['I21'].Value := 'МП';

CurDir:=GetCurrentDir;

Excel.DisplayAlerts:=false;

book.SaveAs(CurDir+'\Расчёт времени.xls');

//xcel.Visible:=true;

end;

procedure Traschet_wrem.Button2Click(Sender: TObject);

begin

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

Excel.Visible := True;

Excel.Workbooks.Open('D:\Диплом\Общий.xls') ;

///////////////////////////////////////// открал

Excel.ActiveSheet.Range['d7'].Value := Dogowor.DBEdit1.Text;

Excel.ActiveSheet.Range['F7'].Value := Dogowor.DBEdit12.Text;

Excel.ActiveSheet.Range['C7'].Value := Dogowor.DBEdit15.Text;

Excel.ActiveSheet.Range['C14'].Value := Edit1.Text ;

Excel.ActiveSheet.Range['d14'].Value := ComboBox1.Text ;

Excel.ActiveSheet.Range['E14'].Value := ComboBox9.Text ;

Excel.ActiveSheet.Range['F14'].Value := ComboBox3.Text ;

Excel.ActiveSheet.Range['G14'].Value := ComboBox10.Text ;

/////////////////////////////////////////////

Excel.ActiveSheet.Range['C15'].Value := Edit5.Text ;

Excel.ActiveSheet.Range['d15'].Value := ComboBox17.Text ;

Excel.ActiveSheet.Range['E15'].Value := ComboBox19.Text ;

Excel.ActiveSheet.Range['F15'].Value := ComboBox18.Text ;

Excel.ActiveSheet.Range['G15'].Value := ComboBox20.Text ;

/////////////////////////////////////////////

Excel.ActiveSheet.Range['C16'].Value := Edit6.Text ;

Excel.ActiveSheet.Range['d16'].Value := ComboBox21.Text ;

Excel.ActiveSheet.Range['E16'].Value := ComboBox23.Text ;

Excel.ActiveSheet.Range['F16'].Value := ComboBox22.Text ;

Excel.ActiveSheet.Range['G16'].Value := ComboBox24.Text ;

/////////////////////////////////////////////

Excel.ActiveSheet.Range['C17'].Value := Edit7.Text ;

Excel.ActiveSheet.Range['d17'].Value := ComboBox25.Text ;

Excel.ActiveSheet.Range['E17'].Value := ComboBox27.Text ;

Excel.ActiveSheet.Range['F17'].Value := ComboBox26.Text ;

Excel.ActiveSheet.Range['G17'].Value := ComboBox28.Text ;

/////////////////////////////////////////////

Excel.ActiveSheet.Range['C18'].Value := Edit8.Text ;

Excel.ActiveSheet.Range['d18'].Value := ComboBox29.Text ;

Excel.ActiveSheet.Range['E18'].Value := ComboBox31.Text ;

Excel.ActiveSheet.Range['F18'].Value := ComboBox30.Text ;

Excel.ActiveSheet.Range['G18'].Value := ComboBox32.Text ;

/////////////////////////////////////////////

Excel.ActiveSheet.Range['C19'].Value := Edit2.Text ;

Excel.ActiveSheet.Range['d19'].Value := ComboBox2.Text ;

Excel.ActiveSheet.Range['E19'].Value := ComboBox11.Text ;

Excel.ActiveSheet.Range['F19'].Value := ComboBox4.Text ;

Excel.ActiveSheet.Range['G19'].Value := ComboBox12.Text ;

/////////////////////////////////////////////

Excel.ActiveSheet.Range['C20'].Value := Edit3.Text ;

Excel.ActiveSheet.Range['d20'].Value := ComboBox5.Text ;

Excel.ActiveSheet.Range['E20'].Value := ComboBox13.Text ;

Excel.ActiveSheet.Range['F20'].Value := ComboBox6.Text ;

Excel.ActiveSheet.Range['G20'].Value := ComboBox14.Text ;

/////////////////////////////////////////////

Excel.ActiveSheet.Range['C21'].Value := Edit4.Text ;

Excel.ActiveSheet.Range['d21'].Value := ComboBox7.Text ;

Excel.ActiveSheet.Range['E21'].Value := ComboBox15.Text ;

Excel.ActiveSheet.Range['F21'].Value := ComboBox8.Text ;

Excel.ActiveSheet.Range['G21'].Value := ComboBox16.Text ;

end;

procedure Traschet_wrem.N1Click(Sender: TObject);

begin

Button1.Click;

end;

procedure Traschet_wrem.N2Click(Sender: TObject);

begin

Button2.Click;

end;

procedure Traschet_wrem.N3Click(Sender: TObject);

begin

Close;

end;

procedure Traschet_wrem.CheckBox1Click(Sender: TObject);

begin

case CheckBox1.State of

cbChecked:ComboBox1.Text:='0';

end;

ComboBox3.Text:='0';

end;

procedure Traschet_wrem.CheckBox5Click(Sender: TObject);

begin

case CheckBox1.State of

cbChecked:ComboBox17.Text:='0';

end;

ComboBox18.Text:='0';

end;

procedure Traschet_wrem.CheckBox6Click(Sender: TObject);

begin

case CheckBox1.State of

cbChecked:ComboBox21.Text:='0';

end;

ComboBox22.Text:='0';

end;

procedure Traschet_wrem.CheckBox7Click(Sender: TObject);

begin

case CheckBox1.State of

cbChecked:ComboBox25.Text:='0';

end;

ComboBox26.Text:='0';

end;

procedure Traschet_wrem.CheckBox8Click(Sender: TObject);

begin

case CheckBox1.State of

cbChecked:ComboBox29.Text:='0';

end;

ComboBox30.Text:='0';

end;

procedure Traschet_wrem.CheckBox2Click(Sender: TObject);

begin

case CheckBox1.State of

cbChecked:ComboBox2.Text:='0';

end;

ComboBox4.Text:='0';

end;

procedure Traschet_wrem.CheckBox3Click(Sender: TObject);

begin

case CheckBox1.State of

cbChecked:ComboBox5.Text:='0';

end;

ComboBox6.Text:='0';

end;

procedure Traschet_wrem.CheckBox4Click(Sender: TObject);

begin

case CheckBox1.State of

cbChecked:ComboBox7.Text:='0';

end;

ComboBox8.Text:='0';

end;

end.

Размещено на Allbest.ru