?? 單據打印設置.frm
字號:
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Index = 0
Left = 690
TabIndex = 1
Text = "0"
Top = 1020
Visible = 0 'False
Width = 1350
End
Begin VB.Label TsLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "訂單號："
Height = 180
Index = 0
Left = 90
TabIndex = 5
Top = 690
Visible = 0 'False
Width = 720
End
Begin VB.Label Lab_Title
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "銷售訂單"
BeginProperty Font
Name = "宋體"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 4590
TabIndex = 4
Top = 0
Visible = 0 'False
Width = 1260
End
End
Begin MSComctlLib.Toolbar SzToolbar
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 13
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1005
ButtonWidth = 820
ButtonHeight = 953
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "豎對"
Key = "SD"
ImageIndex = 14
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "橫對"
Key = "HD"
ImageIndex = 13
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "Save"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Key = "sx"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "表頭"
Key = "Item"
ImageIndex = 16
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "設置"
Key = "sz"
ImageKey = "sz"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "預覽"
Key = "yl"
ImageKey = "yl"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "幫助"
Key = "bz"
ImageIndex = 8
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Exit"
ImageIndex = 9
EndProperty
EndProperty
BorderStyle = 1
Begin MSComctlLib.ImageCombo Imgcbo_SysName
Height = 315
Left = 4860
TabIndex = 17
Top = 120
Width = 1575
_ExtentX = 2778
_ExtentY = 556
_Version = 393216
ForeColor = -2147483640
BackColor = -2147483643
OLEDropMode = 1
Locked = -1 'True
End
Begin MSComctlLib.Toolbar GsToolbar
Height = 540
Left = 9510
TabIndex = 15
Top = 0
Width = 2475
_ExtentX = 4366
_ExtentY = 953
ButtonWidth = 1455
ButtonHeight = 953
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 3
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存格式"
Key = "bcgs"
ImageKey = "bcgs"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "默認列寬"
Key = "hfmrgs"
ImageKey = "mrlk"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "顯示項目"
Key = "szxsxm"
ImageKey = "xsxm"
EndProperty
EndProperty
End
Begin VB.ComboBox ComboName
Height = 300
Left = 6540
Style = 2 'Dropdown List
TabIndex = 14
Top = 120
Width = 1305
End
Begin MSComctlLib.ImageList ImageList1
Left = 4920
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 16
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":1042
Key = "sz"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":13DC
Key = "dy"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":1776
Key = "yl"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":1B10
Key = "xz"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":1EAA
Key = "xg"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":2244
Key = "sc"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":25DE
Key = "sx"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":2978
Key = "bz"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":2D12
Key = "tc"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":30AC
Key = "bcgs"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":3446
Key = "mrlk"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":37E0
Key = "xsxm"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":3B7A
Key = "ht"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":3F14
Key = "st"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":42AE
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "單據打印設置.frx":4648
Key = "ml"
EndProperty
EndProperty
End
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "打印類型:"
Height = 180
Left = 5520
TabIndex = 20
Top = 660
Width = 810
End
End
Attribute VB_Name = "XT_BillPrintDesign"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************************************************
'* 模 塊 名 稱 :單據設置
'* 功 能 描 述 :此功能模塊主要完成單據設置
'* 程序員姓名 :王雄
'* 最后修改人 :王雄
'* 最后修改時間:2001/09/10
'*********************************************************************************************************
Option Explicit
'[以下為根據實際情況設置變量
Dim Bln_BillChange As Boolean '標識單據是否發生改動
']
'以下為固定使用變量(單據)
' Dim BillCode As String '單據設計編碼(索引號)
Dim Var_Bill() As Variant '用來返回單據設計信息
Dim ReportTitle As String '報表主標題
Dim Tsxx As String '系統提示信息
'以下為固定使用變量(網格)
Dim Dyymctbl As New DY_Dyymsz '打印頁面窗體變量
Dim GridCode As String '顯示網格網格代碼
Dim GridInf() As Variant '整個網格設置信息
Dim Pmbcsjhs As Long '屏幕網格保持數據行數(大于等于1)
Dim Fzxwghs As Integer '輔助項網格行數(包括合計行)
Dim Sfxshjwg As Boolean '是否顯示合計網格
Dim Qslz As Long '網格隱藏(非操作顯示)列數
Dim Sjhgd As Double '網格數據行高度
Dim GridBoolean() As Boolean '網格列信息(布爾型)
Dim GridStr() As String '網格列信息(字符型)
Dim GridInt() As Integer '網格列信息(整型)
Dim Sfblbzkd As Boolean '是否保留幫助寬度(字段提供幫助時,是否為按鈕保留空間)
Dim Shsfts As Boolean '刪除記錄行是否提示
Dim Szzls As Integer '網格信息數組最大下標值(網格列數-1)
'以下為固定使用變量(文本框)
Dim Textvar() As Variant '存儲變體型文本框信息
Dim Textboolean() As Boolean '存儲布爾型文本框信息
Dim Textint() As Integer '存儲整型文本框信息
Dim Textstr() As String '存儲字符型文本框信息
Dim Max_Text_Index As Integer '最大錄入文本框索引值
Dim TextGroupCode As String '文本框錄入分組編碼
Dim TextValiJudgeLock() As Boolean '文本框錄入有效性判斷控制鎖
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Dim jsqte As Integer
Dim TF As Boolean
Dim Move_Y As Integer
Dim Move_X As Integer
Dim Textindex As Integer
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -