📄 +i+æ
字号:
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 FrmBillBook
BackColor = &H8000000E&
ClientHeight = 5445
ClientLeft = 2940
ClientTop = 2385
ClientWidth = 9180
Icon = "日记表.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 5445
ScaleWidth = 9180
Tag = "BillBook"
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}
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}
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}
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 = "FrmBillBook"
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 SQL As String
Public sDate As String
Public sType As String
Public iType As Long
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()
Screen.MousePointer = vbHourglass
Me.Icon = LoadResPicture(109, vbResIcon)
' Me.HelpContextID = 88000019
Me.Caption = "日记表"
Me.WindowState = 2
Informtlb1 Tlbckd, ImageList1
Picture1.Width = ZjAccInfo.zjPictWidth
Picture1.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.bmp")
Me.RefreshGrid
Screen.MousePointer = vbDefault
End Sub
Public Sub RefreshGrid()
Dim rstBind As New UfRecordset
Dim nFlxMax As Integer
' 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
Select Case iType
Case 0
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
Case 1
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
Case 2
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 Select
Dim vt As Variant
Set vt = rstBind.Recordset
Me.UfGridado1.Rows = 2
Me.UfGridado1.FixedRows = 2
Me.UfGridado1.BindRecordSet vt, False, True, True
'初始化表头及对齐方式
Select Case iType
Case 0
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, "摘要", "付款经办")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -