lazarus-ccr/examples/germesorders/uorder.lfm
MageSlayer 05a5e2c6a2 First public commit
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@639 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2008-12-21 21:46:28 +00:00

303 lines
10 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

inherited frmOrder: TfrmOrder
Left = 435
Height = 302
Top = 244
Width = 214
ActiveControl = btnSave
Caption = 'Данные заказа'
ClientHeight = 302
ClientWidth = 214
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
object Panel1: TPanel[0]
Height = 31
Width = 214
Align = alTop
ClientHeight = 31
ClientWidth = 214
TabOrder = 0
object btnSave: TBitBtn
Left = 7
Height = 26
Hint = 'Сохранить заказ'
Top = 1
Width = 45
AutoSize = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
200000000000000400006400000064000000000000000000000051514BFF3E3D
37FF3D3C36FF3D3C36FF3D3C36FF3D3C36FF3C3B34FF3D3C36FF3D3C36FF3D3C
36FF3D3C36FF3D3C36FF40403BFF42423DFF3E3D37FF565651FF3E3D37FF4B4D
4AFF4B4D4AFF4C4E4BFF4D504DFF4E514FFF4F5250FF505351FF525553FF5053
51FF4F524FFF4E504EFF4E514FFF4B4D4AFF4A4C49FF3D3C36FF3C3B34FF4B4D
4AFF3B3A34FF3D3D38FF434440FF484A45FF4B4D4AFF4F5250FF515553FF4F52
4FFF4B4C4AFF454642FF40403CFF3B3A34FF4A4C49FF3C3B35FF51524CFF8E93
91FF8E9491FF8E9491FF999E9BFF898F8CFF919493FF8E9491FF8E9491FF9398
95FF9CA09DFF8E9491FF8E9491FF999E9BFF8E9391FF51524CFF6F726EFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF676964FF737672FFFDFD
FDFF858A87FFBCC3C0FFC5CAC9FFE2E5E4FFF5F6F6FFB1E0C8FF26A966FFBDE0
CEFFE0E3E2FFC0C6C4FFB6BDBAFF808583FFF8F8F8FF737672FF858A88FFF5F6
F5FFC6CCCAFFE0E3E1FFFCFCFCFFE4E7E6FF6FB993FF2AAB69FF90E2B9FF1AA4
5EFFAFD3C1FFFBFCFBFFD7DBD9FFB8BEBCFFECEEEDFF858A88FF858A88FFEFF1
F0FFE1E3E3FFEEEFEFFFCBD4D0FF48AE7AFF42B97CFFC4F5DCFFA8F3CDFFACED
CCFF1AA45EFF9CC3AEFFE9EAEAFFD3D7D6FFE5E7E7FF858A88FF858A88FFEDEF
EFFFEBEDECFFC6D6CFFF2EA96AFF60CA94FFC6F6DEFF5DE8A1FF34E28AFF8FEF
BEFFACEDCCFF1AA45EFF9EC5B1FFE1E4E3FFE2E5E4FF858A88FF858A88FFF1F3
F2FFBCD8CBFF1CA45EFF81DBADFFD6F9E8FF98F0C3FF34E28AFF34E28AFF7FED
B5FFD6F9E7FFADEDCDFF1CA45EFFA6CCB9FFE8EAEAFF858A88FF858A88FFF4F6
F5FF4CB57FFF069A4EFF069A4EFF1EA761FFD1F8E4FF37E28CFF34E28AFFCCF8
E2FF2AAE6AFF069A4EFF069A4EFF42B078FFEAECECFF858A88FF858A88FFF3F5
F5FFEBEDEDFFFBFCFCFFEBEDEDFF0A9C51FFD1F8E4FF39E38DFF34E28AFFD2F9
E5FF109E55FFDFE6E3FFD1D4D4FFE3E6E5FFEEF0EFFF858A88FF868B89FFEFF1
F1FFF3F5F5FFFDFDFDFFF3F5F5FF0A9C51FFD1F8E4FF39E38DFF34E28AFFD2F9
E5FF109E55FFECF2F0FFDFE1E1FFF3F5F5FFEFF1F1FF868B89FF828785FF888D
8BFF858A88FF858A88FF858A88FF089B50FFD1F8E4FF39E38DFF34E28AFFD2F9
E5FF0E9D54FF818B86FF858A88FF858A88FF868B89FF838685FF08000000FFFF
FF00FFFFFF006FA2AF0047676D000B9D52FFD1F8E4FFD6F9E8FFD6F9E8FFD6F9
E8FF0F9D54FF00000000000000000000000000000000FFFFFF009003DE009003
DE008E011700BB0241008E014100179B57FF069A4EFF069A4EFF069A4EFF069A
4EFF109953FF000000000000000020E2DB000000000000000000
}
NumGlyphs = 0
OnClick = btnSaveClick
TabOrder = 0
end
object btnCancel: TBitBtn
Left = 159
Height = 26
Hint = 'Сохранить заказ'
Top = 1
Width = 45
Anchors = [akRight]
AutoSize = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000FF00FFFFFF00110000005001DE00B85EDE00FFFF0000FFFF
0000FD59000000FF00000480E00036342EFF36342EFF36342EFF36342EFF3634
2EFF36342EFF36342EFF36342EFF36342EFF36342EFF00000000002FB400FDE2
460000099D00F19B0800002DDE0036342EFFE0E2E2FF7A7976FF36342EFF1F6E
43FF227A4BFF257E4EFF2A7E50FF2B7F50FF36342EFFBD6800000000FF000000
0000FF2B45000000A4FF0000A4FF36342EFFDEE0E0FFE0E2E2FFE0E2E2FF7A79
76FF36342EFF1E643EFF237446FF1F7E4BFF36342EFF24B70000FFAF0000FFFF
0000E4FF09000000A4FF2929EFFF0000A4FFE0E2E2FFD1D4D4FFBEC1C1FFE0E2
E2FFE0E2E2FF36342EFF18653BFF197544FF36342EFF0522BE000000A4FF0000
A4FF0000A4FF0000A4FF2929EFFF2929EFFF0000A4FFD1D4D4FFBEC1C1FFB7B9
B9FFE0E2E2FF36342EFF17623AFF196E41FF36342EFFE90000000000A4FF2929
EFFF2929EFFF2929EFFF2929EFFF0000B4FF2929EFFF0000A4FFBEC1C1FFB7B9
B9FFE0E2E2FF36342EFF195E39FF15703FFF36342EFFFFFF00000000A4FF2929
EFFF0000B4FF0000B4FF0000B4FF0000B4FF0000B4FF2929EFFF0000A4FF6A6C
6CFFE0E2E2FF36342EFF185B36FF136C3CFF36342EFF000000000000A4FF8282
FBFF0000CCFF0000CCFF0000CCFF0000CCFF0000CCFF8282FBFF0000A4FF7779
79FF5A5B5BFF36342EFF105932FF0E6638FF36342EFF000000000000A4FF8282
FBFF8282FBFF8282FBFF8282FBFF0000CCFF8282FBFF0000A4FFBBBDBDFFA2A4
A4FFE0E2E2FF36342EFF0D4E2BFF0D562FFF36342EFFFFFF00000000A4FF0000
A4FF0000A4FF0000A4FF8282FBFF8282FBFF0000A4FFCDD0D0FFBEC1C1FFB7B9
B9FFE0E2E2FF36342EFF083E22FF074F2AFF36342EFF62FF0000000000000000
0000000000000000A4FF8282FBFF0000A4FFDCDEDEFFD0D3D3FFBEC1C1FFB7B9
B9FFE0E2E2FF36342EFF062D18FF064121FF36342EFFF29D0900000000000000
0000000000000000A4FF0000A4FF36342EFFE0E2E2FFD0D3D3FFBDC0C0FFB5B7
B7FFE0E2E2FF36342EFF001C0DFF003318FF36342EFF00000000002BAF00FCE3
500000000000000000000000000036342EFFE0E2E2FFD0D3D3FFBDC0C0FFABAD
ADFFE0E2E2FF36342EFF000F07FF002813FF36342EFF00000000080000000000
1C00FFFF39001C555500FFFFFF0036342EFF36342EFF36342EFF36342EFF3634
2EFF36342EFF36342EFF36342EFF36342EFF36342EFF000000008803DE00A0F4
DD000000000056000A00808220009CEE0900000000005800000090B8E1003CB8
E10000000000000000000000000050B8E1000000000000000000
}
NumGlyphs = 0
OnClick = btnCancelClick
TabOrder = 1
end
end
object Panel2: TPanel[1]
Height = 271
Top = 31
Width = 214
Align = alClient
ClientHeight = 271
ClientWidth = 214
TabOrder = 1
object GroupBox1: TGroupBox
Left = 1
Height = 97
Top = 1
Width = 212
Align = alTop
Caption = 'Заказ'
ClientHeight = 79
ClientWidth = 208
TabOrder = 0
object Label1: TLabel
Left = 4
Height = 20
Top = 19
Width = 42
Alignment = taRightJustify
AutoSize = False
Caption = 'Орг-я:'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 4
Height = 20
Top = 51
Width = 42
Alignment = taRightJustify
AutoSize = False
Caption = 'Дата:'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object chkCache: TDBCheckBox
Left = 53
Height = 19
Top = -3
Width = 61
Caption = 'Безнал'
DataField = 'CacheLess'
DataSource = dsrcOrder
TabOrder = 0
ValueChecked = '1'
ValueUnchecked = '0'
end
object cbxOrg: TRxDBLookupCombo
Left = 49
Height = 23
Top = 19
Width = 153
Anchors = [akTop, akLeft, akRight]
ButtonWidth = 15
Ctl3D = True
DataField = 'Org'
DataSource = dsrcOrder
PopUpFormOptions.Columns = <>
Font.Height = -12
Font.Name = 'Sans'
Glyph.Data = {
72000000424D7200000000000000360000002800000005000000030000000100
2000000000003C00000064000000640000000000000000000000000000000000
0000000000FF000000000000000000000000000000FF000000FF000000FF0000
0000000000FF000000FF000000FF000000FF000000FF
}
NumGlyphs = 1
ParentColor = False
ParentFont = False
TabOrder = 2
TabStop = True
LookupDisplay = 'Name'
LookupField = 'ID'
LookupSource = dsrcOrgs
end
object DBEdit1: TDBEdit
Left = 49
Height = 23
Top = 51
Width = 155
DataField = 'DateCreate'
DataSource = dsrcOrder
Anchors = [akTop, akLeft, akRight]
ParentColor = False
TabOrder = 1
end
end
object GroupBox2: TGroupBox
Left = 1
Height = 138
Top = 98
Width = 212
Align = alClient
Caption = 'Текущая группа/подгруппа'
ClientHeight = 120
ClientWidth = 208
TabOrder = 1
object cbxGroup: TComboBox
Left = 4
Height = 21
Top = 3
Width = 200
Anchors = [akTop, akLeft, akRight]
ItemHeight = 13
MaxLength = -1
OnChange = cbxGroupChange
Style = csDropDownList
TabOrder = 0
end
object lbxSubGroups: TListBox
Left = 4
Height = 84
Top = 32
Width = 200
Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 1
end
end
object Panel3: TPanel
Left = 1
Height = 34
Top = 236
Width = 212
Align = alBottom
ClientHeight = 34
ClientWidth = 212
TabOrder = 2
object btnOrderList: TButton
Tag = 1
Left = 102
Height = 25
Top = 4
Width = 103
Anchors = [akRight, akBottom]
Caption = 'Список товаров'
Font.Height = -10
Font.Name = 'Sans'
OnClick = btnOrderListClick
ParentFont = False
TabOrder = 0
end
object btnOrderList1: TButton
Tag = 2
Left = 7
Height = 25
Top = 4
Width = 87
Caption = 'Выбранные'
Font.Height = -10
Font.Name = 'Sans'
OnClick = btnOrderListClick
ParentFont = False
TabOrder = 1
end
end
end
object dsrcOrder: TDatasource[2]
DataSet = dsOrder
left = 160
top = 40
end
object dsOrder: TSqlite3Dataset[3]
SaveOnRefetch = True
left = 128
top = 40
end
object dsOrgs: TSqlite3Dataset[4]
left = 104
top = 72
end
object dsrcOrgs: TDatasource[5]
DataSet = dsOrgs
left = 143
top = 72
end
end