📄 form3.frm
字号:
VERSION 5.00
Object = "{CFA7AFF4-3242-4269-9172-7389D695AE01}#1.0#0"; "StoneXP.ocx"
Begin VB.Form Form3
BorderStyle = 1 'Fixed Single
Caption = "打印中心"
ClientHeight = 5445
ClientLeft = 45
ClientTop = 435
ClientWidth = 9135
Icon = "Form3.frx":0000
LinkTopic = "Form3"
MaxButton = 0 'False
ScaleHeight = 5445
ScaleWidth = 9135
StartUpPosition = 1 '所有者中心
Begin VB.TextBox Text3
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
TabIndex = 8
Top = 2220
Width = 1695
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5160
TabIndex = 5
Top = 1500
Width = 1695
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3000
TabIndex = 4
Top = 1500
Width = 1695
End
Begin 销售系统.FCombo FCombo1
Height = 315
Left = 2640
TabIndex = 3
Top = 690
Width = 1815
_extentx = 3201
_extenty = 556
End
Begin StoneXP.XPCheckBox XPCheckBox1
Height = 255
Left = 1080
TabIndex = 1
Top = 1560
Width = 1695
_ExtentX = 2990
_ExtentY = 450
Caption = "附加日期查询"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin StoneXP.XPButton XPButton1
Height = 495
Left = 1920
TabIndex = 0
Top = 3840
Width = 1455
_ExtentX = 2566
_ExtentY = 873
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "打印预览"
MouseIcon = "Form3.frx":F84A
MousePointer = 99
End
Begin StoneXP.XPCheckBox XPCheckBox2
Height = 255
Left = 1080
TabIndex = 7
Top = 2280
Width = 1695
_ExtentX = 2990
_ExtentY = 450
Caption = "附商品品称"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin StoneXP.XPButton XPButton2
Height = 495
Left = 5160
TabIndex = 9
Top = 3840
Width = 1455
_ExtentX = 2566
_ExtentY = 873
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "离 开"
MouseIcon = "Form3.frx":FB64
MousePointer = 99
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "*格式:yyyy/mm/dd"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 7080
TabIndex = 6
Top = 1560
Width = 2055
End
Begin VB.Line Line1
BorderColor = &H000000FF&
X1 = 4800
X2 = 5040
Y1 = 1680
Y2 = 1680
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "对象单位:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1440
TabIndex = 2
Top = 720
Width = 1215
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Classprint As New OpenRs '定义打印记录集
Dim sendsql As String
Private Sub Form_Load()
Me.BackColor = RGB(132, 158, 205)
XPCheckBox1.BackColor = Me.BackColor
XPCheckBox2.BackColor = Me.BackColor
Set qy3 = cnn.Execute("select * from 合作单位")
FCombo1.Clear
Do While Not qy3.EOF
FCombo1.AddItem qy3.Fields(0)
qy3.MoveNext
Loop
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub
Private Sub XPButton1_Click()
sendsql = "select 销售单据.单位,销售单据.日期,销售记录.商品名称,销售记录.商品型号,销售记录.数量,销售记录.物品单位,销售记录.总价格 from 销售单据,销售记录 where 销售单据.批号=销售记录.批号"
If FCombo1.Text <> "" Then
sendsql = sendsql & " and 销售单据.单位='" & FCombo1.Text & "'"
End If
MsgBox sendsql
If XPCheckBox1.Value = 1 Then
If Text1.Text <> "" And Text2.Text <> "" Then
sendsql = sendsql & " and 销售单据.日期>'" & Text1.Text & "' and 销售单据.日期<'" & Text2.Text & "'"
Else
MsgBox "日期部分未填完整！", vbInformation, "提示"
Exit Sub
End If
End If
If XPCheckBox2.Value = 1 Then
If Text3.Text <> "" Then
sendsql = sendsql & " and 销售记录.商品名称='" & Text3.Text & "'"
Else
MsgBox "商品名称部分未填！", vbInformation, "提示"
Text3.SetFocus
Exit Sub
End If
End If
MDIForm1.WindowState = 2
Unload Me
Classprint.rsDK1 sendsql
ClassReport.Show
Set ClassReport.DataSource = Classprint.rs1
End Sub
Private Sub XPButton2_Click()
Unload Me
End Sub
Private Sub XPCheckBox1_Click()
If XPCheckBox1.Value = 1 Then
Text1.Enabled = True
Text2.Enabled = True
Text1.SetFocus
Else
Text1.Enabled = False
Text2.Enabled = False
End If
End Sub
Private Sub XPCheckBox2_Click()
If XPCheckBox2.Value = 1 Then
Text3.Enabled = True
Text3.SetFocus
Else
Text3.Enabled = False
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -