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

Автор работы: Пользователь скрыл имя, 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 Мб (Скачать документ)

Edit1.Clear;

Edit2.Clear;

else begin

If ADOTable1.Fields[1].AsString<>kod(Edit2.Text) then begin

MessageDlg('Неверный  логин/пароль!',mtError,[mbOK],0);

Edit1.Clear;

Edit2.Clear;

end

else begin

Form4.Show;

close;

end;

end;

end.

 

Form4

 

 

unit Unit4;

 

interface

uses

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

  Dialogs, Menus, Grids, DBGrids, DB, ADODB;

type

  TForm4 = class(TForm)

    DataSource1: TDataSource;

    ADOTable1: TADOTable;

    DBGrid1: TDBGrid;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    PopupMenu1: TPopupMenu;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    procedure N2Click(Sender: TObject);

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

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

 

procedure TForm4.N2Click(Sender: TObject);

begin

close;

end;

 

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

begin

Form1.show;

end;

 

procedure TForm4.N3Click(Sender: TObject);

begin

ADOTable1.Insert;

end;

 

procedure TForm4.N4Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

 

procedure TForm4.N5Click(Sender: TObject);

begin

ADOTable1.Post;

end;

 

procedure TForm4.N6Click(Sender: TObject);

begin

ADOTable1.Insert;

end;

 

procedure TForm4.N7Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

 

procedure TForm4.N8Click(Sender: TObject);

begin

ADOTable1.Post;

end;

end.

Form5

 

unit Unit5;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

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

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

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

begin

Form1.show;

end;

end.

 

Form6

 

unit Unit6;

interface

uses

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

  Dialogs, jpeg, ExtCtrls, Buttons;

type

  TForm6 = class(TForm)

    Image1: TImage;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    procedure FormShow(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form6: TForm6;

implementation

uses Unit1, Unit7;

{$R *.dfm}

procedure TForm6.FormShow(Sender: TObject);

begin

SpeedButton2.Caption:='Информация по '+ #13#10 +'приобретению'

end;

procedure TForm6.SpeedButton3Click(Sender: TObject);

begin

close;

end;

procedure TForm6.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

CanClose:=MessageDlg ('Вы действительно выйти?',mtConfirmation,[mbYes,mbNo],0)=mrYes

end;

procedure TForm6.SpeedButton1Click(Sender: TObject);

begin

Form1.show;

hide;

end;

procedure TForm6.SpeedButton2Click(Sender: TObject);

begin

Form7.show;

hide;

end;

end.

Form7

 

unit Unit7;

interface

uses

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

  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, Buttons, ExtCtrls, jpeg,

  Menus;

type

  TForm7 = class(TForm)

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    Image1: TImage;

    Bevel1: TBevel;

    Label5: TLabel;

    Label6: TLabel;

    MainMenu1: TMainMenu;

    N6: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N47: TMenuItem;

    N3: TMenuItem;

    N13: TMenuItem;

    N14: TMenuItem;

    N4: TMenuItem;

    N15: TMenuItem;

    N16: TMenuItem;

    N5: TMenuItem;

    N17: TMenuItem;

    N18: TMenuItem;

    N1: TMenuItem;

    N23: TMenuItem;

    N35: TMenuItem;

    N36: TMenuItem;

    N22: TMenuItem;

    N30: TMenuItem;

    N2: TMenuItem;

    N7: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N19: TMenuItem;

    N20: TMenuItem;

    N21: TMenuItem;

    N24: TMenuItem;

    N25: TMenuItem;

    N26: TMenuItem;

    N27: TMenuItem;

    N28: TMenuItem;

    N29: TMenuItem;

    N31: TMenuItem;

    N32: TMenuItem;

    N33: TMenuItem;

    N34: TMenuItem;

    N37: TMenuItem;

    N38: TMenuItem;

    N39: TMenuItem;

    N40: TMenuItem;

    N41: TMenuItem;

    N42: TMenuItem;

    Bevel2: TBevel;

    procedure ADOTable1AfterOpen(DataSet: TDataSet);

    procedure DBGrid1CellClick(Column: TColumn);

    procedure N35Click(Sender: TObject);

    procedure N36Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

   procedure N12Click(Sender: TObject);

    procedure N19Click(Sender: TObject);

    procedure N20Click(Sender: TObject);

    procedure N21Click(Sender: TObject);

    procedure N24Click(Sender: TObject);

    procedure N25Click(Sender: TObject);

    procedure N26Click(Sender: TObject);

    procedure N27Click(Sender: TObject);

    procedure N28Click(Sender: TObject);

    procedure N29Click(Sender: TObject);

    procedure N31Click(Sender: TObject);

    procedure N32Click(Sender: TObject);

    procedure N33Click(Sender: TObject);

    procedure N34Click(Sender: TObject);

    procedure N37Click(Sender: TObject);

    procedure N38Click(Sender: TObject);

    procedure N39Click(Sender: TObject);

    procedure N40Click(Sender: TObject);

    procedure N41Click(Sender: TObject);

    procedure N42Click(Sender: TObject);

    procedure N30Click(Sender: TObject);

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

    procedure N2Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure N17Click(Sender: TObject);

    procedure N18Click(Sender: TObject);

    procedure N22Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form7: TForm7;

implementation

uses Unit4, Math, Unit6;

{$R *.dfm}

procedure TForm7.ADOTable1AfterOpen(DataSet: TDataSet);

begin

Edit1.Text:=ADOTable1.Fields[1].AsString;

Edit2.Text:=ADOTable1.Fields[2].AsString;

Edit3.Text:=ADOTable1.Fields[3].AsString;

Edit4.Text:=ADOTable1.Fields[4].AsString;

CheckBox1.Checked:=ADOTable1.Fields[5].AsBoolean;

CheckBox2.Checked:=ADOTable1.Fields[6].AsBoolean;

end;

procedure TForm7.DBGrid1CellClick(Column: TColumn);

begin

Edit1.Text:=ADOTable1.Fields[1].AsString;

Edit2.Text:=ADOTable1.Fields[2].AsString;

Edit3.Text:=ADOTable1.Fields[3].AsString;

Edit4.Text:=ADOTable1.Fields[4].AsString;

CheckBox1.Checked:=ADOTable1.Fields[5].AsBoolean;

CheckBox2.Checked:=ADOTable1.Fields[6].AsBoolean;

try

Image1.Picture.LoadFromFile('C:\sprav\img\picture\'+ADOTable1.Fields[1].AsString+'.jpg');

except on EFOpenError do

Image1.Picture.LoadFromFile('C:\sprav\img\picture\none.jpg');

end;

end;

procedure TForm7.N35Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n35.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N36Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n36.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N7Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n7.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N10Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n10.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N11Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n11.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N12Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n12.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N19Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n19.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N20Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n20.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N21Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n21.Caption+#39;

ADOTable1.Filtered:=true;

end;

 

procedure TForm7.N24Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n24.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N25Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n25.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N26Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n26.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N27Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n27.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N28Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n28.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N29Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n29.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N31Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n31.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N32Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n32.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N33Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n33.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N34Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n34.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N37Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n37.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N38Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n38.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N39Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n39.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N40Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#40+n35.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N41Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#41+n35.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N42Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

ADOTable1.filter:='Вид='+#39+n42.Caption+#39;

ADOTable1.Filtered:=true;

end;

procedure TForm7.N30Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

end;

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

begin

form6.show;

end;

procedure TForm7.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm7.N13Click(Sender: TObject);

begin

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

end;

procedure TForm7.N14Click(Sender: TObject);

begin

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

end;

procedure TForm7.N15Click(Sender: TObject);

begin

ADOTable1.Sort:='Вид';

end;

procedure TForm7.N16Click(Sender: TObject);

begin

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

end;

procedure TForm7.N17Click(Sender: TObject);

begin

ADOTable1.Sort:='Цена';

end;

procedure TForm7.N18Click(Sender: TObject);

begin

ADOTable1.Sort:='Цена DESC';

end;

procedure TForm7.N22Click(Sender: TObject);

Var s:string;

q:boolean;

begin

s:='';

q:=InputQuery('Фильтрация','Введите  цену:',s);

If q=true then begin

ADOTable1.Filtered:=false;

ADOTable1.Filter:='Цена<'+#39+s+#39;

ADOTable1.Filtered:=true;

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

MessageDlg('Ничего не найдено!',mtError,[mbOK],0);

ADOTable1.Filtered:=false;

end;

end

else

MessageDlg('Вы ничего не ввели!',mtError,[mbOK],0);

end;

procedure TForm7.N8Click(Sender: TObject);

Var s,m:string;

q:boolean;

begin

s:='';

q:=InputQuery('Поиск','Введите  наименование:',s);

If q=true then begin

if ADOTable1.Locate('Наименование',s,[])=false then begin

MessageDlg('Ничего не найдено!',mtError,[mbOK],0);

end

else begin

try

m:='C:\sprav\img\picture\'+ADOTable1.Fields[1].AsString+'.jpg';

Image1.Picture.LoadFromFile(m);

except

Image1.Picture.LoadFromFile('C:\sprav\img\picture\none.jpg');

end;

end;

end

else

MessageDlg('Вы ничего  не ввели!',mtError,[mbOK],0);

end;

 

procedure TForm7.N9Click(Sender: TObject);

Var s,m:string;

q:boolean;

begin

s:='';

q:=InputQuery('Поиск','Введите производителя:',s);

If q=true then begin

if ADOTable1.Locate('Производитель',s,[loCaseInsensitive,loPartialKey])=false then begin

MessageDlg('Ничего не найдено!',mtError,[mbOK],0);

end

else begin

try

m:='C:\sprav\img\picture\'+ADOTable1.Fields[1].AsString+'.jpg';

Image1.Picture.LoadFromFile(m);

except

Image1.Picture.LoadFromFile('C:\sprav\img\picture\none.jpg');

end;

end;

end

else

MessageDlg('Вы ничего  не ввели!',mtError,[mbOK],0);

end;

end.

 

Form8

 

 

unit Unit8;

interface

uses

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

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

type

  TForm8 = class(TForm)

    Label5: TLabel;

    Label4: TLabel;

    Label3: TLabel;

    Label2: TLabel;

    Label1: TLabel;

    Image1: TImage;

    Edit4: TEdit;

    Edit3: TEdit;

    Edit2: TEdit;

    Edit1: TEdit;

    CheckBox2: TCheckBox;

    CheckBox1: TCheckBox;

    Bevel1: TBevel;

    Label6: TLabel;

    ADOTable1: TADOTable;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    ADOTable1DSDesigner: TAutoIncField;

    ADOTable1DSDesigner2: TWideStringField;

    ADOTable1DSDesigner3: TWideStringField;

    ADOTable1DSDesigner4: TWideStringField;

    ADOTable1DSDesigner5: TIntegerField;

    ADOTable1DSDesigner6: TBooleanField;

    ADOTable1DSDesigner7: TBooleanField;

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

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

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form8: TForm8;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm8.SpeedButton2Click(Sender: TObject);

begin

SpeedButton1.Enabled:=true;

ADOTable1.RecNo:=ADOTable1.RecNo+1;

Form8.Caption:=ADOTable1.Fields[1].AsString;

If ADOTable1.RecNo<ADOTable1.RecordCount then begin

Edit1.Text:=ADOTable1.Fields[1].AsString;

Edit2.Text:=ADOTable1.Fields[2].AsString;

Edit3.Text:=ADOTable1.Fields[3].AsString;

Edit4.Text:=ADOTable1.Fields[4].AsString;

CheckBox1.Checked:=ADOTable1.Fields[5].AsBoolean;

CheckBox2.Checked:=ADOTable1.Fields[6].AsBoolean;

try

Image1.Picture.LoadFromFile('C:\sprav\img\picture\'+ADOTable1.Fields[1].AsString+'.jpg');

except on EFOpenError do

Image1.Picture.LoadFromFile('C:\sprav\img\picture\none.jpg');

end;

end

else

SpeedButton2.Enabled:=false;

end;

procedure TForm8.SpeedButton1Click(Sender: TObject);

begin

SpeedButton2.Enabled:=true;

ADOTable1.RecNo:=ADOTable1.RecNo-1;

Form8.Caption:=ADOTable1.Fields[1].AsString;

If ADOTable1.RecNo>1 then begin

Edit1.Text:=ADOTable1.Fields[1].AsString;

Edit2.Text:=ADOTable1.Fields[2].AsString;

Edit3.Text:=ADOTable1.Fields[3].AsString;

Edit4.Text:=ADOTable1.Fields[4].AsString;

CheckBox1.Checked:=ADOTable1.Fields[5].AsBoolean;

CheckBox2.Checked:=ADOTable1.Fields[6].AsBoolean;

try

Image1.Picture.LoadFromFile('C:\sprav\img\picture\'+ADOTable1.Fields[1].AsString+'.jpg');

except on EFOpenError do

Image1.Picture.LoadFromFile('C:\sprav\img\picture\none.jpg');

end;

end

else

SpeedButton1.Enabled:=false;

end;

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

begin

Form6.show;

end;

end.

           

страница

           

изм.

лист

№ документа

подпись

дата

  

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