УГХ 1.1.8 19.401-78 ТП
УТВЕРЖДЁН
УГХ 1.1.8 19.401-78 ТП ЛУ
Пакет прикладных программ
«Учёт кадров на предприятии»
ППП «Кадры»
Курсовой проект
Текст программы ППП «Кадры»
УГХ 1.1.8 19.401-78 ТП
Листов 14
2006
Содержание
Пакет прикладных программ 1
Введение 3
1.Стиль 3
2.БДсотрудник 5
3.БегСтрока 8
3.Настройки 11
5. Ксписок 13
Введение
Настоящий документ является неотъемлемой частью курсового проекта ППП «Кадры» и соответствует требованиям ГОСТ 19.401-78
1.Стиль
VERSION 5.00
Begin VB.Form Tonik
BackColor = &H00FFFF80&
Caption = "Сдвиг"
ClientHeight = 1965
ClientLeft = 2610
ClientTop = 1890
ClientWidth = 6120
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 1965
ScaleWidth = 6120
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 495
Left = 4680
TabIndex = 1
Top = 1200
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 120
TabIndex = 0
Top = 120
Width = 1215
End
End
Attribute VB_Name = "Tonik"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const СдвигЦвета As Integer = 256
Dim Цвет As Long
Private Sub Command1_Click()
Command2.SetFocus
End Sub
Private Sub Form_Click()
'Me.Left = Left + 1500 'Сдвиг
'Me.Width = Tonik.Width - 1500
'Tonik.Move 1500, 2500, 3500, 1500
'BackColor = Цвет
'Цвет = Цвет Mod RGB(0, 0, 255)
'If Цвет = 0 Then Цвет = 255 Else Цвет = Цвет * 256
Const СдвигЦвета As Integer = 256
Static ЦветЕще& 'AS Long
BackColor = ЦветЕще
ЦветЕще = ЦветЕще Mod vbBlue 'RGB(0, 0, 255)
If ЦветЕще = 0 Then ЦветЕще = vbRed Else ЦветЕще = ЦветЕще * СдвигЦвета
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then Tonik.BackColor = vbGreen
End Sub
2.БДсотрудник
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4140
ClientLeft = 1110
ClientTop = 1860
ClientWidth = 8175
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 4140
ScaleWidth = 8175
Begin MSComDlg.CommonDialog усБД
Left = 30
Top = 3180
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DialogTitle = "что хотим,то и пишем"
FileName = " "
Filter = "JulaTonik|*.ttt"
End
Begin MSFlexGridLib.MSFlexGrid тбФирма
Height = 4035
Left = 2460
TabIndex = 2
Top = 30
Width = 5685
_ExtentX = 10028
_ExtentY = 7117
_Version = 393216
End
Begin VB.Data бдФирма
Caption = "ОтделФирмы"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 300
Left = 30
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2790
Width = 2355
End
Begin VB.TextBox ттВвод
Height = 300
Left = 30
TabIndex = 1
Text = "Text1"
Top = 2430
Width = 2355
End
Begin MSDBCtls.DBCombo спКолонка
Height = 2325
Left = 30
TabIndex = 0
Top = 30
Width = 2355
_ExtentX = 4154
_ExtentY = 4101
_Version = 393216
Style = 1
Text = "DBCombo1"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ЩельBottom As Single, ЩельRight!
Dim ИмяБД$
Private Sub Form_Load()
ИмяБД = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "Фирма97.mdb"
With тбФирма
ЩельRight = Width - (.Left + .Width)
ЩельBottom = Height - (.Top + .Height)
End With
End Sub
Private Sub Form_Resize()
Dim Высота!, тбШирина!
Высота = бдФирма.Top + бдФирма.Height + ЩельBottom
тбШирина = Width - (ттВвод.Left + ЩельRight)
If Height < Высота Then
Height = Высота
End If
With тбФирма
тбШирина = Width - (.Left + ЩельRight)
If тбШирина < 0 Then тбШирина = 0: Width = .Left + ЩельRight
.Move .Left, .Top, тбШирина, Height - (.Top + ЩельBottom)
End With
End Sub
Sub common()
With усБД
.DialogTitle = "F"
.FileName = "Имя"
.ShowOpen
End With
End Sub