Курсовая работа (т): Автоматизированное рабочее место заведующего складом торгового предприятия

Источники разработки

Г.Н. Смирнова и др., под редакцией Ю.Ф. Тельнова. Проектирование экономических информационных систем. М.: Финансы и статистика, 2001г.

А.М. Вендров. Проектирование программного обеспечения АСОИиУ. Учебник, М.: Финансы и статистика, 2000 г.

В. Л. Кучеренко - Тонкости программирования на Delphi. - М.: «Познавательная книга плюс», 2000

М.В. Сухарев. Основы Delphi: профессиональный подход. СПб.:Наука и техника, 2004 г.

Рудинский И.Д. Технология проектирования автоматизированных систем обработки информации и управления. Учебное пособие для ВУЗов.- М.: Горячая линия - Телеком, 2011. 304с. (наличие количества экземпляров в библиотеке КБГУ- 0 экз.).

Ю. Бакаревич. Access 2010. Год издания 2011. Издательство: БХВ-Петербург. Серия: Самоучитель.

Э.Л. Тамбиева. Лекционный курс; лабораторный практикум; практическая работа по дисциплине “Проектирование АСОИиУ” - электронный ресурс.

Приложение 1

Список нормативных документы на проектирование, разработку и оформление АСОИиУ

Приложение 2

Формы документов торгового предприятия

Накладная на закупку товара отделом «Склад».

НАКЛАДНАЯ № _____________

от «____»___________________20 г.

Сумма прописью__________________________________

Отпустил _______________________   Получил ______________

(ФИО) (ФИО)

Бланк заказа на приобретение товара отделом «Склад».

ЗАКАЗ

на приобретение товара

« »_________________ 200 г.

от _________________________________

(ФИО заказчика)

Принял_________________________ _________________________

(ФИО) (подпись)

Приложение 3

Программный код АРМ заведующего складом торгового предприятия

unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Menus, DB, Grids, DBGrids, ADODB, jpeg, ExtCtrls;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TDBGrid;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TADOTable;: TADOConnection;: TDataSource;: TImage;: TAutoIncField;: TWideStringField;: TWideStringField;: TIntegerField;: TIntegerField;: TWideStringField;Button1Click(Sender: TObject);N3Click(Sender: TObject);N4Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);N8Click(Sender: TObject);N11Click(Sender: TObject);N9Click(Sender: TObject);N10Click(Sender: TObject);N2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;Unit2, Unit4; (подключение Unit2 и Unit4)

{$R *.dfm}TForm1.Button1Click(Sender: TObject); {добавление товара}.MebelName.Insert;.MebelName.FieldByName(DBGrid1.Columns.Items[1].DisplayName)

.AsString := Self.Edit1.Text;.MebelName.FieldByName(DBGrid1.Columns.Items[2].DisplayName)

.AsString := Self.Edit2.Text;.MebelName.FieldByName(DBGrid1.Columns.Items[3].DisplayName)

.AsString := Self.Edit3.Text;.MebelName.FieldByName(DBGrid1.Columns.Items[4].DisplayName)

.AsString := Self.Edit4.Text;.MebelName.FieldByName(DBGrid1.Columns.Items[5].DisplayName)

.AsString := Self.Edit5.Text;.MebelName.Post;;TForm1.N3Click(Sender: TObject); {удаление товара}MessageDlg ('Удалить запись?', mtConfirmation, [mbYes, mbNo], 0)

= mrNO then Abort;.MebelName.Delete;;

TForm1.N4Click(Sender: TObject); {сохранение изменений}MessageDlg ('Сохранить изменения?', mtConfirmation, [mbYes, mbNo], 0)

= mrNO then Abort;Form1.MebelName.Modified then.MebelName.Post;;TForm1.N6Click(Sender: TObject); {сортировка по цене}.MebelName.IndexFieldNames:= 'MebelNameCena';;TForm1.N7Click(Sender: TObject); {сортировка по материалу}.MebelName.IndexFieldNames:= 'MebelNameMaterial';;TForm1.N8Click(Sender: TObject); {сортировка по количеству}.MebelName.IndexFieldNames:= 'MebelNameKolichestvo';;TForm1.N11Click(Sender: TObject); {закрытие программы};;TForm1.N9Click(Sender: TObject);

begin.Show; {открытие окна поиска}.pnl1.Show; {вызов панели поиска}.Hide; {cкрытие главного окна}

end;TForm1.N10Click(Sender: TObject);

{закрывает главное окно, открывает окно с диаграммами}.Hide; {скрытие главного окна}.Show; {открытие окна диаграмм}

end;TForm1.N2Click(Sender: TObject);

{сортировка по цене, материалу и количеству}

begin.MebelName.Insert;.MebelName.FieldByName(DBGrid1.Columns.Items[1].DisplayName).AsString := Self.Edit1.Text;.MebelName.FieldByName(DBGrid1.Columns.Items[2].DisplayName).AsString := Self.Edit2.Text;.MebelName.FieldByName(DBGrid1.Columns.Items[3].DisplayName).AsString := Self.Edit3.Text;.MebelName.FieldByName(DBGrid1.Columns.Items[4].DisplayName).AsString := Self.Edit4.Text;.MebelName.FieldByName(DBGrid1.Columns.Items[5].DisplayName).AsString := Self.Edit5.Text;.MebelName.Post;;.Unit2;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, Grids, DBGrids, ADODB, ExtCtrls, StdCtrls, jpeg;= class(TForm): TADOConnection;: TADOTable;: TDBGrid;: TDataSource;: TLabel;: TEdit;: TRadioButton;: TRadioButton;: TRadioButton;: TButton;: TButton;: TButton;: TImage;: TLabel;: TPanel;: TAutoIncField;: TWideStringField;: TWideStringField;: TIntegerField;: TIntegerField;_: TWideStringField;btn1Click(Sender: TObject);btn2Click(Sender: TObject);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm2;Unit1;

{$R *.dfm}TForm2.btn1Click(Sender: TObject); rb1.Checked then {поиск по товару}Edt1.Text='' then exit;.tblMebelName.Filtered := false;.tblMebelName.Filter := 'tblMebelNameDSDesigner2 LIKE ''*' + Edt1.Text + '*''';.tblMebelName.Filtered := true;;rb2.Checked then {поиск по материалу}Edt1.Text='' then exit;.tblMebelName.Filtered := false;.tblMebelName.Filter := 'tblMebelNameDSDesigner3 LIKE ''*' + Edt1.Text + '*''';.tblMebelName.Filtered := true;;

if rb3.Checked then {поиск по стране производителя}

beginEdt1.Text='' then exit;.tblMebelName.Filtered := false;.tblMebelName.Filter := 'tblMebelName_ LIKE ''*' + Edt1.Text + '*''';.tblMebelName.Filtered := true;;

end;.