📄 frmproject.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "msadodc.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "msdatlst.ocx"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDatGrd.ocx"
Begin VB.Form frmProject
Caption = "项目"
ClientHeight = 7290
ClientLeft = 1110
ClientTop = 345
ClientWidth = 9585
ControlBox = 0 'False
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7290
ScaleWidth = 9585
WindowState = 2 'Maximized
Begin TabDlg.SSTab SSTab1
Height = 7155
Left = 60
TabIndex = 0
Top = 0
Width = 9495
_ExtentX = 16748
_ExtentY = 12621
_Version = 393216
Style = 1
TabHeight = 520
TabCaption(0) = "项目信息"
TabPicture(0) = "frmProject.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "picButtons"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "项目说明"
TabPicture(1) = "frmProject.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "txtFields(2)"
Tab(1).Control(1)= "lblLabels(2)"
Tab(1).ControlCount= 2
TabCaption(2) = "项目清单"
TabPicture(2) = "frmProject.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "DataGrid1"
Tab(2).ControlCount= 1
Begin VB.PictureBox picButtons
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 3360
Left = 6960
ScaleHeight = 3360
ScaleWidth = 2265
TabIndex = 23
Top = 3600
Width = 2265
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 420
Left = 420
TabIndex = 27
Top = 660
Width = 1395
End
Begin VB.CommandButton cmdUpdate
Caption = "保存(&U)"
Height = 420
Left = 420
TabIndex = 26
Top = 1320
Width = 1395
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 420
Left = 420
TabIndex = 25
Top = 1980
Width = 1395
End
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
Height = 420
Left = 420
TabIndex = 24
Top = 2640
Width = 1395
End
End
Begin VB.Frame Frame1
BackColor = &H00C0E0FF&
Height = 6495
Left = 180
TabIndex = 10
Top = 480
Width = 6255
Begin VB.CheckBox Check1
DataField = "是否完成"
DataSource = "datPrimaryRS"
Height = 255
Left = 1560
TabIndex = 30
Top = 6120
Width = 255
End
Begin VB.TextBox txtFields
DataField = "客户"
DataSource = "datPrimaryRS"
Height = 315
Index = 7
Left = 360
TabIndex = 2
Top = 2520
Width = 5655
End
Begin VB.TextBox txtFields
DataField = "项目结束日期"
BeginProperty DataFormat
Type = 1
Format = "yyyy""年""M""月""d""日"""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
DataSource = "datPrimaryRS"
Height = 330
Index = 6
Left = 1740
TabIndex = 6
Text = "Text2"
Top = 5460
Width = 1935
End
Begin VB.TextBox txtFields
DataField = "项目开始日期"
BeginProperty DataFormat
Type = 1
Format = "yyyy""年""M""月""d""日"""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
DataSource = "datPrimaryRS"
Height = 315
Index = 3
Left = 1740
TabIndex = 5
Text = "Text1"
Top = 4860
Width = 1935
End
Begin MSComCtl2.DTPicker DTPicker2
BeginProperty DataFormat
Type = 1
Format = "dddddd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 315
Left = 3840
TabIndex = 22
Top = 5460
Width = 2115
_ExtentX = 3731
_ExtentY = 556
_Version = 393216
Format = 55246848
CurrentDate = 36953
End
Begin MSComCtl2.DTPicker DTPicker1
BeginProperty DataFormat
Type = 1
Format = "dddddd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 315
Left = 3840
TabIndex = 21
Top = 4860
Width = 2115
_ExtentX = 3731
_ExtentY = 556
_Version = 393216
Format = 55246848
CurrentDate = 36953
End
Begin VB.TextBox txtFields
DataField = "雇员"
DataSource = "datPrimaryRS"
Height = 285
Index = 5
Left = 1740
TabIndex = 4
Top = 4245
Width = 4275
End
Begin VB.TextBox txtFields
DataField = "项目估计总帐"
BeginProperty DataFormat
Type = 1
Format = """￥""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 2
EndProperty
DataSource = "datPrimaryRS"
Height = 285
Index = 4
Left = 1740
TabIndex = 3
Top = 3660
Width = 4275
End
Begin VB.TextBox txtFields
BackColor = &H00FFFFFF&
DataField = "项目名称"
DataSource = "datPrimaryRS"
Height = 1005
Index = 1
Left = 360
TabIndex = 1
Text = " "
Top = 900
Width = 5655
End
Begin VB.TextBox txtFields
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
DataField = "项目ID"
DataSource = "datPrimaryRS"
Enabled = 0 'False
ForeColor = &H00C0E0FF&
Height = 285
Index = 0
Left = 2160
Locked = -1 'True
TabIndex = 12
Top = 120
Width = 3375
End
Begin MSDataListLib.DataCombo DataCombo1
Bindings = "frmProject.frx":0054
Height = 330
Left = 2220
TabIndex = 11
Top = 3000
Width = 3795
_ExtentX = 6694
_ExtentY = 582
_Version = 393216
ListField = "公司名称"
BoundColumn = "公司名称"
Text = ""
Object.DataMember = "联系人"
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "是否完成:"
Height = 315
Left = 120
TabIndex = 29
Top = 6120
Width = 1155
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "可从此处选择一个："
Height = 255
Left = 120
TabIndex = 28
Top = 3060
Width = 1755
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "项目结束日期:"
Height = 255
Index = 7
Left = 120
TabIndex = 19
Top = 5535
Width = 1455
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "项目开始日期:"
Height = 255
Index = 6
Left = 120
TabIndex = 18
Top = 4920
Width = 1455
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "您的名字:"
Height = 255
Index = 5
Left = 120
TabIndex = 17
Top = 4245
Width = 1455
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "项目估计金额:"
Height = 255
Index = 4
Left = 120
TabIndex = 16
Top = 3720
Width = 1455
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "客户名称:"
Height = 255
Index = 3
Left = 120
TabIndex = 15
Top = 2220
Width = 1455
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "项目名称:"
Height = 255
Index = 1
Left = 120
TabIndex = 14
Top = 675
Width = 1455
End
Begin VB.Label lblLabels
Alignment = 1 'Right Justify
BackColor = &H00C0E0FF&
Caption = "项目ID:"
ForeColor = &H00C0E0FF&
Height = 255
Index = 0
Left = 240
TabIndex = 13
Top = 120
Visible = 0 'False
Width = 1815
End
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "frmProject.frx":006E
Height = 6615
Left = -74880
TabIndex = 9
Top = 420
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -