📄
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.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 frmFindReslt
Caption = "查询结果"
ClientHeight = 5820
ClientLeft = 1020
ClientTop = 2280
ClientWidth = 8565
KeyPreview = -1 'True
LinkTopic = "Form3"
MDIChild = -1 'True
ScaleHeight = 5820
ScaleWidth = 8565
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 0
Top = 0
Width = 8565
_ExtentX = 15108
_ExtentY = 953
ButtonWidth = 783
ButtonHeight = 804
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 11
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "打印"
Key = "Print"
Object.Tag = ""
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Preview"
Object.Tag = ""
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Dataout"
Object.Tag = ""
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "查询"
Key = "Recx"
Object.Tag = ""
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Lanmuxz"
Object.Tag = ""
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Lcdj"
Object.Tag = ""
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Help"
Object.Tag = ""
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Exit"
Object.Tag = ""
EndProperty
EndProperty
End
Begin UFGRIDADOLib.UfGridADO UfGridADO1
Height = 1932
Left = 480
TabIndex = 5
Top = 1920
Width = 2772
_Version = 65536
_ExtentX = 4890
_ExtentY = 3408
_StockProps = 253
End
Begin ComctlLib.ProgressBar ProBar1
Height = 165
Left = 4860
TabIndex = 4
Top = 5580
Visible = 0 'False
Width = 2985
_ExtentX = 5265
_ExtentY = 291
_Version = 327682
Appearance = 1
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 3
Top = 5475
Visible = 0 'False
Width = 8565
_ExtentX = 15108
_ExtentY = 609
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 4939
MinWidth = 4939
Text = "正在进行数据处理，请等待..."
TextSave = "正在进行数据处理，请等待..."
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 3528
MinWidth = 3528
Text = "银行贷款：19980012"
TextSave = "银行贷款：19980012"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 5292
MinWidth = 5292
Key = ""
Object.Tag = ""
EndProperty
EndProperty
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
Enabled = 0 'False
ForeColor = &H00800000&
Height = 945
Left = 0
ScaleHeight = 915
ScaleWidth = 8535
TabIndex = 1
Top = 610
Width = 8565
Begin RTPrnLib.RTPrn RTPrn1
Left = 5580
Top = 375
_Version = 524288
_ExtentX = 1587
_ExtentY = 582
_StockProps = 4
m_lngrtpFitRows = 30
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "银行贷款"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 285
Left = 3960
TabIndex = 2
Top = 360
Width = 1215
End
End
Begin ComctlLib.ImageList ImageList1
Left = 4050
Top = 2670
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmFindReslt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 单据查询结果
'作者: 赵春立
Option Explicit
'***查询条件及结果集
Public sqlFind As String
Public sqlBillFind As String
Public sqlBillFindPg As String
Public iFindtype As Long
Private rsFind As New UfRecordset
'***最大显示行，MSFLXGRD容量受限
Private nMaxRows As Long
'***标题行数
Private nFixRows As Long
Private aTemp As clsAllInput
Private frmItem As frmRptItem
Private iRW As Long '任务ID
Private iKeyCode As Long 'Cuidong 2000.12.30
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'Cuidong 2000.12.30
iKeyCode = KeyCode
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Shift = Shift And 7
Select Case KeyCode
Case vbKeyF3
If Shift = 0 Then
Gen_Key "Lanmuxz"
End If
Case vbKeyF4
If Shift = vbCtrlMask And Toolbar1.Buttons("Exit").Enabled Then
Gen_Key "Exit"
ElseIf Shift = 0 Then
If iKeyCode = KeyCode Then 'Cuidong 2000.12.30
Gen_Key "Lcdj" 'Cuidong 2000.12.30
End If 'Cuidong 2000.12.30
End If
Case vbKeyP
If Shift = vbCtrlMask And Toolbar1.Buttons("Print").Enabled Then
Gen_Key "Print"
End If
KeyCode = 0
Case vbKeyS
'cuidong 2001.01.15
'If Shift = vbCtrlMask And Toolbar1.Buttons("Preview").Enabled Then
' Gen_Key "Preview"
'End If
KeyCode = 0
Case vbKeyW
If Shift = vbCtrlMask And Toolbar1.Buttons("Dataout").Enabled Then
Gen_Key "Dataout"
End If
KeyCode = 0
Case vbKeyF
If Shift = vbCtrlMask Then
Gen_Key "Recx"
End If
End Select
End Sub
Private Sub Form_Load()
Me.Tag = "lxd_cx" 'Cuidong 2000.12.24
nFixRows = 2
Screen.MousePointer = vbHourglass
Me.Icon = LoadResPicture(109, vbResIcon)
Informtlb1 Toolbar1, ImageList1
Picture1.Width = ZjAccInfo.zjPictWidth
Picture1.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.BMP")
InitForm
Screen.MousePointer = vbDefault
FillGrid
End Sub
'********************************************************************
'*函数说明: 填充 Grid *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Public Sub FillGrid()
Set rsFind = dbsZJ.OpenRecordset(sqlFind, dbOpenDynaset)
If rsFind.EOF Then
nMaxRows = 0
Else
rsFind.MoveLast
nMaxRows = rsFind.RecordCount
End If
If nMaxRows > 0 Then
StatusBar1.Visible = True
ProBar1.Visible = True
DoUnload True
Me.Show
Form_Resize
DoEvents
PrepareData
UfGridADO1.Height = UfGridADO1.Height + StatusBar1.Height
StatusBar1.Visible = False
ProBar1.Visible = False
DoUnload False
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -