Эксплуатационная документация
После успешного запуска программы (открытия файла Project.exe) на экране устройства отобразиться главная форма программы рисунок 15.
Рисунок 15 – Главное окно программы
На данной форме сотруднику компании предоставляется возможность перейти в категорию по ремонту, перейдя на соответствующую форму, представленную на рисунке 16 с помощью кнопок, представленных на форме.
Рисунок 16 – Ремонт ноутбуков
После успешного нажатия кнопки сотрудникпереходит на форму,представленную выше на рисунке 16. Далее он может добавлять информацию о клиенте и какой ремонт он сделал для клиента. При успешном вводе этих данных добавляется информация о клиенте, и что сделали для его ремонта. Также и осуществляется на других формах. Другая форма на рисунке 17.
Рисунок 17 – Заправка картриджей
Заключение
В результате выполнения проекта была разработана программнаяоболочка для информационной системы «ТЭС».
Курсовой проект включает в себя клиентов и к ним ремонт техники, две основные части: клиенты и периферийное оборудование, на базе которых осуществляется поиск клиентов и ремонт по категориям для этих клиентов. Так же проект содержит приложение с программным кодом и графическую часть.
В данном проекте реализована независимость проекта непосредственно от СУБД MicrosoftAccess, таким образом, конечные пользователи могут сэкономить на приобретении пакета программ MSOffice.
Так же был разработан простой и понятный интерфейс для удобного управления базой данных.
В процессе создания были изучены основные принципы технологии RAD на примере интегрированной среды разработки Delphi; была изучена библиотекаAlphaSkins,углублены знания языка структурных запросов SQL, а так же приобретен навык использования основных компонентов технологии ActiveXDataOdject (ADO).
6 Список используемой литературы и интернет-ресурсов
Д. Л. Осипов «Базы данных и Delphi. Теория и практика», БХВ-Петербург, 2011 г.- 752 с.
Основы программирования в Delphi XE/ Никита Культин 2011г.
Д. Л. Осипов «Delphi. Программирование для Windows, OS X, iOS и Android», БХВ-Петербург, 2014 г.- 464 с.
Библия Delphi/ Михаил Фленов 2011г.
Андрей Шкрыль «Разработка клиент-серверных приложений в Delphi», БХВ-Петербург, 2014 г.- 464 с.
Delphi в задачах и примерах (3-е издание) / Н. Б. Культин 2012 г.
Д. Л. Осипов. Delphi XE2. Наиболее полное руководство, БХВ-Петербург, 2009 г.
Интернет ресурсы:
http://www.cyberguru.ru
http://www.delphi-manual.ru
http://helpdelphi.ru
http://thedelphi.ru
http://compteacher.ru
http://delphidevelop.ru
http://vbbook.ru/
Приложение а
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, StdCtrls,
Mask;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
DBEdit1: TDBEdit;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
DBEdit2: TDBEdit;
procedure dfgdfg1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.dfgdfg1Click(Sender: TObject);
begin
form2.Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Close;
form4.show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Mask;
type
TForm2 = class(TForm)
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
DBCheckBox1: TDBCheckBox;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
ADOQuery1: TADOQuery;
Edit1: TEdit;
Button2: TButton;
DataSource2: TDataSource;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses unit1, Unit4, Unit9;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.close;
form4.show;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * from Вызов_специалиста where [ФИО клиента] LIKE "%' + Edit1.Text + '%"');
ADOQuery1.Open;
DataSource1.DataSet:=ADOQuery1;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1: TADOTable;
Button1: TButton;
DBNavigator1: TDBNavigator;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
DBCheckBox6: TDBCheckBox;
DBCheckBox7: TDBCheckBox;
DBCheckBox8: TDBCheckBox;
Button2: TButton;
ADOQuery1: TADOQuery;
Edit1: TEdit;
DataSource2: TDataSource;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses unit1, Unit4, Unit9;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
form3.Close;
form4.show;
end;
procedure TForm3.Button2Click(Sender: TObject);
{var
s,ss:string;}
begin
{
s:=form3.edit1.text;
ss:='select [ФИО клиента], [Телефон], [Модель картриджа], [Замена остальных запчастей], [сумма ремонта], [Заправка], [Замена фотобарабана] from [заправка_картриджей] where [ФИО клиента] like "%'+s+'%"';
form3.ADOQuery1.SQL.Clear;
form3.ADOQuery1.SQL.Add(ss);
form3.ADOQuery1.Active:=true;
form3.dbcheckbox1.enabled:=true; }
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.SQL.Add ( 'SELECT * from заправка_картриджей where [ФИО клиента]like "%' +edit1.text+ '%"' );
ADOQuery1.open;
datasource1.dataset:=ADOQuery1;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sSkinProvider, sSkinManager;
type
TForm4 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button5: TButton;
Button6: TButton;
Button4: TButton;
Button8: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit2, Unit3, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
form1.show;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm4.Button5Click(Sender: TObject);
begin
form6.show;
end;
procedure TForm4.Button6Click(Sender: TObject);
begin
form7.show;
end;
procedure TForm4.Button4Click(Sender: TObject);
begin
form5.show;
end;
procedure TForm4.Button7Click(Sender: TObject);
begin
form8.show;
end;
procedure TForm4.Button8Click(Sender: TObject);
begin
form4.Close;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Mask;
type
TForm5 = class(TForm)
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DBCheckBox1: TDBCheckBox;
DBNavigator1: TDBNavigator;
Button1: TButton;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
DBCheckBox5: TDBCheckBox;
DBCheckBox6: TDBCheckBox;
DBCheckBox8: TDBCheckBox;
DBCheckBox9: TDBCheckBox;
DBCheckBox10: TDBCheckBox;
Label1: TLabel;
DBEdit1: TDBEdit;
DBCheckBox7: TDBCheckBox;
Button2: TButton;
Edit1: TEdit;
ADOQuery1: TADOQuery;
DataSource2: TDataSource;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses unit1, unit2, unit3, Unit4;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
form5.close;
form4.show;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * from Ремонт_компьютеров where [ФИО клиента] LIKE "%' + Edit1.Text + '%"');
ADOQuery1.Open;
DataSource1.DataSet:=ADOQuery1;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, Mask;
type
TForm6 = class(TForm)
dbgrd1: TDBGrid;
ds1: TDataSource;
ADOTable1: TADOTable;
Button1: TButton;
DBNavigator1: TDBNavigator;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
DBCheckBox5: TDBCheckBox;
DBEdit1: TDBEdit;
Label1: TLabel;
Button2: TButton;
Edit1: TEdit;
ADOQuery1: TADOQuery;
DataSource2: TDataSource;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1, Unit4;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
Form6.Close;
form4.show;
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * from Ремонт_ноутбуков where [ФИО клиента] LIKE "%' + Edit1.Text + '%"');
ADOQuery1.Open;
DS1.DataSet:=ADOQuery1;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, Mask;
type
TForm6 = class(TForm)
dbgrd1: TDBGrid;
ds1: TDataSource;
ADOTable1: TADOTable;
Button1: TButton;
DBNavigator1: TDBNavigator;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
DBCheckBox5: TDBCheckBox;
DBEdit1: TDBEdit;
Label1: TLabel;
Button2: TButton;
Edit1: TEdit;
ADOQuery1: TADOQuery;
DataSource2: TDataSource;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1, Unit4;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
Form6.Close;
form4.show;
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * from Ремонт_ноутбуков where [ФИО клиента] LIKE "%' + Edit1.Text + '%"');
ADOQuery1.Open;
DS1.DataSet:=ADOQuery1;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Mask;
type
TForm7 = class(TForm)
ds1: TDataSource;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
Button1: TButton;
DBNavigator1: TDBNavigator;
DBCheckBox5: TDBCheckBox;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
Label1: TLabel;
DBEdit1: TDBEdit;
ADOQuery1: TADOQuery;
DataSource2: TDataSource;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
form7.close;
form4.show;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * from Ремонт_телефонов where [ФИО клиента] LIKE "%' + Edit1.Text + '%"');
ADOQuery1.Open;
DS1.DataSet:=ADOQuery1;
end;
end.