📄 basicdata.frm
字号:
Width = 1095
End
Begin VB.Label Label1
Caption = "电表型号："
Height = 225
Left = 360
TabIndex = 42
Top = 330
Width = 1005
End
End
Begin VB.CommandButton Command5
Caption = "删除(&D)"
Height = 375
Left = -69120
TabIndex = 29
Top = 1530
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "增加(&A)"
Height = 405
Left = -69120
TabIndex = 25
Top = 810
Width = 1215
End
Begin VB.PictureBox Picture1
BackColor = &H80000009&
ForeColor = &H000000FF&
Height = 4755
Left = -74880
ScaleHeight = 4695
ScaleWidth = 5505
TabIndex = 18
Top = 435
Width = 5565
Begin VB.Frame Frame2
BackColor = &H8000000E&
Caption = "文件代扣信息"
Height = 750
Left = 30
TabIndex = 38
Top = 2160
Width = 5445
Begin VB.ComboBox Combo1
Height = 300
Left = 1095
Style = 2 'Dropdown List
TabIndex = 26
Top = 270
Width = 1365
End
Begin VB.TextBox Text7
Height = 270
Left = 3705
TabIndex = 27
Top = 300
Width = 1590
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "文件格式："
Height = 270
Left = 150
TabIndex = 40
Top = 330
Width = 1020
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "生成文件名："
ForeColor = &H8000000D&
Height = 240
Left = 2505
TabIndex = 39
Top = 315
Width = 1080
End
End
Begin VB.OptionButton Option1
BackColor = &H8000000E&
Caption = "文件代扣"
ForeColor = &H000000FF&
Height = 330
Left = 1950
MaskColor = &H0000C0C0&
TabIndex = 37
Top = 135
Width = 1560
End
Begin VB.Frame Frame1
BackColor = &H8000000E&
Caption = "联网代扣信息"
Height = 1605
Left = 30
TabIndex = 31
Top = 525
Width = 5445
Begin VB.TextBox Text14
Height = 345
Left = 3780
TabIndex = 20
Top = 195
Width = 1560
End
Begin VB.TextBox Text2
BackColor = &H00FFFFFF&
Height = 315
Left = 1395
TabIndex = 19
Top = 225
Width = 1545
End
Begin VB.TextBox Text3
Height = 345
Left = 1410
TabIndex = 21
Top = 690
Width = 1545
End
Begin VB.TextBox Text4
Height = 345
Left = 3780
TabIndex = 22
Top = 660
Width = 1560
End
Begin VB.TextBox Text5
Height = 330
Left = 1395
TabIndex = 23
Top = 1170
Width = 1545
End
Begin VB.TextBox Text6
Height = 345
Left = 3795
TabIndex = 24
Top = 1155
Width = 1560
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Caption = "服务器名："
ForeColor = &H8000000D&
Height = 165
Left = 2955
TabIndex = 56
Top = 270
Width = 945
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "代扣银行："
ForeColor = &H00800000&
Height = 240
Left = 120
TabIndex = 36
Top = 285
Width = 1200
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "服务器IP地址："
ForeColor = &H00800000&
Height = 240
Left = 105
TabIndex = 35
Top = 765
Width = 1350
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "端口："
ForeColor = &H00800000&
Height = 225
Left = 3135
TabIndex = 34
Top = 750
Width = 780
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "用户名："
ForeColor = &H00800000&
Height = 225
Left = 120
TabIndex = 33
Top = 1230
Width = 900
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "口令："
ForeColor = &H00800000&
Height = 195
Left = 3120
TabIndex = 32
Top = 1245
Width = 540
End
End
Begin VB.OptionButton Option2
BackColor = &H8000000E&
Caption = "联网代扣"
ForeColor = &H000000FF&
Height = 270
Left = 210
MaskColor = &H0000C0C0&
TabIndex = 30
Top = 150
Width = 1755
End
Begin MSComctlLib.ListView ListView1
Height = 1725
Left = 15
TabIndex = 28
Top = 2970
Width = 5490
_ExtentX = 9684
_ExtentY = 3043
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = 65535
BackColor = -2147483647
BorderStyle = 1
Appearance = 1
NumItems = 7
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "代扣银行"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "服务器名"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "IP地址"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "端口"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "用户名"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "口令"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Object.Width = 2540
EndProperty
End
End
End
Begin VB.Shape Shape2
BorderColor = &H00E0E0E0&
Height = 5565
Left = 45
Top = 45
Width = 7515
End
Begin VB.Shape Shape1
BorderColor = &H00808080&
Height = 5565
Left = 30
Top = 30
Width = 7515
End
End
Attribute VB_Name = "BasicData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim FileFormat As Integer
Dim FileTxt As String, FileExcel As String, FileHtml As String, FileAcess As String
Private Sub Command10_Click()
On Error Resume Next
Set MdbR = NdMd.OpenRecordset("电价目录")
MdbR.Index = "lb"
MdbR.Seek "=", ListView3.SelectedItem
If MdbR.NoMatch Then
MsgBox ListView3.SelectedItem & "纪录未找到！", vbCritical
Else
If MsgBox("确定删除【" & ListView3.SelectedItem & "】档案信息吗？", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
MdbR.Delete
ListView3.ListItems.Remove ListView3.SelectedItem.Index
End If
End If
End Sub
'增加银行配置数据
Private Sub Command4_Click()
On Error Resume Next
Set MdbR = NdMd.OpenRecordset("银行配置")
If Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Or Text14 = "" Then
MsgBox "数据输入不完整！", vbCritical
If Text2 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text14 = "" Then
Text2.SetFocus
Else
If Text14 = "" Then
Text14.SetFocus
Else
If Text3 = "" Then
Text3.SetFocus
Else
If Text4 = "" Then
Text4.SetFocus
Else
If Text5 = "" Then
Text5.SetFocus
Else
If Text6 = "" Then
Text6.SetFocus
End If
End If
End If
End If
End If
End If
Exit Sub
Else
With MdbR
.AddNew
.Fields!Bank = Text2
.Fields!Cname = Text14
.Fields!Ip = Text3
.Fields!Port = Text4
.Fields!User = Text5
.Fields!Pass = Text6
.Update
End With
Dim itm As ListItem
Set itm = ListView1.ListItems.Add(, , CStr(Text2 & ""))
itm.SubItems(1) = Text14 & ""
itm.SubItems(2) = Text3 & ""
itm.SubItems(3) = Text4 & ""
itm.SubItems(4) = Text5 & ""
itm.SubItems(5) = Text6 & ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text14 = ""
Text2.SetFocus
End If
End Sub
Private Sub Command5_Click()
On Error Resume Next
Set MdbR = NdMd.OpenRecordset("银行配置")
If MdbR.RecordCount <> 0 Then
MdbR.Index = "bank"
MdbR.Seek "=", ListView1.SelectedItem
If MdbR.NoMatch Then
MsgBox ListView1.SelectedItem & "纪录未找到！", vbCritical
Else
If MsgBox("确定删除【" & ListView1.SelectedItem & "】档案信息吗？", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
MdbR.Delete
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
End If
Else
MsgBox "无数据！", vbCritical
Exit Sub
End If
End Sub
'增加表计数据
Private Sub Command6_Click()
On Error Resume Next
Set MdbR = NdMd.OpenRecordset("基本数据")
If Text1 = "" Or Text8 = "" Or Text9 = "" Or Text10 = "" Or Text11 = "" Or Text12 = "" Or Text13 = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -