📄 searchdisplay.frm
字号:
VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#4.6#0"; "CRYSTL32.OCX"
Begin VB.Form SearchDisplay
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "查询显示模块"
ClientHeight = 4725
ClientLeft = 45
ClientTop = 330
ClientWidth = 8115
ClipControls = 0 'False
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4725
ScaleWidth = 8115
ShowInTaskbar = 0 'False
Begin VB.PictureBox Picture2
BackColor = &H00808000&
Height = 525
Left = 180
ScaleHeight = 465
ScaleWidth = 7680
TabIndex = 23
Top = 1140
Width = 7740
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 285
Index = 3
Left = 3765
MaxLength = 5
TabIndex = 26
Top = 90
Width = 795
End
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 285
Index = 10
Left = 6870
MaxLength = 2
TabIndex = 25
Top = 90
Width = 600
End
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 285
Index = 2
Left = 675
MaxLength = 10
TabIndex = 24
Top = 105
Width = 1485
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "联系人："
ForeColor = &H0080FFFF&
Height = 180
Left = 3045
TabIndex = 29
Top = 135
Width = 735
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "天数："
ForeColor = &H0080FFFF&
Height = 180
Left = 6330
TabIndex = 28
Top = 135
Width = 540
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "时间："
ForeColor = &H0080FFFF&
Height = 180
Left = 120
TabIndex = 27
Top = 150
Width = 540
End
End
Begin Crystal.CrystalReport Report1
Left = 3585
Top = 4800
_ExtentX = 741
_ExtentY = 741
_Version = 262150
End
Begin VB.Frame Frame1
Height = 1035
Left = 180
TabIndex = 17
Top = 30
Width = 7740
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 285
Index = 1
Left = 1140
MaxLength = 40
TabIndex = 19
Top = 615
Width = 6360
End
Begin VB.TextBox FieldTxt
BackColor = &H00FFFFFF&
Enabled = 0 'False
Height = 285
Index = 0
Left = 1140
MaxLength = 30
TabIndex = 18
Top = 240
Width = 6375
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "展出地点："
ForeColor = &H00C00000&
Height = 180
Left = 210
TabIndex = 21
Top = 645
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "展会名称："
ForeColor = &H00C00000&
Height = 180
Left = 210
TabIndex = 20
Top = 285
Width = 900
End
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 510
Left = 4635
ScaleHeight = 510
ScaleWidth = 3375
TabIndex = 10
Top = 4050
Width = 3375
Begin VB.CommandButton OK
Caption = "打印(&P)"
Height = 450
Left = 0
TabIndex = 1
TabStop = 0 'False
ToolTipText = "列印当前的展会资料"
Top = 0
Width = 1650
End
Begin VB.CommandButton QX
Cancel = -1 'True
Caption = "取消(&C)"
Height = 450
Left = 1665
TabIndex = 0
TabStop = 0 'False
ToolTipText = "关闭返回"
Top = 0
Width = 1650
End
End
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 285
Index = 4
Left = 870
MaxLength = 30
TabIndex = 9
Top = 1770
Width = 2835
End
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 285
Index = 5
Left = 870
MaxLength = 50
TabIndex = 8
Top = 2145
Width = 2835
End
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 285
Index = 6
Left = 870
MaxLength = 50
TabIndex = 7
Top = 2520
Width = 2835
End
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 285
Index = 7
Left = 870
MaxLength = 80
TabIndex = 6
Top = 2895
Width = 2835
End
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 285
Index = 8
Left = 870
MaxLength = 80
TabIndex = 5
Top = 3270
Width = 2835
End
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 285
Index = 11
Left = 870
MaxLength = 30
TabIndex = 4
Top = 3645
Width = 2835
End
Begin VB.Frame Frame2
Height = 2265
Left = 3960
TabIndex = 2
Top = 1680
Width = 3975
Begin VB.TextBox FieldTxt
Enabled = 0 'False
Height = 1725
Index = 9
Left = 135
MaxLength = 125
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 405
Width = 3690
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "展 出 内 容"
ForeColor = &H00808000&
Height = 180
Left = 1575
TabIndex = 22
Top = 180
Width = 990
End
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "单位："
Height = 180
Left = 315
TabIndex = 16
Top = 1815
Width = 540
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "电话："
Height = 180
Left = 315
TabIndex = 15
Top = 2175
Width = 540
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "传真："
Height = 180
Left = 315
TabIndex = 14
Top = 2550
Width = 540
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "邮件："
Height = 180
Left = 315
TabIndex = 13
Top = 2925
Width = 540
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "网址："
Height = 180
Left = 315
TabIndex = 12
Top = 3285
Width = 540
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "地址："
Height = 180
Left = 315
TabIndex = 11
Top = 3660
Width = 540
End
End
Attribute VB_Name = "SearchDisplay"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
SearchDisplay.Left = MDIForm1.ScaleWidth - SearchDisplay.ScaleWidth
SearchDisplay.Top = MDIForm1.ScaleHeight - SearchDisplay.ScaleHeight
Dim Db As Database, Ef As Recordset, X As Integer, TempStr As String
Set Db = OpenDatabase(Browser + "Fair.mdb")
Set Ef = Db.OpenRecordset("Fair", dbOpenDynaset)
If FileName = "yusilong" Or FileName = "" Then
TempStr = "展会名称='" & TranStr & "'"
Else
TempStr = "展会名称='" & FileName & "'"
End If
Ef.FindFirst TempStr
For X = 0 To 11
If Not IsNull(Ef.Fields(X).Value) Then
TempStr = Ef.Fields(X).Value
End If
FieldTxt(X).Text = TempStr
Next
TempStr = "Delete * From FairPrint"
Db.Execute TempStr
If FileName = "yusilong" Or FileName = "" Then
TempStr = "Insert into FairPrint Select * From Fair Where 展会名称='" & TranStr & "'"
Else
TempStr = "Insert into FairPrint Select * From Fair Where 展会名称='" & FileName & "'"
End If
Db.Execute TempStr
Db.Close
End Sub
Private Sub OK_Click()
On Error GoTo PrintErr
SearchDisplay.MousePointer = 11
Report1.WindowState = crptMaximized
Report1.ReportFileName = Browser + "Fair.RPT"
Report1.DataFiles(0) = Browser + "Fair.MDB"
Report1.PrintReport
SearchDisplay.MousePointer = 0
Exit Sub
PrintErr:
MsgBox "打印错误,请重新启动该系统!", vbOKOnly + 16, "不能打印"
Exit Sub
End Sub
Private Sub QX_Click()
Dim InNum As Integer
InNum = FreeFile
FileName = Browser + "trans.sys"
On Error GoTo NoFile
Open FileName For Output As #InNum
Write #InNum, "yusilong"
Close #InNum
FileName = "yusilong"
Unload Me
Exit Sub
NoFile:
FileName = "yusilong"
Exit Sub
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -