Разработка приложения для работы с базой данных

Автор работы: Пользователь скрыл имя, 18 Октября 2012 в 08:34, дипломная работа

Краткое описание

Задачей моего дипломного проекта стала разработка приложения для работы с базой данных содержащей в себе полную информацию о лекарственных препаратах. Проект должен иметь дружелюбный интерфейс, удобную навигацию, поиск и фильтрацию. Проект должен требовать от пользователя минимум действий, быть понятным любому начинающему пользователю, прост и гибок в настройке.
Целью моего дипломного проекта является создание приложения для быстрого поиска и получения информации по интересующему лекарственному препарату.

Содержание

Список сокращений 5
Введение 6
1.1 Актуальность выбранной темы 6
1.2 Краткое описание разделов, включенных в дипломный проект 7
2. Постановочная часть 9
2.1 Формулировка задачи 9
2.2 Описание входной и выходной информации 11
2.3 Требования к интерфейсу 13
2.3.1 Общие рекомендации по разработке интерфейса 13
2.3.2 Стиль окон приложения 14
2.3.3 Цветовое решение приложения 14
2.3.4 Требования к меню в приложении Windows 16
3. Проектная часть 17
3.1 Описание структуры АРМ 17
3.2 Структура программы 17
3.3 Описание алгоритмов работы приложения «Электронный справочник лекарственных препаратов» 18
4. Инструментальные средства реализации дипломного проекта 19
4.1 Краткая характеристика операционных систем 19
4.2 Краткая характеристика среды программирования 20
5. Эксплуатация 27
5.1 Требования к аппаратному обеспечению 27
5.2 Инструкция пользователю 27
5.2.1 Раздел «Общие сведения» 28
5.2.2 Раздел «Поиск» 29
5.2.3 Раздел «Редактирование базы данных»» 30
5.2.4 Раздел «Информация» 32
5.2.5 Раздел «О программе» 33
5.2.6 Раздел «Об авторе» 34
5.3 Инструкция программисту 35
6 Экономическая часть 36
6.1 Характеристика проекта 37
6.2 Расчёт затрат на разработку 37
6.3 Расчёт затрат на техническое обеспечение 38
6.4 Расчёт фонда заработной платы 39
6.5 Расчёт стоимости материалов 39
6.6 Затраты на энергию для технологических целей 39
6.7 Калькуляция себестоимости и отпускной цены 40
7 Мероприятия по технике безопасности и охране окружающей среды 41
7.1 Общие принципы и законодательство по охране труда 41
7.1.1 Правила работы учащихся в кабинете вычислительной техники. 41
7.2 Воздействие электрического тока на организм человека 43
7.3 Защита окружающей среды 44
7.4 Защита атмосферного воздуха 44
7.5 Метеоусловия производственной среды в кабинетах вычислительной техники 44
7.6 Пожарная безопасность при работе с компьютером 45
Заключение 48
Перечень использованных источников 50
Приложения 53

Скачать полностью (1.76 Мб) Сколько стоит заказать работу?
Прикрепленные файлы: 1 файл

Диплом Готовый.doc

— 2.12 Мб (Скачать документ)

If shag=0 then begin

SpeedButton7.Enabled:=false

end;

PageControl1.TabIndex:=PageControl1.TabIndex-1;

end;

 

procedure TForm1.N2Click(Sender: TObject);

begin

ShellExecute(0, nil, 'C:\sprav\Info.doc', nil,

nil, SW_SHOWNORMAL);

end;

 

procedure TForm1.N5Click(Sender: TObject);

begin

SpeedButton8.Click;

end;

 

procedure TForm1.PageControl1Change(Sender: TObject);

begin

shag:=PageControl1.TabIndex;

If shag=0 then

begin

SpeedButton7.Enabled:=false;

SpeedButton6.Enabled:=true;

end;

 

If shag=1 then

begin

SpeedButton7.Enabled:=true;

SpeedButton6.Enabled:=true;

end;

 

If shag=2 then

begin

SpeedButton7.Enabled:=true;

SpeedButton6.Enabled:=true;

end;

 

If shag=3 then

begin

SpeedButton7.Enabled:=true;

SpeedButton6.Enabled:=true;

end;

 

If shag=4 then

begin

SpeedButton6.Enabled:=false;

SpeedButton7.Enabled:=true;

end;

end;

 

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label1.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin

Form2.show;

Form1.Hide;

end;

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label2.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label3.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label4.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label5.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton9Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label7.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton13Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label8.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton12Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label9.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton11Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label10.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton10Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label6.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton15Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label11.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton14Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label12.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton18Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label13.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton17Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label14.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton16Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label15.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton20Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label16.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton19Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label17.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton23Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label18.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton22Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label19.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton21Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label20.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton25Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label21.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton24Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label22.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton28Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label23.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton27Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label24.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.SpeedButton26Click(Sender: TObject);

begin

Form2.Show;

Form1.hide;

Form2.ADOTable1.Filtered:=false;

Form2.ADOTable1.Filter:='Вид =' +#39 +Label25.Caption +#39;

Form2.ADOTable1.Filtered:=true;

end;

 

procedure TForm1.N3Click(Sender: TObject);

begin

//ShowMessage('xD');

end;

 

procedure TForm1.N7Click(Sender: TObject);

begin

Form3.show;

end;

end.

 

Form2

 

 

unit Unit2;

 

interface

 

uses

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

  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, OleCtrls, SHDocVw, ExtCtrls,

  ComCtrls, Menus, ShellAPI;

 

type

  TForm2 = class(TForm)

    DataSource1: TDataSource;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    WebBrowser1: TWebBrowser;

    DBGrid1: TDBGrid;

    Bevel1: TBevel;

    Edit1: TEdit;

    Bevel2: TBevel;

    Bevel3: TBevel;

    StatusBar1: TStatusBar;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    PrintDialog1: TPrintDialog;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    procedure DBGrid1CellClick(Column: TColumn);

    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure FormShow(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure N2Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm2.DBGrid1CellClick(Column: TColumn);

begin

WebBrowser1.Navigate(ADOTable1.Fields[3].AsString);

end;

 

procedure TForm2.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin

WebBrowser1.Navigate(ADOTable1.Fields[3].AsString);

end;

 

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

ADOTable1.Locate('Наименование',Edit1.Text, [loCaseInsensitive, loPartialKey]);

If key=#13 then

WebBrowser1.Navigate(ADOTable1.Fields[3].AsString);

end;

 

procedure TForm2.FormShow(Sender: TObject);

begin

ADOTable1.Sort:='Наименование ASC';

end;

 

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

WebBrowser1.Navigate('about:blank');

ADOTable1.Filtered:=false;

Form1.show;

end;

 

procedure TForm2.N2Click(Sender: TObject);

begin

Form1.N3.Click;

end;

 

procedure TForm2.N4Click(Sender: TObject);

Var t:PChar;

begin

t:=pchar(ADOTable1.Fields[3].AsString);

ShellExecute (Form2.Handle, 'print', t, nil, nil, SW_RESTORE);

end;

 

procedure TForm2.N3Click(Sender: TObject);

Var s:PChar;

begin

s:=pchar(ADOTable1.Fields[3].AsString);

ShellExecute (Form2.Handle, nil, s, nil, nil, SW_RESTORE);

end;

 

procedure TForm2.N5Click(Sender: TObject);

begin

close;

end;

end.

 

Form3

 

 

unit Unit3;

 

interface

 

uses

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

  Dialogs, StdCtrls, ExtCtrls, Buttons, DB, ADODB;

 

type

  TForm3 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    ADOTable1: TADOTable;

    Label1: TLabel;

    Label2: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Bevel1: TBevel;

    procedure BitBtn2Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure FormShow(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

  private

     function kod (s: string):string;

    { Private declarations }

 

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

uses Unit1, Unit4;

 

{$R *.dfm}

 

{ TForm3 }

 

function TForm3.kod(s: string): string;

Var t:integer;

begin

For t:=1 to Length(S) Do S[t]:=Chr(Ord(S[t]) xor 6);

kod:=s;

end;

 

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

hide;

Edit1.Clear;

Edit2.Clear;

Form1.show;

end;

 

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Edit1.Clear;

Edit2.Clear;

end;

 

procedure TForm3.FormShow(Sender: TObject);

begin

Form1.hide;

end;

 

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.Filter:='Логин='+#39 +Edit1.Text +#39;

ADOTable1.Filtered:=true;

If ADOTable1.Fields[0].AsString='' then begin

MessageDlg('Данный логин не зарегистрирован!',mtError,[mbOK],0);

Информация о работе Разработка приложения для работы с базой данных