Название
поля
|
Название
поля в БД
|
Тип
поля в БД
|
Код
|
Kodpostavcika
|
Integer,
not null, identity(1,1), primary key
|
Название
|
nazvanie
|
Varchar(255)
|
4. Описание интерфейса пользователя
Пользовательский интерфейс это среда,
обеспечивающая взаимодействие пользователя и программного обеспечения.
Пользовательский интерфейс - это то, с чем человек может работать
непосредственно (т.е. интерфейс через экран, клавиатуру, мышь и т.д.).
Программа состоит из восьми независимых, но
схожих форм.
При запуске приложения появляется главная форма
«Приветствие» (рис 4.1), с которой осуществляется переход на остальные формы.
Рисунок 4.1 - Форма «Приветствие».
В программе присутствуют четыре справочника:
поставщиков, сотрудников, товаров и складов. На рисунке 4.2 представлен
справочник сотрудников. Остальные справочники выглядят аналогично.
Рисунок 4.2 - Справочник поставщиков.
Операции прихода и выбытия товаров
осуществляются на формах «Приход» и «Расход» соответственно. На рисунке 4.5
изображена форма «Приход».
Рисунок 4.5 - Приход товаров.
Пример оборотно-сальдовой ведомости по субконто
представлен на рисунке 4.6.
Рисунок 4.6 - Оборотно-сальдовая ведомость по
субконто
5. Описание методов работы с информационной
системой
информационный бухгалтерский учет
После запуска приложения будет открыта главная форма
- форма «Приветствие».
Отсюда, используя элементы главного меню, можно
перемещаться на любую другую форму для выполнения интересующих операций.
Для работы со справочниками необходимо выбрать
пункт меню «Справочники» и затем выбрать интересующий справочник. После этого
откроется соответствующую форма. В верхней части формы находится таблица, в
которой отображаются все содержащиеся на текущий момент записи. В нижней части
расположена панель инструментов, с помощью которой можно осуществлять все
типовые операции над справочником - добавлять, удалять, редактировать
информацию. Все справочники имеют схожий и интерфейс и работа с ними
осуществляется аналогично вышеописанной.
Для фиксирования прихода или выбытия товара
необходимо на главной форме выбрать пункт меню «Операции» и затем выбрать
нужную операцию - приход или расход соответственно. Открывшаяся форма визуально
разделена на две части. В верхней части - «накладные» - находится таблица,
отображающая все товарно-транспортные накладные выбранной операции. С помощью
панели инструментов под этой таблицей осуществляется добавление, редактирование
и удаление товарно-транспортных накладных. При выборе какой-то конкретной
записи этой таблицы в нижней части - «Товарная часть» - отображается список
товаров данной накладной с указанием количества и стоимости. Под этой таблицей
так же находится панель инструментов, с помощью которой осуществляются типовые
операции над товарной частью. В главном меню форм «Приход» и «Расход» имеется
кнопка «Печать», с помощью которой можно распечатать выбранную
товарно-транспортную накладную.
Чтобы сформировать оборотно-сальдовую ведомость
по субконто необходимо на главной форме выбрать пункт меню «Отчёт». На
открывшейся форме указать диапазон дат, за который необходима ведомость и нажать
«Сформировать». Открывшийся отчёт можно распечатать, нажав соответствующую
кнопку меню.
Для выхода из программы необходимо
воспользоваться кнопкой «Выход» на главной форме.
Заключение
В ходе выполнения данного курсового проекта была
проанализирована предметная область и разработано приложение, позволяющее
автоматизировать учёт товаров на складе торгового предприятия.
Программа разработана на языке программирования Paskal
в среде программирования Delphi
7, так как данная IDE
обладает всеми необходимыми средствами доступа к базам данных (технология ADO).
Полученный программный продукт нуждается в
расширении функциональных возможностей и исправлении недочётов интерфейса,
однако уже на данном этапе он полностью работоспособен и может быть использован
торговыми предприятиями для решения вопроса автоматизации учёта товаров.
Список использованных источников
1. Ашарчук, Л.М. -
Информационные системы в управлении, 2009.
. Норенков, И.П. - Основы
автоматизированного проектирования: Учеб. Для вузов. - М.: Изд-во МГТУ им. Н.
Э. Баумана, 2000. - 360 с. ил.
. Астафьева, В.А., Ковальчук
Е.В. - Технологии автоматизированной обработки, 2006.
. Прохорова, Т.В. -
Автоматизация учета в системе «1С Предприятие 7.7» для Республики Беларусь,
2006.
Приложение а
(обязательное)
Листинг программы
unit
Unit1;
interface
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, RpRave, RpCon, RpConDS,
RpDefine, RpBase, RpSystem, DB, ADODB,
Menus, jpeg, ExtCtrls;
TForm1 = class(TForm)
MainMenu1: TMainMenu;
ADOConnection1: TADOConnection;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
N4: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N6: TMenuItem;
img1: TImage;
N10: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure img1Click(Sender:
TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form1: TForm1;Unit2, Unit3, Unit5,
Unit4, Unit7, Unit9, Unit11;
{$R *.dfm}TForm1.N2Click(Sender:
TObject);.ShowModal;;TForm1.N3Click(Sender: TObject);.ShowModal;;TForm1.N8Click(Sender:
TObject);.ShowModal;;TForm1.N7Click(Sender:
TObject);.ShowModal;;TForm1.N4Click(Sender:
TObject);.ShowModal;;TForm1.N6Click(Sender:
TObject);.ShowModal;;TForm1.N9Click(Sender:
TObject);.ShowModal;;TForm1.N10Click(Sender: TObject);;;Unit1;
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, RpRave, RpCon, RpConDS,
RpDefine, RpBase, RpSystem, DB, ADODB,
Menus, jpeg, ExtCtrls;
TForm1 = class(TForm)
MainMenu1: TMainMenu;
ADOConnection1: TADOConnection;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
N4: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N6: TMenuItem;
img1: TImage;
N10: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure img1Click(Sender:
TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form1: TForm1;Unit2, Unit3, Unit5,
Unit4, Unit7, Unit9, Unit11;
{$R *.dfm}TForm1.N2Click(Sender:
TObject);.ShowModal;;TForm1.N3Click(Sender:
TObject);.ShowModal;;TForm1.N8Click(Sender: TObject);.ShowModal;;TForm1.N7Click(Sender:
TObject);.ShowModal;;TForm1.N4Click(Sender:
TObject);.ShowModal;;TForm1.N6Click(Sender:
TObject);.ShowModal;;TForm1.N9Click(Sender:
TObject);.ShowModal;;TForm1.N10Click(Sender: TObject);;;Unit11;
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, StdCtrls, Mask,
DBCtrls, Grids, DBGrids, DB, ExtCtrls;
TForm11 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
ADOTable4: TADOTable;
DBEdit5: TDBEdit;
ADOTable5: TADOTable;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
DataSource6: TDataSource;
DataSource7: TDataSource;
ADOQuery2: TADOQuery;
DataSource8: TDataSource;
ADOTable6: TADOTable;
ADOTable7: TADOTable;
DataSource9: TDataSource;
DataSource10: TDataSource;
ADOTable8: TADOTable;
ADOTable9: TADOTable;
DataSource11: TDataSource;
DataSource12: TDataSource;
ADOTable10: TADOTable;
DBGrid2: TDBGrid;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
ADOQuery1IdOperacii: TAutoIncField;
ADOQuery1KodOperacii: TIntegerField;
ADOQuery1Data: TDateTimeField;
ADOQuery1KodTovara: TIntegerField;
ADOQuery1Koli4estvo: TIntegerField;
ADOQuery1KodPostavs4ika:
TIntegerField;
ADOQuery1KodSklada: TIntegerField;
Label18: TLabel;
DBLookupComboBox1:
TDBLookupComboBox;
Button6: TButton;
Label19: TLabel;
DBLookupComboBox2:
TDBLookupComboBox;
Button1: TButton;
procedure Button6Click(Sender:
TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form11: TForm11;unit1;
{$R
*.dfm}TForm11.Button6Click(Sender:
TObject);.Filter:='KodTovara='+quotedstr(DBLookupComboBox1.ListSource.DataSet.fieldbyname('KodTovara').AsString);.Filtered:=true;;TForm11.Button1Click(Sender:
TObject);.Filter:='KodTovara='+quotedstr(DBLookupComboBox2.ListSource.DataSet.fieldbyname('KodTovara').AsString);.Filtered:=true;;.Unit12;
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, QuickRpt,
QRCtrls;
QuickRep1: TQuickRep;
QRStringsBand1: TQRStringsBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRSubDetail1: TQRSubDetail;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
Form12: TForm12;unit7;
{$R *.dfm}.Unit13;
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids,
StdCtrls, Mask, DBCtrls, Buttons,
ComCtrls;
TForm13 = class(TForm)
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBLookupComboBox1:
TDBLookupComboBox;
DBEdit1: TDBEdit;
DBLookupComboBox2:
TDBLookupComboBox;
BitBtn1: TBitBtn;
DBLookupComboBox3:
TDBLookupComboBox;
DateTimePicker1: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure BitBtn1Click(Sender:
TObject);
procedure DBEdit1KeyPress(Sender:
TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
Form13: TForm13;Unit1, Unit4, Unit3,
Unit7;
{$R *.dfm}TForm13.BitBtn1Click(Sender:
TObject);.FieldByName('Data').AsDateTime:=DateTimePicker1.Date;.Post;;TForm13.DBEdit1KeyPress(Sender:
TObject; var Key: Char);key of
'0'..'9',#8:key:=chr(0);;;.Unit14;
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls,
ExtCtrls;
TForm14 = class(TForm)
QuickRep1: TQuickRep;
QRStringsBand1: TQRStringsBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRSubDetail1: TQRSubDetail;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
Form14: TForm14;unit9;
{$R *.dfm}.Unit2;
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids,
DBGrids, DB, ADODB;
TForm2 = class(TForm)
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOTable1KodSotrudnika:
TAutoIncField;
ADOTable1FIO: TWideStringField;
ADOTable1Dolznostb:
TWideStringField;
ADOTable1Telafon: TWideStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
Form2: TForm2;unit1;
{$R *.dfm}.Unit3;
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB,
ADODB, Grids, DBGrids, StdCtrls, Buttons;
TForm3 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBNavigator1: TDBNavigator;
ADOTable1KodTovara: TAutoIncField;
ADOTable1NazvanieTovara:
TWideStringField;
ADOTable1Cena: TBCDField;
procedure BitBtn1Click(Sender:
TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form3: TForm3;
uses unit1, Unit13;
{$R
*.dfm}TForm3.BitBtn1Click(Sender:
TObject);.ADOTable1.Append;.ShowModal;;.Unit4;
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, DB,
ADODB, ExtCtrls, Grids, DBGrids;
TForm4 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
DataSource2: TDataSource;
GroupBox1: TGroupBox;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
DBText1: TDBText;
DBText4: TDBText;
DBText5: TDBText;
ADOTable1KodSklada: TAutoIncField;
ADOTable1NazvanieSklada:
TWideStringField;
ADOTable1KodSotrudnika:
TIntegerField;
procedure DBNavigator1Click(Sender:
TObject; Button: TNavigateBtn);
private
{ Private declarations }
public
{ Public declarations }
end;
Form4: TForm4;unit1, Unit6, Unit13;
{$R
*.dfm}TForm4.DBNavigator1Click(Sender: TObject; Button:
TNavigateBtn);button=nbInsert then.ShowModal;;.Unit5;
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB,
ADODB, Grids, DBGrids;
TForm5 = class(TForm)
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
ADOTable1KodPostavs4ika:
TAutoIncField;
ADOTable1NazvaniePostavs4ika:
TWideStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
Form5: TForm5;unit1;
{$R *.dfm}
end.