ГИМУ 1.2 11 19.401-78 ТП
УТВЕРЖДЁН
ГИМУ 1.2 11 19.401-78 ТП ЛУ
Пакет прикладных программ
«АВТОМАТИЗАЦИЯ СКЛАДСКОГО УЧЕТА»
ППП «Склад»
Курсовой проект
Тексты программ
ГИМУ 1.2 11 19.401-78 ТП
Листов
2006
Пакет прикладных программ 1
ППП «Склад» 1
Введение.
Настоящий документ является неотъемлемой частью курсового проекта ППП «Склад», созданного в рамках учебного плана Института Государственного и Муниципального Управления кафедры компьютерных технологий. Документ «Тексты программ» выполнен в полном соответствии с
ГОСТ 19.202-78.
1.СтильСклада.
VERSION 5.00
Begin VB.Form Form1
BackColor = &H0000FF00&
Caption = "Лиля"
ClientHeight = 5670
ClientLeft = 1245
ClientTop = 2235
ClientWidth = 6585
FillColor = &H0000FF00&
ForeColor = &H0000C000&
LinkTopic = "Form1"
ScaleHeight = 5670
ScaleWidth = 6585
Begin VB.CommandButton Лиля2
BackColor = &H00FF80FF&
Caption = "Кнопка2"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 204
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 2280
Style = 1 'Graphical
TabIndex = 1
Top = 2880
Width = 1215
End
Begin VB.CommandButton Лиля
BackColor = &H00FFFF00&
Caption = "Кнопка1"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 204
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 1080
MaskColor = &H00FFC0C0&
Style = 1 'Graphical
TabIndex = 0
Top = 840
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim цвет As Long
Private Sub Form_Click()
Static color& 'as long
Const Сдвиг As Integer = 256
'Me.Width = 4000
BackColor = color
'цвет = цвет Mod RGB(0, 0, 255)
'If цвет = 0 Then цвет = 255 Else цвет = цвет * 256
'цвет = цвет * 256
color = color Mod vbBlue
If color = 0 Then color = vbRed Else color = color * Сдвиг
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then Me.BackColor = vbRed
End Sub
Private Sub Лиля2_Click()
Лиля.SetFocus
End Sub
2. Списки товаров
VERSION 5.00
Begin VB.Form Form1
BackColor = &H0000FF00&
Caption = "Form1"
ClientHeight = 2130
ClientLeft = 1890
ClientTop = 2205
ClientWidth = 6585
FillColor = &H0000FF00&
LinkTopic = "Form1"
ScaleHeight = 2130
ScaleWidth = 6585
Begin VB.Frame Frame1
BackColor = &H00FFFF80&
Caption = "DropDown Combo"
Height = 1725
Left = 120
TabIndex = 4
Top = 90
Width = 1935
Begin VB.ComboBox Combo1
Height = 315
ItemData = "ЛАБА1.frx":0000
Left = 120
List = "ЛАБА1.frx":0013
TabIndex = 5
Text = "Combo1"
Top = 240
Width = 1455
End
End
Begin VB.Frame рмСписок
BackColor = &H00C0FFFF&
Caption = "Simple Combo"
Height = 1725
Left = 2340
TabIndex = 2
Top = 90
Width = 1935
Begin VB.ComboBox спСписок
BackColor = &H00FFFFFF&
Height = 960
ItemData = "ЛАБА1.frx":0042
Left = 240
List = "ЛАБА1.frx":0058
Style = 1 'Simple Combo
TabIndex = 3
Text = "Combo2"
Top = 360
Width = 1335
End
End
Begin VB.Frame Frame3
BackColor = &H00C0FFC0&
Caption = "DropDown List"
ForeColor = &H00400040&
Height = 1725
Left = 4500
TabIndex = 0
Top = 90
Width = 1935
Begin VB.ComboBox Combo3
Height = 315
ItemData = "ЛАБА1.frx":008C
Left = 120
List = "ЛАБА1.frx":00A2
Style = 2 'Dropdown List
TabIndex = 1
Top = 240
Width = 1455
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Лиля As Boolean
Private Sub Form_Click()
Frame1.Top = Frame1.Top + 150
End Sub
Private Sub спСписок_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then Exit Sub
With спСписок
If Trim(.Text) = "" Then .Text = "": Exit Sub
If .Text = .List(.ListIndex) Then
.RemoveItem .ListIndex
Else
If Trim(.Text) <> "" Then
For i = 0 To .ListCount - 1
If .List(i) = Trim(.Text) Then
MsgBox "Такое имя уже есть", vbExclamation + vbOKOnly, "ComboBox №2"
.Text = ""
Exit Sub
End If
Next i
.AddItem Trim(.Text)
End If
End If
End With
'BackColor = vbRed
End Sub