📄 frmdprntj.frm
字号:
VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{BA5441C3-11E6-11D2-89E1-000021886118}#8.0#0"; "UFRTPrn.ocx"
Object = "{3733D281-9649-11D2-B757-0080C8883C6B}#1.0#0"; "UFGRIDDB.OCX"
Begin VB.Form frmDprntj
BorderStyle = 1 'Fixed Single
ClientHeight = 1920
ClientLeft = 45
ClientTop = 300
ClientWidth = 5580
HelpContextID = 88000062
Icon = "frmDprntj.frx":0000
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1920
ScaleWidth = 5580
Begin UFGRIDADOLib.UfGridADO UfGridADO1
Height = 252
Left = 4440
TabIndex = 15
Top = 1560
Width = 852
_Version = 65536
_ExtentX = 1503
_ExtentY = 444
_StockProps = 253
End
Begin RTPrnLib.RTPrn RTPrn1
Left = 4620
Top = 1155
_Version = 524288
_ExtentX = 979
_ExtentY = 397
_StockProps = 4
m_lngrtpFitRows = 30
End
Begin VB.Frame Frame1
Height = 1590
Left = 150
TabIndex = 7
Top = 120
Width = 4095
Begin VB.CheckBox Check1
Height = 180
Left = 930
TabIndex = 13
Top = 1290
Width = 240
End
Begin VB.CommandButton cmdrq
Height = 270
Index = 1
Left = 3645
Style = 1 'Graphical
TabIndex = 9
TabStop = 0 'False
Top = 600
Width = 270
End
Begin VB.CommandButton cmdrq
Height = 270
Index = 0
Left = 2025
Style = 1 'Graphical
TabIndex = 8
TabStop = 0 'False
Top = 600
Width = 270
End
Begin VB.ComboBox Combo1
BackColor = &H00FFFFFF&
Height = 300
ItemData = "frmDprntj.frx":000C
Left = 930
List = "frmDprntj.frx":000E
Style = 2 'Dropdown List
TabIndex = 0
Top = 225
Width = 1100
End
Begin EDITLib.Edit Editrq
Height = 270
Index = 0
Left = 930
TabIndex = 1
Top = 600
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit Editrq
Height = 270
Index = 1
Left = 2535
TabIndex = 2
Top = 600
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit Editbh
Height = 270
Index = 0
Left = 930
TabIndex = 3
Top = 945
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 8
End
Begin EDITLib.Edit Editbh
Height = 270
Index = 1
Left = 2100
TabIndex = 4
Top = 945
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 8
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 3
Left = 1260
TabIndex = 14
Top = 1290
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 2
Left = 90
TabIndex = 12
Top = 270
Width = 90
End
Begin VB.Line Line2
X1 = 1860
X2 = 2020
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line1
X1 = 2340
X2 = 2500
Y1 = 720
Y2 = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 1
Left = 90
TabIndex = 11
Top = 990
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 0
Left = 90
TabIndex = 10
Top = 630
Width = 90
End
End
Begin VB.CommandButton cmdfind
Default = -1 'True
Height = 365
Left = 4350
Style = 1 'Graphical
TabIndex = 5
Top = 210
Width = 1080
End
Begin VB.CommandButton cmdcancel
Cancel = -1 'True
Height = 365
Left = 4350
Style = 1 'Graphical
TabIndex = 6
Top = 720
Width = 1080
End
End
Attribute VB_Name = "frmDprntj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 单据批打印
'作者: 魏小黎
Option Explicit
Private isEnt As Boolean, ywzl As String, ywmc As String, tjzh As String, sYwbh As String, eYwbh As String, sDate As String, eDate As String
Private rsTprn As New UfRecordset
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdfind_Click()
If Contquit Then
Cond_zh
Dim rsTemp As New UfRecordset
Set rsTemp = dbsZJ.OpenRecordset(tjzh, dbOpenSnapshot)
If rsTemp.EOF Then
rsTemp.oClose
Beep
MsgBox "没有满足查询条件的单据！", vbCritical, zjGl_Name
Editrq(0).SetFocus
Exit Sub
End If
rsTemp.oClose
sYwbh = Editbh(0).Text
eYwbh = Editbh(1).Text
sDate = Editrq(0).Text
eDate = Editrq(1).Text
ywmc = Combo1.Text
Me.Visible = False
Docuprn
Unload Me
End If
End Sub
Private Sub cmdrq_Click(Index As Integer)
View_Calendar Me, Editrq(Index), 0
End Sub
Private Sub Combo1_Click()
If Combo1.Text = Combo1.List(16) Then
Check1.Value = 0
Check1.Enabled = False
Label1(3).Enabled = False
Else
Check1.Enabled = True
Label1(3).Enabled = True
End If
End Sub
Private Sub Editbh_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 45 Then
KeyAscii = 0
End If
End Sub
Private Sub Editbh_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If Index = 0 And KeyCode = 13 Then
SendKeys "{Tab}"
End If
End Sub
Private Sub Editbh_LostFocus(Index As Integer)
If Len(Editbh(Index).Text) > 0 Then
Editbh(Index).Text = right("0000000000" & Editbh(Index).Text, 10)
End If
End Sub
' 业务日期按键
Private Sub Editrq_Keyup(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And isEnt Then
SendKeys "{Tab}"
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -