Автор работы: Пользователь скрыл имя, 04 Апреля 2010 в 13:59, Не определен
введение 4
1 оптимизация программ 5
1.1 назначение и цели оптимизации 5
1.2 промежуточный язык 5
1.3 блок (линейный участок) 7
1.4 сильно связная область 8
1.5 способы оптимизации 8
1.6 разгрузка участков повторяемости 9
1.7 сдвиг инвариантных операторов 10
1.8 вставка псевдоблока 13
2 практическая часть 15
2.1 анализ существующих аналогов 15
2.2 обоснование выбора темы 17
2.3 краткий обзор среды разработки access 18
2.4 краткий обзор среды разработки delphi 7 29
2.5 руководство по написанию программы 33
2.6 руководство пользователя 38
заключение 42
список литературы 43
Рисунок 22 Компонент «Font Dialog».
Далее на вкладке «System» добавим на форму «Timer» (рисунок 23).
Рисунок 23 Расположение компонента «Timer»
Компонент «Timer» предназначен для показания времени в программе.
Добавляем на форму три «Data Source» (рисунок 24).
Рисунок 24 Расположение компонента «Data Source»
Этот компонент служит посредником между таблицами СУБД и экранными элементами управления.
Далее на вкладке «ADO» располагаем компонент «ADO Connection» (рисунок 25).
Рисунок 25 Расположение компонента «ADO Connection»
Компонент «ADO Connection» предназначен для соединения с БД.
Добавим компонент «TADO Table» располагаемый на вкладке «ADO» (рисунок 26) .
Рисунок 26 Расположение компонента «ADO Table»
И последние четыре компонента добавляем на форму это «Radio Group» и «Label» (расположенный на вкладке Standart), а так же «DB Navigator» на вкладке «Data Controls» и на этой же вкладке «DB Grid».
Теперь перейдём к нашей базе данных и её процедурам:
Процедуры пунктов меню «Файл»:
procedure TForm1.N3Click(Sender: TObject);
begin
PrintDialog1.Execute;
end;
Выход:
procedure TForm1.N5Click(Sender: TObject);
begin
Form1.Close;
end;
Процедуры пунктов меню «Настройки»:
Шрифт:
procedure TForm1.N6Click(Sender: TObject);
begin
FontDialog1.Execute;
DBGrid2.Font:=
end;
Цвет:
procedure TForm1.N7Click(Sender: TObject);
begin
ColorDialog1.Execute;
DBGrid2.Color:=
end;
Процедуры пунктов меню «Помощь»:
О программе:
procedure TForm1.N9Click(Sender: TObject);
begin
Form2.showmodal;
end;
О создателе:
procedure TForm1.N10Click(Sender: TObject);
begin
ShowMessage('ñîçäàë Ñàõàðîâ Àíäðåé Íèêîëàåâè÷');
end;
Руководство пользоваетля:
procedure TForm1.N11Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'Ðóêîâîäñòâî ïîëüçîâàòåëÿ ÁÄ.docx', nil, nil, SW_SHOW);
Процедура «RadioGroup»:
if RadioGroup1.ItemIndex=0 then
begin
DBGrid1.Visible:=
DBGrid2.Visible:=
DBGrid3.Visible:=
DBNavigator1.
end;
if RadioGroup1.ItemIndex=1 then
begin
DBGrid1.Visible:=
DBGrid2.Visible:=
DBGrid3.Visible:=
DBNavigator1.
end;
if RadioGroup1.ItemIndex=2 then
begin
DBGrid1.Visible:=
DBGrid2.Visible:=
DBGrid3.Visible:=
DBNavigator1.
end;
После запуска приложения вы увидите главное окно программы (рисунок 27):
Рисунок 27 Главное окно базы данных «Компьютерный магазин».
Для того чтобы распечатать таблицу необходимо кликнуть по «Файл» и «Печать» (рисунок 28).
Рисунок 28 Для печати таблицы
Для выхода из программы необходимо кликнуть «Файл» и «Выход» (рисунок 29).
Рисунок 29 Для выхода из программы
Чтобы изменить шрифт необходимо кликнуть «Настройки» и «шрифт» (рисунок 30).
Рисунок 30 Выбор шрифта.
Чтобы узнать о программе необходимо, кликнуть «Помощь» «о программе» (рисунок 31).
Рисунок 31 О программе
Для того чтобы узнать «о создателе» необходимо кликнуть «Помощь» «о создателе» (рисунок 32).
Рисунок 32 О создателе.
Чтобы узнать о «руководстве пользователя» необходимо кликнуть «Помощь» «руководство пользователя» (рисунок 33).
Рисунок 33– Руководство пользователя.
Чтобы переключаться между таблицами, необходимо кликнуть по выбранной базе данных (рисунок 34).
Рисунок 34 – Перемещение между таблицами.
Для перемещения из начала таблице в конец необходимо кликнуть по а если на оборот то . Также можно добавить в таблицу данные при нажатии кнопки, а если удалить то .
А эти кнопки предназначены для перехода построчно.
Изменить
Сохранить
Удалить
Обновить
В теоретической части была рассмотрена достаточно актуальная тема среди программистов – оптимизация программ. В ней были рассмотрены методы и подходы к различным средам программированиям в современной операционной системе.
Оптимизация программ является неотъемлемой частью всех хорошо обученных программистов. Ведь программа, работающая эффективно и быстро намного лучше той, которая работает медленнее и сложна в освоении, именно поэтому оптимизация программ является наиболее актуальной темой на данный период времени.
Если программа работает быстро и устойчива к любому программному обеспечению и операционной системе это значит, что вы добились успеха, ваша программа ,будет иметь успех, ведь массовость применения это и есть прибыль от вашей работы.
В практической части была создана программа “База данных компьютерного магазина”, также были рассмотрены аналоги существующих баз данных.
1. Компьюлиб.
Небольшая
программа предоставляющая
Недостатки данной программы в том, что она платная и имеет очень громоздкий и непонятный интерфейс.
2.Hardware inspector.
Инвентарный
учет компьютеров и оргтехники на
предприятии. Возможность
Недостатки программы заключаются в том, что программа очень устарела по отношению к нашей базе данных и имеет очень большой клиент – 40 мегабайт.
ПРИЛОЖЕНИЕ
Исходный текст программы база данных «Компьютерный магазин»
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, jpeg, Menus,
StdCtrls, ShellAPI;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
DataSource2: TDataSource;
DataSource3: TDataSource;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
RadioGroup1: TRadioGroup;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
FontDialog1: TFontDialog;
ColorDialog1: TColorDialog;
PrintDialog1: TPrintDialog;
procedure RadioGroup1Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Информация о работе Практическое задание на тему: База данных «Компьютерный магазин»