📄 datawiz1.frm
字号:
BorderWidth = 2
X1 = 120
X2 = 6480
Y1 = 4800
Y2 = 4800
End
End
Attribute VB_Name = "DaTaWiz1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Dbf As String
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Unload Me
Cela = False
Exit Sub
Case 1
Unload Me
DataWIZ.Show vbModal
Case 2
If Command1(2).Caption = "下传" Then
Unload Me
Unload DataWIZ
Unload DaTaWiz1
Cela = True
Exit Sub
End If
If Command1(2).Caption = "完成" Then
P1.Visible = True
Label2 = DataWIZ.List2.List(0)
StruA$ = DataWIZ.List2.List(0)
Call CheckStru(1, Label2)
Label3 = DataWIZ.List2.List(1)
StruB$ = DataWIZ.List2.List(1)
Call CheckStru(2, Label3)
Label4 = DataWIZ.List2.List(2)
StruC$ = DataWIZ.List2.List(2)
Call CheckStru(3, Label4)
Label5 = DataWIZ.List2.List(3)
' StruD$ = DataWIZ.List2.List(3)
Call CheckStru(4, Label5)
Dbf = DataWIZ.Combo1.Text
Call DataCrea
P1.Visible = False
If Image2.Visible And Image4.Visible And Image6.Visible And Image8.Visible Then
'Set DataWIZ = Nothing
Command1(2).Caption = "下传"
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Check1.Visible = True
Check1.Enabled = True
Else
Command1(2).Enabled = False
Check1.Enabled = False
End If
End If
End Select
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
P1.Visible = False
Check1.Visible = False
Label6.Visible = False
End Sub
Sub CheckStru(Ret As String, ctol As Object)
Dim Fd As Field
Dim TbName As String
Dim i As Integer
DaTaWiz1.Refresh
Screen.MousePointer = 11
i = 0
P1.Min = 0
P1.Max = DataWIZ.Data1.Database.TableDefs(DataWIZ.Combo1.ListIndex).Fields.Count
For Each Fd In DataWIZ.Data1.Database.TableDefs(DataWIZ.Combo1.ListIndex).Fields
If Fd.Name = Trim(ctol) Then
'校验字段的合法性
If Fd.Type = 12 Then
Select Case Ret
Case 1
Image3.Visible = True
Case 2
Image5.Visible = True
Case 3
Image7.Visible = True
Case 4
Image9.Visible = True
End Select
End If
If Fd.Type = 8 Then
Select Case Ret
Case 1
Image3.Visible = True
Case 2
Image5.Visible = True
Case 3
Image7.Visible = True
Case 4
Image9.Visible = True
End Select
End If
If Fd.Type = 2 Then
Select Case Ret
Case 1
Image3.Visible = True
Case 2
Image5.Visible = True
Case 3
Image7.Visible = True
Case 4
Image9.Visible = True
End Select
End If
If Fd.Type = 5 Then
Select Case Ret
Case 1
Image3.Visible = True
Case 2
Image5.Visible = True
Case 3
Image7.Visible = True
Case 4
Image9.Visible = True
End Select
End If
If Fd.Type = 10 Then
Select Case Ret
Case 1
Image2.Visible = True
Case 2
Image4.Visible = True
Case 3
Image6.Visible = True
Case 4
Image8.Visible = True
End Select
End If
End If
Sleep (10)
i = i + 1
P1.Value = i
Next
End Sub
'////////////生成tx.txt文件/////////////////
Sub DataCrea()
Dim nd As Database, Md As Recordset '全局库名，表名
Dim i As Integer, II As Integer
Dim Txstr As String, Sqltr As String, STRCD As Integer, A As String
'Set Nd = DBEngine.Workspaces(0).OpenDatabase(Dbk)
Set Md = NdMd.OpenRecordset("SELECT 用户电费.辅助号,用户电费.用户表码,用户电费.[" & AAA & "] AS 上期示数 From 用户电费 WHERE 用户电费.镇村代码='" & UserSeek & "' order by 用户电费.组合编码 asc")
'Set Md = Nd.OpenRecordset(Dbf)
If Not Md.eof Then
Md.MoveFirst
End If
If Md.RecordCount <> 0 Then
P1.Min = 0
P1.Max = Md.RecordCount - 1
Md.MoveFirst
If FileExists(App.Path & "\Tx.txt") Then Kill App.Path & "\Tx.txt"
Open App.Path & "\Tx.txt" For Append As #1
Print #1, Mid(GzNian, 1, 2) & GzYue & Mid(XzCode, 2, 2) & Mid(XcCode, 2, 2) & "8923" & "0" & Md.RecordCount & "0" & Md.RecordCount & "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
Close #1
For i = P1.Min To P1.Max
Txstr = Txstr & Md.Fields!辅助号 & Right("000000" + Md.Fields!上期示数, 6) & "FFFFFF"
Md.MoveNext
P1.Value = i
DoEvents
Next i
STRCD = Len(Trim(Txstr))
STRCD = STRCD \ 64
P1.Value = 0
P1.Min = 0
P1.Max = STRCD
For i = P1.Min To P1.Max
If i = 0 Then
A = Mid(Txstr, 1, 64)
Open App.Path & "\Tx.txt" For Append As #1
Print #1, A
Close #1
End If
If i = 1 Then
A = Mid(Txstr, 65, 64)
Open App.Path & "\Tx.txt" For Append As #1
Print #1, A
Close #1
End If
If i > 1 Then
A = Mid(Txstr, 64 * i + 1, 64)
If Len(A) <> 64 Then
A = Mid(A & "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF", 1, 64)
End If
Open App.Path & "\Tx.txt" For Append As #1
Print #1, A
Close #1
End If
P1.Value = i
DoEvents
Next
Screen.MousePointer = 0
P1.Visible = False
P1.Value = P1.Min
Else
MsgBox "库中无数据，无法生成下传文件！", vbCritical
Exit Sub
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -