📄 form1.frm
字号:
Left = 1200
TabIndex = 14
Top = 3540
Width = 2400
End
Begin VB.TextBox Text4
Height = 400
Left = 1200
TabIndex = 12
Top = 3060
Width = 2400
End
Begin VB.TextBox Text3
Height = 400
Left = 1200
TabIndex = 10
Top = 1920
Width = 2400
End
Begin VB.TextBox Text2
Height = 400
Left = 1200
TabIndex = 8
Top = 1425
Width = 2400
End
Begin VB.TextBox Text1
Height = 400
Left = 1200
TabIndex = 5
Top = 915
Width = 2400
End
Begin VB.Label Label24
BorderStyle = 1 'Fixed Single
Height = 1695
Left = -74940
TabIndex = 68
Top = 3300
Width = 3675
End
Begin VB.Label Label32
Caption = "【备注】在第？行"
Height = 435
Left = -74760
TabIndex = 58
Top = 2400
Width = 1455
End
Begin VB.Label Label31
Caption = "【金额】在第？行"
Height = 435
Left = -74760
TabIndex = 57
Top = 1980
Width = 1455
End
Begin VB.Label Label30
Caption = "【帐号】在第？行"
Height = 375
Left = -74760
TabIndex = 56
Top = 1440
Width = 1515
End
Begin VB.Label Label29
Caption = "【姓名】在第？行"
Height = 375
Left = -74760
TabIndex = 55
Top = 900
Width = 1455
End
Begin VB.Label Label23
Caption = "Form部分"
Height = 315
Left = -73560
TabIndex = 48
Top = 3360
Width = 855
End
Begin VB.Label Label22
Caption = "【表名】"
Height = 405
Left = -74835
TabIndex = 46
Top = 3840
Width = 1095
End
Begin VB.Label Label21
Caption = "Where部分"
Height = 315
Left = -73560
TabIndex = 45
Top = 4260
Width = 975
End
Begin VB.Label Label20
Caption = "Select部分"
Height = 315
Left = -73560
TabIndex = 44
Top = 1020
Width = 1155
End
Begin VB.Label Label19
Caption = "【日期】字段"
Height = 405
Left = -74835
TabIndex = 42
Top = 4620
Width = 1215
End
Begin VB.Label Label18
Caption = "【标示】字段"
Height = 405
Left = -74835
TabIndex = 37
Top = 2895
Width = 1275
End
Begin VB.Label Label17
Caption = "【金额】字段"
Height = 405
Left = -74835
TabIndex = 36
Top = 2400
Width = 1335
End
Begin VB.Label Label16
Caption = "【帐号】字段"
Height = 405
Left = -74835
TabIndex = 35
Top = 1905
Width = 1275
End
Begin VB.Label Label15
Caption = "【姓名】字段"
Height = 405
Left = -74835
TabIndex = 34
Top = 1395
Width = 1215
End
Begin VB.Label Label14
Caption = "排除标志"
Height = 315
Left = 105
TabIndex = 31
Top = 5040
Width = 975
End
Begin VB.Label Label13
Caption = "支付用途"
Height = 375
Left = 120
TabIndex = 29
Top = 4560
Width = 1035
End
Begin VB.Label Label12
Caption = "数据库名称"
Height = 405
Left = -74835
TabIndex = 24
Top = 2640
Width = 915
End
Begin VB.Label Label11
Caption = "密码"
Height = 405
Left = -74835
TabIndex = 23
Top = 3645
Width = 615
End
Begin VB.Label Label10
Caption = "用户名"
Height = 405
Left = -74835
TabIndex = 22
Top = 3135
Width = 1215
End
Begin VB.Label Label9
Caption = "服务器类型"
Height = 405
Left = -74835
TabIndex = 21
Top = 2145
Width = 1035
End
Begin VB.Label Label8
Caption = "服务器名"
Height = 405
Left = -74820
TabIndex = 19
Top = 1620
Width = 1095
End
Begin VB.Label Label7
Caption = "城市"
Height = 405
Left = 2280
TabIndex = 16
Top = 4140
Width = 495
End
Begin VB.Label Label6
Caption = "省份"
Height = 405
Left = 105
TabIndex = 15
Top = 4140
Width = 915
End
Begin VB.Label Label5
Caption = "收款行名"
Height = 405
Left = 105
TabIndex = 13
Top = 3120
Width = 1095
End
Begin VB.Label Label4
Caption = "收款行号"
Height = 405
Left = 105
TabIndex = 11
Top = 3660
Width = 1245
End
Begin VB.Label Label3
Caption = "付款行名"
Height = 405
Left = 105
TabIndex = 9
Top = 1920
Width = 1215
End
Begin VB.Label Label2
Caption = "付款帐号"
Height = 405
Left = 105
TabIndex = 7
Top = 1425
Width = 1215
End
Begin VB.Label label1
Caption = "付款单位名称"
Height = 405
Left = 105
TabIndex = 6
Top = 915
Width = 1215
End
End
Begin VB.CommandButton Command2
Caption = "打开数据文件夹"
Height = 975
Left = 720
TabIndex = 3
Top = 3000
Width = 1695
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "Form1.frx":2C265
Left = 1860
List = "Form1.frx":2C28D
TabIndex = 2
Text = "月"
Top = 1260
Width = 855
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Form1.frx":2C2B8
Left = 480
List = "Form1.frx":2C2CB
TabIndex = 1
Text = "年"
Top = 1260
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "生成代发数据"
Height = 915
Left = 720
TabIndex = 0
Top = 2040
Width = 1695
End
Begin VB.Label Label28
Alignment = 2 'Center
Caption = "工商银行企业网上银行数据格式转换"
BeginProperty Font
Name = "仿宋_GB2312"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 615
Left = 240
TabIndex = 52
Top = 120
Width = 10095
End
Begin VB.Label Label27
Alignment = 2 'Center
Caption = "操作说明"
BeginProperty Font
Name = "仿宋_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7320
TabIndex = 51
Top = 960
Width = 3255
End
Begin VB.Label Label25
Alignment = 2 'Center
Caption = "数据转换进度"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 600
TabIndex = 50
Top = 4800
Width = 1935
End
End
Attribute VB_Name = "SB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i
Dim ServerKind As Integer
Dim OrAccount As String
Private Sub Command1_Click()
On Error GoTo Err_deal
Dim oStroCnn As String
Dim oRs_count As Integer '数据行总数
Dim IntI, IntJ As Integer
Dim Txt_String As String '写入文本
Dim Txt_count As Integer '行计数
Dim File_count As Integer '文件计数
Dim Txt_money As Long '个人金额
Dim Txt_Tmoney As Long '单个文件金额计数
Dim Txt_Amoney As Long '合计金额
Dim Txt_Date As String '日期
Dim Txt_Fcount As String '付款帐号
Dim Txt_Fname As String '付款单位名称
Dim Txt_FBankName As String '付款银行名称
Dim Txt_SBankName As String '收款人开户行名称
Dim Txt_SBprovice As String '收款行省份
Dim Txt_SBcity As String '收款行城市
Dim Txt_SBbranchID As String '收款行行号
Dim Txt_usage As String '资金说明
Dim Txt_bankup As String
Dim Txt_bankupNULL As Boolean
Dim Txt_FileDate As String
Dim FsoFile As New FileSystemObject
Dim FsoTxt As File
Dim FsoStream As TextStream
Dim FsoFilePath As String
Dim ExcelTable As String
Dim SQLString As String
Dim SQLmouth As String
Dim SQLyear As String
Dim DbCon As Boolean
Dim DbRs As Boolean
Dim oRs As Recordset
Set oRs = New ADODB.Recordset
Txt_Date = Format(Date, "yyyymmdd")
Txt_FileDate = Format(Date, "yyyymmdd") & "-" & Format(Time, "hhmm")
Txt_FBankName = Text3.Text
Txt_Fcount = Text2.Text
Txt_Fname = Text1.Text
'If Check1.Value = 0 Then
Txt_SBankName = Text4.Text
Txt_SBbranchID = Text5.Text
Txt_SBprovice = Text6.Text
Txt_SBcity = Text7.Text
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -