Для выполнения дипломного проекта была использована литература, которая представлена в списке использованных источников.
На основании вышеизложенного можно сделать вывод, что внедрение дипломного проекта по автоматизированной системе учета по подключению абонентов к сети Интернет в РУП «Белтелеком» экономически целесообразно и в будущем позволит с большей эффективностью вести учет пользователей, подключенных к сети Интернет, их данные, а также количество времени нахождения в сети.
Литература
1 Гофман В.Э., Хомоненко А.Д. Delphi 5. - СПб.: БХВ - Санкт-Петербург, 1999. - 800 с.
2 Матросов А.В., Сергеев А.О., Чаунин М. П. HTML 4.0. - СПб.: БХВ - Петербург, 2000. - 672 с.
3 Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений. / Под ред. проф. А.Д. Хомоненко. - СПб.: КОРОНА принт, 2000. - 416 с.
4 Кузан Л. Я., Шапоров В.Н. Программирование Win32 API в Delphi. - СПб.: БХВ - Петербург, 2005. - 368 с.
5 Дейт, К., Дж. Введение в системы баз данных, 7-е издание.: Пер. с англ. - М.: Издательский дом “Вильямс”, 2001. - 1072 с.
6 Сухарев М.В. Основы Delphi. Профессиональный подход - СПб.: наука и Техника, 2004. - 600 с.
7 Сорокин А.В. Delphi. Разработка баз данных. - СПб.: Питер, 2005. - 477 с.
8 Дарахвелидзе П.Г., Марков Е.П. Delphi 2005 для Win32. - СПб.: БХВ - Петербург, 2005. - 1136 с.
9 Фаронов В.В., Шумаков П.В. Delphi 5. Руководство разработчика баз данных - М.: «Нолидж», 2000. - 640 с.
10 Архангельский А.Я. Delphi 2006. справочное пособие: Язык Delphi, классы, функции Win32 и .NET. - M.: OOO “ Бином-Пресс”, 2006. - 1152 с.
11 Методические рекомендации для учащихся по выполнению дипломного проекта: МГЭПТК, 2008. - 15 с.
12 ГОСТ 2.105-95 Единая система конструкторской документации «ОБЩИЕ ТРЕБОВАНИЯ К ТЕКСТОВЫМ ДОКУМЕНТАМ»
13 ГОСТ 19.401-2000 ЕСПД ТЕКСТ ПРОГРАММЫ
14 ГОСТ 19.402-2000 ЕСПД ОПИСАНИЕ ПРОГРАММЫ
15 ГОСТ 19.701-90 ЕСПД СХЕМЫ АЛГОРИТМОВ, ПРОГРАММ, ДАННЫХ И СИСТЕМ
Приложение А
Код программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, Menus;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Button5: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Button6: TButton;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit5, Unit6, Unit9, Unit10, Unit11, Unit12;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
procedure TForm1.Button2Click(Sender: TObject);
form3.show;
procedure TForm1.Button3Click(Sender: TObject);
Var i:integer;
Begin
table1.Append;
if form5.showmodal=mrOk then
table1.FieldByName('FIO').AsString:=form5.DBEdit1.text;
if ((Form5.DBEdit1.Text='')or(Form5.DBEdit2.Text='')or(Form5.DBEdit3.Text='')or (Form5.DBEdit4.Text='')) then begin
messagedlg ('Поля не заполнены!'+#13 +'Введите пожалуйста данные!',mtinformation,[mbok],0);
Table1.Cancel;
end
else
table1.Post;
procedure TForm1.Button4Click(Sender: TObject);
table1.edit;
if form6.showmodal=mrOk then
if ((Form6.DBEdit1.Text='')or(Form6.DBEdit2.Text='')or(Form6.DBEdit3.Text='')or(Form6.DBEdit4.Text='')) then begin
messagedlg ('Поля не заполнены!'+#13 +'Введите пожалуйста данные!',mtinformation,[mbok],0);Table1.Cancel;
form1.Table1.Post;
else Table1.Cancel;
procedure TForm1.Button5Click(Sender: TObject);
form9.show;
procedure TForm1.N3Click(Sender: TObject);
close;
procedure TForm1.N6Click(Sender: TObject);
form10.show;
procedure TForm1.N5Click(Sender: TObject);
Winhelp(Form1.Handle,'help1.hlp',Help_context,1);
procedure TForm1.Button6Click(Sender: TObject);
form11.show;
procedure TForm1.Button7Click(Sender: TObject);
form12.show;
procedure TForm1.N2Click(Sender: TObject);
Form16.QuickRep1.Preview;
unit Unit2;
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;
TForm2 = class(TForm)
Label2: TLabel;
Form2: TForm2;
uses Unit7, Unit8, Unit1;
procedure TForm2.Button1Click(Sender: TObject);
Var
i:integer;
if form7.showmodal=mrOk then
table1.FieldByName('FIO').AsString:=form7.DBEdit1.text;
if form7.DBEdit1.text=''then table1.Cancel
table1.Post; end
table1.Cancel;
procedure TForm2.Button2Click(Sender: TObject);
if form8.showmodal=mrOk then
if form8.DBEdit1.text='' then Table1.Cancel
procedure TForm2.Button3Click(Sender: TObject);
form1.show;
form2.Close;
unit Unit3;
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;
TForm3 = class(TForm)
DBGrid2: TDBGrid;
Form3: TForm3;
uses Unit8, Unit4, Unit14, Unit1;
procedure TForm3.Button1Click(Sender: TObject);
if form4.showmodal=mrOk then
table1.FieldByName('FIO').AsString:=form4.DBEdit1.text;
Страницы: 1, 2, 3, 4, 5