Реферат: Информационная система складского терминала
Страница 1 Всего страниц 1
Журнал расхода № 04765
Со склада: Кинель
|
№ стр |
Код товара |
Число коробов |
Срок годности |
Адрес паллеты |
Оператор |
|
001 |
050417 |
49 |
12.11.99 |
0007230103 |
Плотников |
|
002 |
050417 |
49 |
12.11.99 |
0011250101 |
Плотников |
|
003 |
050417 |
49 |
12.04.00 |
0011260103 |
Плотников |
|
004 |
050033 |
49 |
12.04.00 |
0011350103 |
Плотников |
|
005 |
050033 |
49 |
12.04.00 |
0011420103 |
Плотников |
|
006 |
050033 |
49 |
12.04.00 |
0011430101 |
Плотников |
|
007 |
050049 |
49 |
12.04.00 |
0012100102 |
Плотников |
|
008 |
050049 |
49 |
08.02.00 |
0012480103 |
Плотников |
|
009 |
050502 |
29 |
08.02.00 |
0005290103 |
Плотников |
|
010 |
050503 |
49 |
06.02.00 |
0003310103 |
Плотников |
|
011 |
050666 |
49 |
06.02.00 |
0007460101 |
Плотников |
|
012 |
050648 |
9 |
06.02.00 |
0010490103 |
Плотников |
|
013 |
050639 |
49 |
09.02.00 |
0003130103 |
Плотников |
|
014 |
050639 |
49 |
09.02.00 |
0006130103 |
Плотников |
|
015 |
050639 |
49 |
09.02.00 |
0012060101 |
Плотников |
|
016 |
050727 |
36 |
12.01.00 |
0012580101 |
Плотников |
|
017 |
050727 |
49 |
12.01.00 |
0013430101 |
Плотников |
|
018 |
050635 |
49 |
12.02.00 |
0014180103 |
Плотников |
|
019 |
050635 |
49 |
12.02.00 |
0014330103 |
Плотников |
|
020 |
050635 |
49 |
12.02.00 |
0015290103 |
Плотников |
Страница 1 Всего страниц 1
Лист отгрузки со склада
Со склада: Кинель
ЗАКАЗ № ОС00006092
Код клиента: S010
Название клиента: ООО «Виктория Холдинг»
Отгрузка произведена: 12.02.2000 13:45
| Код продукта | Название продукта | Срок годности | Количество коробов | Примечание |
| 050029 | Родные просторы 24´370г | 22.05.2000 | 30 | |
| 050265 | Незнакомка 24´225г | 01.06.2000 | 30 | |
| 050265 | Незнакомка 24´225г | 01.06.2000 | 30 | |
| 050265 | Незнакомка 24´225г | 01.06.2000 | 30 | |
| 050265 | Незнакомка 24´225г | 01.06.2000 | 30 | |
| 050428 | Фрегат 6´20´100г | 09.08.2000 | 60 | |
| 050471 | Нестле с апельсином | 27.06.2000 | 23 | |
| 050049 | Восторг 6´20´100г | 23.01.2001 | 30 | |
| 050427 | Кофе с молоком 6´20´100г | 18.01.2001 | 15 | |
| 050033 | Палитра (ассорти) 33´240г | 02.06.2000 | 30 | |
| 050033 | Палитра (ассорти) 33´240г | 02.06.2000 | 30 | |
| 050033 | Палитра (ассорти) 33´240г | 02.06.2000 | 30 | |
| 050033 | Палитра (ассорти) 33´240г | 02.06.2000 | 30 | |
| 050371 | Рябиновый аромат 33´240г | 04.06.2000 | 20 | |
| 050371 | Рябиновый аромат 33´240г | 04.06.2000 | 30 | |
| 050371 | Рябиновый аромат 33´240г | 04.06.2000 | 30 | |
| 050371 | Рябиновый аромат 33´240г | 04.06.2000 | 30 | |
| 050431 | Кокос 6´20´100г | 05.07.2000 | 6 | |
| 050431 | Кокос 6´20´100г | 05.07.2000 | 3 | |
| 050470 | Нестле с персиком | 25.06.2000 | 18 | |
| 050061 | Нестле классик 225г | 24.08.2000 | 2 | |
| 050476 | Совершенство | 27.02.2001 | 5 | |
| 050406 | Жигули 6´16´100г | 01.07.2001 | 7 | |
| 050433 | Елена 6´18´100г | 03.08.2000 | 20 |
Страница 1 Всего страниц 2
| 050324 | Коллекция 8´430г | 01.06.2000 | 30 | |
| 050420 | Ананас 6´20´100г | 29.06.2000 | 20 | |
| 050421 | Нестле Кл. с рисом | 12.07.2000 | 15 | |
| 050410 | Сударушка 6´20´100г | 19.08.2000 | 25 | |
| 050003 | Шок с шок. нач. 8´36´50г | 02.08.2000 | 15 | |
| 050001 | Шок с арахисом 8´36´50г | 29.07.2000 | 12 | |
| 050015 | Путешествие 20´30´25г | 04.02.2001 | 9 |
Всего коробов отгружено: 1341
Заведующий складом: Плотников А.Н.
Указанный выше товар сдала представителю получателя
полностью ___________________
Получатель: ООО «Виктория Холдинг»
Товар получил в соответствии с наименованиями,
спецификациями и количествами, указанными в настоящем
документе ___________________
Страница 2 Всего страниц 2
Листинг модуля программы Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, DBTables, Mask;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
MaskEdit1: TMaskEdit;
Table1: TTable;
Table1Pasword: TFloatField;
Table1Fam: TStringField;
Table1Im: TStringField;
Table1Ot: TStringField;
Table1Adres: TStringField;
Table1Telefon: TStringField;
Table1Status: TStringField;
DataSource1: TDataSource;
procedure Button1Click(Sender: TObject);
procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
s,p,s1 : string;
implementation
uses Unit2, Unit3;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Table1.Locate('Pasword',MaskEdit1.Text,[loPartialKey]);
if Form1.Table1.Locate('Pasword',MaskEdit1.Text,[loPartialKey])=false then Application.Terminate;
if Form1.Table1.Locate('Pasword',MaskEdit1.Text,[loPartialKey])=true then
begin
Form1.Table1.Edit;
s:=Form1.Table1Status.Text;
p:=Form1.Table1Fam.Text;
Form1.Table1.Post;
Form3.Label1.Caption:=p;
Form3.Label2.Caption:=s;
if Form1.Table1Status.Text='Администратор' then Form3.Button2.Visible:=true else Form3.Button2.Visible:=false;
if Form1.Table1Status.Text='Администратор' then Form3.Button3.Visible:=true else Form3.Button3.Visible:=false;
Form2.Visible:=false;
Form1.Visible:=false;
Form3.Show;
Form1.MaskEdit1.Text:='';
end;
end;
procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = VK_RETURN) then Form1.Button1.Click;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Visible:=false;
Form3.ShowModal;
end;
end.
