📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "凭证二次开发实例"
ClientHeight = 4470
ClientLeft = 60
ClientTop = 345
ClientWidth = 5985
LinkTopic = "Form1"
ScaleHeight = 4470
ScaleWidth = 5985
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command4
Caption = "凭证联查"
Height = 435
Left = 330
TabIndex = 3
Top = 1590
Width = 1275
End
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 1125
Left = 330
TabIndex = 4
Top = 1770
Width = 4215
Begin VB.TextBox txtPZNO
Height = 285
Left = 1320
TabIndex = 8
Top = 285
Width = 945
End
Begin VB.TextBox txtSign
Height = 285
Left = 1320
TabIndex = 7
Top = 600
Width = 915
End
Begin VB.TextBox txtPeriod
Height = 285
Left = 3210
TabIndex = 6
Top = 270
Width = 765
End
Begin VB.CheckBox Check1
Caption = "是否记帐"
Height = 285
Left = 2340
TabIndex = 5
Top = 630
Width = 1605
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "凭证号:"
Height = 285
Left = 690
TabIndex = 11
Top = 330
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "凭证类别字:"
Height = 180
Left = 150
TabIndex = 10
Top = 630
Width = 990
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "会计区间:"
Height = 285
Left = 2310
TabIndex = 9
Top = 300
Width = 810
End
End
Begin VB.CommandButton Command3
Caption = "凭证查询"
Height = 525
Left = 330
TabIndex = 2
Top = 750
Width = 1245
End
Begin VB.CommandButton Command2
Caption = "填制凭证(其他系统)"
Height = 525
Left = 2250
TabIndex = 1
Top = 120
Width = 1755
End
Begin VB.CommandButton Command1
Caption = "填制凭证(总账)"
Height = 525
Left = 330
TabIndex = 0
Top = 120
Width = 1605
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_NetLogin As Object
Dim m_login As U8Login.clsLogin '定义注册对象
Dim m_ZwPub As clsPub '定义公用函数
Dim WithEvents m_objPz As clsPZ '定义凭证对象
Attribute m_objPz.VB_VarHelpID = -1
Private Sub Command1_Click()
'事例1: 填制凭证 (总账)
'注册对象实例化
If Not Login("GL") Then Exit Sub
'总账公用函数实例化
Set m_ZwPub = New clsPub
m_ZwPub.InitPubs m_login.UfSystemDb, m_login.UfDbName, m_login.cacc_id, m_login.cIYear, m_login.cUserId, m_login.CurDate, m_login.SysPassword
'调用凭证对象
Set m_objPz = New clsPZ
Set m_objPz.zzLogin = m_login
Set m_objPz.zzSys = m_ZwPub
m_objPz.StartUpPz "GL", "GL0201", Pz_ZD
Set m_objPz = Nothing
Set m_ZwPub = Nothing
End Sub
Private Sub Command2_Click()
'事例2: 制单 (其他产品)
'总账公用函数实例化
If Not Login("PM") Then Exit Sub
Dim UfDb As New UfDbKit.UfDatabase
Dim SQL As String
UfDb.OpenDatabase m_login.UfDbName
Set m_ZwPub = New clsPub
m_ZwPub.InitPubs2 "PM", m_login.UfSystemDb, UfDb, m_login.cacc_id, m_login.cIYear, m_login.cUserId, m_login.CurDate, m_login.SysPassword
'准备数据 , 临时表结构参见总账数据库结构文档的凭证表
Dim I As Integer, rstVouch As UfRecordset
SQL = "select * from " & m_ZwPub.WbTableName
Set rstVouch = m_ZwPub.DataMdb.OpenRecordset(SQL)
For I = 0 To 1
rstVouch.AddNew
rstVouch!ioutperiod = 9
rstVouch!coutsign = "项目"
rstVouch!coutno_id = "123456"
rstVouch!coutsysname = "PM"
rstVouch!cbill = m_login.cUserName
rstVouch!inid = I
'以上字段必填
If I = 0 Then
rstVouch!md = 100
Else
rstVouch!mc = 200
End If
rstVouch.Update
Next I '调用凭证对象
Set m_objPz = New clsPZ
Set m_objPz.zzLogin = m_login
Set m_objPz.zzSys = m_ZwPub
m_objPz.StartUpPz "PM", "PM034", Pz_ZD
Set m_objPz = Nothing
Set m_ZwPub = Nothing
End Sub
Public Function Login(ByVal sysID As String) As Boolean
Set m_NetLogin = CreateObject("UFSoft.U8.Framework.Login.UI.clsLogin")
If m_NetLogin.login_2(sysID) = False Then
MsgBox m_NetLogin.ErrDescript
Exit Function
End If
Dim oLoginContext As Object
Set oLoginContext = CreateObject("UFSoft.U8.Framework.LoginContext.ProductContext")
Set oLoginContext = m_NetLogin.SubLogin(sysID)
If oLoginContext Is Nothing Then
MsgBox m_NetLogin.ErrDescript
Exit Function
End If
Set m_login = New U8Login.clsLogin
Call m_login.ConstructLogin(m_NetLogin.userToken)
Call m_login.Login("GL", m_login.cacc_id, m_login.cIYear, m_login.cUserId, m_login.SysPassword, m_login.CurDate, m_login.cServer, m_login.cSerial)
Login = True
End Function
Private Sub Command3_Click()
'凭证查询
If Not Login("GL") Then Exit Sub
Set m_ZwPub = New clsPub
m_ZwPub.InitPubs m_login.UfSystemDb, m_login.UfDbName, m_login.cacc_id, m_login.cIYear, m_login.cUserId, m_login.CurDate, m_login.SysPassword
'调用凭证对象
Set m_objPz = New clsPZ
Set m_objPz.zzLogin = m_login
Set m_objPz.zzSys = m_ZwPub
m_objPz.StartUpPz "GL", "GL0205", Pz_CX
Set m_objPz = Nothing
Set m_ZwPub = Nothing
End Sub
Private Sub Command4_Click()
'凭证联查
Dim blnJZ As Boolean
Dim intPz As Integer
Dim bytPeriod As Byte
Dim strSign As String
If txtPZNO.Text = "" Or txtPeriod.Text = "" Or txtSign.Text = "" Then
MsgBox "请输入需要联查的凭证信息!"
Exit Sub
End If
If Not Login("GL") Then Exit Sub
blnJZ = Check1.Value
intPz = CInt(Val(txtPZNO.Text))
bytPeriod = CByte(Val(txtPeriod.Text))
strSign = Trim(txtSign.Text)
Set m_ZwPub = New clsPub
m_ZwPub.InitPubs m_login.UfSystemDb, m_login.UfDbName, m_login.cacc_id, m_login.cIYear, m_login.cUserId, m_login.CurDate, m_login.SysPassword
'调用凭证对象
Set m_objPz = New clsPZ
Set m_objPz.zzLogin = m_login
Set m_objPz.zzSys = m_ZwPub
m_objPz.StartUpPz "GL", "GL0205", Pz_LC, , blnJZ, bytPeriod, strSign, intPz
Set m_objPz = Nothing
Set m_ZwPub = Nothing
End Sub
Private Sub m_objPz_Save(rstCurrentVouch As ADODB.Recordset, IsSuccess As Boolean)
Dim objCon As ADODB.Connection
Set objCon = rstCurrentVouch.ActiveConnection
'--------------------
'代码略
'--------------------
IsSuccess = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -