📄 frmgoods.frm
字号:
VERSION 5.00
Object = "{BA513CF3-1BFD-4976-B2DA-2F1A208D11F9}#1.0#0"; "vkusercontrolsxp.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmGoods
Caption = "物品资料维护"
ClientHeight = 7275
ClientLeft = 60
ClientTop = 450
ClientWidth = 9600
Icon = "frmGoods.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7275
ScaleWidth = 9600
WindowState = 2 'Maximized
Begin MSFlexGridLib.MSFlexGrid DataShow
Height = 6975
Left = 120
TabIndex = 11
Top = 2280
Width = 15015
_ExtentX = 26485
_ExtentY = 12303
_Version = 393216
End
Begin vkUserContolsXP.vkMouseKeyEvents vkMouseKeyEvents1
Left = 7080
Top = 3720
_ExtentX = 1164
_ExtentY = 1032
End
Begin vkUserContolsXP.vkCommand vkCommand4
Height = 375
Left = 3360
TabIndex = 5
Top = 1560
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BackColorPushed1= 16514043
BackColorPushed2= 14474460
Caption = "删除"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frmGoods.frx":038A
End
Begin vkUserContolsXP.vkCommand vkCommand3
Height = 375
Left = 1800
TabIndex = 4
Top = 1560
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BackColorPushed1= 16514043
BackColorPushed2= 14474460
Caption = "保存"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frmGoods.frx":0724
End
Begin vkUserContolsXP.vkCommand vkCommand2
Height = 375
Left = 240
TabIndex = 3
Top = 1560
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BackColorPushed1= 16514043
BackColorPushed2= 14474460
Caption = "新增"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frmGoods.frx":0ABE
End
Begin vkUserContolsXP.vkTextBox txtGoodsName
Height = 300
Left = 1080
TabIndex = 2
Top = 840
Width = 2535
_ExtentX = 4471
_ExtentY = 529
BeginProperty LegendFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ScrollBars = 0
LegendForeColor = 12937777
End
Begin vkUserContolsXP.vkTextBox txtGoodsID
Height = 300
Left = 1080
TabIndex = 1
Top = 480
Width = 2535
_ExtentX = 4471
_ExtentY = 529
ForeColor = 16711680
BeginProperty LegendFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ScrollBars = 0
LegendForeColor = 12937777
End
Begin vkUserContolsXP.vkFrame vkFrame1
Height = 2055
Left = 120
TabIndex = 0
Top = 120
Width = 9015
_ExtentX = 15901
_ExtentY = 3625
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShowTitle = 0 'False
Begin vkUserContolsXP.vkCommand vkCommand1
Height = 375
Left = 4800
TabIndex = 6
Top = 1440
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BackColorPushed1= 16514043
BackColorPushed2= 14474460
Caption = "关闭"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frmGoods.frx":0E58
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "已修改，未保存"
ForeColor = &H8000000D&
Height = 180
Left = 7320
TabIndex = 9
Top = 1680
Visible = 0 'False
Width = 1260
End
Begin VB.Image Image1
Height = 240
Left = 6960
Picture = "frmGoods.frx":11F2
Top = 1680
Visible = 0 'False
Width = 240
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "物品名称"
Height = 180
Left = 120
TabIndex = 8
Top = 720
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "物品编号"
Height = 180
Left = 120
TabIndex = 7
Top = 360
Width = 720
End
End
Begin VB.TextBox txtID
Height = 495
Left = 7080
TabIndex = 10
Text = "Text1"
Top = 720
Visible = 0 'False
Width = 1215
End
End
Attribute VB_Name = "frmGoods"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strGoodsOldID As String
Dim strGoodsOldName As String
Dim bEditMode As Boolean
Function AddWHRecorder() As Boolean
On Error GoTo ErrFlag
Dim ConnTemp As New ADODB.Connection
Dim RSTemp As New ADODB.Recordset
Dim strSQL As String, i As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -