📄 frmjobcard.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Object = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GACEDIT.DLL"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Begin VB.Form frmJobCard
BorderStyle = 1 'Fixed Single
Caption = "新增工程"
ClientHeight = 3015
ClientLeft = 45
ClientTop = 330
ClientWidth = 6390
HelpContextID = 30017
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3015
ScaleWidth = 6390
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin GACALENDARLibCtl.Calendar dteJob
Height = 300
Index = 0
Left = 1860
OleObjectBlob = "frmJobCard.frx":0000
TabIndex = 7
Top = 1155
Width = 1485
End
Begin GATLCTRLLibCtl.CalEdit calJob
Height = 300
Left = 3390
OleObjectBlob = "frmJobCard.frx":0089
TabIndex = 17
Top = 2415
Width = 1395
End
Begin AtlEdit.TEdit txtJob
Height = 300
Index = 1
Left = 1860
TabIndex = 3
Top = 495
Width = 2925
_ExtentX = 5159
_ExtentY = 529
maxchar = 30
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin AtlEdit.TEdit txtJob
Height = 300
Index = 0
Left = 330
TabIndex = 1
Top = 495
Width = 1515
_ExtentX = 2672
_ExtentY = 529
maxchar = 16
RBmenu = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin ListRefer.ListText lstJob
Height = 300
Index = 0
Left = 330
TabIndex = 5
Top = 1155
Width = 1485
_ExtentX = 2619
_ExtentY = 529
BackColor = -2147483643
MaxLenth = 12
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText lstJob
Height = 300
Index = 2
Left = 3390
TabIndex = 13
Top = 1785
Width = 1395
_ExtentX = 2461
_ExtentY = 529
CodeSort = -1 'True
BackColor = -2147483643
MaxLenth = 16
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText lstJob
Height = 300
Index = 1
Left = 330
TabIndex = 11
Top = 1785
Width = 3015
_ExtentX = 5318
_ExtentY = 529
CodeSort = -1 'True
BackColor = -2147483643
MaxLenth = 16
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText lstJob
Height = 300
Index = 3
Left = 330
TabIndex = 15
Top = 2415
Width = 3015
_ExtentX = 5318
_ExtentY = 529
CodeSort = -1 'True
BackColor = -2147483643
MaxLenth = 16
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 1
Left = 5070
Style = 1 'Graphical
TabIndex = 19
Tag = "1002"
Top = 540
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 0
Left = 5070
Style = 1 'Graphical
TabIndex = 18
Tag = "1001"
Top = 150
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 3
Left = 5070
Style = 1 'Graphical
TabIndex = 21
Tag = "1013"
Top = 1350
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 2
Left = 5070
Style = 1 'Graphical
TabIndex = 20
Tag = "1009"
Top = 930
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CheckBox chkStop
Caption = "停用"
Height = 195
Left = 5070
TabIndex = 22
Top = 2670
Width = 1215
End
Begin GACALENDARLibCtl.Calendar dteJob
Height = 300
Index = 1
Left = 3390
OleObjectBlob = "frmJobCard.frx":010A
TabIndex = 9
Top = 1155
Width = 1395
End
Begin VB.Label lblTitle
Caption = "工程状态(&A)"
Height = 195
Index = 2
Left = 330
TabIndex = 4
Top = 945
Width = 1185
End
Begin VB.Label lblTitle
Caption = "工程进度%(&P)"
Height = 225
Index = 8
Left = 3420
TabIndex = 16
Top = 2205
Width = 1185
End
Begin VB.Label lblTitle
Caption = "工程类型(&T)"
Height = 255
Index = 7
Left = 330
TabIndex = 14
Top = 2205
Width = 1125
End
Begin VB.Label lblTitle
Caption = "完工日期(&O)"
Height = 195
Index = 4
Left = 3390
TabIndex = 8
Top = 945
Width = 1095
End
Begin VB.Label lblTitle
Caption = "经办职员(&E)"
Height = 225
Index = 6
Left = 3420
TabIndex = 12
Top = 1575
Width = 1065
End
Begin VB.Label lblTitle
Caption = "开工日期(&G)"
Height = 225
Index = 3
Left = 1860
TabIndex = 6
Top = 945
Width = 1125
End
Begin VB.Label lblTitle
Caption = "所属单位(&U)"
Height = 255
Index = 5
Left = 330
TabIndex = 10
Top = 1575
Width = 1125
End
Begin VB.Label lblTitle
Caption = "工程名称(&N)"
Height = 225
Index = 1
Left = 1890
TabIndex = 2
Top = 285
Width = 1245
End
Begin VB.Label lblTitle
Caption = "工程编码(&C)"
Height = 195
Index = 0
Left = 330
TabIndex = 0
Top = 285
Width = 1185
End
End
Attribute VB_Name = "frmJobCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 工程卡片
' 作者：苏涛
' 日期：1998.09.15
'
' 功能：完成工程表的增、删、改操作
'
' 接口： AddCard 增加工程记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改工程记录。
' 参数： lngRecordID 被修改的记录的ID，intModal 显示模式
' DelCard 删除工程记录。
' 参数： lngRecordID 被删除的记录的ID
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mblnIsChanged As Boolean '工程改变标志
Private mblnIsExist As Boolean
Private mblnIsList As Boolean
Private mblnIsRefer As Boolean
Private mblnIsDrop As Boolean
Private mblnIsInit As Boolean
Private mblnIsNew As Boolean '是增加记录还是修改记录
Private mlngDJobID As Long
Private mlngJobID As Long
Private mlngLstID(3) As Long
Private mstrJob As String
Private mstrNotes As String
'引入工程
Public Function AddJob(ByVal strJob As String) As Integer
Dim strJobCode As String, strJobName As String, strTemp As String
Dim blnIsInActive As Boolean, lngJobTypeID As Long, lngCustomerID As Long
Dim lngEmployeeID As Long, lngJobStatusID As Long, strBeginDate As String
Dim strEndDate As String, dblPercent As Double, strNotes As String
On Error GoTo ErrHandle
AddJob = 0
If Not GetString(strJob, strJobCode, 1) Then GoTo ErrHandle
If Not GetString(strJob, strJobName, 2) Then GoTo ErrHandle
If Not GetString(strJob, strTemp, 3) Then GoTo ErrHandle
lngJobTypeID = CLng(strTemp)
If Not GetString(strJob, strTemp, 4) Then GoTo ErrHandle
lngCustomerID = CLng(strTemp)
If Not GetString(strJob, strTemp, 5) Then GoTo ErrHandle
blnIsInActive = (strTemp = "1")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -