Пояснительная записка к курсовой работе по дисциплине «технологии программирования»

Скачать 218.5 Kb.

Название	Пояснительная записка к курсовой работе по дисциплине «технологии программирования»
страница	5/6
Дата публикации	25.06.2013
Размер	218.5 Kb.
Тип	Пояснительная записка

www.vbibl.ru > Информатика > Пояснительная записка

1 2 3 4 5 6

Заключение

В результате выполнения этого курсового проекта я выработал умения и навыки проектирования структуры базы данных, предназначенной для функционирования автоматизированной информационной системы.

В результате работы над курсовым проектом была создана информационная система для Ремонта сотовых телефонов. Выполнен анализ предметной области на примере работы предприятия, связанного с ремонтом сотовых телефонов и построена его информационно-логическая модель. Спроектирована схема данных и выполнена ее нормализация. Данная система сократит время работы мастера по ремонту.

Данная база данных позволяет автоматизировать ввод, поиск и обработку информации, которая хранится в базе данных.

Разработка и внедрение базы данных «Ремонт сотовых телефонов» предполагает уменьшение временных затрат на поиск и оперативное получение необходимой информации о сотовых телефонах, поступивших в ремонт, мастерах, которые работают в сервисном центре и о ремонтных работах, проводимых мастерами над сотовыми телефонами.

^

Список литературы

Карпова Т.С. Базы данных: модели, разработка, реализация. СПб.: Питер, 2001. –304с.
Фаронов В.В. Программирование баз данных в Delphi 7. Учебный курс. – СПб: Питер, 2006. – 459с.
Конноли Т., Бегг Л., Страчан А. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. – 2-е изд. – Вильямс, 2000.
Хомоненко А.Д. и др. Delphi 7./ Под общей редакцией А. Д. Хомоненко – СПб.: BHV,
Лекции по курсу «Базы данных» - В.М. Першуков, 2009-2010 гг.

Приложение 1. Листинг программы

program Project1;
uses

Forms,

Unit1 in 'Unit1.pas' {Main},

Unit2 in 'Unit2.pas' {About},

Unit3 in 'Unit3.pas' {Services},

Unit4 in 'Unit4.pas' {Kvitanciya},

Unit5 in 'Unit5.pas' {Otchet},

Unit6 in 'Unit6.pas' {Chek},

Unit7 in 'Unit7.pas' {Frame7: TFrame},

Unit8 in 'Unit8.pas' {Klientu},

Unit9 in 'Unit9.pas' {Sotrudniki},

Unit10 in 'Unit10.pas' {NaGarantii},

Unit11 in 'Unit11.pas' {Pribul},

Unit12 in 'Unit12.pas' {CenaRem},

Unit13 in 'Unit13.pas' {PechKvit},

Unit14 in 'Unit14.pas' {PechChek};
{$R *.res}
begin

Application.Initialize;

Application.CreateForm(TMain, Main);

Application.CreateForm(TAbout, About);

Application.CreateForm(TServices, Services);

Application.CreateForm(TKvitanciya, Kvitanciya);

Application.CreateForm(TOtchet, Otchet);

Application.CreateForm(TChek, Chek);

Application.CreateForm(TKlientu, Klientu);

Application.CreateForm(TSotrudniki, Sotrudniki);

Application.CreateForm(TNaGarantii, NaGarantii);

Application.CreateForm(TPribul, Pribul);

Application.CreateForm(TCenaRem, CenaRem);

Application.CreateForm(TPechKvit, PechKvit);

Application.CreateForm(TPechChek, PechChek);

Application.Run;

end.
unit Unit1;
interface
uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, DB, ADODB, Menus, ComCtrls,

XPMan, MPlayer, Grids, Outline, DirOutln, ShellCtrls, WebAdapt, WebComp,

Calendar;
type

TMain = class(TForm)

ADOConnection1: TADOConnection;

BitBtn3: TBitBtn;

Image1: TImage;

BitBtn4: TBitBtn;

MainMenu1: TMainMenu;

mjj1: TMenuItem;

jkjk1: TMenuItem;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

BitBtn10: TBitBtn;

BitBtn2: TBitBtn;

BitBtn1: TBitBtn;

PageControl: TPageControl;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

N1: TMenuItem;

N2: TMenuItem;

BitBtn5: TBitBtn;

BitBtn11: TBitBtn;

TabSheet4: TTabSheet;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

PageControl1: TPageControl;

TabSheet6: TTabSheet;

BitBtn15: TBitBtn;

BitBtn16: TBitBtn;

Calendar1: TCalendar;

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure jkjk1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure BitBtn15Click(Sender: TObject);

procedure BitBtn16Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Main: TMain;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit8, Unit9, Unit10, Unit11,

Unit12, Unit13, Unit14;
{$R *.dfm}
procedure TMain.BitBtn3Click(Sender: TObject);

begin

About.Show;

end;
procedure TMain.BitBtn4Click(Sender: TObject);

begin

Close;

end;
procedure TMain.BitBtn1Click(Sender: TObject);

begin

Kvitanciya.Show;

end;
procedure TMain.jkjk1Click(Sender: TObject);

begin

Close;

end;
procedure TMain.N2Click(Sender: TObject);

begin

About.Show;

end;
procedure TMain.BitBtn2Click(Sender: TObject);

begin

Otchet.show;

end;
procedure TMain.BitBtn10Click(Sender: TObject);

begin

Chek.show;

end;
procedure TMain.BitBtn7Click(Sender: TObject);

begin

Klientu.Show;

end;
procedure TMain.BitBtn6Click(Sender: TObject);

begin

Sotrudniki.show;

end;
procedure TMain.BitBtn9Click(Sender: TObject);

begin

NaGarantii.Show;

NaGarantii.ADOQuery1.ExecSQL;

NaGarantii.DataSource1.DataSet.Active:=False;

NaGarantii.DataSource1.DataSet.Active:=True;

end;
procedure TMain.BitBtn11Click(Sender: TObject);

begin

Pribul.Show;

Pribul.ADOQuery1.ExecSQL;

Pribul.DataSource1.DataSet.Active:=False;

Pribul.DataSource1.DataSet.Active:=True;

end;
procedure TMain.BitBtn5Click(Sender: TObject);

begin

CenaRem.show;

CenaRem.ADOQuery1.ExecSQL;

CenaRem.DataSource1.DataSet.Active:=False;

CenaRem.DataSource1.DataSet.Active:=True;

end;
procedure TMain.Timer1Timer(Sender: TObject);

begin

Close;

end;
procedure TMain.BitBtn15Click(Sender: TObject);

begin

PechKvit.QuickRep1.Preview;
end;
procedure TMain.BitBtn16Click(Sender: TObject);

begin

PechChek.QuickRep1.Preview;

end;
procedure TMain.BitBtn8Click(Sender: TObject);

begin

Services.ComboBox1.Clear;
Services.ADOTable2.First;

while not Services.ADOTable2.Eof do begin

Services.combobox1.items.add(Services.ADOTable2DSDesigner2.Value);

Services.ADOTable2.Next;

Services.Show;

end;

end;
end.
unit Unit2;
interface
uses

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

Dialogs, StdCtrls;
type

TAbout = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;
var

About: TAbout;
implementation
{$R *.dfm}
end.
unit Unit3;
interface
uses

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

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

Buttons;
type

TServices = class(TForm)

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADOTable2: TADOTable;

ADOTable2DSDesigner: TIntegerField;

ADOTable2DSDesigner2: TWideStringField;

DataSource4: TDataSource;

DBGrid2: TDBGrid;

ADOQuery3: TADOQuery;

BitBtn1: TBitBtn;

ComboBox1: TComboBox;

DataSource5: TDataSource;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Services: TServices;
implementation
{$R *.dfm}
procedure TServices.BitBtn1Click(Sender: TObject);

begin

ADOQuery3.Parameters.ParamByName('o').Value := Combobox1.Text;

ADOQuery3.Active := false;

ADOQuery3.Active := true;
end;
end.
unit Unit4;
interface
uses

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

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

Buttons;
type

TKvitanciya = class(TForm)

ADOConnection1: TADOConnection;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOTable1: TADOTable;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Kvitanciya: TKvitanciya;
implementation
{$R *.dfm}
procedure TKvitanciya.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.Parameters.ParamByName('a').Value:=Edit1.Text;

ADOQuery1.Parameters.ParamByName('b').Value:=Edit2.Text;

ADOQuery1.Parameters.ParamByName('c').Value:=Edit3.Text;

ADOQuery1.Parameters.ParamByName('d').Value:=Edit4.Text;

ADOQuery1.Parameters.ParamByName('e').Value:=Edit5.Text;

ADOQuery1.Parameters.ParamByName('f').Value:=Edit6.Text;

ADOQuery1.Parameters.ParamByName('g').Value:=Edit7.Text;

ADOQuery1.Parameters.ParamByName('h').Value:=Edit8.Text;

ADOQuery1.Parameters.ParamByName('i').Value:=Edit9.Text;

ADOQuery1.ExecSQL;

DataSource1.DataSet.Active:=False;

DataSource1.DataSet.Active:=True;

end;
procedure TKvitanciya.BitBtn2Click(Sender: TObject);

begin

ADOQuery2.Parameters.ParamByName('a').Value:=Edit1.Text;

ADOQuery2.ExecSQL;

DataSource1.DataSet.Active:=False;

DataSource1.DataSet.Active:=True;

end;
end.
unit Unit5;
interface
uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons;
type

TOtchet = class(TForm)

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

DataSource3: TDataSource;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

1 2 3 4 5 6

Похожие:

	Пояснительная записка к курсовой работе по дисциплине «Алгоритмизация... Сеть книжных магазинов. – Челябинск: юурГУ, ЭиП-208, 2012. – 50 с., 13 ил., 1 прил		Пояснительная записка к курсовой работе по дисциплине «Интеллектуальные подсистемы сапр» Пояснительная записка к курсовой работе 10 страниц, 2 рисунка, 1 таблица, 3 источника
	Пояснительная записка к курсовой работе по дисциплине «Теория языков... Представление основных операторов(описанных в разделе семантики) с помощью тетрад 34		Отчет по лабораторной работе по дисциплине "Технологии программирования"... Пояснительная записка: с., рис., схем программ и алгоритмов, библиограф. Источник, приложения
	Методические указания к курсовой работе по дисциплине " системы программирования " Киев -2002 Целью курсовой работы по дисциплине "Системы программирования" является закрепление теоретического материала и приобретение практических...		Пояснительная записка к курсовой работе по курсу «Теория языков программирования... Язык программирования — формальная знаковая система, предназначенная для записи компьютерных программ. Язык программирования определяет...
	Пояснительная записка к курсовой работе по дисциплине «Теория электрической связи» Целью курсовой работы является получение навыков по вычислению параметров системы связи, анализу полученных результатов, а также...		Пояснительная записка к курсовой работе по дисциплине «Автоматические... Расчет допускаемой тормозной силы из условия безъюзного торможения подвижного состава
	«Портативный радиоприёмник средних волн» Пояснительная записка к... Санкт-Петербургский Государственный Университет Аэрокосмического Приборостроения (СПб гуап)		Руководство к оформлению пояснительной записке к курсовой работе... Руководство к оформлению пояснительной записке к курсовой работе по курсу «Технологии и языки программирования» для студентов первого...

Вы можете разместить ссылку на наш сайт:
Школьные материалы