📄 form1.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form InputForm
Caption = "记帐凭证录入"
ClientHeight = 6690
ClientLeft = 165
ClientTop = 450
ClientWidth = 10560
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MinButton = 0 'False
ScaleHeight = 6690
ScaleWidth = 10560
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text1
Height = 375
Left = 3360
TabIndex = 18
Top = 120
Width = 1095
End
Begin MSDataGridLib.DataGrid DataGrid2
Height = 2655
Left = 3360
TabIndex = 17
Top = 3480
Width = 6735
_ExtentX = 11880
_ExtentY = 4683
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {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 = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "分析类科目"
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.CommandButton cmdNext
Caption = "下一条"
Enabled = 0 'False
Height = 375
Left = 240
TabIndex = 16
Top = 4680
Width = 1095
End
Begin VB.CommandButton cmdPre
Caption = "上一条"
Height = 375
Left = 240
TabIndex = 15
Top = 4320
Width = 1095
End
Begin VB.CommandButton pzAdd
Caption = "新增凭证"
Height = 375
Left = 240
TabIndex = 14
Top = 3960
Width = 1095
End
Begin MSMask.MaskEdBox MaskEdBox1
Height = 375
Left = 5880
TabIndex = 12
Top = 120
Width = 615
_ExtentX = 1085
_ExtentY = 661
_Version = 393216
HideSelection = 0 'False
Format = "0"
PromptChar = "_"
End
Begin VB.CommandButton cmdSave
Caption = "保存"
Height = 375
Left = 240
TabIndex = 10
ToolTipText = "保存本凭证"
Top = 3600
Width = 1095
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 2535
Left = 1320
TabIndex = 9
Top = 720
Width = 8655
_ExtentX = 15266
_ExtentY = 4471
_Version = 393216
AllowUpdate = -1 'True
AllowArrows = -1 'True
HeadLines = 1
RowHeight = 15
TabAction = 1
WrapCellPointer = -1 'True
BeginProperty HeadFont {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 = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.TextBox txtNumber
Height = 375
Left = 8520
TabIndex = 8
Top = 120
Width = 1455
End
Begin VB.CommandButton Command11
Caption = "删除"
Height = 375
Left = 2520
TabIndex = 6
Top = 4080
Width = 855
End
Begin VB.CommandButton cmdFXAdd
Caption = "添加"
Height = 375
Left = 2520
TabIndex = 5
Top = 3720
Width = 855
End
Begin VB.CommandButton cmdPrint
Caption = "打印"
Height = 375
Left = 240
TabIndex = 4
Top = 5060
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "删除"
Height = 375
Left = 120
TabIndex = 3
ToolTipText = "删本凭证中的一条记录"
Top = 1080
Width = 1050
End
Begin VB.CommandButton cmdAdd
Caption = "添加"
Height = 375
Left = 120
TabIndex = 2
ToolTipText = "添加凭证中的一条记录"
Top = 720
Width = 1050
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 720
TabIndex = 1
Top = 120
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
Format = 20840449
CurrentDate = 39145
End
Begin VB.Label Label4
Caption = "总号"
Height = 375
Left = 7800
TabIndex = 19
Top = 120
Width = 615
End
Begin VB.Label Label3
Caption = "张"
Height = 255
Left = 6720
TabIndex = 13
Top = 120
Width = 375
End
Begin VB.Label Label2
Caption = "附凭证"
Height = 255
Left = 5160
TabIndex = 11
Top = 120
Width = 615
End
Begin VB.Label Label8
Caption = "凭证号"
Height = 255
Left = 2520
TabIndex = 7
Top = 120
Width = 615
End
Begin VB.Label Label1
Caption = "日期："
Height = 255
Left = 120
TabIndex = 0
Top = 240
Width = 495
End
End
Attribute VB_Name = "InputForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public kemu1num As Integer
Public rst_Tmp_Ping As New ADODB.Recordset
Public rstFxTemp As New ADODB.Recordset
Private iRec As Integer
Private iRecConut As Integer
Private rstTemp As New ADODB.Recordset
Private dt As Date '记帐凭证日期
Public isSavedCurrent As Boolean '当前记帐凭证是否已保存
Private isPrinted As Boolean '当前记帐凭证是否已经打印
Private iStartNum As Integer
Public iPzid As Long
Dim sqlFxtemp As String
'返回真表示平衡，假表示不平衡
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -