📄 frmsale.frm
字号:
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Image Image1
Height = 1215
Index = 14
Left = 11400
Stretch = -1 'True
Top = 5400
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 13
Left = 9360
Stretch = -1 'True
Top = 5400
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 12
Left = 7320
Stretch = -1 'True
Top = 5400
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 11
Left = 5280
Stretch = -1 'True
Top = 5400
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 10
Left = 3240
Stretch = -1 'True
Top = 5400
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 9
Left = 11400
Stretch = -1 'True
Top = 3480
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 8
Left = 9360
Stretch = -1 'True
Top = 3480
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 7
Left = 7320
Stretch = -1 'True
Top = 3480
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 6
Left = 5280
Stretch = -1 'True
Top = 3480
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 5
Left = 3240
Stretch = -1 'True
Top = 3480
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 0
Left = 3240
Stretch = -1 'True
Top = 1560
Width = 1455
End
Begin VB.Image Image2
Height = 975
Index = 10
Left = 13560
Picture = "frmSale.frx":D407
Stretch = -1 'True
Top = 4680
Width = 1095
End
Begin VB.Image Image2
Height = 975
Index = 9
Left = 13560
Picture = "frmSale.frx":11C01
Stretch = -1 'True
Top = 3120
Width = 1095
End
Begin VB.Image Image2
Height = 975
Index = 8
Left = 13560
Picture = "frmSale.frx":163FB
Stretch = -1 'True
Top = 1680
Width = 1095
End
Begin VB.Image Image2
Height = 975
Index = 7
Left = 13560
Picture = "frmSale.frx":1ABF5
Stretch = -1 'True
Top = 6120
Width = 1095
End
Begin VB.Image Image2
Height = 975
Index = 6
Left = 12120
Picture = "frmSale.frx":1F3EF
Stretch = -1 'True
Top = 7680
Width = 1095
End
Begin VB.Image Image2
Height = 975
Index = 5
Left = 10680
Picture = "frmSale.frx":23BE9
Stretch = -1 'True
Top = 7560
Width = 1095
End
Begin VB.Image Image2
Height = 975
Index = 4
Left = 9120
Picture = "frmSale.frx":283E3
Stretch = -1 'True
Top = 7560
Width = 1095
End
Begin VB.Image Image2
Height = 975
Index = 3
Left = 7680
Picture = "frmSale.frx":2CBDD
Stretch = -1 'True
Top = 7680
Width = 1095
End
Begin VB.Image Image2
Height = 975
Index = 2
Left = 6240
Picture = "frmSale.frx":313D7
Stretch = -1 'True
Top = 8160
Width = 1095
End
Begin VB.Image Image2
Height = 975
Index = 1
Left = 4800
Picture = "frmSale.frx":35BD1
Stretch = -1 'True
Top = 8160
Width = 1095
End
Begin VB.Image Image2
Height = 975
Index = 0
Left = 3360
Picture = "frmSale.frx":3A3CB
Stretch = -1 'True
Top = 7800
Width = 1095
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
Height = 375
Index = 10
Left = 13680
TabIndex = 18
Tag = "小儿类"
Top = 4200
Width = 975
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
Height = 375
Index = 9
Left = 13680
TabIndex = 17
Tag = "止咳类"
Top = 5640
Width = 975
End
Begin VB.Image Image1
Height = 1215
Index = 4
Left = 11400
Stretch = -1 'True
Top = 1560
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 3
Left = 9360
Stretch = -1 'True
Top = 1560
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 2
Left = 7320
Stretch = -1 'True
Top = 1560
Width = 1455
End
Begin VB.Image Image1
Height = 1215
Index = 1
Left = 5280
Stretch = -1 'True
Top = 1560
Width = 1455
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
Height = 255
Index = 8
Left = 13680
TabIndex = 11
Tag = "止痛类"
Top = 2760
Width = 855
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
Height = 495
Index = 6
Left = 12240
TabIndex = 10
Tag = "补益类"
Top = 8640
Width = 975
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
Height = 495
Index = 5
Left = 10680
TabIndex = 9
Tag = "乳膏类"
Top = 8640
Width = 1095
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
Height = 375
Index = 4
Left = 9240
TabIndex = 8
Tag = "外伤类"
Top = 8640
Width = 975
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
Height = 495
Index = 3
Left = 7800
TabIndex = 7
Tag = "含片类"
Top = 8760
Width = 1095
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Height = 975
Left = 360
TabIndex = 6
Top = 4440
Width = 1095
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Height = 855
Left = 360
TabIndex = 5
Top = 6480
Width = 1095
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
Height = 375
Index = 7
Left = 13560
TabIndex = 4
Tag = "消炎类"
Top = 7200
Width = 1095
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
Height = 375
Index = 2
Left = 6360
TabIndex = 3
Tag = "计生类"
Top = 9240
Width = 975
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
ForeColor = &H8000000D&
Height = 255
Index = 1
Left = 4920
TabIndex = 2
Tag = "腹泻类"
Top = 9360
Width = 975
End
Begin VB.Label Lfl
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 375
Index = 0
Left = 3480
TabIndex = 1
Tag = "感冒类"
Top = 8880
Width = 975
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Height = 975
Left = 480
TabIndex = 0
Top = 2400
Width = 1095
End
End
Attribute VB_Name = "frmSale"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Const MAX_PATH = 260
Private m_DBConn As ADODB.Connection
Private Const BLOCK_SIZE = 10000
Private page As Integer
Private Function TemporaryFileName() As String
Dim temp_path As String
Dim temp_file As String
Dim length As Long
' Get the temporary file path.
temp_path = Space$(MAX_PATH)
length = GetTempPath(MAX_PATH, temp_path)
temp_path = Left$(temp_path, length)
' Get the file name.
temp_file = Space$(MAX_PATH)
GetTempFileName temp_path, "per", 0, temp_file
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -