📄 frm_期初录入 .frm
字号:
VERSION 5.00
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 frm_期初录入
BorderStyle = 3 'Fixed Dialog
Caption = "期初录入"
ClientHeight = 6090
ClientLeft = 4215
ClientTop = 5745
ClientWidth = 10425
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6090
ScaleWidth = 10425
ShowInTaskbar = 0 'False
Begin EditGridCtrlLib.EditGridCtrl grdmain
Height = 4815
Left = 120
TabIndex = 5
TabStop = 0 'False
Tag = "STRETCHALL"
Top = 240
Width = 10215
_ExtentX = 18018
_ExtentY = 8493
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 MSAdodcLib.Adodc AdoOutMan
Height = 375
Left = 0
Top = 5520
Visible = 0 'False
Width = 2160
_ExtentX = 3810
_ExtentY = 661
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 AdoID
Height = 330
Left = 2640
Top = 5520
Visible = 0 'False
Width = 2295
_ExtentX = 4048
_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 = "用户ID"
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 Adoname
Height = 330
Left = 1800
Top = 5520
Visible = 0 'False
Width = 1935
_ExtentX = 3413
_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 VB.CommandButton CmdAdd
BackColor = &H00C0C0C0&
Caption = "[&A]登记"
Height = 360
Left = 6240
TabIndex = 0
Tag = "MOVEALL"
Top = 5280
Width = 960
End
Begin VB.CommandButton CmdSave
BackColor = &H00C0C0C0&
Caption = "[&S]保存"
Enabled = 0 'False
Height = 360
Left = 7200
TabIndex = 3
Tag = "MOVEALL"
Top = 5280
Width = 975
End
Begin VB.CommandButton CmdEsc
BackColor = &H00C0C0C0&
Caption = "[&E]取消"
Enabled = 0 'False
Height = 360
Left = 8175
TabIndex = 2
Tag = "MOVEALL"
Top = 5280
Width = 975
End
Begin VB.CommandButton CmdExit
BackColor = &H00C0C0C0&
Caption = "[&X]退出"
Height = 360
Left = 9120
TabIndex = 1
Tag = "MOVEALL"
Top = 5280
Width = 975
End
Begin VB.Label Label4
AutoSize = -1 'True
Height = 180
Left = 7440
TabIndex = 4
Top = 195
Width = 90
End
End
Attribute VB_Name = "frm_期初录入"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strcnn As New ADODB.Connection
Public Depcode As String
Dim grdmainlns As Integer
Dim colname
Dim colwtd
Dim coltype
Dim collock
Dim StartLns As Integer
'窗体对象数据
'------------------------------------------
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
Autosizeform frm_test_objects, frm_test_effectobjects, frm_test_startwidth, frm_test_startheight, frm_test_noofobjects, Me, , size_axis_x
ElseIf Me.height >= frm_test_startheight And Me.width <= frm_test_startwidth Then
Autosizeform frm_test_objects, frm_test_effectobjects, frm_test_startwidth, frm_test_startheight, frm_test_noofobjects, Me, , size_axis_y
End If
'------------------------------------------
' Text1.top = Me.height / Screen.TwipsPerPixelY - Text1.height
'Text1.left = Me.width - Text1.width
Me.WindowState = 2
Autosizeform frm_test_objects, frm_test_effectobjects, frm_test_startwidth, frm_test_startheight, frm_test_noofobjects, Me
End Sub
Private Sub CmdAdd_Click()
Start False
End Sub
Private Sub CmdEsc_Click()
Start True
End Sub
Private Sub Cmdexit_Click()
Unload Me
End Sub
Private Sub cmdsave_Click()
Dim rsUser As New ADODB.Recordset
Dim rsgx As New ADODB.Recordset
Dim RevRecNo As String
Dim RevRecNoi As Integer
Dim strcls As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -