Разработка информационно-справочной системы Аптека (стр. 2 из 4)

4.2. Завоз медикаментов.

При поступлении медикаментов необходимо нажать кнопку «Завоз» или выбрать пункт меню Операции->Завоз. После этот появляется форма завоза. На форме необходимо заполнить предлагаемые поля. Если завезенный товар уже имеется на складе, то есть происходит пополнение запаса, то надо выбрать его наименование из списка, указать количество, общую стоимость и дату завоза (по умолчанию выбрана текущая дата). Если товар новый, то есть в таблице Tovar отсутствует, то надо поставить галочку в поле «Новый товар». Теперь список выбора наименования не доступен. Его надо указать в открывшемся текстовом поле. Также предлагается выбрать единицу измерения (мешок или ящик) и стоимость за единицу измерения. В нижней половине формы выбирается или вводится поставщик продукта и указать его телефон (если поставщик новый, необходимо выбрать галочку «Новый поставщик»). После заполнения всех полей можно нажимать кнопку «Добавить», после чего добавляются новые записи или обновляются старые во всех таблицах. Кнопка «Выход» закрывает форму завоза.

4.3.Продажа медикаментов.

Прежде чем нажимать кнопку «Продать» (Операции->Продажа) необходимо навести указатель в таблице на продаваемый товар. Выбранный товар предлагается продать. На форме цифровое поле для выбора количества продаваемого медикаментов (по умолчанию весь товар) и три кнопки: «Да» - для продажи указанного количества, «Выход» - для закрытия формы и «Накладная» для распечатки накладной документации о проданном товаре.

4.4. Смена режима работы.

В программе предусмотрены несколько режимов работы для разных целей. В режиме работы «Просмотр» доступна одна таблица «Медикаменты», операции смены режимы и выборки. Изменение информации не возможно. Этот режим загружается по умолчанию и для перехода в него не нужен пароль. Режим «Продажа» дополняется возможностью продажи медикаментов. В режиме «Завоз» есть возможность завоза продуктов. Наибольший приоритет у режима «Администрирование». В этом режиме доступны все кнопки и пункты меню. Имеется возможность смены паролей для всех режимов. Таблицы могут редактироваться напрямую через сетку. Это предусмотрено на случай опечатки или ошибки. Пароли режимов хранятся в реестре Windows.

4.5. Выборка записей.

Назначение этой операции – удобство представления информации. Здесь возможны два действия – выборка и сортировка. Выборка – это выделение записей из все таблицы, удовлетворяющих определенному условию. Для ее осуществления необходимо указать таблицу и условие, по которому проводится поиск. Список полей меняется динамически с выбором таблицы. Также меняются и операции в соответствии с типом выбранного поля (операции сравнения для численных значений и функции вхождения и совпадения для строковых типов). В поле «Значение» вводится образец. Для сортировки достаточно указать имя таблицы и имя поля. Заполнение остальных полей не требуется. После нажатия соответствующей кнопки в сетке отображается выборочные данные. Отмена выборки (вывод всех записей таблицы) выполняется нажатием кнопки «Отмена выборки». Необходимые данные – название таблицы.

4.6. Смена паролей.

Эта опция доступна только для администратора. Достаточно выбрать режим работы, и два раза (для исключения опечатки) набрать новый пароль. Значения в реестре будут изменены.

4.7. Отчеты.

Форма показывает содержимое файла report.txt, куда ежемесячно программа записывает отчеты по купле продаже товаров. Если файл по какой-либо причине не существует он будет создан заново.

5. Заключение.

Как уже отмечалось ранее, эта программа не является уникальной или особенной, хотя и реализует многие потребности средних и мелких торговых организаций. Подобных программ, в том числе и более совершенных, очень много. Но спрос есть, а значит будет и предложение. Отсюда и такое количество. Понятно, что пользоваться, в конце концов будут только лучшими. Дальнейшая разработка программного продукта может резко увеличить шансы на «жизнь». Так возможен переход на другой, основанный полностью на SQL сервер (например, Interbase, MSSQL, Oracle). Это даст приложению больше скорости в работе с данными и больше гибкости, так как язык SQL специально для этого предназначен. Также хорошим плюсом был бы переход от использования локальных, файл-серверных к клиент серверным приложениям. Такие комплексы программ вполне «тянут» на коммерческие.

6. Список литературы.

1. П. В. Шумаков, В. В. Фаронов. Delphi 7 для руководство разработчика баз данных. Нолидж, М. 1999г.

2. Delphi 5 и базы данных. Питер СПб. 2000г.

3. Интернет-сайт Delphi.mastak.ru/

4. Лекции по дисциплине «ТРП».

7.Приложение

program Main;

uses Forms,

MainUnit in 'MainUnit.pas' {MainForm},

PassUnit in 'PassUnit.pas' {PassForm},

SaleUnit in 'SaleUnit.pas' {SaleForm},

RecieveUnit in 'RecieveUnit.pas' {RecieveForm},

reportUnit in 'reportUnit.pas' {ReportForm},

PropUnit in 'PropUnit.pas' {PropForm},

FindUnit in 'FindUnit.pas' {SelectForm};

{$R *.RES}

begin

Application.Initialize;

Application.CreateForm(TMainForm, MainForm);

Application.CreateForm(TPassForm, PassForm);

Application.CreateForm(TSaleForm, SaleForm);

Application.CreateForm(TRecieveForm, RecieveForm);

Application.CreateForm(TReportForm, ReportForm);

Application.CreateForm(TPropForm, PropForm);

Application.CreateForm(TSelectForm, SelectForm);

Application.Run;

end.

unit MainUnit;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, Db, DBTables, PropUnit, ReportUnit, RecieveUnit, PassUnit, SaleUnit, Menus;

type TMainForm = class(TForm)

PassButton: TButton;

DataSourceTov: TDataSource;

TableTov: TTable;

DBGrid1: TDBGrid;

Label1: TLabel;

ExitButton: TButton;

SaleButton: TButton;

RecieveButton: TButton;

TableNakl: TTable;

DataSourceNakl: TDataSource;

TablePost: TTable;

DataSourcePost: TDataSource;

DBGrid3: TDBGrid;

DBGrid4: TDBGrid;

Label3: TLabel;

Label4: TLabel;

PropButton: TButton;

ReportButton: TButton;

SelectButton: TButton;

QueryTov: TQuery;

QueryNakl: TQuery;

QueryPost: TQuery;

SaveButton: TButton;

CancelSelectButton: TButton;

QueryPostPostCode: TIntegerField;

QueryPostPostName: TStringField;

QueryPostPostPhone: TIntegerField;

QueryNaklNaklNum: TIntegerField;

QueryNaklTovarCode: TSmallintField;

QueryNaklPostCode: TSmallintField;

QueryNaklDate: TDateField;

QueryNaklRecieved: TIntegerField;

QueryNaklSum: TIntegerField;

QueryTovTovarCode: TIntegerField;

QueryTovTovarName: TStringField;

QueryTovEdIzm: TStringField;

QueryTovPrice: TCurrencyField;

QueryTovCol: TIntegerField;

TableNaklNaklNum: TAutoIncField;

TableNaklTovarCode: TSmallintField;

TableNaklPostCode: TSmallintField;

TableNaklDate: TDateField;

TableNaklRecieved: TIntegerField;

TableNaklSum: TIntegerField;

TableTovTovarCode: TAutoIncField;

TableTovTovarName: TStringField;

TableTovEdIzm: TStringField;

TableTovPrice: TCurrencyField;

TableTovCol: TIntegerField;

TablePostPostCode: TAutoIncField;

TablePostPostName: TStringField;

TablePostPostPhone: TIntegerField;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

procedure PassButtonClick(Sender: TObject);

procedure ExitButtonClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SaleButtonClick(Sender: TObject);

procedure Rights;

procedure RecieveButtonClick(Sender: TObject);

procedure ReportButtonClick(Sender: TObject);

procedure PropButtonClick(Sender: TObject);

procedure SelectButtonClick(Sender: TObject);

procedure SaveButtonClick(Sender: TObject);

procedure CancelSelectButtonClick(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private { Private declarations }

public { Public declarations }

end;

var MainForm: TMainForm;

implementation

uses FindUnit;

{$R *.DFM}

procedure TMainForm.Rights;

var i:byte;

begin

for i:=0 to ComponentCount-1 do begin

If (Components[i] is TButton) then (Components[i] as TButton).enabled:=false;

If (Components[i] is TLabel) and ((Components[i] as TLabel).Caption<>'Медикаменты') then (Components[i] as TLabel).visible:=false;

If (Components[i] is TDBGrid) then

begin

If (Components[i] as TDBGrid).Name='DBGrid1' then (Components[i] as TDBGrid).ReadOnly:=true

else (Components[i] as TDBGrid).visible:=false;

end; end;

ExitButton.Enabled:=true;

SelectButton.Enabled:=true;

CancelSelectButton.Enabled:=true;

PassButton.Enabled:=true;

N3.enabled:=false;

N5.enabled:=false;

N7.enabled:=false;

N8.enabled:=false;

If Mode='Завоз' then

begin

RecieveButton.Enabled:=true;

N7.enabled:=true;

end

else If Mode='Продажа' then

begin

SaleButton.enabled:=true;

N8.enabled:=true;

end

else If Mode='Администрирование' then

begin

for i:=0 to ComponentCount-1 do begin

If (Components[i] is TButton) then (Components[i] as TButton).enabled:=true;

If (Components[i] is TMenuItem) then (Components[i] as TMenuItem).enabled:=true;

If (Components[i] is TLabel) then (Components[i] as TLabel).visible:=true;

If (Components[i] is TDBGrid) then

begin

(Components[i] as TDBGrid).ReadOnly:=false;

(Components[i] as TDBGrid).visible:=true;

end; end; end;end;

procedure TMainForm.PassButtonClick(Sender: TObject);

begin

PassForm.Edit1.text:='';

PassForm.ShowModal;

Rights;

end;

procedure TMainForm.ExitButtonClick(Sender: TObject);

begin

Close;

end;

procedure TMainForm.FormCreate(Sender: TObject);

Var curday,curmonth,curyear,

day,month,year:word;

f:textfile;

rash,doh:longint;

num:word;

Procedure GenerateReport;

begin

rash:=0;

doh:=0;

num:=0;

TableNakl.First;

while not TableNakl.Eof do begin

DecodeDate(TableNakl.FieldByName('Date').AsDateTime,Year,month,day);

if (year=curyear) and (month=curmonth-1) then begin;

inc(num);

rash:=rash+TableNakl.FieldByName('sum').AsInteger;

doh:=doh+TableNakl.FieldByName('col').AsInteger*

TableTov.FieldByName('Price').AsInteger;

end;

TableNakl.Next;

end;

assignfile(f,'report.txt');

If Fileexists('report.txt') then append(f)

else rewrite(f);

Writeln(f);