📄 frmjoblistcard.frm
字号:
VERSION 5.00
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.2#0"; "ATLEDIT.OCX"
Object = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GATLCTRL.DLL"
Object = "{E0B099CD-729C-11D2-840D-444553540000}#2.0#0"; "LISTTEXT.OCX"
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "CALENDAR.DLL"
Begin VB.Form frmJobListCard
BorderStyle = 1 'Fixed Single
Caption = "新增工程"
ClientHeight = 3015
ClientLeft = 45
ClientTop = 330
ClientWidth = 6390
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 3015
ScaleWidth = 6390
Begin GATLCTRLLibCtl.CalEdit calJob
Height = 300
Left = 3420
OleObjectBlob = "frmJobListCard.frx":0000
TabIndex = 17
Top = 2445
Width = 1425
End
Begin GACALENDARLibCtl.Calendar dteJob
Height = 300
Index = 0
Left = 1830
OleObjectBlob = "frmJobListCard.frx":0081
TabIndex = 7
Top = 1180
Width = 1515
End
Begin AtlEdit.TEdit txtJob
Height = 300
Index = 1
Left = 1830
TabIndex = 3
Top = 520
Width = 3015
_ExtentX = 5318
_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
End
Begin AtlEdit.TEdit txtJob
Height = 300
Index = 0
Left = 240
TabIndex = 1
Top = 520
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
End
Begin ListRefer.ListText lstJob
Height = 300
Index = 0
Left = 240
TabIndex = 5
Top = 1180
Width = 1515
_ExtentX = 2672
_ExtentY = 556
BackColor = -2147483643
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 = 3420
TabIndex = 13
Tag = "4"
Top = 1810
Width = 1425
_ExtentX = 2514
_ExtentY = 556
BackColor = -2147483643
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 = 240
TabIndex = 11
Tag = "201"
Top = 1810
Width = 3105
_ExtentX = 5477
_ExtentY = 556
BackColor = -2147483643
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 = 240
TabIndex = 15
Tag = "7"
Top = 2450
Width = 3105
_ExtentX = 5477
_ExtentY = 556
BackColor = -2147483643
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
Cancel = -1 'True
Height = 350
Index = 1
Left = 5070
Style = 1 'Graphical
TabIndex = 20
Tag = "1002"
Top = 540
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Default = -1 'True
Height = 350
Index = 0
Left = 5070
Style = 1 'Graphical
TabIndex = 19
Tag = "1001"
Top = 150
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 3
Left = 5070
Style = 1 'Graphical
TabIndex = 22
Tag = "1013"
Top = 1350
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 2
Left = 5070
Style = 1 'Graphical
TabIndex = 21
Tag = "1009"
Top = 930
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CheckBox chkStop
Caption = "停用"
Height = 195
Left = 5070
TabIndex = 18
Top = 2700
Width = 1215
End
Begin GACALENDARLibCtl.Calendar dteJob
Height = 300
Index = 1
Left = 3420
OleObjectBlob = "frmJobListCard.frx":0106
TabIndex = 9
Top = 1180
Width = 1515
End
Begin VB.Label lblTitle
Caption = "工程进度%(&P)"
Height = 225
Index = 8
Left = 3420
TabIndex = 16
Top = 2240
Width = 1185
End
Begin VB.Label lblTitle
Caption = "工程类型(&T)"
Height = 255
Index = 7
Left = 240
TabIndex = 14
Top = 2240
Width = 1125
End
Begin VB.Label lblTitle
Caption = "完工日期(&O)"
Height = 195
Index = 4
Left = 3420
TabIndex = 8
Top = 970
Width = 1095
End
Begin VB.Label lblTitle
Caption = "经办职员(&E)"
Height = 225
Index = 6
Left = 3420
TabIndex = 12
Top = 1600
Width = 1065
End
Begin VB.Label lblTitle
Caption = "开工日期(&G)"
Height = 225
Index = 3
Left = 1830
TabIndex = 6
Top = 970
Width = 1125
End
Begin VB.Label lblTitle
Caption = "承办单位(&U)"
Height = 255
Index = 5
Left = 240
TabIndex = 10
Top = 1600
Width = 1125
End
Begin VB.Label lblTitle
Caption = "工程状态(&A)"
Height = 165
Index = 2
Left = 240
TabIndex = 4
Top = 970
Width = 1005
End
Begin VB.Label lblTitle
Caption = "工程名称(&N)"
Height = 225
Index = 1
Left = 1830
TabIndex = 2
Top = 310
Width = 1245
End
Begin VB.Label lblTitle
Caption = "工程编码(&C)"
Height = 195
Index = 0
Left = 240
TabIndex = 0
Top = 310
Width = 1185
End
End
Attribute VB_Name = "frmJobListCard"
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 mblnIsInit As Boolean
Private mblnIsNew As Boolean '是增加记录还是修改记录
Private mlngDJobID As Long
Private mlngJobID As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -