Проектирование автоматизированной информационной системы учета движения товара для складского комплекса ЗАО "Альт".

ВВЕДЕНИЕ
1. АНАЛИТИЧЕСКАЯ ЧАСТЬ
1.1. Описание деятельности компании «Альт»
1.2. Организационная структура компании «Альт»
1.3. Процесс учета движения товара складского комплекса
1.4. Требования к разрабатываемой ИС
Выводы
2. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ
2.1 Общие сведения о СУБД
2.2. Обоснование выбора СУБД
2.3. Обоснование выбора среды разработки
Выводы
3. ПРОЕКТНАЯ ЧАСТЬ
3.1. Решения по техническому обеспечению ИС
3.2. Моделирование бизнес-процессов «То-be»
3.3. Разработка структуры БД
3.4. Разработка программного интерфейса системы
Устойчивые состояния пользовательского интерфейса
3.5. Контрольный пример работы ИС
Выводы
4. РАСЧЕТНАЯ ЧАСТЬ
4.1. Сетевое планирование проекта
4.1.1. Расчет трудоемкости создания системы
4.1.2. Определение численности и состава исполнителей
4.2. Расчет сметной стоимости проекта
4.3. Расчет показателей экономической эффективности
4.4. Расчет упущенной выгоды
Выводы
ЗАКЛЮЧЕНИЕ
СПИСОК ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЯ

kod_tovar = OldRecord.kod_tovar
zayvki.kod_tovar = OldRecord.kod_tovar;
if (numrows > 0)
then
signal parent_delrstrct_err
end if;
-- ERwin Builtin Fri May 06 13:07:43 2011
-- sklad изменяет количество operacii ON PARENT DELETE RESTRICT
select count(*) into numrows
from operacii
where
-- operacii.kod_tovar = OldRecord.kod_tovar
operacii.kod_tovar = OldRecord.kod_tovar;
if (numrows > 0)
then
signal parent_delrstrct_err
end if;
-- ERwin Builtin Fri May 06 13:07:43 2011
end
create trigger tI_sklad after INSERT on sklad
referencing new as NewRecord
for each row
-- ERwin Builtin Fri May 06 13:07:43 2011
-- INSERT trigger on sklad
begin
declare numrows INTEGER;
declare parent_insrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Insert Restrict';
declare child_insrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Insert Restrict';
-- ERwin Builtin Fri May 06 13:07:43 2011
-- Kontragent поставляет sklad ON CHILD INSERT SET NULL
update sklad
set
-- sklad.kod_kontrag = NULL
sklad.kod_kontrag = NULL
where
not exists (
select * from Kontragent
where
-- NewRecord.kod_kontrag = Kontragent.kod_kontrag
NewRecord.kod_kontrag = Kontragent.kod_kontrag
) and

sklad.kod_kontrag = NewRecord.kod_kontrag;
-- ERwin Builtin Fri May 06 13:07:43 2011
-- kategor относится sklad ON CHILD INSERT SET NULL
update sklad
set
-- sklad.id_kategor = NULL
sklad.id_kategor = NULL
where
not exists (
select * from kategor
where
-- NewRecord.id_kategor = kategor.id_kategor
NewRecord.id_kategor = kategor.id_kategor
) and

sklad.id_kategor = NewRecord.id_kategor;
-- ERwin Builtin Fri May 06 13:07:43 2011
end
create trigger tU_sklad after UPDATE on sklad
referencing old as OldRecord new as NewRecord
for each row
-- ERwin Builtin Fri May 06 13:07:43 2011
-- UPDATE trigger on sklad
begin
declare numrows INTEGER;
declare parent_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Update Restrict';
declare child_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Update Restrict';
-- ERwin Builtin Fri May 06 13:07:43 2011
-- sklad изменяет требуемое количество zayvki ON PARENT UPDATE RESTRICT
if

OldRecord.kod_tovar <> NewRecord.kod_tovar
then
select count(*) into numrows
from zayvki
where
-- zayvki.kod_tovar = OldRecord.kod_tovar
zayvki.kod_tovar = OldRecord.kod_tovar;
if (numrows > 0)
then
signal parent_updrstrct_err
end if
end if;
-- ERwin Builtin Fri May 06 13:07:43 2011
-- sklad изменяет количество operacii ON PARENT UPDATE RESTRICT
if

OldRecord.kod_tovar <> NewRecord.kod_tovar
then
select count(*) into numrows
from operacii
where
-- operacii.kod_tovar = OldRecord.kod_tovar
operacii.kod_tovar = OldRecord.kod_tovar;
if (numrows > 0)
then
signal parent_updrstrct_err
end if
end if;
-- ERwin Builtin Fri May 06 13:07:43 2011
-- Kontragent поставляет sklad ON CHILD UPDATE SET NULL
update sklad
set
-- sklad.kod_kontrag = NULL
sklad.kod_kontrag = NULL
where
not exists (
select * from Kontragent
where
-- NewRecord.kod_kontrag = Kontragent.kod_kontrag
NewRecord.kod_kontrag = Kontragent.kod_kontrag
) and

sklad.kod_kontrag = NewRecord.kod_kontrag;
-- ERwin Builtin Fri May 06 13:07:43 2011
-- kategor относится sklad ON CHILD UPDATE SET NULL
update sklad
set
-- sklad.id_kategor = NULL
sklad.id_kategor = NULL
where
not exists (
select * from kategor
where
-- NewRecord.id_kategor = kategor.id_kategor
NewRecord.id_kategor = kategor.id_kategor
) and

sklad.id_kategor = NewRecord.id_kategor;
-- ERwin Builtin Fri May 06 13:07:43 2011
end
create trigger tD_status_zay after DELETE on status_zay
referencing old as OldRecord
for each row
-- ERwin Builtin Fri May 06 13:07:43 2011
-- DELETE trigger on status_zay
begin
declare numrows INTEGER;
declare parent_delrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Delete Restrict';
declare child_delrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Delete Restrict';
-- ERwin Builtin Fri May 06 13:07:43 2011
-- status_zay имеет zayvki ON PARENT DELETE SET NULL
update zayvki
set
-- zayvki.id_status = NULL
zayvki.id_status = NULL
where
-- zayvki.id_status = OldRecord.id_status
zayvki.id_status = OldRecord.id_status;
-- ERwin Builtin Fri May 06 13:07:43 2011
end
create trigger tU_status_zay after UPDATE on status_zay
referencing old as OldRecord new as NewRecord
for each row
-- ERwin Builtin Fri May 06 13:07:43 2011
-- UPDATE trigger on status_zay
begin
declare numrows INTEGER;
declare parent_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Update Restrict';
declare child_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Update Restrict';
-- status_zay имеет zayvki ON PARENT UPDATE SET NULL
if

OldRecord.id_status <> NewRecord.id_status
then
update zayvki
set
-- zayvki.id_status = NULL
zayvki.id_status = NULL
where
-- zayvki.id_status = OldRecord.id_status
zayvki.id_status = OldRecord.id_status;
end if;
-- ERwin Builtin Fri May 06 13:07:43 2011
end
create trigger tD_type_oper after DELETE on type_oper
referencing old as OldRecord
for each row
-- ERwin Builtin Fri May 06 13:07:43 2011
-- DELETE trigger on type_oper
begin
declare numrows INTEGER;
declare parent_delrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Delete Restrict';
declare child_delrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Delete Restrict';
-- ERwin Builtin Fri May 06 13:07:43 2011
-- type_oper относится operacii ON PARENT DELETE SET NULL
update operacii
set
-- operacii.id_type_oper = NULL
operacii.id_type_oper = NULL
where
-- operacii.id_type_oper = OldRecord.id_type_oper
operacii.id_type_oper = OldRecord.id_type_oper;
-- ERwin Builtin Fri May 06 13:07:43 2011
end
create trigger tU_type_oper after UPDATE on type_oper
referencing old as OldRecord new as NewRecord
for each row
-- ERwin Builtin Fri May 06 13:07:43 2011
-- UPDATE trigger on type_oper
begin
declare numrows INTEGER;
declare parent_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Update Restrict';
declare child_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Update Restrict';
-- type_oper относится operacii ON PARENT UPDATE SET NULL
if

OldRecord.id_type_oper <> NewRecord.id_type_oper
then
update operacii
set
-- operacii.id_type_oper = NULL
operacii.id_type_oper = NULL
where
-- operacii.id_type_oper = OldRecord.id_type_oper
operacii.id_type_oper = OldRecord.id_type_oper;
end if;
-- ERwin Builtin Fri May 06 13:07:43 2011
end
create trigger tI_zayvki after INSERT on zayvki
referencing new as NewRecord
for each row
-- ERwin Builtin Fri May 06 13:07:43 2011
-- INSERT trigger on zayvki
begin
declare numrows INTEGER;
declare parent_insrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Insert Restrict';
declare child_insrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Insert Restrict';
-- ERwin Builtin Fri May 06 13:07:43 2011
-- status_zay имеет zayvki ON CHILD INSERT SET NULL
update zayvki
set
-- zayvki.id_status = NULL
zayvki.id_status = NULL
where
not exists (
select * from status_zay
where
-- NewRecord.id_status = status_zay.id_status
NewRecord.id_status = status_zay.id_status
) and

zayvki.id_status = NewRecord.id_status;
-- ERwin Builtin Fri May 06 13:07:43 2011
-- Kontragent заказывает zayvki ON CHILD INSERT SET NULL
update zayvki
set
-- zayvki.kod_kontrag = NULL
zayvki.kod_kontrag = NULL
where
not exists (
select * from Kontragent
where
-- NewRecord.kod_kontrag = Kontragent.kod_kontrag
NewRecord.kod_kontrag = Kontragent.kod_kontrag
) and

zayvki.kod_kontrag = NewRecord.kod_kontrag;
-- ERwin Builtin Fri May 06 13:07:43 2011
-- sklad изменяет требуемое количество zayvki ON CHILD INSERT RESTRICT
select count(*) into numrows
from sklad
where
-- NewRecord.kod_tovar = sklad.kod_tovar
NewRecord.kod_tovar = sklad.kod_tovar;
if (
--

numrows = 0
)
then
signal child_insrstrct_err
end if;
-- ERwin Builtin Fri May 06 13:07:43 2011
end
create trigger tU_zayvki after UPDATE on zayvki
referencing old as OldRecord new as NewRecord
for each row
-- ERwin Builtin Fri May 06 13:07:43 2011
-- UPDATE trigger on zayvki
begin
declare numrows INTEGER;
declare parent_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Update Restrict';
declare child_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Update Restrict';
-- ERwin Builtin Fri May 06 13:07:43 2011
-- status_zay имеет zayvki ON CHILD UPDATE SET NULL
update zayvki
set
-- zayvki.id_status = NULL
zayvki.id_status = NULL
where
not exists (
select * from status_zay
where
-- NewRecord.id_status = status_zay.id_status
NewRecord.id_status = status_zay.id_status
) and

zayvki.id_status = NewRecord.id_status;
-- ERwin Builtin Fri May 06 13:07:43 2011
-- Kontragent заказывает zayvki ON CHILD UPDATE SET NULL
update zayvki
set
-- zayvki.kod_kontrag = NULL
zayvki.kod_kontrag = NULL
where
not exists (
select * from Kontragent
where
-- NewRecord.kod_kontrag = Kontragent.kod_kontrag
NewRecord.kod_kontrag = Kontragent.kod_kontrag
) and

zayvki.kod_kontrag = NewRecord.kod_kontrag;
-- ERwin Builtin Fri May 06 13:07:43 2011
-- sklad изменяет требуемое количество zayvki ON CHILD UPDATE RESTRICT
if

OldRecord.kod_tovar <> NewRecord.kod_tovar
then
select count(*) into numrows
from sklad
where
-- NewRecord.kod_tovar = sklad.kod_tovar
NewRecord.kod_tovar = sklad.kod_tovar;
if (
--

numrows = 0
)
then
signal child_updrstrct_err
end if
end if;
-- ERwin Builtin Fri May 06 13:07:43 2011
end
ПРИЛОЖЕНИЕ 3 – листинг кода интерфейса программы
object Form1: TForm1
Left = 184
Top = 112
AutoScroll = False
Caption = #1048#1085#1092#1086#1088#1084#1072#1094#1080#1086#1085#1085#1072#1103' '#1089#1080#1089#1090#1077#1084#1072' '#1091#1087#1088#1072#1074#1083#1077#1085#1080#1103' '#1090#1086#1074#1072#1088#1086#1086#1073#1086#1088#1086#1090#1086#1084' '#1082#1086#1084#1087#1072#1085#1080#1080' "'#1040#1083#1100#1090'"'
ClientHeight = 635
ClientWidth = 864
Color = clBtnFace
Constraints.MinHeight = 23
Constraints.MinWidth = 130
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Scaled = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object suiPageControl1: TsuiPageControl
Left = 0
Top = 20
Width = 864
Height = 615
Align = alClient
UIStyle = MacOS
LeftMargin = 10
BorderColor = 8355711
Color = 15198183
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
TabPosition = suiTop
PageDrawFocused = True
TabOrder = 1
OnClick = suiPageControl1Click
ActivePage = suiTabSheet2
Pages = (
suiTabSheet1
suiTabSheet2
suiTabSheet3)
object suiTabSheet1: TsuiTabSheet
Left = 3
Top = 37
Width = 858
Height = 575
PageIndex = 0
Caption = #1058#1086#1074#1072#1088#1086#1086#1073#1086#1088#1086#1090
TabVisible = True
ImageIndex = -1
Color = 15198183
Enabled = False
TabOrder = 1
PageControl = suiPageControl1
object suiGroupBox1: TsuiGroupBox
Left = 0
Top = 0
Width = 858
Height = 293
UIStyle = MacOS
Align = alTop
Caption = #1058#1086#1074#1072#1088#1086#1086#1073#1086#1088#1086#1090
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 0
BorderColor = 8355711
object suiDBGrid1: TsuiDBGrid
Left = 3
Top = 16
Width = 502
Height = 274
Align = alLeft
BorderStyle = bsNone
Color = 15198183
DataSource = DataSource1
FixedColor = 12874553
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWhite
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = suiDBGrid1CellClick
UIStyle = MacOS
BorderColor = 8355711
FocusedColor = clGreen
SelectedColor = clYellow
FontColor = clBlack
TitleFontColor = clWhite
FixedBGColor = 12874553
BGColor = 15198183
Columns = <
item
Expanded = False
FieldName = 'kod_oper'
Title.Caption = #1050#1086#1076' '#1086#1087#1077#1088#1072#1094#1080#1080
Width = 82
Visible = True
end
item
Expanded = False
FieldName = 'kod_tovar'
Title.Caption = #1050#1086#1076' '#1090#1086#1074#1072#1088#1072
Width = 73
Visible = True
end
item
Expanded = False
FieldName = 'type_oper'
Title.Caption = #1058#1080#1087' '#1086#1087#1077#1088#1072#1094#1080#1080
Width = 93
Visible = True
end
item
Expanded = False
FieldName = 'data_oper'
Title.Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
Visible = True
end
item
Expanded = False
FieldName = 'kol'
Title.Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086
Visible = True
end>
end
object suiPanel1: TsuiPanel
Left = 505
Top = 16
Width = 350
Height = 274
UIStyle = MacOS
BorderColor = 8355711
Caption = #1055#1072#1085#1077#1083#1100' '#1091#1087#1088#1072#1074#1083#1077#1085#1080#1103
ShowButton = True
CaptionFontColor = clBlack
Align = alClient
TabOrder = 1
Color = clWhite
object Label1: TLabel
Left = 8
Top = 33
Width = 70
Height = 13
Caption = #1050#1086#1076' '#1086#1087#1077#1088#1072#1094#1080#1080
end
object Label2: TLabel
Left = 178
Top = 33
Width = 77
Height = 13
Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
end
object Label3: TLabel
Left = 8
Top = 81
Width = 57
Height = 13
Caption = #1050#1086#1076' '#1090#1086#1074#1072#1088#1072
end
object Label4: TLabel
Left = 180
Top = 57
Width = 70
Height = 13
Caption = #1058#1080#1087' '#1086#1087#1077#1088#1072#1094#1080#1080
end
object Label5: TLabel
Left = 8
Top = 57
Width = 59
Height = 13
Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086
end
object suiMaskEdit1: TsuiMaskEdit
Left = 88
Top = 30
Width = 79
Height = 19
UIStyle = Protein
BorderColor = clBlack
BorderStyle = bsNone
EditMask = '!9000;1;_'
MaxLength = 4
TabOrder = 0
Text = ' '
end
object suiNumberEdit1: TsuiNumberEdit
Left = 88
Top = 54
Width = 80
Height = 19
UIStyle = Protein
BorderColor = clBlack
TabOrder = 1
Text = '0'
Mask = '0'
AutoSelectSigns = 2
BorderStyle = bsNone
end
object suiComboBox1: TsuiComboBox
Left = 257
Top = 54
Width = 81
Height = 21
UIStyle = MacOS
BorderColor = 8355711
ArrowColor = clBlack
ButtonColor = 15198183
ItemHeight = 13
TabOrder = 2
Items.Strings = (
#1087#1086#1089#1090#1091#1087#1083#1077#1085#1080#1077
#1086#1090#1075#1088#1091#1079#1082#1072)
end
object suiButton1: TsuiButton
Left = 8
Top = 104
Width = 162
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
AutoSize = False
ParentFont = False
UIStyle = MacOS
TabOrder = 3
Transparent = True
ModalResult = 0
FocusedRectMargin = 2
Layout = blGlyphLeft
Spacing = 4
MouseContinuouslyDownInterval = 100
OnClick = suiButton1Click
ResHandle = 0
end
object suiButton2: TsuiButton
Left = 176
Top = 104
Width = 162
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
AutoSize = False
ParentFont = False
UIStyle = MacOS
TabOrder = 4
Transparent = True
ModalResult = 0
FocusedRectMargin = 2
Layout = blGlyphLeft
Spacing = 4
MouseContinuouslyDownInterval = 100
OnClick = suiButton2Click
ResHandle = 0
end
object suiButton3: TsuiButton
Left = 8
Top = 130
Width = 162
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Caption = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
AutoSize = False
ParentFont = False
UIStyle = MacOS
TabOrder = 5
Transparent = True
ModalResult = 0
FocusedRectMargin = 2
Layout = blGlyphLeft
Spacing = 4
MouseContinuouslyDownInterval = 100
OnClick = suiButton3Click
ResHandle = 0
end
object suiMaskEdit5: TsuiMaskEdit
Left = 257
Top = 30
Width = 81
Height = 19
UIStyle = Protein
BorderColor = clBlack
BorderStyle = bsNone
EditMask = '!99/99/00;1;_'
MaxLength = 8
TabOrder = 6
Text = ' . . '
end
object suiComboBox3: TsuiComboBox
Left = 88
Top = 78
Width = 250
Height = 21
UIStyle = MacOS
BorderColor = 8355711
ArrowColor = clBlack
ButtonColor = 15198183
ItemHeight = 13
TabOrder = 7
end
object suiButton11: TsuiButton
Left = 176
Top = 130
Width = 162
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Caption = #1060#1080#1083#1100#1090#1088' '#1087#1086' '#1076#1072#1090#1077
AutoSize = False
ParentFont = False
UIStyle = MacOS
TabOrder = 8
Transparent = True
ModalResult = 0
FocusedRectMargin = 2
Layout = blGlyphLeft
Spacing = 4
MouseContinuouslyDownInterval = 100
OnClick = suiButton11Click
ResHandle = 0
end
object suiButton12: TsuiButton
Left = 8
Top = 156
Width = 162
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Caption = #1060#1080#1083#1100#1090#1088' '#1087#1086' '#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1102
AutoSize = False
ParentFont = False
UIStyle = MacOS
TabOrder = 9
Transparent = True
ModalResult = 0
FocusedRectMargin = 2
Layout = blGlyphLeft
Spacing = 4
MouseContinuouslyDownInterval = 100
OnClick = suiButton12Click
ResHandle = 0
end
end
end
object suiGroupBox2: TsuiGroupBox
Left = 0
Top = 293
Width = 858
Height = 282
UIStyle = MacOS
Align = alClient
Caption = #1047#1072#1103#1074#1082#1080
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 1
BorderColor = 8355711
object suiDBGrid2: TsuiDBGrid
Left = 3
Top = 16
Width = 502
Height = 263
Align = alLeft
BorderStyle = bsNone
Color = 15198183
DataSource = DataSource3
FixedColor = 12874553
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWhite
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = suiDBGrid2CellClick
UIStyle = MacOS
BorderColor = 8355711
FocusedColor = clGreen
SelectedColor = clYellow
FontColor = clBlack
TitleFontColor = clWhite
FixedBGColor = 12874553
BGColor = 15198183
Columns = <
item
Expanded = False
FieldName = 'kod_zayv'
Title.Caption = #1050#1086#1076' '#1079#1072#1103#1074#1082#1080
Visible = True
end
item
Expanded = False
FieldName = 'kod_tovar'
Title.Caption = #1050#1086#1076' '#1090#1086#1074#1072#1088#1072
Visible = True
end
item
Expanded = False
FieldName = 'kontragent'
Title.Caption = #1050#1083#1080#1077#1085#1090
Width = 136
Visible = True
end
item
Expanded = False
FieldName = 'data_post'
Title.Caption = #1044#1072#1090#1072' '#1087#1086#1089#1090#1091#1087#1083#1077#1085#1080#1103
Visible = True
end
item
Expanded = False
FieldName = 'kol'
Title.Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086
Visible = True
end
item
Expanded = False
FieldName = 'status'
Title.Caption = #1057#1090#1072#1090#1091#1089
Visible = True
end
item
Expanded = False
FieldName = 'data_podachi'
Title.Caption = #1044#1072#1090#1072' '#1087#1086#1076#1072#1095#1080
Visible = True
end>
end
object suiPanel2: TsuiPanel
Left = 505
Top = 16
Width = 350
Height = 263
UIStyle = MacOS
BorderColor = 8355711
Caption = #1055#1072#1085#1077#1083#1100' '#1091#1087#1088#1072#1074#1083#1077#1085#1080#1103
ShowButton = True
CaptionFontColor = clBlack
Align = alClient
TabOrder = 1
Color = clWhite
object Label6: TLabel
Left = 10
Top = 33
Width = 58
Height = 13
Caption = #1050#1086#1076' '#1079#1072#1103#1074#1082#1080
end
object Label7: TLabel
Left = 9
Top = 58
Width = 64
Height = 13
Caption = #1044#1072#1090#1072' '#1087#1086#1076#1072#1095#1080
end
object Label8: TLabel
Left = 9
Top = 133
Width = 57
Height = 13
Caption = #1050#1086#1076' '#1090#1086#1074#1072#1088#1072
end
object Label9: TLabel
Left = 195
Top = 32
Width = 59
Height = 13
Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086
end
object Label10: TLabel
Left = 9
Top = 83
Width = 93
Height = 13
Caption = #1044#1072#1090#1072' '#1087#1086#1089#1090#1091#1087#1083#1077#1085#1080#1103
end
object Label16: TLabel
Left = 194
Top = 57
Width = 34
Height = 13
Caption = #1057#1090#1072#1090#1091#1089
end
object Label17: TLabel
Left = 10
Top = 108
Width = 36
Height = 13
Caption = #1050#1083#1080#1077#1085#1090
end
object suiMaskEdit2: TsuiMaskEdit
Left = 108
Top = 30
Width = 81
Height = 19
UIStyle = Protein
BorderColor = clBlack
BorderStyle = bsNone
EditMask = '!9000;1;_'
MaxLength = 4
TabOrder = 0
Text = ' '
end
object suiNumberEdit2: TsuiNumberEdit
Left = 258
Top = 29
Width = 82
Height = 19
UIStyle = Protein
BorderColor = clBlack
TabOrder = 1
Text = '0'
Mask = '0'
AutoSelectSigns = 2
BorderStyle = bsNone
end
object suiComboBox2: TsuiComboBox
Left = 258
Top = 54
Width = 82
Height = 21
UIStyle = Protein
BorderColor = clBlack
ArrowColor = clBlack
ButtonColor = 16514043
ItemHeight = 13
TabOrder = 2
Items.Strings = (
#1086#1078#1080#1076#1072#1077#1090
#1074#1099#1087#1086#1083#1085#1077#1085#1072)
end
object suiButton4: TsuiButton
Left = 9
Top = 157
Width = 162
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
AutoSize = False
ParentFont = False
UIStyle = MacOS
TabOrder = 3
Transparent = True
ModalResult = 0
FocusedRectMargin = 2
Layout = blGlyphLeft
Spacing = 4
MouseContinuouslyDownInterval = 100
OnClick = suiButton4Click
ResHandle = 0
end
51