📄 frmloaninfor.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 frmLoanInfor
Caption = "U8 资金管理-[贷款汇总表]"
ClientHeight = 6330
ClientLeft = 60
ClientTop = 345
ClientWidth = 11295
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6330
ScaleWidth = 11295
WhatsThisHelp = -1 'True
Begin VB.PictureBox Picture1
Height = 5655
Left = 0
Picture = "frmLoanInfor.frx":0000
ScaleHeight = 5595
ScaleWidth = 11235
TabIndex = 1
Top = 600
Width = 11295
Begin MSComctlLib.ImageList ImageList1
Left = 2760
Top = 600
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin PRINTCONTROLLib.PrintControl Printer
Height = 375
Left = 0
TabIndex = 14
Top = 4920
Visible = 0 'False
Width = 375
_Version = 65536
_ExtentX = 661
_ExtentY = 661
_StockProps = 0
EnableSave = -1 'True
End
Begin MsSuperGrid.SuperGrid ufgridado1
Height = 3975
Left = 120
TabIndex = 13
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 = "frmLoanInfor.frx":13042
ForeColorSel = -2147483634
ForeColorFixed = -2147483630
BackColorSel = -2147483635
BackColorFixed = -2147483633
AllowUserResizing= 1
AllowBigSelection= 0 'False
End
Begin VB.Label text1
BackStyle = 0 'Transparent
Height = 255
Left = 1080
TabIndex = 15
Top = 840
Width = 3855
End
Begin VB.Label lblPrnDate
Height = 255
Left = 9000
TabIndex = 12
Top = 5280
Visible = 0 'False
Width = 975
End
Begin VB.Label lblBillName
Height = 255
Left = 1680
TabIndex = 11
Top = 5280
Visible = 0 'False
Width = 1215
End
Begin VB.Label Label8
Caption = "打印日期"
Height = 255
Left = 7080
TabIndex = 10
Top = 5280
Visible = 0 'False
Width = 1455
End
Begin VB.Label Label7
Caption = "制单人"
Height = 255
Left = 240
TabIndex = 9
Top = 5280
Visible = 0 'False
Width = 1095
End
Begin VB.Label lbljsrq
BackStyle = 0 'Transparent
Height = 255
Left = 9480
TabIndex = 8
Top = 840
Width = 1455
End
Begin VB.Label lblksrq
BackStyle = 0 'Transparent
Height = 255
Left = 6360
TabIndex = 7
Top = 840
Width = 1335
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "结束日期："
Height = 255
Left = 8280
TabIndex = 6
Top = 840
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "开始日期："
Height = 255
Left = 5160
TabIndex = 5
Top = 840
Width = 975
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "单位名称:"
Height = 255
Index = 0
Left = 240
TabIndex = 3
Top = 840
Width = 975
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 = 4080
TabIndex = 2
Top = 240
Width = 1575
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 = 2775
_ExtentX = 4895
_ExtentY = 1164
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Index = 1
Left = 0
TabIndex = 4
Top = 0
Width = 735
End
End
Attribute VB_Name = "frmLoanInfor"
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
Public outer_app 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("find").Enabled Then
frmLoanFind.loan_or_inter = 1
frmLoanFind.Show 1
If sqlwhere <> "" Then
sqlstr1 = sqlstr & sqlwhere & " order by fd_transactions.money_name,fd_transactions.bill_date"
End If
' sqlstr1 = sqlstr1
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
End Select
ocxCtbtool.RefreshEnable
End Sub
Private Sub Form_Load()
loadstatic
SetTBStyle Me
con.Open zjLogInfo.UfDbName
'sqlwhere = ""
sqlstr = "SELECT Distinct fd_transactions.transactions_id,fd_transactions.pay_acc_id,fd_transactions.rcv_acc_id,fd_transactions.transactions_code,FD_AccDef_1.cAccID As fkzh,FD_AccDef.cAccID AS skzh, "
sqlstr = sqlstr & "fd_transactions.bill_date, FD_AccUnit.cUnitName,fd_transactions.sum_mny, fd_transactions.exchange_rate,FD_Intras.cIntrID, "
sqlstr = sqlstr & "FD_Intras.nzy, fd_transactions.cad_id, fd_transactions.return_date,fd_transactions.calctype_flag, fd_transactions.natural_mny, "
sqlstr = sqlstr & "fd_transactions.money_name, fd_transactions.bill_name,fd_transactions.check_name, fd_transactions.book_name,fd_transactions.digest,FD_CadSet.cCadID"
sqlstr = sqlstr & " FROM FD_Intras INNER JOIN fd_transactions INNER JOIN FD_AccDef INNER JOIN FD_AccUnit ON FD_AccDef.accunit_id = FD_AccUnit.accunit_id ON "
sqlstr = sqlstr & " fd_transactions.rcv_acc_id = FD_AccDef.accdef_id ON FD_Intras.irate_id = fd_transactions.irate_id INNER JOIN dbo.FD_CadSet ON "
sqlstr = sqlstr & " dbo.fd_transactions.cad_id = dbo.FD_CadSet.cad_id Left Outer JOIN FD_AccDef FD_AccDef_1 ON "
sqlstr = sqlstr & " dbo.fd_transactions.pay_acc_id = FD_AccDef_1.accdef_id"
sqlstr = sqlstr & " where substring(fd_transactions.transactions_id,1,2) in (select IBIType from fd_entities where ibitype=41 or ibitype=45 or iderivebitype=41 or iderivebitype=45) "
sqlstr = sqlstr & " and fd_intras.iid>=all(select iid from fd_intras where fd_intras.irate_id=fd_transactions.irate_id) "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -