📄 frmyhckb.frm
字号:
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 = "{A2DD0783-C2F4-11D1-B0D1-000021730160}#1.0#0"; "UfGridSP.ocx"
Begin VB.Form frmyhckb
BackColor = &H8000000E&
ClientHeight = 5445
ClientLeft = 2940
ClientTop = 2385
ClientWidth = 9180
Icon = "frmyhckb.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 5445
ScaleWidth = 9180
Begin ComctlLib.Toolbar Tlbckd
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 0
Top = 0
Width = 9180
_ExtentX = 16193
_ExtentY = 1111
ButtonWidth = 820
ButtonHeight = 953
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}
Key = "Recx"
Object.Tag = ""
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
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 UFGRIDSPLib.UfGridSP UfGridado1
Height = 795
Left = 1320
TabIndex = 3
Top = 2160
Width = 3855
_Version = 65536
_ExtentX = 6800
_ExtentY = 1402
_StockProps = 253
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 945
Left = 0
ScaleHeight = 915
ScaleWidth = 12030
TabIndex = 1
Top = 610
Width = 12060
Begin VB.Label Label0
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 285
Left = 3960
TabIndex = 2
Top = 300
Width = 180
End
End
Begin RTPrnLib.RTPrn RTPrn1
Left = 5730
Top = 675
_Version = 524288
_ExtentX = 2143
_ExtentY = 661
_StockProps = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
m_lngrtpFitRows = 30
End
Begin ComctlLib.ImageList ImageList1
Left = 8865
Top = 360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmyhckb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 存取款表
'作者: 魏小黎
'Cuidong 2000/06/09
' 将cmdRefresh_Click
' 中的 Me.UfGridADO1.Refresh
' 改为 Me.UfGridADO1.Visible = False
' Me.UfGridADO1.Visible = True
Option Explicit
Public sqlst As String, sqlst1 As String
Public djcqk As Byte
Public djnwb As Byte
Public Sub cmdExcute_Click()
Dim rstBind As New UfRecordset
'重新打开结果集并绑定GRID
On Error Resume Next: Err = 0
Set rstBind = dbsZJ.OpenRecordset(sqlst, dbOpenSnapshot)
If Err <> 0 Then
MsgBox Err.Description, vbCritical, zjGl_Name
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0
Dim vt As Variant
Set vt = rstBind.Recordset
Me.UfGridado1.BindRecordSet vt, False, True, True
rstBind.oClose
Set rstBind = Nothing
End Sub
Public Sub cmdRefresh_Click()
'刷新已经绑定的结果集及GRID显示
'Me.UfGridADO1.Refresh
Me.UfGridado1.Visible = False
Me.UfGridado1.Visible = True
End Sub
Private Sub Form_Load()
Dim rstBind As New UfRecordset
Dim nFlxMax As Integer
Screen.MousePointer = vbHourglass
Me.Icon = LoadResPicture(109, vbResIcon)
Select Case djcqk * 2 + djnwb
Case 3
Me.HelpContextID = 88000019
Me.Caption = "银行存款单查询"
Case 1
Me.HelpContextID = 88000021
Me.Caption = "银行取款单查询"
Case 2
Me.HelpContextID = 88000023
Me.Caption = "内部存款单查询"
Case 0
Me.HelpContextID = 88000025
Me.Caption = "内部取款单查询"
Case 5
Me.HelpContextID = 88000047
Me.Caption = "对外结算单查询"
Case 4
Me.HelpContextID = 88000045
Me.Caption = "内部结算单查询"
End Select
Me.WindowState = 2
Informtlb1 Tlbckd, ImageList1
Picture1.Width = ZjAccInfo.zjPictWidth
Picture1.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.bmp")
Label0.Caption = IIf(djcqk = 2, IIf(djnwb = 1, "对外结算单", "内部结算单"), IIf(djnwb = 1 And djcqk = 1, "银行存款单", IIf(djnwb = 1 And djcqk = 0, "银行取款单", IIf(djnwb = 0 And djcqk = 1, "内部存款单", "内部取款单"))))
Set rstBind = dbsZJ.OpenRecordset(sqlst, dbOpenSnapshot)
UfGridado1.Redraw = False
If djcqk = 2 Then
If djnwb = 1 Then
Me.UfGridado1.Cols = 21
Me.UfGridado1.ColWidth(0) = 500
Me.UfGridado1.ColWidth(1) = 830
Me.UfGridado1.ColWidth(2) = 1400
Me.UfGridado1.ColWidth(3) = 2100
Me.UfGridado1.ColWidth(4) = 1900
Me.UfGridado1.ColWidth(5) = 1800
Me.UfGridado1.ColWidth(6) = 1900
Me.UfGridado1.ColWidth(7) = 1800
Me.UfGridado1.ColWidth(8) = 1800
Me.UfGridado1.ColWidth(9) = 830
Me.UfGridado1.ColWidth(10) = 1000
Me.UfGridado1.ColWidth(11) = 1800
Me.UfGridado1.ColWidth(12) = 1900
Me.UfGridado1.ColWidth(13) = 1800
Me.UfGridado1.ColWidth(14) = 1800
Me.UfGridado1.ColWidth(15) = 1800
Me.UfGridado1.ColWidth(16) = 830
Me.UfGridado1.ColWidth(17) = 830
Me.UfGridado1.ColWidth(18) = 830
Me.UfGridado1.ColWidth(19) = 830
Me.UfGridado1.ColWidth(20) = 830
Else
Me.UfGridado1.Cols = 17
Me.UfGridado1.ColWidth(0) = 1200
Me.UfGridado1.ColWidth(1) = 2100
Me.UfGridado1.ColWidth(2) = 1900
Me.UfGridado1.ColWidth(3) = 1800
Me.UfGridado1.ColWidth(4) = 1900
Me.UfGridado1.ColWidth(5) = 1800
Me.UfGridado1.ColWidth(6) = 1800
Me.UfGridado1.ColWidth(7) = 830
Me.UfGridado1.ColWidth(8) = 1000
Me.UfGridado1.ColWidth(9) = 1800
Me.UfGridado1.ColWidth(10) = 3200
Me.UfGridado1.ColWidth(11) = 830
Me.UfGridado1.ColWidth(12) = 830
Me.UfGridado1.ColWidth(13) = 830
Me.UfGridado1.ColWidth(14) = 830
Me.UfGridado1.ColWidth(15) = 830
Me.UfGridado1.ColWidth(16) = 830
End If
Else
Me.UfGridado1.Cols = 16
Me.UfGridado1.FixedCols = 0
' Me.UfGridado1.ColWidth(0) = 500 'cuidong S.A 2001.09.11
Me.UfGridado1.ColWidth(0) = 700 'cuidong S.A 2001.09.11
Me.UfGridado1.ColWidth(1) = 1400
Me.UfGridado1.ColWidth(2) = 2100
Me.UfGridado1.ColWidth(3) = 1900
Me.UfGridado1.ColWidth(4) = 1900
Me.UfGridado1.ColWidth(5) = 1800
Me.UfGridado1.ColWidth(6) = 830
Me.UfGridado1.ColWidth(7) = 1000
Me.UfGridado1.ColWidth(8) = 1800
Me.UfGridado1.ColWidth(9) = 830
Me.UfGridado1.ColWidth(10) = 500
Me.UfGridado1.ColWidth(11) = 830
Me.UfGridado1.ColWidth(12) = 2800
Me.UfGridado1.ColWidth(13) = 830
Me.UfGridado1.ColWidth(14) = 830
Me.UfGridado1.ColWidth(15) = 830
End If
Dim vt As Variant
Set vt = rstBind.Recordset
Me.UfGridado1.Rows = 2
Me.UfGridado1.FixedRows = 2
Me.UfGridado1.BindRecordSet vt, False, True, True
'初始化表头及对齐方式
If djcqk = 2 Then
With Me.UfGridado1
If djnwb = 1 Then
.TextMatrix(0, 0) = "收款"
.TextMatrix(1, 0) = "付款"
Else
.TextMatrix(0, 0) = "业务日期"
.JoinCells 0, 0, 1, 0, True
End If
' .ColAlignment(0) = UG_ALIGNLEFT 'cuidong S.A 2001.09.11
.ColAlignment(0) = UG_ALIGNCENTER 'cuidong S.A 2001.09.11
.TextMatrix(0, 1) = IIf(djnwb = 1, "结算方式", "业务编号")
.ColAlignment(1) = UG_ALIGNLEFT
.JoinCells 0, 1, 1, 1, True
.TextMatrix(0, 2) = IIf(djnwb = 1, "业务日期", "收款单位")
.ColAlignment(2) = UG_ALIGNLEFT
.JoinCells 0, 2, 1, 2, True
.TextMatrix(0, 3) = IIf(djnwb = 1, "业务编号", "收款账号")
.ColAlignment(3) = UG_ALIGNLEFT
.JoinCells 0, 3, 1, 3, True
.TextMatrix(0, 4) = IIf(djnwb = 1, "银行名称", "付款单位")
.ColAlignment(4) = UG_ALIGNLEFT
.JoinCells 0, 4, 1, 4, True
.TextMatrix(0, 5) = IIf(djnwb = 1, "银行账户", "付款账号")
.ColAlignment(5) = UG_ALIGNLEFT
.JoinCells 0, 5, 1, 5, True
.TextMatrix(0, 6) = IIf(djnwb = 1, "内部单位", "结算金额")
.ColAlignment(6) = IIf(djnwb = 1, UG_ALIGNLEFT, UG_ALIGNRIGHT)
.JoinCells 0, 6, 1, 6, True
.TextMatrix(0, 7) = IIf(djnwb = 1, "账户号", "币别")
.ColAlignment(7) = UG_ALIGNLEFT
.JoinCells 0, 7, 1, 7, True
.TextMatrix(0, 8) = IIf(djnwb = 1, "结算金额", "汇率")
.ColAlignment(8) = UG_ALIGNRIGHT
.JoinCells 0, 8, 1, 8, True
.TextMatrix(0, 9) = IIf(djnwb = 1, "币别", "本位币金额")
.ColAlignment(9) = IIf(djnwb = 1, UG_ALIGNLEFT, UG_ALIGNRIGHT)
.JoinCells 0, 9, 1, 9, True
.TextMatrix(0, 10) = IIf(djnwb = 1, "汇率", "摘要")
.ColAlignment(10) = UG_ALIGNRIGHT
.JoinCells 0, 10, 1, 10, True
.TextMatrix(0, 11) = IIf(djnwb = 1, "本位币金额", "收款经办")
.ColAlignment(11) = UG_ALIGNRIGHT
.JoinCells 0, 11, 1, 11, True
.TextMatrix(0, 12) = IIf(djnwb = 1, "摘要", "付款经办")
.ColAlignment(12) = UG_ALIGNLEFT
.JoinCells 0, 12, 1, 12, True
.TextMatrix(0, 13) = IIf(djnwb = 1, "往来单位", "中心经办")
.ColAlignment(13) = UG_ALIGNLEFT
.JoinCells 0, 13, 1, 13, True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -