?? 帳戶余額選擇.frm
字號:
VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{7E0DF0CE-703B-11D3-8E57-0000210152D8}#1.0#0"; "UsRefBut.ocx"
Begin VB.Form frmRzhyeXz
BorderStyle = 1 'Fixed Single
Caption = "賬戶余額日報表"
ClientHeight = 2340
ClientLeft = 5460
ClientTop = 2820
ClientWidth = 4680
HelpContextID = 88000065
Icon = "帳戶余額選擇.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2340
ScaleWidth = 4680
Begin VB.CommandButton Command1
Cancel = -1 'True
Height = 365
Index = 2
Left = 3135
Style = 1 'Graphical
TabIndex = 3
Top = 1785
Width = 1080
End
Begin VB.CommandButton Command1
Default = -1 'True
Height = 365
Index = 1
Left = 1635
Style = 1 'Graphical
TabIndex = 2
Top = 1785
Width = 1080
End
Begin VB.Frame Frame1
Height = 1245
Left = 270
TabIndex = 6
Top = 360
Width = 4095
Begin UsRefBut.RefCmd RefCmd1
Height = 270
Left = 3435
TabIndex = 4
Top = 330
Width = 270
_ExtentX = 476
_ExtentY = 476
RefMode = 1
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin EDITLib.Edit Edit2
Height = 270
Left = 1050
TabIndex = 1
Top = 750
Width = 1125
_Version = 65536
_ExtentX = 1984
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit Edit1
Height = 270
Left = 1050
TabIndex = 0
Top = 330
Width = 2355
_Version = 65536
_ExtentX = 4154
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
BadStr = "|'"""
End
Begin VB.CommandButton Command1
Height = 264
Index = 0
Left = 2210
Style = 1 'Graphical
TabIndex = 5
Top = 750
Width = 264
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "日期"
Height = 180
Index = 1
Left = 540
TabIndex = 8
Top = 780
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "賬戶號"
Height = 180
Index = 0
Left = 390
TabIndex = 7
Top = 360
Width = 540
End
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "請輸入查詢條件："
Height = 180
Left = 300
TabIndex = 9
Top = 120
Width = 1440
End
End
Attribute VB_Name = "frmRzhyeXz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'軟件著作權: 北京用友軟件集團有限公司
'系統名稱: 資金管理8.0
'功能說明: 賬戶余額日報表選擇
'作者: 趙春立
Option Explicit
Public Quitfs As Boolean
Private Function VerifyFind() As Boolean
Dim sqlX As String
Dim rsX As New UfRecordset
Dim sqlItem As String
Dim rsItem As New UfRecordset
Dim id As Integer
VerifyFind = False
If Edit1 = "" Then
Beep
MsgBox "賬戶號不能為空，請重新輸入！", vbInformation, zjGl_Name
Edit1.SetFocus
Exit Function
End If
sqlX = "SELECT * FROM FD_AccDef WHERE [cAccID]='" & Edit1 & "'"
Set rsX = dbsZJ.OpenRecordset(sqlX, dbOpenSnapshot)
If rsX.EOF Then
Beep
MsgBox "賬戶號不存在，請重新輸入！", vbInformation, zjGl_Name
SetTxtFocus Edit1
Exit Function
Else
'cuidong 2001.07.06
'------------------------------
If rsX![iType] = 0 Then
MsgBox " [" & Edit1 & "]是定期帳戶，請輸入活期帳戶！", vbInformation, zjGl_Name
SetTxtFocus Edit1
Exit Function
End If
'------------------------------
If rsX![iDataSrc] = 1 Then
sqlItem = "SELECT * FROM FD_AccSet WHERE [cAccID] = '" & Edit1 & "'"
Set rsItem = dbsZJ.OpenRecordset(sqlItem, dbOpenSnapshot)
If rsItem.EOF Then
Beep
MsgBox "賬戶[" & Edit1 & "]未設置科目，請重新輸入！", vbInformation, zjGl_Name
SetTxtFocus Edit1
Exit Function
End If
End If
'cuidong: ????,!!!,......
' If rsX![iType] = 0 Then
' MsgBox " [" & Edit1 & "]是定期帳戶，請輸入活期帳戶！", vbInformation, zjGl_Name
' SetTxtFocus Edit1
' Exit Function
' End If
End If
Edit2 = ForDate(Edit2)
If Not IsDate(Edit2) Then
Beep
MsgBox "日期非法，請檢查！", vbInformation, zjGl_Name
SetTxtFocus Edit2
Exit Function
End If
If Not Pd_CurNddate(Edit2) Then
SetTxtFocus Edit2
Exit Function
End If
VerifyFind = True
End Function
Private Sub Command1_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case 0
DisplayCalendar Edit2, Me.hWnd, Frame1.Left, Frame1.Top
Case 1
If VerifyFind Then
Me.Hide
DoEvents
For i = 0 To Forms.Count - 1
If Forms(i).Tag = "ZHYE" Then
BringWindowToTop Forms(i).hWnd
Forms(i).WindowState = 2
Forms(i).strAccID = Edit1
Forms(i).datDate = CDate(Edit2)
Forms(i).RefreshMe
Quitfs = False
Unload Me
Exit Sub
End If
Next i
With frmRzhye
.strAccID = Edit1
.datDate = CDate(Edit2)
Quitfs = False
.Show
.Tag = "ZHYE"
End With
Unload Me
End If
Case 2: Unload Me
End Select
End Sub
Private Sub Edit1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
RefCmd1.RunReference
Edit1.SetFocus
End If
End Sub
Private Sub Edit2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
Command1(0).Value = True
Edit2.SetFocus
End If
End Sub
Private Sub Form_Load()
Me.Icon = LoadResPicture(109, vbResIcon)
Edit2 = Format(zjLogInfo.curDate, "yyyy-mm-dd")
Command1(0).Picture = LoadResPicture(1108, vbResBitmap)
Command1(1).Picture = LoadResPicture(103, vbResBitmap)
Command1(2).Picture = LoadResPicture(104, vbResBitmap)
CenterForm Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Quitfs Then
zjLogInfo.TaskExec "FD0707", 0, zjLogInfo.cIYear
zjGen_arr.FD0707 = False
zjLogInfo.ClearError
End If
End Sub
Private Sub RefCmd1_Initialize()
RefCmd1.InitSys 0, dbsZJ
RefCmd1.InitSys 1, Edit1
End Sub
Private Sub RefCmd1_RefCancel()
Edit1.SetFocus
End Sub
Private Sub RefCmd1_RefOK(Code As String)
Edit1 = Code
Edit1.SetFocus
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -