📄 form1.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{FCD7ED96-3275-41C9-B835-C4C80DC30069}#16.12#0"; "EDITGRIDCTRLLIB.OCX"
Begin VB.Form frmFee
Caption = "Form1"
ClientHeight = 5775
ClientLeft = 60
ClientTop = 375
ClientWidth = 10005
LinkTopic = "Form1"
ScaleHeight = 5775
ScaleWidth = 10005
StartUpPosition = 3 '窗口缺省
Begin VB.ComboBox CmbCls
Height = 300
ItemData = "Form1.frx":0000
Left = 780
List = "Form1.frx":000D
Style = 2 'Dropdown List
TabIndex = 4
Top = 0
Width = 1095
End
Begin VB.CommandButton CmdEsc
Caption = "[&E取消]"
Height = 330
Left = 7560
TabIndex = 3
Tag = "MOVEALL"
Top = 5040
Width = 855
End
Begin VB.CommandButton Cmdadd
Caption = "[&A添加]"
Height = 330
Left = 5880
TabIndex = 2
Tag = "MOVEALL"
Top = 5040
Width = 855
End
Begin VB.CommandButton CmdSave
Caption = "[&S保存]"
Height = 330
Left = 6720
TabIndex = 1
Tag = "MOVEALL"
Top = 5040
Width = 855
End
Begin VB.CommandButton CmdExit
Caption = "[&E退出]"
Height = 330
Left = 8400
TabIndex = 0
Tag = "MOVEALL"
Top = 5040
Width = 855
End
Begin MSAdodcLib.Adodc ado1
Height = 435
Left = 2010
Top = 960
Width = 1725
_ExtentX = 3043
_ExtentY = 767
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=MS Access Database"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "MS Access Database"
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from 查询5"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin EditGridCtrlLib.EnumEditBox CmbGx
Height = 330
Left = 4440
TabIndex = 5
Top = 0
Width = 2175
_ExtentX = 3836
_ExtentY = 582
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483643
FlatStyle = -2
End
Begin MSAdodcLib.Adodc AdoOP
Height = 330
Left = 3120
Top = 5040
Visible = 0 'False
Width = 1875
_ExtentX = 3307
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
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
_Version = 393216
End
Begin MSAdodcLib.Adodc AdoCp
Height = 330
Left = 4800
Top = 4680
Visible = 0 'False
Width = 1875
_ExtentX = 3307
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
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
_Version = 393216
End
Begin EditGridCtrlLib.EditGridCtrl GrdMain
Height = 4215
Left = 120
TabIndex = 6
Tag = "STRETCHALL"
Top = 480
Width = 9495
_ExtentX = 16748
_ExtentY = 7435
BackColorSel = 13546157
ForeColorSel = -2147483633
ForeColorFixed = -2147483641
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Rows = 5
BeginProperty FontFixed {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
AllowUserResizing= 3
OverLocked = -1 'True
HotTracking = 0 'False
End
Begin MSComCtl2.DTPicker Dtpmake
Height = 330
Left = 2460
TabIndex = 7
Top = 0
Width = 1335
_ExtentX = 2355
_ExtentY = 582
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 20971521
CurrentDate = 38635
End
Begin MSAdodcLib.Adodc AdoGx
Height = 330
Left = 0
Top = 4920
Visible = 0 'False
Width = 2055
_ExtentX = 3625
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
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
_Version = 393216
End
Begin MSDataListLib.DataCombo CmbGx1
Height = 330
Left = 4440
TabIndex = 8
Top = 0
Visible = 0 'False
Width = 1815
_ExtentX = 3201
_ExtentY = 582
_Version = 393216
Style = 2
Text = ""
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "工序："
Height = 180
Left = 3960
TabIndex = 11
Top = 75
Width = 540
End
Begin VB.Label Labbc
Caption = "班次："
Height = 180
Left = 180
TabIndex = 10
Top = 75
Width = 615
End
Begin VB.Label Labrq
Caption = "日期："
Height = 180
Left = 1980
TabIndex = 9
Top = 75
Width = 615
End
End
Attribute VB_Name = "frmFee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Dim J As Integer
Dim k As Integer
Dim r As Integer
Dim s As Integer
Dim colname, colwd
Dim colname2, colwd2
Dim strcnn As New ADODB.Connection
Dim isSave As Boolean
Dim Depcode As String
'窗体对象数据
'------------------------------------------
Dim frm_test_objects() As objectinfo
Dim frm_test_effectobjects() As Object
Private frm_test_noofobjects As Integer
Private frm_test_startwidth As Long
Private frm_test_startheight As Long
Private Sub Form_Resize()
'------------------------------------------
'YOU WILL NOTICE THAT THIS RESIZE FUNCTION
'IS SLIGHTLY MORE COMPLEX, THIS IS ONLY
'TO STOP THE APPLICATION FROM RESIZING
'OBJECTS BELOW THEIR BOUNDRIES. BASICALLY
'WHEN THE OBJECT IS WIDE ENOUGH, THE WIDTH
'IS EFFECTED, BUT WHEN ITS NOT, ITS IGNORED
'THE SAME GOES FOR THE HEIGHT.
If Me.WindowState <> 0 Then Exit Sub
If Me.width >= frm_test_startwidth And Me.height >= frm_test_startheight Then
Autosizeform frm_test_objects, frm_test_effectobjects, frm_test_startwidth, frm_test_startheight, frm_test_noofobjects, Me
ElseIf Me.width >= frm_test_startwidth And Me.height <= frm_test_startheight Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -