128
st.Add('<th>Название<th>Тип IP адреса<th>Интернет трафик за 1 Мб,
<br>руб,');
st.Add('<th>Городской трафик за 1 Мб,<br>руб<th>Внутренний трафик за
1 Мб,<br>руб.');
st.Add('<th>Абонентская плата,<br>руб.<th>Скорость МБ в с');
metka:=dm1.qInet.FieldByName('tarif_code').Value;
dm1.qInet.First;
For i :=0 To dm1.qInet.RecordCount-1 Do
Begin
st.Add('<tr>');
st.Add('<td>'+dm1.qInet.FieldByName('tarif_name').AsString);
st.Add('<td align=center>'+dm1.qInet.FieldByName('global_ip').AsString);
st.Add('<td align=center>'+dm1.qInet.FieldByName('price_inet').AsString);
st.Add('<td align=center>'+dm1.qInet.FieldByName('price_town').AsString);
st.Add('<td
align=center>'+dm1.qInet.FieldByName('price_owner').AsString);
st.Add('<td align=center>'+dm1.qInet.FieldByName('abon_plata').AsString);
st.Add('<td align=center>'+dm1.qInet.FieldByName('speed').AsString);
dm1.qInet.Next;
End;
st.Add('</table>');
dm1.qInet.Locate('tarif_code', metka, []);
st.Add('<h3 align=center>Тарифы на кабельное ТВ</h3>');
st.Add('<table border=1 cellpadding=3 width=100%>');
st.Add('<tr>>Название<th>Абонентская
плата,<br>руб.<th>Количество каналов');
metka:=dm1.qTv.FieldByName('tarif_code').Value;
dm1.qTv.First;
For i :=0 To dm1.qTv.RecordCount-1 Do
Begin
st.Add('<tr>');
st.Add('<td>'+dm1.qTv.FieldByName('tarif_name').AsString);
129
st.Add('<td align=center>'+dm1.qTv.FieldByName('abon_plata').AsString);
st.Add('<td
align=center>'+dm1.qTv.FieldByName('kolvo_kanalov').AsString);
dm1.qTv.Next;
End;
st.Add('</table>');
dm1.qTv.Locate('tarif_code', metka, []);
st.SaveToFile('report\tarif.html');
ShellExecute(0, 'open', 'report\tarif.html', NIL, NIL, SW_SHOW);
st.Free;
End;
//Договор
Procedure PrintDogovor;
Var
st: TStringList;
Begin
st:=TStringList.Create;
st.Add('<html>');
st.Add('<head>');
st.Add(' <title>Договор</title>');
st.Add(' <meta http-equiv="Content-Type" content="text/html"; charset="utf-
8" />');
st.Add(' <link href="/style.css" rel="stylesheet" type="text/css" />');
st.Add('</head>');
st.Add('<body>');
st.Add('<h2 align=center>Договор №
'+dm1.qDogovor.FieldByName('dogovor_code').AsString+'</h2>');
st.Add('<center>на предоставление услуг ООО «РАСТР»
</center>');
st.Add('');
st.Add('<p align=center>'+DateToStr(Now)+' г.</p>');
st.Add('');
130
st.Add('<p>г. Красноярск</p>');
st.Add('');
st.Add('');
st.Add('ООО «РАСТР», именуемое в дальнейшем
«Оператор», в лице директора ');
st.Add('<b>Снеткова Владимира Владимировича</b>,');
st.Add('действующего на основании Устава и в соответствии с лицензиями
Министерства связи РФ № 27069 ');
st.Add('«Предоставление услуг телематических служб» с
одной стороны, и');
st.Add('<p><h3>'+dm1.qClients.FieldByName('family').asstring+'
'+dm1.qClients.FieldByName('name').asstring+'
'+dm1.qClients.FieldByName('name2').asstring+'</h3>');
st.Add('<p>');
st.Add('именуемый в дальнейшем «Абонент», с другой
стороны, заключили настоящий договор: ');
st.Add('');
st.Add('');
st.Add('');
st.Add('<h3>1. Предмет договора </h3>');
st.Add('');
st.Add('');
st.Add('<p>1.1. Оператор обязуется предоставлять Абоненту свои услуги в
соответствии с действующим ');
st.Add('Регламентом, а Абонент обязуется своевременно');
st.Add('оплачивать их согласно');
st.Add('действующему Прейскуранту и соблюдать Правила пользования
услугами. </p>');
st.Add('<p>1.2. Свойства и стоимость услуг Оператора, порядок и сроки их
оплаты, а также Правила ');
st.Add('пользования услугами Абонентом определяются ');
st.Add('Регламентом');
131
st.Add('(Приложение 1), ');
st.Add('Прейскурантом (Приложение 2) и Правилами (Приложение 3)
являющимися неотъемлемыми час');
st.Add('<p>1.3. Оператор вправе изменить Договор и его Приложения в
одностороннем порядке, извещая об ');
st.Add('этом Абонента не позже, чем ');
st.Add('за 10 календарных дней ');
st.Add('до вступления изменений в силу путем размещения информации на
сайте и в офисе Оператора. </p>');
st.Add('');
st.Add('');
st.Add('<h3>2.Срок действия договора, порядок его изменения
расторжения </h3>');
st.Add('');
st.Add('<p>2.1. Настоящий договор заключен на неопределенный срок и
действует с момента его подписания. </p>');
st.Add('<p>2.2. Абонент имеет право в любой момент расторгнуть
настоящий договор в одностороннем порядке, ');
st.Add('независимо от');
st.Add('причин, с обязательным письменным уведомлением Оператора и
произведением полных расчетов по договору ');
st.Add('до момента его ');
st.Add('расторжения. </p>');
st.Add('<p>2.3. Оператор имеет право расторгнуть договор в
одностороннем порядке с письменным уведомлением ');
st.Add('Абонента за 10 ');
st.Add('календарных дней и при наличии следующих условий: </p>');
st.Add('<p>2.3.1. -- при нарушении Абонентом его обязательств по
настоящему договору. </p>');
st.Add('<p>2.3.2. -- при наступлении обстоятельств, исключающих
возможность предоставления Оператором услуг ');
st.Add('Абоненту ');
132
st.Add('по техническим или экономическим причинам. </p>');
st.Add('<p>2.3.3. -- в иных случаях, установленных действующим
законодательством, условиями настоящего договора ');
st.Add('и приложений к нему. </p>');
st.Add('<p>2.3.4. -- При блокировке учетной записи более 2-х месяцев
оператор имеет право аннулировать ip-адрес ');
st.Add('вместе с учетной записью. </p>');
st.Add('');
st.Add('');
st.Add('<h3>3. Дополнительные условия </h3>');
st.Add('');
st.Add('');
st.Add('<p>3.1. В день подключения к сети Абоненту необходимо
обеспечить доступ в подъезд, квартиру, к ');
st.Add('слаботочним шкафам (нишам) ');
st.Add('в подъезде по стояку , чердаку. </p>');
st.Add('<p>3.2. Абонент признает достоверность средств и способов
количественного и качественного учета ');
st.Add('услуг, применяемых Оператором');
st.Add(' при работе по настоящему договору. </p>');
st.Add('<p>3.3. Абонент несет полную ответственность, в том числе
материальную, за свои действия');
st.Add('или бездействие при пользовании услугами Оператора. </p>');
st.Add('<p>3.4. Оператор не отвечает за любой вред, причиненный
Абоненту любыми третьими лицами в ');
st.Add('процессе использования Абонентом услуг Оператора. </p>');
st.Add('<p>3.5. Оператор имеет право временно приостановить оказание
услуг по настоящему договору, ');
st.Add('если действия или бездействие Абонента при использовании ');
st.Add('им услуг Оператора наносят вред оборудованию Оператора, иных
его Абонентов или третьих лиц. </p>');
133
st.Add('<p>3.6. Оператор обязуется устранять технические неисправности
в течение <b>трех дней</b> с момента ');
st.Add('получения заявки от Абонента, <b>не считая выходных ');
st.Add('и праздничных дней</b>. В период устранения технических ');
st.Add('неисправностей (3дня) абонентская плата начисляется. Заявки
выполняются по выбору клиента с 10.00 до ');
st.Add('14.00 или с 15.00 до 19.00, в пятницу до18.00. </p>');
st.Add('<p>3.7. Оператор обязуется в минимально возможный срок
информировать Абонента о возникших ');
st.Add('чрезвычайных ситуациях и различных изменениях сети,
затрудняющих или препятствующих получению ');
st.Add('Абонентом услуг сети , а также принимать все зависящие от него
меры для своевременного устранения ');
st.Add('неисправностей, препятствующих получению Абонентом ранее
оплаченных услуг, если это не зависит ');
st.Add('от действий самого Абонента или третьих лиц. </p>');
st.Add('<p>3.8. Абонент не имеет права передавать услуги, получаемые по
настоящему договору, третьим лицам. </p>');
st.Add('');
st.Add('');
st.Add('<p>>Абонент подтверждает, что ознакомлен со всеми
Положениями и тарифами, действующими в Компании, ');
st.Add('на момент заключения Договора. </b></p>');
st.Add('');
st.Add('');
st.Add('<h3>Реквизиты сторон
st.Add('');
st.Add('');
st.Add('<table width=100%>');
st.Add('<tr>');
st.Add('<td width=50%>');
st.Add('<p><b>ООО «Растр» ');
134
st.Add('<p>ИНН 2465033490/246501001 ');
st.Add('<p>Адрес: Россия, 660125, Красноярский край, ');
st.Add('<p>г.Красноярск, ул.9 Мая, 36а-4 ');
st.Add('<p>Р/сч. 40702810331280122289 Восточно-сибирский банк СБ
РФ,<span> </span>Красноярское городское отд. 161, г. Красноярск
');
st.Add('<p>БИК 040407627, к/сч. 30101810800000000627 ');
st.Add('<p>Телефон: 66-25-94 - оператор, 53-09-38 – тех поддержка
');
st.Add('<p>По доверенности №______ от ______________________ </p>');
st.Add('<p>______________________ / ________________________ /</p>
</b>');
st.Add('<p>(подпись) ');
st.Add('</td>');
st.Add('');
st.Add('<td>');
st.Add('<p><b>АБОНЕНТ '+dm1.qClients.FieldByName('family').asstring+'
'+dm1.qClients.FieldByName('name').asstring+'
'+dm1.qClients.FieldByName('name2').asstring);
st.Add('<p>Адрес '+dm1.qClients.FieldByName('adress').AsString);
st.Add('<p>Паспорт '+dm1.qClients.FieldByName('passport').AsString);
st.Add('<p>выдан ');
st.Add('<p');
st.Add('<p>');
st.Add('<p>дата выдачи');
st.Add('<p>Телефон: '+dm1.qClients.FieldByName('telephone').AsString);
st.Add('<p>');
st.Add('<p>');
st.Add('<p>______________________ / ________________________ / ');
st.Add('</b>');
st.Add('<p>(подпись) ');
st.Add('</td>');
135
st.Add('</tr>');
st.Add('</tbody>');
st.Add('</table>');
st.Add('');
st.Add('');
st.Add('</body>');
st.Add('</html>');
st.SaveToFile('report\dogovor'+dm1.qDogovor.FieldByName('dogovor_code').
AsString+'.html');
ShellExecute(0, 'open',
PChar('report\dogovor'+dm1.qDogovor.FieldByName('dogovor_code').AsString+'.htm
l'), NIL, NIL, SW_SHOW);
st.Free;
End;
end.
Tarif.pas
unit tarif;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ComCtrls, ExtCtrls, StdCtrls, DBGrids, sqldb, db, DbCtrls;
type
{ TfrmTarif }
TfrmTarif = class(TForm)
btnOk: TButton;
btnCancel: TButton;
DBMemo1: TDBMemo;
dsTarif_tv: TDatasource;
dsTarif_inet: TDatasource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
136
Panel2: TPanel;
Panel3: TPanel;
pcTarif: TPageControl;
Panel1: TPanel;
StatusBar1: TStatusBar;
tsInet: TTabSheet;
tsTv: TTabSheet;
procedure FormShow(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
frmTarif: TfrmTarif;
implementation
{ TfrmTarif }
procedure TfrmTarif.FormShow(Sender: TObject);
begin
//DBGrid1.SetFocus;
end;
initialization
{$I tarif.lrs}
end.
Uchastok.pas
unit uchastok;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ComCtrls, ExtCtrls, StdCtrls, DbCtrls, DBGrids, db;
137
type
{ TfrmUchastok }
TfrmUchastok = class(TForm)
btnOk: TButton;
btnCancel: TButton;
dsUchastok: TDatasource;
DBGrid1: TDBGrid;
DBMemo1: TDBMemo;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
StatusBar1: TStatusBar;
procedure btnOkClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
frmUchastok: TfrmUchastok;
implementation
Uses dm;
{ TfrmUchastok }
procedure TfrmUchastok.FormShow(Sender: TObject);
begin
DBGrid1.SetFocus;
end;
procedure TfrmUchastok.btnOkClick(Sender: TObject);
begin
end;
initialization