📄 frminterestinfor.frm
字号:
VERSION 5.00
Object = "{9ADF72AD-DDA9-11D1-9D4B-000021006D51}#1.2#0"; "UFSpGrid.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{51388549-C886-4FD6-AE5F-8AA28C63CE94}#1.0#0"; "PRINTC~1.OCX"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.4#0"; "U8TBCtl.ocx"
Begin VB.Form frmInterestInfor
Caption = "U8 资金管理-[贷款利息汇总表]"
ClientHeight = 6315
ClientLeft = 60
ClientTop = 345
ClientWidth = 11295
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6315
ScaleWidth = 11295
Begin VB.PictureBox Picture1
Height = 5655
Left = 0
Picture = "frmInterestInfor.frx":0000
ScaleHeight = 5595
ScaleWidth = 11235
TabIndex = 1
Top = 600
Width = 11295
Begin MSComctlLib.ImageList ImageList1
Left = 1920
Top = 480
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin MsSuperGrid.SuperGrid ufgridado1
Height = 3975
Left = 120
TabIndex = 2
Top = 1200
Width = 11055
_ExtentX = 19500
_ExtentY = 7011
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EditBorderStyle = 0
MouseIcon = "frmInterestInfor.frx":13042
ForeColorSel = -2147483634
ForeColorFixed = -2147483630
BackColorSel = -2147483635
BackColorFixed = -2147483633
AllowUserResizing= 1
AllowBigSelection= 0 'False
End
Begin PRINTCONTROLLib.PrintControl Printer
Height = 255
Left = 0
TabIndex = 13
Top = 4920
Visible = 0 'False
Width = 375
_Version = 65536
_ExtentX = 661
_ExtentY = 450
_StockProps = 0
EnableSave = -1 'True
End
Begin VB.Label text1
BackStyle = 0 'Transparent
Height = 255
Left = 1080
TabIndex = 14
Top = 840
Width = 3855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "贷款利息汇总表"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 3720
TabIndex = 12
Top = 240
Width = 2175
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "单位名称:"
Height = 255
Index = 0
Left = 240
TabIndex = 11
Top = 840
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "开始日期："
Height = 255
Left = 5160
TabIndex = 10
Top = 840
Width = 975
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "结束日期："
Height = 255
Left = 8280
TabIndex = 9
Top = 840
Width = 975
End
Begin VB.Label lblksrq
BackStyle = 0 'Transparent
Caption = "Label5"
Height = 255
Left = 6360
TabIndex = 8
Top = 840
Width = 1335
End
Begin VB.Label lbljsrq
BackStyle = 0 'Transparent
Caption = "Label6"
Height = 255
Left = 9480
TabIndex = 7
Top = 840
Width = 1455
End
Begin VB.Label Label7
Caption = "制单人"
Height = 255
Left = 240
TabIndex = 6
Top = 5280
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label8
Caption = "打印日期"
Height = 255
Left = 7080
TabIndex = 5
Top = 5280
Visible = 0 'False
Width = 1455
End
Begin VB.Label lblBillName
Height = 255
Left = 1680
TabIndex = 4
Top = 5280
Visible = 0 'False
Width = 1215
End
Begin VB.Label lblPrnDate
Height = 255
Left = 9000
TabIndex = 3
Top = 5280
Visible = 0 'False
Width = 975
End
End
Begin MSComctlLib.Toolbar tlbTool
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 0
Top = 0
Width = 11295
_ExtentX = 19923
_ExtentY = 953
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "print"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "preview"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "输出"
Key = "output"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
Key = "find"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "help"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "exit"
EndProperty
EndProperty
End
Begin prjTBCtrl.CTBCtrl ocxCtbTool
Height = 660
Left = 0
Top = 0
Width = 4095
_ExtentX = 7223
_ExtentY = 1164
End
End
Attribute VB_Name = "frmInterestInfor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'************************************************
'贷款利息汇总表 *
'罗涛 *
'2002-07-15 *
'************************************************
Option Explicit
Private sqlstr As String
Private sqlstr1 As String
Public sqlwhere As String
Public optwjz As Boolean
Private transactionsId() As String
Private cunitName() As String
Private xmlInit As Boolean
Private con As New ADODB.Connection
Private rs As New ADODB.Recordset
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF3
If Shift = 0 And tlbtool.Buttons("search").Enabled Then
frmLoanFind.loan_or_inter = 2
frmLoanFind.Show 1
If sqlwhere <> "" Then
' If Not optwjz.Value Then
' sqlstr1 = sqlstr & " and (fd_transactions.book_Name<>'' or fd_transactions.book_Name is not null)"
' Else
' sqlstr1 = sqlstr
' End If
sqlstr1 = sqlstr & sqlwhere
sqlstr1 = sqlstr1 & " order by fd_transactions.money_name,fd_transactions.bill_date"
End If
initGrid
fillgrid
End If
Case vbKeyF4
If Shift = 2 Then
Unload Me
Exit Sub
End If
Case vbKeyP
If Shift = 2 And tlbtool.Buttons("print").Enabled Then
Call printProc
End If
Case vbKeyW
If Shift = 2 And tlbtool.Buttons("Output").Enabled Then
Call outputProc
End If
Case vbKeyV
If Shift = 4 And tlbtool.Buttons("preview").Enabled Then
Call previewProc
End If
Case vbKeyF1
SendKeys "{F1,3}"
End Select
ocxCtbtool.RefreshEnable
End Sub
Private Sub Form_Load()
loadstatic
SetTBStyle Me
con.Open zjLogInfo.UfDbName
sqlwhere = ""
sqlstr = "SELECT distinct fd_transactions.transactions_code, fd_transactions.bill_date,fd_transactions.from_date,fd_transactions.to_date, fd_transactions.calctype_flag, "
sqlstr = sqlstr & "fd_transactions.natural_mny, fd_transactions.money_name,fd_transactions.bill_name, fd_transactions.check_name,"
sqlstr = sqlstr & "fd_transactions.book_name, fd_transactions.cad_id,fd_transactions.correspond_vch_id, fd_transactions.exchange_rate,"
sqlstr = sqlstr & "fd_transactions.sum_mny, fd_transactions.mh_mny, FD_Intras.cIntrid,FD_AccUnit.cUnitName,FD_CadSet.ccadid "
sqlstr = sqlstr & " FROM FD_AccDef INNER JOIN FD_AccUnit ON FD_AccDef.accunit_id = FD_AccUnit.accunit_id INNER JOIN "
sqlstr = sqlstr & " fd_transactions ON FD_AccDef.accdef_id = fd_transactions.pay_acc_id INNER JOIN FD_Intras ON fd_transactions.irate_id = FD_Intras.irate_id "
sqlstr = sqlstr & " INNER JOIN dbo.FD_CadSet ON dbo.fd_transactions.cad_id = dbo.FD_CadSet.cad_id "
sqlstr = sqlstr & " where substring(fd_transactions.transactions_id,1,2) in (select IBIType from fd_entities where ibitype=52 or ibitype=55 or iderivebitype=52 or iderivebitype=55)"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -