📄
字号:
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 frmXSh
Caption = "序时账"
ClientHeight = 5850
ClientLeft = 2640
ClientTop = 2280
ClientWidth = 8340
HelpContextID = 88000067
Icon = "序时帐.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 5850
ScaleWidth = 8340
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 2
Top = 0
Width = 8340
_ExtentX = 14711
_ExtentY = 1111
ButtonWidth = 820
ButtonHeight = 926
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 9
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}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "recx"
Key = "Recx"
Object.Tag = ""
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "UnionFind"
Object.Tag = ""
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Help"
Object.Tag = ""
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Exit"
Object.Tag = ""
EndProperty
EndProperty
End
Begin UFGRIDADOLib.UfGridADO UfGridADO1
Height = 1932
Left = 360
TabIndex = 5
Top = 1920
Width = 3132
_Version = 65536
_ExtentX = 5524
_ExtentY = 3408
_StockProps = 253
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 945
Left = 0
ScaleHeight = 915
ScaleWidth = 8310
TabIndex = 0
Top = 610
Width = 8340
Begin RTPrnLib.RTPrn RTPrn1
Left = 5925
Top = 75
_Version = 524288
_ExtentX = 1191
_ExtentY = 450
_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
Index = 1
Left = 3930
TabIndex = 1
Top = 300
Width = 1575
End
End
Begin ComctlLib.ProgressBar ProBar1
Height = 165
Left = 4860
TabIndex = 3
Top = 120
Width = 2985
_ExtentX = 5265
_ExtentY = 291
_Version = 327682
Appearance = 1
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 4
Top = 5505
Width = 8340
_ExtentX = 14711
_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 = "正在进行数据处理，请等待..."
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 3528
MinWidth = 3528
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 5292
MinWidth = 5292
Object.Tag = ""
EndProperty
EndProperty
End
Begin ComctlLib.ImageList ImageList1
Left = 3900
Top = 2640
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmXSh"
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
Private rsFind As New UfRecordset
Private strClass(0 To 50) As String
Private aTemp As clsAllInput, frmcqk As frmcxck
'***最大显示行
Private nMaxRows As Long
'***标题行数
Private nFixRows As Long
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Shift = Shift And 7
Select Case KeyCode
Case vbKeyF4
If Shift = vbCtrlMask And Toolbar1.Buttons("Exit").Enabled Then
Gen_Key "Exit"
ElseIf Shift = 0 Then
Gen_Key "UnionFind"
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 Select
End Sub
Private Sub Form_Load()
nFixRows = 2
Screen.MousePointer = vbHourglass
Me.Icon = LoadResPicture(109, vbResIcon)
ZhyeTlb Toolbar1, ImageList1
Picture1.width = ZjAccInfo.zjPictWidth
Picture1.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.BMP")
Set rsFind = dbsZJ.OpenRecordset(sqlFind, dbOpenSnapshot)
If rsFind.EOF Then
nMaxRows = 0
Else
rsFind.MoveLast
nMaxRows = rsFind.RecordCount
End If
InitForm
Me.Show
DoEvents
Screen.MousePointer = vbDefault
PrepareDate
End Sub
'********************************************************************
'*函数说明: 重新刷新窗体 *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Public Sub RefreshMe()
Screen.MousePointer = vbHourglass
Set rsFind = dbsZJ.OpenRecordset(sqlFind, dbOpenSnapshot)
If rsFind.EOF Then
nMaxRows = 0
Else
rsFind.MoveLast
nMaxRows = rsFind.RecordCount
End If
InitForm
StatusBar1.Visible = True
ProBar1.Visible = True
Form_Resize
DoEvents
Screen.MousePointer = vbDefault
PrepareDate
End Sub
'********************************************************************
'*函数说明: 初始化 Grid *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub InitForm()
Dim i As Integer
With Me.UfGridADO1
'设置UFGRID，将其作为数据显示区
.LargeVirtualGrid = True
.Rows = nFixRows
.Cols = 10
.FixedCols = 3
.FixedRows = nFixRows
.ColWidth(0) = 600
For i = 1 To 2
.ColWidth(i) = 300
Next i
.ColWidth(3) = 2600
.ColWidth(4) = 1500
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -