📄 frm数据接收.frm
字号:
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Begin VB.Form frm数据接收
BorderStyle = 3 'Fixed Dialog
Caption = "数据接收与下传"
ClientHeight = 5460
ClientLeft = 45
ClientTop = 330
ClientWidth = 9960
Icon = "frm数据接收.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5460
ScaleWidth = 9960
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 60000
Left = 180
Top = 1365
End
Begin VB.TextBox txtPath
Height = 315
Left = 2880
TabIndex = 5
Text = "C:\DSTAR"
Top = 1110
Width = 3555
End
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Appearance = 0 'Flat
BackColor = &H80000004&
ForeColor = &H80000008&
Height = 975
Left = 0
ScaleHeight = 945
ScaleWidth = 9930
TabIndex = 1
Top = 0
Width = 9960
Begin Threed.SSCommand SSCommand1
Height = 945
Left = 2835
TabIndex = 10
ToolTipText = "生成新编码的下传文件"
Top = 15
Width = 1425
_ExtentX = 2514
_ExtentY = 1667
_Version = 131073
Font3D = 1
PictureMaskColor= 16777215
PictureFrames = 1
PictureAnimationEnabled= 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frm数据接收.frx":0442
Caption = "生成新编码"
Alignment = 8
ButtonStyle = 3
PictureAlignment= 6
End
Begin Threed.SSCommand cmdSaveLog
Height = 945
Left = 4275
TabIndex = 9
Top = 0
Width = 1425
_ExtentX = 2514
_ExtentY = 1667
_Version = 131073
Font3D = 1
PictureMaskColor= 16777215
PictureFrames = 1
PictureAnimationEnabled= 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frm数据接收.frx":075C
Caption = "保存日志[&S]"
Alignment = 8
ButtonStyle = 3
PictureAlignment= 6
End
Begin Threed.SSCommand cmdSet
Height = 945
Left = 5685
TabIndex = 8
Top = 15
Width = 1425
_ExtentX = 2514
_ExtentY = 1667
_Version = 131073
Font3D = 1
BackColor = -2147483638
PictureMaskColor= 16777215
PictureFrames = 1
PictureAnimationEnabled= 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frm数据接收.frx":0A76
Caption = "设置[&O]"
Alignment = 8
ButtonStyle = 3
PictureAlignment= 6
End
Begin Threed.SSCommand cmdCode
Height = 945
Left = 1410
TabIndex = 6
ToolTipText = "生成新编码的下传文件"
Top = 0
Width = 1425
_ExtentX = 2514
_ExtentY = 1667
_Version = 131073
Font3D = 1
PictureMaskColor= 16777215
PictureFrames = 1
PictureAnimationEnabled= 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frm数据接收.frx":0D90
Caption = "生成编码"
Alignment = 8
ButtonStyle = 3
PictureAlignment= 6
End
Begin Threed.SSCommand cmdExit
Height = 945
Left = 7095
TabIndex = 3
Top = 15
Width = 1425
_ExtentX = 2514
_ExtentY = 1667
_Version = 131073
Font3D = 1
PictureMaskColor= 16777215
PictureFrames = 1
PictureAnimationEnabled= 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frm数据接收.frx":10AA
Caption = "退出[&X]"
Alignment = 8
ButtonStyle = 3
PictureAlignment= 6
End
Begin Threed.SSCommand cmdReceive
Height = 945
Left = -15
TabIndex = 2
Top = 0
Width = 1425
_ExtentX = 2514
_ExtentY = 1667
_Version = 131073
Font3D = 1
PictureMaskColor= 16777215
PictureFrames = 1
PictureAnimationEnabled= 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frm数据接收.frx":13C4
Caption = "开始接收[&R]"
Alignment = 8
ButtonStyle = 3
PictureAlignment= 6
End
End
Begin VB.TextBox txtLog
Height = 3465
Left = 45
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 0
Top = 1950
Width = 9825
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "数据传输日志"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2670
TabIndex = 7
Top = 1575
Width = 1980
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "数据接收/下载路径："
Height = 180
Left = 1065
TabIndex = 4
Top = 1170
Width = 1710
End
End
Attribute VB_Name = "frm数据接收"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private RsTemp As New ADODB.Recordset
Private sSQL As String
Private Temp
Private Function FileToDatabase(fn As String) As Boolean
On Error GoTo FDErr
Dim Temp, ChainCode, SendDate
Open fn For Input As #1
Cmd.ActiveConnection = Conn
If Not EOF(1) Then
Line Input #1, ChainCode
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -