Проектирование автоматизированной информационной системы "Учет торговых точек для мэрии г. Череповца"
Автоматизация учета торговых точек, обеспечение хранения статистической информации. Требования к функциональным характеристикам и условиям эксплуатации программы. Выбор технологии и инструментальных средств. Реализация программы, настройка и проверка.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 20.03.2017 |
| Размер файла | 1,8 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
if DataM. Region. Modified then DataM. Region. Post;
if DataM. Ulicy. Modified then DataM. Ulicy. Post;
DBNavigatorS. BtnClick (nbRefresh);
ButtonOK. Enabled: = false;
end;
// -------------------------------------------------------------------------------
procedure TFormSpr. ButtonAddClick (Sender: TObject);
begin
DBNavigatorS. BtnClick (nbInsert);
end;
// -------------------------------------------------------------------------------
procedure TFormSpr. ButtonDelClick (Sender: TObject);
begin
DBNavigatorS. BtnClick (nbDelete);
end;
// -------------------------------------------------------------------------------
procedure TFormSpr. ButtonExClick (Sender: TObject);
begin
Close;
end;
// -------------------------------------------------------------------------------
end.
unit UnitA;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask, Buttons;
type
TFormA = class (TForm)
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
Label1: TLabel;
DBNavigatorM: TDBNavigator;
ButtonOK: TSpeedButton;
ButtonCancel: TSpeedButton;
ButtonEx: TSpeedButton;
Label14: TLabel;
MaskEdit2: TMaskEdit;
Label5: TLabel;
MaskEdit1: TMaskEdit;
Label6: TLabel;
MaskEdit3: TMaskEdit;
Label7: TLabel;
DBLookupCBVP: TDBLookupComboBox;
Label8: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label9: TLabel;
DBEdit5: TDBEdit;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
Label2: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
Label3: TLabel;
Label4: TLabel;
Label10: TLabel;
Label15: TLabel;
Label16: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
DBEdit2: TDBEdit;
DBEdit4: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
procedure DBEdit1Change (Sender: TObject);
procedure FormShow (Sender: TObject);
procedure ButtonExClick (Sender: TObject);
procedure ButtonCancelClick (Sender: TObject);
procedure ButtonOKClick (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormA: TFormA;
implementation
uses UnitMain, UnitD;
{$R *. DFM}
// -------------------------------------------------------------------------------
procedure TFormA. ButtonExClick (Sender: TObject);
begin
Close;
end;
// -------------------------------------------------------------------------------
procedure TFormA. DBEdit1Change (Sender: TObject);
begin
ButtonOK. Enabled: = true;
end;
// -------------------------------------------------------------------------------
procedure TFormA. FormShow (Sender: TObject);
begin
MaskEdit1. Text: = DataM. TTDSDesigner2. AsString;
MaskEdit2. Text: = DataM. TTDSDesigner3. AsString;
MaskEdit3. Text: = DataM. TTDSDesigner4. AsString;
ButtonOK. Enabled: = false;
end;
// -------------------------------------------------------------------------------
procedure TFormA. ButtonOKClick (Sender: TObject);
begin
dbnavigatorM. BtnClick (nbPost);
DBNavigatorM. BtnClick (nbRefresh);
ButtonOK. Enabled: = false;
end;
// -------------------------------------------------------------------------------
procedure TFormA. ButtonCancelClick (Sender: TObject);
begin
MaskEdit1. Text: = DataM. TTDSDesigner2. AsString;
MaskEdit2. Text: = DataM. TTDSDesigner3. AsString;
MaskEdit3. Text: = DataM. TTDSDesigner4. AsString;
ButtonOK. Enabled: = false;
DBNavigatorM. BtnClick (nbRefresh);
end;
// -------------------------------------------------------------------------------
end.
unit UnitL;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, StdCtrls, Mask, DBCtrls, DBTables, ExtCtrls, Buttons;
type
TFormL = class (TForm)
DBNavigatorM: TDBNavigator;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label5: TLabel;
Label3: TLabel;
DBEdit1: TDBEdit;
MaskEdit1: TMaskEdit;
Label4: TLabel;
DBEdit2: TDBEdit;
Label6: TLabel;
DBEdit4: TDBEdit;
Label10: TLabel;
Label11: TLabel;
DBEdit11: TDBEdit;
DBEdit8: TDBEdit;
Label1: TLabel;
DBMemo1: TDBMemo;
Label7: TLabel;
Label2: TLabel;
DBEdit3: TDBEdit;
Label8: TLabel;
Label9: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
Label12: TLabel;
DBEdit12: TDBEdit;
Label13: TLabel;
DBEdit9: TDBEdit;
ButtonOK: TSpeedButton;
ButtonCancel: TSpeedButton;
ButtonEx: TSpeedButton;
DBNavigatorN: TDBNavigator;
Label14: TLabel;
MaskEdit2: TMaskEdit;
procedure FormCreate (Sender: TObject);
procedure DBEdit1Change (Sender: TObject);
procedure ButtonCancelClick (Sender: TObject);
procedure ButtonOKClick (Sender: TObject);
procedure ButtonExClick (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormL: TFormL;
implementation
uses UnitMain, UnitD;
{$R *. DFM}
// -------------------------------------------------------------------------------
procedure TFormL. ButtonCancelClick (Sender: TObject);
begin
DBNavigatorM. BtnClick (nbCancel);
DBNavigatorN. BtnClick (nbCancel);
MaskEdit1. Text: = DataM. PassportDSDesigner5. AsString;
MaskEdit2. Text: = DataM.rukovoditelDSDesigner8. AsString;
Close;
end;
// -------------------------------------------------------------------------------
procedure TFormL. ButtonExClick (Sender: TObject);
begin
Close;
DBNavigatorM. BtnClick (nbRefresh);
DBNavigatorN. BtnClick (nbRefresh);
end;
// -------------------------------------------------------------------------------
procedure TFormL. FormCreate (Sender: TObject);
begin
ButtonOK. Enabled: = false;
MaskEdit1. Text: = DataM. PassportDSDesigner5. AsString;
MaskEdit2. Text: = DataM.rukovoditelDSDesigner8. AsString;
end;
// -------------------------------------------------------------------------------
procedure TFormL. DBEdit1Change (Sender: TObject);
begin
ButtonOK. Enabled: = true;
end;
// -------------------------------------------------------------------------------
procedure TFormL. ButtonOKClick (Sender: TObject);
begin
DBNavigatorM. BtnClick (nbPost);
DBNavigatorN. BtnClick (nbPost);
DBNavigatorM. BtnClick (nbRefresh);
DBNavigatorN. BtnClick (nbRefresh);
ButtonOK. Enabled: = false;
end;
// -------------------------------------------------------------------------------
procedure TFormL. FormClose (Sender: TObject; var Action: TCloseAction);
begin
end;
// -------------------------------------------------------------------------------
end.
Размещено на Allbest.ru
Подобные документы
Требования к функциональным характеристикам информационной системы "Подписка". Функциональное проектирование автоматизированной системы ведения учета основных средств на предприятии. Проектирование базы данных автоматизированной системы ведения учета.
курсовая работа [753,0 K], добавлен 16.01.2015Теоретические основы проектирования информационной системы и базы данных. Проектирование информационной системы "Автоматизация учета торговых операций в автомобильном салоне". Методология SADT и DFD, описание IDEF0-модели. Разработка форм приложения.
курсовая работа [2,8 M], добавлен 15.04.2015Требования к функциональным характеристикам, надежности и условиям эксплуатации программы. Информационное обеспечение задачи, нормативно-справочные данные, входная и выходная информация. Схема взаимосвязи программных модулей и описание программы.
курсовая работа [979,2 K], добавлен 20.09.2012Выбор инструментальной системы управления базами данных. Описание Торговой Информационной Системы, предназначенной для ведения учета на производственных предприятиях, в оптовых и розничных торговых компаниях. Руководство для пользователя программы.
дипломная работа [1,6 M], добавлен 07.12.2012Анализ предметной области. Выбор и обоснование выбора программного обеспечения. Разработка автоматизированной информационной системы учета торговых операций в автосалоне. Создание модуля данных, запросов и отчетов. Построение проектной диаграммы Ганта.
курсовая работа [8,6 M], добавлен 13.04.2016Системный анализ предметной области. Требования к программе и программному изделию, к функциональным характеристикам, к надежности, составу и параметрам технических средств. Обоснование выбора средств выбора для хранения и обработки базы данных.
реферат [403,8 K], добавлен 02.02.2014Создание автоматизированной системы учета заказов и их выполнения в строительной фирме по ремонту квартир. Общие требования к информационной системе. Проектирование структуры базы данных. Построение ER-диаграммы. Реализация информационной системы.
курсовая работа [750,2 K], добавлен 24.03.2014Среда разработки Delphi. Обзор современной автоматизированной информационной системы "Книжный склад". Структурированное добавление новых данных. Автоматизация учета и отчетности товарооборота фирм. Дублирование ввода информации. Деление книг по тематикам.
курсовая работа [1,1 M], добавлен 27.08.2012Требования к программе или программному продукту. Условия эксплуатации и требования к параметрам технических средств. Программное обеспечение, рекомендуемое для функционирования программы. Руководство системного программиста и настройка программы.
отчет по практике [1,1 M], добавлен 22.07.2012Требования к функциональным характеристикам разрабатываемой автоматизированной системы. Системы управления обучением. Обзор средств разработки, серверов, СУБД. Применение модели "сущность-связь", ее преимущества. Архитектура программного средства.
курсовая работа [900,7 K], добавлен 07.07.2012
