📄 printset.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "设置"
MouseIcon = "Printset.frx":0796
MousePointer = 99
End
End
Begin MSComDlg.CommonDialog OpenDialog
Left = 6960
Top = 4800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame1
Caption = "页眉设置"
Height = 2655
Left = 120
TabIndex = 0
Top = 120
Width = 7815
Begin VB.CheckBox Check1
Caption = "是否打印页眉"
Height = 255
Left = 5880
TabIndex = 42
Top = 2280
Width = 1575
End
Begin StoneXP.XPButton XPButton1
Height = 255
Left = 1200
TabIndex = 39
Top = 780
Width = 615
_ExtentX = 1085
_ExtentY = 450
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 = "Printset.frx":0AB0
MousePointer = 99
End
Begin 商品综合管理系统.XPCombo XPCombo1
Height = 315
Left = 1200
TabIndex = 12
Top = 2010
Width = 1455
_ExtentX = 2566
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CheckBox Check4
Caption = "下划线"
Height = 255
Left = 2880
TabIndex = 10
Top = 1560
Width = 975
End
Begin VB.CheckBox Check3
Caption = "斜体"
Height = 255
Left = 2040
TabIndex = 9
Top = 1560
Width = 735
End
Begin VB.CheckBox Check2
Caption = "加粗"
Height = 255
Left = 1200
TabIndex = 8
Top = 1560
Width = 1215
End
Begin VB.TextBox Text1
Height = 300
Index = 2
Left = 3840
Locked = -1 'True
TabIndex = 7
Text = "Times New Roman"
Top = 1200
Width = 1935
End
Begin VB.TextBox Text1
Height = 300
Index = 1
Left = 2160
Locked = -1 'True
TabIndex = 5
Text = "10"
Top = 1200
Width = 495
End
Begin VB.TextBox Text1
Height = 300
Index = 0
Left = 1200
TabIndex = 2
Top = 337
Width = 6375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 255
Index = 0
Left = 240
OleObjectBlob = "Printset.frx":0DCA
TabIndex = 1
Top = 360
Width = 975
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 255
Index = 1
Left = 240
OleObjectBlob = "Printset.frx":0E32
TabIndex = 3
Top = 780
Width = 975
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 255
Index = 2
Left = 1200
OleObjectBlob = "Printset.frx":0E9A
TabIndex = 4
Top = 1223
Width = 975
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 255
Index = 3
Left = 2880
OleObjectBlob = "Printset.frx":0F02
TabIndex = 6
Top = 1223
Width = 975
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 255
Index = 4
Left = 240
OleObjectBlob = "Printset.frx":0F6A
TabIndex = 11
Top = 2040
Width = 975
End
End
Begin ACTIVESKINLibCtl.Skin PKSkn
Left = 0
OleObjectBlob = "Printset.frx":0FD2
Top = 0
End
End
Attribute VB_Name = "Printset"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/10
'描 述：商品综合管理系统 Sql2000版
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub Check6_Click()
Pagefooter
End Sub
Private Sub Pagefooter()
Text1(5).Text = ""
If Check6.Value = 1 Then
Text1(5).Text = "共 &N 页"
End If
If Check7.Value = 1 Then
If Check6.Value = 1 Then
Text1(5).Text = Text1(5).Text & "，第 &P 页"
Else
Text1(5).Text = Text1(5).Text & "第 &P 页"
End If
End If
If Check8.Value = 1 Then
Text1(5).Text = Text1(5).Text & " 打印日期：&D"
End If
End Sub
Private Sub Check7_Click()
Pagefooter
End Sub
Private Sub Check8_Click()
Pagefooter
End Sub
Private Sub XPButton1_Click()
' 设置“取消”为 True
OpenDialog.CancelError = True
On Error GoTo ErrHandler
' 设置 Flags 属性
OpenDialog.Flags = cdlCFEffects Or cdlCFBoth
' 显示“字体”对话框
OpenDialog.ShowFont
Text1(0).Font.Size = OpenDialog.FontSize
Text1(0).Font.Bold = OpenDialog.FontBold
Text1(0).Font.Italic = OpenDialog.FontItalic
Text1(0).Font.Underline = OpenDialog.FontUnderline
Text1(0).FontStrikethru = OpenDialog.FontStrikethru
Text1(1).Text = OpenDialog.FontSize
If OpenDialog.FontBold = True Then
Check2.Value = 1
Else
Check2.Value = 0
End If
If OpenDialog.FontItalic = True Then
Check3.Value = 1
Else
Check3.Value = 0
End If
If OpenDialog.FontUnderline = True Then
Check4.Value = 1
Else
Check4.Value = 0
End If
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Private Sub Form_Load()
PKSkn.LoadSkin App.Path & sknPname
PKSkn.ApplySkinByName hWnd, "窗体"
PKSkn.ApplySkin hWnd
XPCombo1.AddItem "左侧"
XPCombo1.AddItem "居中"
XPCombo1.AddItem "右侧"
XPCombo2.AddItem "左侧"
XPCombo2.AddItem "居中"
XPCombo2.AddItem "右侧"
For i = 10 To 1 Step -1
XPCombo3(0).AddItem "" & i & ""
XPCombo3(1).AddItem "" & i & ""
XPCombo3(2).AddItem "" & i & ""
XPCombo3(3).AddItem "" & i & ""
XPCombo3(4).AddItem "" & i & ""
XPCombo3(5).AddItem "" & i & ""
Next
SetRe
End Sub
Private Sub SetRe()
Set Qy3 = cnn.Execute("select * from pset where ss='" & PrintS & "'")
If Qy3.EOF = False Then
Check1.Value = Qy3.Fields(0)
Check5.Value = Qy3.Fields(1)
Text1(0).Text = Qy3.Fields(2)
Text1(1).Text = Qy3.Fields(3)
If Qy3.Fields(4) = "false" Then
Check2.Value = 0
Else
Check2.Value = 0
End If
If Qy3.Fields(5) = "false" Then
Check3.Value = 0
Else
Check3.Value = 0
End If
If Qy3.Fields(6) = "false" Then
Check4.Value = 0
Else
Check4.Value = 0
End If
XPCombo1.Text = Qy3.Fields(7)
Text1(5).Text = Qy3.Fields(8)
Text1(4).Text = Qy3.Fields(9)
XPCombo1.Text = Qy3.Fields(10)
XPCombo3(0).Text = Qy3.Fields(11)
XPCombo3(1).Text = Qy3.Fields(12)
XPCombo3(2).Text = Qy3.Fields(13)
XPCombo3(3).Text = Qy3.Fields(14)
XPCombo3(4).Text = Qy3.Fields(15)
XPCombo3(5).Text = Qy3.Fields(16)
End If
End Sub
Private Sub XPButton3_Click()
On Error GoTo finish:
Set Qy3 = cnn.Execute("delete from pset where ss='" & PrintS & "'")
Dim InsertStr As String
InsertStr = "insert into pset values('"
If Check1.Value = 1 Then
InsertStr = InsertStr & "1','"
Else
InsertStr = InsertStr & "0','"
End If
If Check5.Value = 1 Then
InsertStr = InsertStr & "1','"
Else
InsertStr = InsertStr & "0','"
End If
InsertStr = InsertStr & Text1(0).Text & "',"
InsertStr = InsertStr & Text1(1).Text & ","
If Check2.Value = 1 Then
InsertStr = InsertStr & "'true',"
Else
InsertStr = InsertStr & "'false',"
End If
If Check3.Value = 1 Then
InsertStr = InsertStr & "'true',"
Else
InsertStr = InsertStr & "'false',"
End If
If Check4.Value = 1 Then
InsertStr = InsertStr & "'true','"
Else
InsertStr = InsertStr & "'false','"
End If
InsertStr = InsertStr & XPCombo1.Text & "','"
InsertStr = InsertStr & Text1(5).Text & "',"
InsertStr = InsertStr & Text1(4).Text & ",'"
InsertStr = InsertStr & XPCombo2.Text & "',"
InsertStr = InsertStr & XPCombo3(0).Text & ","
InsertStr = InsertStr & XPCombo3(1).Text & ","
InsertStr = InsertStr & XPCombo3(2).Text & ","
InsertStr = InsertStr & XPCombo3(3).Text & ","
InsertStr = InsertStr & XPCombo3(4).Text & ","
InsertStr = InsertStr & XPCombo3(5).Text & ",'"
InsertStr = InsertStr & PrintS & "')"
Set Qy3 = cnn.Execute(InsertStr)
Unload Me
Exit Sub
finish:
MsgBox Err.Description, vbInformation, "发生错误"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -