Реферат: АРМ для работы со складом - текст реферата. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Реферат

АРМ для работы со складом

Банк рефератов / Экономика и финансы

Рубрики  Рубрики реферат банка

закрыть
Категория: Реферат
Язык реферата: Русский
Дата добавления:   
 
Скачать
Microsoft Word, 507 kb, скачать бесплатно
Обойти Антиплагиат
Повысьте уникальность файла до 80-100% здесь.
Промокод referatbank - cкидка 20%!

Узнайте стоимость написания уникальной работы




Автоматическое рабочее место для работы со складом


ВВедение.

Данная программа автоматизированного рабочего места разработана для работников складских помещений, естественно если у них имеется компьютер классом не ниже Pentium. Сейчас на рынке программного обеспечения появляются все больше и больше различных программ для работы не только со складом, но и различные другие программные средства автоматизированного рабочего места, но стоимость их лицензионных копий доходит порой до нескольких десятков тысяч, а моя программа может быть конечно маленько еще “сыровата”, но в процессе работы с нею её можно “довести ее до ума” и все это лишь за пятерку по программированию цена не велика за произведение программного искусства. Каковы её плюсы: ну это естественно простота и понятность (для русского человека) интерфейса программы, что не требует дополнительного обучения или прохождения специальных курсов, особенно для женщин, работающих на складах и не посвященных в азы компьютеров и программного обеспечения; не требовательность к системным ресурсам машины; легкость ввода и отслеживания; простота резервирования базы данных (всего 1 файл), что не маловажно для такой программы.

При написании и разработке курсового проекта я научился работать с Borland Pascal, Microsoft Windows 95OSR2, Microsoft Word 97 SR-2 которые использовались для работы над курсовым проектом, научился использовать справку и другие функции Borland Pascal при этом даже разобрался с английским языком и использованием электронных словарей переводчиков таких как Promt, Stylus, Magic Gooddy 98. Огромное спасибо Волкову А.И. – за отличное преподавание предметов, Billу Gaits – за то что он умеет зарабатывать деньги собственным умом, Мерзлякову Д.С. – за поддержку в трудную минуту, Барышеву А.А. – за техническую поддержку, Русских А.И. – за программную поддержку, Казакову В.С. – за разрешение работать на компьютере, Sting, Queen, и другим за хорошую музыку во время работы над курсовым.


Задание.

Составить программу автоматического рабочего места для работы со складом.

Программа должна предоставлять пользователю возможность:

  • Вводить новый товар, указывая следующие параметры

  • Наименование;

  • Количество;

  • Цену;

  • Дату поступления.

  • Осуществлять поиск товара по наименованию и выдавать его параметры.

  • Помечать выбывший товар, указывая дату выдачи.

  • Выводить список имеющегося товара с возможностью сортировки по любому параметру.

  • Выводить список выбывшего товара с возможностью сортировки по любому параметру.

  • Выдавать общую статистическую характеристику:

  • Общая стоимость имеющегося товара;

  • Количество имеющегося товара;

  • Количество выбывшего товара.

  • Сохранять и восстанавливать всю информацию АРМ с диска.



Описание переменных.

  • basskl – основная запись с необходимыми переменными это:

  • naim – наименование товара;

  • kol – количество товара;

  • price – цена товара;

  • kol_p – количество пришедшего товара;

  • kol_r – количество товара который ушел;

  • date_p – дата прихода товара;

  • date_r – дата расхода товара.

  • f – file базы слада;

  • list – массив данных базы;

  • schet – cчетчик;

  • curs – показатель позиции;

  • stran – счетчик позиции курсора;

  • i – переменная использования;

  • mcurs – переменная начальной позиции меню;

  • k –переменная определения клавиши;

  • res –переменная выбора меню;

  • da – переменная использования;

  • er – переменная ошибки преобразования;

  • tx – переменная текста при поиске;

  • fil – переменная имени базы;

  • key – флажок;

  • seter – переменная использования.


Кроме переменных в программе используются процедуры и функции описание которых приведено ниже;


Функция probel;

Используется для дополнения текста требуемыми количествами пробелов.

Вход: Текст, требуемая длина.

Выход: Текст требуемой длины.


Функция Edtext;

Используется для вывода на экран в нужную позицию текста и его последующего редактирования

Функция работает следующим образом:

Зацикливается до тех пор пока не будет нажатия Enter или Esc. В это время выводит на экран текст в нужную позицию, обновляется , ожидает нажатия клавиш или delete.

Вход: Координаты, текст, длина текста, флажок.

Выход: Вывод на экран текста, отредактированный текст.


Функция Cifri;

Подобна функции Edtext только ввод текста ограничен цифрами.

Работает также.


Процедура Prishlo;

Применяется для вывода на экран меню “Приход” и занесения данных в позицию базы.

Описание работы: Работает со строкой массива базы. Выводит на экран меню “Приход”, преобразует текстовые переменные после ввода в строки меню.


Процедура Ushlo;

Аналогична процедуре Prishlo .Заменена только формула вычисления количества.



Процедура Vvodnov;

Процедура обеспечивающая вывод на экран меню “Новый товар”, ввод новой строки в базу.

Работает: Ограничивается строкой, для работы с переменными записи, выводит на экран меню, пользователем редактируются строки меню, преобразуются, увеличивается счетчик числа строк базы на 1.


Процедура Edzapic;

Используется для редактирования записи в текущей позиции курсора листинга перечня товаров.

Вход: Позиция

Выход: отредактированный текст в данной позиции.


Процедура Ekran;

Отображает на экране заголовок таблицы базы и заполняет таблицу, рассчитывает и отображает на экране нижнюю строку состояния базы общую сумму, общий приход, общий расход, общее количество товаров.

Описание: Формирует окно для работы, отображает заголовок таблицы, цикл для вывода первых двадцати строк базы в окно, обнуление счетчиков сумм, цикл на все позиции базы, расчет сумм в этом цикле вывод результата на экран в виде строки состояния.


Функция Vivstr;

Формирует строку по позиции в базе.

Обнуляется. Работает со строкой в массиве базы. Производит преобразование в стринговые переменные числовых значений базы (количества цены, приход, расход), сумма формируется путем вычисления. Добавление нужными пробелами функцией Probel.


Процедура Vivlist;

Обеспечивает формирование экрана с помощью процедуры Ekran, вывод поясняющей строки. Подкрашивание строки в позиции курсора, опрос клавиш курсора и служебных (для ввода новой, корректировки, удаления). Работает следующим образом: Выполняет процедуру Ekran, прорисовывает строку пояснения, цикл пока не нажата клавиша “влево”, “вправо”, “Enter”, “Esc” – опрашивает клавиатуру с помощью функции “Readkey” если нажата “Вниз” или “Вверх” уменьшаетя или увеличивается соответственно текущий счетчик позиций меню


Функция Vstroca;

Функция организует главное меню в верхней строке экрана.

Устанавливает параметры цвета, выводит на экран массив с переменными меню т.е. названиями меню. Опрашивает клавиатуру на нажатие клавиши “Влево”, “Вправо”, “Enter” выполняет соответствующие этим клавишам команды. Затем если было нажато “Esc” функция принимает значение меньшее 1 и затем в головной программе происходит выход.


Процедура Sortirovka;

Сортирует данные по заданной колонке.

Организуется цикл на все позиции массива базы. База переносит данные в стороннюю базу. Выбирает столбец сортировки сравнивает со сторонней базой если больше то переносит в стороннюю базу запоминает позицию. В конце цикла переставляет позиции основной базы.


Описание алгоритма работы программы.

Очищается экран выводится меню для указания месторасположения и названия файла базы по умолчанию это “С:\base.dat” затем проверяется создан ли файл если нет то создается. Организуется цикл до конца файла переписываются данные в массив базы. Обнуляются переменные. организуется меню по данным функции Vstroka затем происходи выбор с помощью оператора Case по которому осуществляются переходы. В случае “1” прихода функции Vstroka выводится листинг данных базы и заголовков, организация движения курсора по строкам базы при помощи процедуры Vivlist. В случае результата “2” формируется окно с тенью “Пришло”, заполняется окно с помощью процедуры Prishlo по текущей позиции курсора экрана и листинга. “3” формируется окно “Расход”, заполняется с помощью процедуры Ushlo. “4” организуется окно “Найти наименование” вводится текст с помощью функции Edtext. сравнивается с наименованиями базы если находит устанавливает курсор на это место. Если не находит выводит сообщение и устанавливает на конечную позицию. “5” Окно сортировки. Выполняется процедура Sortirovka. При других значениях функции Vstroca происходит запись файла базы, закрытие файла.


Алгоритм программы.




IV. Текст программы.

Program kursovoi;

uses crt;

type basskl = record

naim:string[40];

kol:integer;

price:single;

kol_p:integer;

date_p:string[8];

kol_r:integer;

date_r:string[8];

end;


var f:file of basskl;

List:array[0..255] of basskl;

Schet:Integer;

curs,stran,i,mcurs:integer;

k:char;

Res,da,er,seter:Integer;

Tx,files:String;

key:boolean;

const

mnu:array[1..6] of string[13]=(

' Ввод ',

' Приход ',

' Расход ',

' Найти ',

' Сортировка ',

' Выход ');


function Probel(Text:String;Len:Integer):String;

begin

While length(Text)

Probel:=copy(Text,1,len)

end;


function Edtext(x,y:Integer; Text:String;Len:Integer;var key:boolean):String;

var c:char;

begin

key:=true;

Edtext:='';

repeat

gotoxy(x,y);

write(Text);

write(Probel('',len));

gotoxy(x,y);

write(Text);

c:=Readkey;

if c=#8 then delete(Text,length(Text),1);

if c in ['A'..'z',' ','.','0'..'9','А'..'я','-'] then Text:=Text+c;

Text:=copy(Text,1,len);

until (c=#27) or (c=#13);

if c=#13 then Edtext:=Text else key:=false;

end;


function Cifri(x,y:Integer; Text:String;Len:Integer;var key:boolean):String;

var c:char;

begin

key:=true;

Cifri:='';

repeat

gotoxy(x,y);

write(Text);

write(Probel('',len));

gotoxy(x,y);

write(Text);

c:=Readkey;

if c=#8 then delete(Text,length(Text),1);

if c in ['.','0'..'9','-'] then Text:=Text+c;

Text:=copy(Text,1,len);

until (c=#27) or (c=#13);

if c=#13 then Cifri:=Text else key:=false;

end;


procedure Prishlo(posiz:integer);

var Tx:String;

er:integer;

key:Boolean;

kl:integer;

begin

clrscr;

With List[Posiz] do begin

writeln(' Приход');

writeln(' Количество ->');

writeln(' Дата прихода ДД.ММ.ГГ->');

val(Cifri(25,2,'',6,key),kl,er); if NOT key then exit;

kol_p:=kol_p+kl; kol:=kol+kl;

Date_p:=Cifri(25,3,'',8,key); if NOT key then exit;

end;

end;


procedure Ushlo(posiz:integer);

var er:integer;

key:Boolean;

kl:integer;

begin

clrscr;

With List[Posiz] do begin

writeln(' Расход');

writeln(' Количество ->');

writeln(' Дата расхода ДД.ММ.ГГ->');

val(Cifri(25,2,'',6,key),kl,er); if NOT key then exit;

kol_r:=kol_r+kl; kol:=kol-kl;

Date_r:=Cifri(25,3,'',8,key); if NOT key then exit;

end;

end;


procedure Vvodnov;

var Tx:String;

er:integer;

key:Boolean;

begin

clrscr;

With List[Schet] do begin

writeln(' Новый товар');

writeln(' Наименование товара :');

writeln(' Количество :');

writeln(' Цена :');

writeln(' Дата прихода ДД.ММ.ГГ:'); {readln(date_p);}

Naim:=Edtext(25,2,'',20,key); if NOT key then exit;

val(Cifri(25,3,'',6,key),kol,er); if NOT key then exit;

kol_p:=kol;

val(Cifri(25,4,'',10,key),price,er); if NOT key then exit;

Date_p:=Cifri(25,5,'',8,key); if NOT key then exit;

inc(Schet);

end;

end;


procedure Edzapic(posiz:integer);

var Tx:String;

er:integer;

key:Boolean;

begin

clrscr;

With List[posiz] do begin

writeln(' Редактирование товара');

writeln(' Наименование товара :');

writeln(' Цена :');

Tx:=Edtext(25,2,Naim,20,key); if key then Naim:=tx;

str(price:0:2,tx);

tx:=Cifri(25,3,tx,10,key); if key then val(tx,price,er);

end;

end;


function vstroca(var curs:integer):integer;

var i:integer;

begin

Textbackground(15);

TextColor(0);

gotoxy(1,1); write(Probel('',80));

for i:=0 to 5 do

begin

gotoxy(i*13+1,1); write(mnu[i+1]);

end;

Textbackground(0);

TextColor(14);

gotoxy((curs-1)*13+1,1); write(mnu[curs]);

repeat

k:=readkey;

Textbackground(15);

TextColor(0);

gotoxy((curs-1)*13+1,1); write(mnu[curs]);

if k=#0 then k:=readkey;

case k of

#75: if curs>1 then dec(curs) else curs:=6;

#77: if curs<6>

end;

Textbackground(0);

TextColor(14);

gotoxy((curs-1)*13+1,1); write(mnu[curs]);

if k=#13 then vstroca:=curs;

until (k=#27) or (k=#13);

if k=#27 then vstroca:=-1;

end;


function VIVSTR(nstr:integer):String;

var Skol,sprice,summ,

Pkol,Rkol:String[10];

begin

VIVSTR:='';

if (nstr=0) then

With List[nstr] do

begin

str(kol,skol);

str(price:9:2,sprice);

str(price*kol:9:2,summ);

str(kol_p,pkol);

str(kol_r,rkol);

VIVSTR:=Probel(naim,20)+Probel(skol,6)+Probel(sprice,11)+Probel(summ,11)+

Probel(Pkol,6)+Probel(Date_p,10)+Probel(Rkol,6)+Probel(Date_r,9);

end;

end;


procedure Ekran;

var i:integer;

Summ_,Sum_p,Sum_r:Double;

begin

Window(1,2,80,25);

Textbackground(5);

TextColor(10);

Clrscr;

gotoxy(1,1);

Textbackground(3);

write(Probel('Наименование',20)+Probel('Кол-во',9)+Probel('Цена',10)+

Probel('Сумма',7)+Probel('Приход ',7)+Probel('Дата пост',10)+Probel('Расход',6)

+Probel(' Дата выд',9));

Textbackground(5);

TextColor(14);

for i:=0 to 20 do

begin

gotoxy(1,2+i); Write(Vivstr(i+stran));

end;

Textbackground(15);

TextColor(0);

gotoxy(1,1+curs); write(VIVSTR(curs+stran-1));

Summ_:=0; Sum_p:=0; Sum_r:=0;

for i:=0 to Schet-1 do

begin

Summ_:=Summ_+(List[i].price*List[i].kol);

Sum_p:=Sum_p+(List[i].price*List[i].kol_p);

Sum_r:=Sum_r+(List[i].price*List[i].kol_r);

end;

Textbackground(4);

TextColor(15);

gotoxy(1,23); write(Probel('',80));

gotoxy(1,23); write(' Итого: ',

Summ_:12:2,' руб. Приход: ',Sum_p:0:2,' руб. Расход:',Sum_r:0:2,' руб.');

gotoxy(15,24); write ('Общее количество наименований товара: ',schet,' шт');

end;


procedure Sortirovka(num:Integer);

var i,j,k:Integer;

Bas:Basskl;

begin

for i:=0 to Schet-1 do

begin

Bas:=List[i];

for j:=i+1 to Schet-1 do

begin

case Num of

1: if Bas.Naim>List[j].naim then begin Bas:=List[j]; k:=j end;

2: if Bas.kol>List[j].kol then begin Bas:=List[j]; k:=j end;

3: if Bas.price>List[j].price then begin Bas:=List[j]; k:=j end;

5: if Bas.kol_p>List[j].kol_p then begin Bas:=List[j]; k:=j end;

6: if Bas.date_p>List[j].date_p then begin Bas:=List[j]; k:=j end;

7: if Bas.kol_r>List[j].kol_r then begin Bas:=List[j]; k:=j end;

8: if Bas.date_r>List[j].date_r then begin Bas:=List[j]; k:=j end;

end;

end;

List[k]:=List[i]; List[i]:=Bas;

end;

end;


procedure Vivlist(var seek,curs:integer);

var c,k:char;

i:integer;

begin

Ekran;

Textbackground(3);

gotoxy(1,24); write(Probel(' <- -> - меню | Ins - Добавить | Ctrl+F8 - Удалить | Ctrl+Enter - Изменить',79));

Textbackground(15);

TextColor(1);

gotoxy(1,1+curs); write(VIVSTR(curs+stran-1));

repeat

c:=readkey;

Textbackground(5);

TextColor(14);

gotoxy(1,1+curs); write(VIVSTR(curs+stran-1));

if c=#0 then k:=readkey;

case k of

#72: begin {Вверх курсор}

if (curs=1) and (stran>0) then begin dec(stran); Ekran end;

if (curs>1) then dec(curs);

end;

#80: begin {Вниз курсор}

if (curs=20) and (stran+20

begin inc(stran); Ekran end;

if ((curs<20>=20))

or ((Schet<20>

end;

#101: begin{Удалить} {Ctrl+F8}

if Schet>0 then

for i:=curs+stran-1 to Schet-1 do

begin

List[i]:=List[i+1];

end;

dec(Schet);

dec(curs);

Ekran;

end;

#82: begin {Ins - новая запись}

Window(12,12,72,17);

Textbackground(0);

clrscr;

Window(10,11,70,16);

Textbackground(7);

clrscr;

{новоя запись}

Vvodnov;

Sortirovka(1);

Window(1,1,80,25);

Ekran;

end;

end;

if c=#10 then {Ctrl+Enter}

begin

Window(12,12,72,17);

Textbackground(0);

clrscr;

Window(10,11,70,16);

Textbackground(7);

clrscr;

{новоя запись}

Edzapic(Curs+stran-1);

Sortirovka(1);

Window(1,1,80,25);

Ekran;

end;

Textbackground(15);

TextColor(1);

gotoxy(1,1+curs); write(VIVSTR(curs+stran-1));

until (k=#27) or (k=#13) or (k=#75)or (k=#77);

Window(1,1,80,25);

end;


begin

clrscr;

Window(16,12,66,15);

Textbackground(9);

textcolor (3);

clrscr;

write (' Введите название и полный путь базы');

gotoxy (3,3);

readln (files);

if files='' then files:='c:\base.dat';

assign(f,files);

{$I-}

reset(f);

{$I+}

if IOResult<>0 then rewrite(f);

Schet:=0;

While not eof(f) do

begin

inc(Schet);

read(f,List[Schet-1]);

end;

Textbackground(0);

clrscr;

curs:=1; stran:=0; mcurs:=1; seter:=15;

repeat

Ekran;

Window(1,1,80,25);

res:=vstroca(mcurs);

case res of

1:begin

Vivlist(stran,curs);

Window(1,1,80,25);

end;

2:begin

Window(16,12,66,15);

Textbackground(0);

clrscr;

Window(14,11,64,14);

Textbackground(7);

clrscr;

{Запуск новой записи}

Prishlo(Curs+stran-1);

Window(1,1,80,25);

end;

3:begin

Window(16,12,66,15);

Textbackground(0);

clrscr;

Window(14,11,64,14);

Textbackground(7);

clrscr;

{Запуск новой записи}

Ushlo(Curs+stran-1);

Window(1,1,80,25);

end;

4:begin {Поиск}

Window(16,12,66,14);

Textbackground(7);

clrscr;

Window(14,11,64,13);

Textbackground(8);

clrscr;

Gotoxy(2,2); Write('Найти наименование:');

Tx:=Edtext(25,2,'',20,key);

for i:=0 to Schet-1 do

if List[i].naim=tx then begin seter:=1; break; end;

if i>20 then begin curs:=1; stran:=i end

else begin curs:=i+1; stran:=0; end;

if seter<>1 then

begin

Window(16,12,66,14);

Textbackground(7);

clrscr;

Window(14,11,64,13);

Textbackground(8);

clrscr;

Gotoxy(2,2); Write('Наименование ненайдено'); readln; stran:=1; curs:=1;

end;

Vivlist(stran,curs);

Window(1,1,80,25);

end;


5:begin {Сортировка}

Window(16,12,66,14);

Textbackground(0);

clrscr;

Window(14,11,64,13);

Textbackground(7);

clrscr;

Gotoxy(2,2); Write('Введите поле для сортировки (1..8):');

val(Cifri(38,2,'',1,key),da,er);

if da in [1..8] then Sortirovka(da);

Window(1,1,80,25);

end;


end;

until (res<1>

Rewrite(f);

Sortirovka(1);

for i:=0 to Schet-1 do Write(f,List[i]);

close(f);

end.

1Авиация и космонавтика
2Архитектура и строительство
3Астрономия
 
4Безопасность жизнедеятельности
5Биология
 
6Военная кафедра, гражданская оборона
 
7География, экономическая география
8Геология и геодезия
9Государственное регулирование и налоги
 
10Естествознание
 
11Журналистика
 
12Законодательство и право
13Адвокатура
14Административное право
15Арбитражное процессуальное право
16Банковское право
17Государство и право
18Гражданское право и процесс
19Жилищное право
20Законодательство зарубежных стран
21Земельное право
22Конституционное право
23Конституционное право зарубежных стран
24Международное право
25Муниципальное право
26Налоговое право
27Римское право
28Семейное право
29Таможенное право
30Трудовое право
31Уголовное право и процесс
32Финансовое право
33Хозяйственное право
34Экологическое право
35Юриспруденция
36Иностранные языки
37Информатика, информационные технологии
38Базы данных
39Компьютерные сети
40Программирование
41Искусство и культура
42Краеведение
43Культурология
44Музыка
45История
46Биографии
47Историческая личность
 
48Литература
 
49Маркетинг и реклама
50Математика
51Медицина и здоровье
52Менеджмент
53Антикризисное управление
54Делопроизводство и документооборот
55Логистика
 
56Педагогика
57Политология
58Правоохранительные органы
59Криминалистика и криминология
60Прочее
61Психология
62Юридическая психология
 
63Радиоэлектроника
64Религия
 
65Сельское хозяйство и землепользование
66Социология
67Страхование
 
68Технологии
69Материаловедение
70Машиностроение
71Металлургия
72Транспорт
73Туризм
 
74Физика
75Физкультура и спорт
76Философия
 
77Химия
 
78Экология, охрана природы
79Экономика и финансы
80Анализ хозяйственной деятельности
81Банковское дело и кредитование
82Биржевое дело
83Бухгалтерский учет и аудит
84История экономических учений
85Международные отношения
86Предпринимательство, бизнес, микроэкономика
87Финансы
88Ценные бумаги и фондовый рынок
89Экономика предприятия
90Экономико-математическое моделирование
91Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Я ведь почему раньше злой был, у меня клавиша ")" не работала.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, реферат по экономике и финансам "АРМ для работы со складом", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2017
Рейтинг@Mail.ru