📄 自动还款.frm
字号:
VERSION 5.00
Object = "{9ADF72AD-DDA9-11D1-9D4B-000021006D51}#1.2#0"; "UFSpGrid.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{51388549-C886-4FD6-AE5F-8AA28C63CE94}#1.0#0"; "PrintControl.ocx"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.4#0"; "U8TBCtl.ocx"
Begin VB.Form FrmAutoReturn
AutoRedraw = -1 'True
Caption = "资金管理-自动还款"
ClientHeight = 7095
ClientLeft = 60
ClientTop = 345
ClientWidth = 11175
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7095
ScaleWidth = 11175
Begin MSComctlLib.ImageList ImageList1
Left = 3360
Top = 840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin PRINTCONTROLLib.PrintControl Printer
Height = 255
Left = 10920
TabIndex = 11
TabStop = 0 'False
Top = 6720
Visible = 0 'False
Width = 375
_Version = 65536
_ExtentX = 661
_ExtentY = 450
_StockProps = 0
EnableSave = -1 'True
End
Begin VB.CommandButton cmdrefDjmc
Height = 252
Left = 9960
Style = 1 'Graphical
TabIndex = 10
Top = 840
Width = 285
End
Begin VB.TextBox TxtOprDate
Height = 270
Left = 7800
TabIndex = 9
Top = 6720
Width = 1935
End
Begin VB.TextBox TxtcUsername
Height = 270
Left = 960
TabIndex = 7
Top = 6600
Width = 1935
End
Begin VB.TextBox Txtdjmc
Height = 270
Left = 7920
TabIndex = 5
Top = 825
Width = 2295
End
Begin VB.TextBox Txthkrq
Enabled = 0 'False
Height = 270
Left = 1080
TabIndex = 3
Top = 825
Width = 1695
End
Begin MSComctlLib.Toolbar tlbtool
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 1
Top = 0
Width = 11175
_ExtentX = 19711
_ExtentY = 1005
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 12
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "print"
Description = "print"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "preview"
Description = "preview"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "输出"
Key = "output"
Description = "output"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "modify"
Description = "modify"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "取消"
Key = "cancel"
Description = "cancel"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "save"
Description = "save"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "联查"
Key = "linkquery"
Description = "linkquery"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "help"
Description = "help"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "exit"
Description = "exit"
EndProperty
EndProperty
End
Begin MsSuperGrid.SuperGrid SuperGrid1
Height = 4995
Left = 0
TabIndex = 0
Top = 1320
Width = 10500
_ExtentX = 18521
_ExtentY = 8811
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
EditBorderStyle = 0
MouseIcon = "自动还款.frx":0000
FormatString = "单位名称|业务编号|单据类型|贷款日期|结欠本金额|结欠利息额|还款账户号|账户余额|可使用余额|还本金额|还利息额"
ForeColorSel = -2147483634
ForeColorFixed = -2147483630
FixedCols = 0
Cols = 11
BackColorSel = -2147483635
BackColorFixed = -2147483633
AllowUserResizing= 1
AllowBigSelection= 0 'False
End
Begin prjTBCtrl.CTBCtrl ocxCtbTool
Height = 660
Left = 0
Top = 0
Width = 5295
_ExtentX = 9340
_ExtentY = 1164
End
Begin VB.Label Label4
Caption = "操作日期："
Height = 255
Left = 6840
TabIndex = 8
Top = 6720
Width = 975
End
Begin VB.Label Label3
Caption = "操作员："
Height = 255
Left = 120
TabIndex = 6
Top = 6615
Width = 735
End
Begin VB.Label Label2
Caption = "生成单据名称："
Height = 255
Left = 6600
TabIndex = 4
Top = 840
Width = 1335
End
Begin VB.Label Label1
Caption = "还款日期："
Height = 255
Left = 120
TabIndex = 2
Top = 840
Width = 975
End
End
Attribute VB_Name = "FrmAutoReturn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Const m_conBIStyle = 42:
'Private m_Eo As New U8FDEso.EntityObject
Private m_EO As U8FDEso.EntityObject '当前的数据记录；
Private m_OldEO As U8FDEso.EntityObject '备份EO；
'定义ADO参量
Private con As New ADODB.Connection
Private rs As New ADODB.Recordset
Private sqlstr As String
'定义接受系统设置参数
Private orderStr As String '排序字段
Private l_orderStyle As Boolean '排序方式
Private l_returnSort As Integer '还款顺序
'定义业务数据变量
Private GridData() As String '后台数组存放自动还款信息
Private SystemInfo(3) As String '存放系统表头表尾信息
Private vouchType As String '用户选择的单据类型代码
Private cellEdited As Boolean '存放单元修改信息
Private curRow As Integer
Private curCol As Integer '存放用户编辑的单元格的行列信息
Private modified As Boolean '修改信息标志
Private conflict_flag As Boolean '数据冲突标志
Private errornum As Integer '错误信息提示次数
Private OK As Boolean '有效性检查标志
'还款单ID数组
Private loanID() As Variant
'Form级变量，存放打印数据文件初始化信息
Dim xmlInit As Boolean
Dim Nodata As Boolean '有无自动还款纪录标志
Private m_PasteEO As U8FDEso.EntityObject
Public ShowMode As ShowModeEnum
'定义实体业务号(EntityObject.BIType)；
Public Property Get EO() As U8FDEso.EntityObject
Set EO = m_EO
End Property
Public Property Set EO(NewEO As U8FDEso.EntityObject)
Set m_EO = NewEO
End Property
'系统初始化
Private Sub Initialize()
Dim ReturnOrder As String
On Error GoTo error0
'con.ConnectionString = "Provider=SQLOLEDB.1;User ID=SA;Initial Catalog=UFDATA_997_2001;" _
& "Data Source=U8LT;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=U8LT;Use Encryption for Data=False;Tag with column collation when possible=False"
con.ConnectionString = zjLogInfo.UfDbName
con.CursorLocation = adUseClient
con.Open
'判断自动还款是否启用
sqlstr = "select * From Fd_Option;"
rs.Open sqlstr, con, adOpenDynamic, adLockOptimistic
' If Not IsNull(rs("autoreturn_flag")) Then
' If Not rs("autoreturn_flag") Then
' MsgBox "系统设置不允许自动还款！" & vbCrLf & "请在选项设置更改相应设置！", vbInformation, "自动还款"
' rs.Close
' Call InitNoDataForm
' 'Unload Me
' Exit Sub
' Else
orderStr = ""
parseReturnOrder (rs("returnorder_lev"))
' End If
' Else
' MsgBox "系统未设置自动还款选项！" & vbCrLf & "请在选项设置中做相应设置！", vbInformation, "自动还款"
' rs.Close
' Call InitNoDataForm
' 'Unload Me
' Exit Sub
' End If
rs.Close
'取本次还款的日记账日期
sqlstr = "select max(dbill_date) As hkrq from fd_autoreturn;"
rs.Open sqlstr, con, adOpenDynamic, adLockOptimistic
If Not (rs.EOF Or rs.BOF) Then
If IsNull(rs(0)) Then
Txthkrq.Text = Format(Date, "YYYY-MM-DD")
Else
Txthkrq.Text = Format(DateAdd("d", 1, CDate(rs(0))), "YYYY/MM/DD")
End If
End If
rs.Close
'设置默认的单据名称
Txtdjmc.Text = "内部贷款还款单"
vouchType = 42
SystemInfo(0) = "42"
'SystemInfo(1) = "42"
'SystemInfo(2) = "42"
SystemInfo(1) = zjLogInfo.cUserName
SystemInfo(2) = zjLogInfo.curDate
SystemInfo(3) = "内部贷款还款单"
InitForm
If LoadtoArray Then
Call calBlje
Call fillgrid
Exit Sub
Else
'MsgBox "数据初始化失败！" & Err.Description & "请退出重新进入！", vbInformation, "自动还款"
Call InitNoDataForm
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -