ИС ростелеком. Дипломная Егорова. Введение 4 глава 1 технический проект и описание сред разработок 6 1Описание предметной области 6 2 Описание технологии обработки информации 7

Название	Введение 4 глава 1 технический проект и описание сред разработок 6 1Описание предметной области 6 2 Описание технологии обработки информации 7
Анкор	ИС ростелеком
Дата	27.03.2022
Размер	0.85 Mb.
Формат файла
Имя файла	Дипломная Егорова.docx
Тип	Реферат #419605
страница	7 из 7

1 2 3 4 5 6 7

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Семакин, И.Г. Основы программирования и баз данных [Текст]: учебник для студ. учреждений сред. проф. образования / И.Г.Семакин.- М.: Академия, 2016.- 224с.

2. Федоров, Г.Н. Основы проектирования баз данных [Текст]: учеб. пособие для студ. учреждений сред. проф. образования / Г.Н.Федорова.- М.: Академия, 2016.- 224с.

3. Федорова, Г.Н. Информационные системы [Текст]: учебник для студ. учреждений сред. проф. образования / Г.Н.Федорова.- М.: Академия, 2017.- 208 с.

4. Федорова, Г.Н. Участие в интеграции программных модулей [Текст]: учеб. пособие для студ. учреждений сред. проф. образования / Г.Н.Федорова. - М.: Академия, 2016.- 304 с.

5. Запросы В Access. - Режим доступа: https://accesshelp.ru/zaprosy-v-access/ (дата обращения 26.05.2021).

6. Понятие информационной системы и их классификация. - Режим доступа: http://mirznanii.com/a/113214/informatsionnye-sistemy (дата обращения 27.04.2021).

7. Сравнение современных СУБД. - Режим доступа: http://drach.pro/blog/hi-tech/item/145 (дата обращения 25.04.2021).

8. Преимущества и недостатки MySQL. - Режим доступа: http://lectmania.ru/1x5c7e.html (дата обращения 22.04.2021).

9. СУБД Access. - Режим доступа: https://vuzlit.ru/1004213/subd_access (дата обращения 05.05.2021).

10. СУБД MS Access : основные возможности, достоинства и недостатки. - Режим доступа https://life-prog.ru/1_27156_tema-sabd-MS-Acess--osnovnie-vozmozhnosi-dostoinstva-i-nedostatki.html (дата обращения 17.05.2021).

11. Создание таблиц В MS Access. - Режим доступа: https://accesshelp.ru/sozdanie-tablic-v-ms-access/ (дата обращения 11.05.2021).

12. Связи в Access. - Режим доступа: https://studfiles.net/preview/1847903/page:9/ (дата обращения 02.05.2021).

13. Создание формы в Access. - Режим доступа: https://support.office.com/ru-ru/article/Создание-формы-в-access-5d550a3d-92e1-4f38-9772-7e7e21e80c6b (дата обращения 11.05.2021).

14. Файлы базы данных Oracle. - Режим доступа: https://oracle-dba.ru/docs/architecture/files/ (дата обращения 03.05.2021).

15. Сайт ПАО «Ростелеком». – Режим доступа: https://www.company.rt.ru/ (дата обращения 12.05.2021).

ПРИЛОЖЕНИЕ

Код формы оплата:

unit uOplata;

interface

uses

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

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

Buttons, DateUtils ,Convert, ComCtrls;

type

TForm2 = class(TForm)

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

GroupBox5: TGroupBox;

Label1: TLabel;

Label2: TLabel;

CheckBox1: TCheckBox;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

GroupBox2: TGroupBox;

DBGrid1: TDBGrid;

Panel1: TPanel;

Label5: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label6: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Button1: TButton;

Button2: TButton;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1DSDesigner2: TIntegerField;

ADOTable1DSDesigner3: TIntegerField;

ADOTable1DSDesigner4: TDateTimeField;

ADOTable1DSDesigner5: TWideStringField;

ADOTable1DSDesigner6: TIntegerField;

ADOTable1DSDesigner7: TIntegerField;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ADOQuery2: TADOQuery;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

ADOQuery2DSDesigner: TWideStringField;

ADOQuery2DSDesigner2: TWideStringField;

ADOQuery2DSDesigner3: TWideStringField;

ADOQuery2DSDesigner4: TDateTimeField;

ADOQuery2DSDesigner5: TWideStringField;

ADOQuery2DSDesigner6: TIntegerField;

ADOQuery2DSDesigner7: TIntegerField;

ADOQuery2DSDesigner8: TIntegerField;

ADOQuery2DSDesigner9: TWideStringField;

ADOQuery2DSDesigner10: TFloatField;

ADOQuery2DSDesigner11: TFloatField;

ADOQuery2DSDesigner12: TIntegerField;

ADOQuery2DSDesigner13: TFloatField;

ADOQuery2DSDesigner14: TFloatField;

ADOQuery2DSDesigner15: TIntegerField;

ADOQuery2DSDesigner16: TFloatField;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner2: TWideStringField;

ADOQuery1DSDesigner3: TWideStringField;

ADOQuery1DSDesigner4: TDateTimeField;

ADOQuery1DSDesigner5: TWideStringField;

ADOQuery1DSDesigner6: TIntegerField;

ADOQuery1DSDesigner7: TIntegerField;

ADOQuery1DSDesigner8: TIntegerField;

ADOQuery1DSDesigner9: TWideStringField;

ADOQuery1DSDesigner10: TFloatField;

ADOQuery1DSDesigner11: TFloatField;

ADOQuery1DSDesigner12: TIntegerField;

ADOQuery1DSDesigner13: TFloatField;

ADOQuery1DSDesigner14: TFloatField;

ADOQuery1DSDesigner15: TIntegerField;

ADOQuery1DSDesigner16: TFloatField;

procedure Button1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses uTarif, uRTFReport, uAbonents, uMenu;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

form6.show;

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

var a,b,c : integer;

begin

adoquery1.Close;

adoquery1.Parameters.ParamByName('n').Value:=ADOTable1DSDesigner.AsString;

adoquery1.Open;

form5.DBRichEdit1.Clear;

with form5.DBRichEdit1.SelAttributes do begin

Color:=clMaroon;

Size:=16;

//Style:=FontDialogl.Font.Style;

end;

form5.show;

form5.DBRichEdit1.SetFocus;

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlue;

Size:=34;

end;

form5.DBRichEdit1.Lines.Add(' ФИО ');

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=14;

end;

form5.DBRichEdit1.Lines.Add(' '+adoquery1.Fields[0].asstring);

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=14;

end;

form5.DBRichEdit1.Lines.Add(' '+adoquery1.Fields[1].asstring);

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=14;

end;

form5.DBRichEdit1.Lines.Add(' '+adoquery1.Fields[2].asstring);

form5.DBRichEdit1.Lines.Add(' ');

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlue;

Size:=20;

end;

form5.DBRichEdit1.Lines.Add(' За период ');

form5.DBRichEdit1.Lines.Add(' ');

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=14;

end;

form5.DBRichEdit1.Lines.Add(' с '+adoquery1.Fields[3].asstring+ ' по '+adoquery1.Fields[4].asstring );

form5.DBRichEdit1.Lines.Add(' ');

with form5.DBRichEdit1.SelAttributes do begin

Color:=$002187C5;

Size:=24;

end;

form5.DBRichEdit1.Lines.Add(' Тариф ');

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=14;

end;

form5.DBRichEdit1.Lines.Add(' Название "'+adoquery1.Fields[8].asstring+'"' );

form5.DBRichEdit1.Lines.Add(' ');

ith form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=12;

end;

form5.DBRichEdit1.Lines.Add('Cтоимость минуты '+adoquery1.Fields[9].asstring);

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=12;

end;

form5.DBRichEdit1.Lines.Add('Стоимость мегабайта '+adoquery1.Fields[10].asstring);

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=12;

end;

form5.DBRichEdit1.Lines.Add('Стоимость дня '+adoquery1.Fields[11].asstring);

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

with form5.DBRichEdit1.SelAttributes do begin

Color:=clMaroon;

Size:=20;

end;

form5.DBRichEdit1.Lines.Add(' Потреблено ');

form5.DBRichEdit1.Lines.Add(' ');

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=12;

end;

form5.DBRichEdit1.Lines.Add('минут '+adoquery1.Fields[6].asstring);

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=12;

end;

form5.DBRichEdit1.Lines.Add('мегабайт '+adoquery1.Fields[7].asstring);

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=12;

end;

form5.DBRichEdit1.Lines.Add('дней подключения '+adoquery1.Fields[5].asstring);

with form5.DBRichEdit1.SelAttributes do begin

Color:=clGreen;

Size:=20;

end;

form5.DBRichEdit1.Lines.Add(' К оплате: ');

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=12;

end;

form5.DBRichEdit1.Lines.Add('за время '+adoquery1.Fields[12].asstring+'р');

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=12;

end;

form5.DBRichEdit1.Lines.Add('за трафик '+adoquery1.Fields[13].asstring+'р');

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=12;

end;

form5.DBRichEdit1.Lines.Add('за подключение '+adoquery1.Fields[14].asstring+'р');

with form5.DBRichEdit1.SelAttributes do begin

Color:=$00C08080;

Size:=20;

style:=[fsbold];

end;

form5.DBRichEdit1.Lines.Add(' ИТОГО: ');

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=12;

end;

form5.DBRichEdit1.Lines.Add(adoquery1.Fields[15].asstring+'р');

form5.DBRichEdit1.Lines.Add(' ');

with form5.DBRichEdit1.SelAttributes do begin

Color:=clBlack;

Size:=14;

end;

form5.DBRichEdit1.Lines.Add(Realtorouble(adoquery1.Fields[15].asfloat));

form5.DBRichEdit1.Lines.Add(' ');

form5.DBRichEdit1.Lines.Add(' Подпись____________ ');

form5.Caption:='Квитанция № '+ ADOTable1DSDesigner.AsString;

end;

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked then

begin

ADOtable1.Filtered:=false;

ADOtable1.Filter:='';

ADOtable1.Filter:='[дата начала использования] > '+

formatdatetime('YYYY-MM-DD', DateTimePicker1.DateTime) +' and [дата начала использования] < '

+formatdatetime('YYYY-MM-DD', DateTimePicker2.DateTime);

ADOtable1.Filtered:=true;;

end

else

ADOtable1.Filtered:=false;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

form5.Caption:=(sender as TBitBtn).Caption ;

adoquery2.Close;

if CheckBox1.Checked then

begin

adoquery2.Filtered:=false;

adoquery2.Filter:='';

adoquery2.Filter:='[дата начала использования] > '+

formatdatetime('YYYY-MM-DD', DateTimePicker1.DateTime) +' and [дата начала использования] < '

+formatdatetime('YYYY-MM-DD', DateTimePicker2.DateTime);

adoquery2.Filtered:=true;;

end

else

adoquery2.Filtered:=false;

adoquery2.Open;

form5.show;

form1.GridToExcel(dbgrid2);

end;

end.

Код отчёта:

unit uRTFReport;

interface

uses

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

Dialogs, StdCtrls, Buttons, ComCtrls, DBCtrls,Printers;

type

TForm5 = class(TForm)

SaveDialog1: TSaveDialog;

DBRichEdit1: TRichEdit;

GroupBox2: TGroupBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

PrintDialog1: TPrintDialog;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations } end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

If SaveDialog1.Execute Then

Begin

DBRichEdit1.Lines.SaveToFile(SaveDialog1.FileName);

end; end;

procedure PrintStrings(Strings: TStrings);

var

Prn: TextFile;

i: word;

begin

AssignPrn(Prn); try

Rewrite(Prn); try

for i := 0 to Strings.Count - 1 do

writeln(Prn, Strings.Strings[i]);

finally

CloseFile(Prn); end;

except

on EInOutError do

MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);

end; end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

if PrintDialog1.Execute then

PrintStrings(DBRichEdit1.Lines);

end; end.

1 2 3 4 5 6 7