📄 序时帐查询.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 frmXShFind
BorderStyle = 1 'Fixed Single
Caption = "序时账查询"
ClientHeight = 2415
ClientLeft = 2145
ClientTop = 4095
ClientWidth = 5295
HelpContextID = 88000067
Icon = "序时帐查询.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2415
ScaleWidth = 5295
Tag = "5"
Begin VB.Frame Frame1
Caption = "请输入查询条件"
Height = 1515
Left = 270
TabIndex = 8
Top = 180
Width = 4725
Begin UsRefBut.RefCmd RefCmd1
Height = 300
Index = 0
Left = 4032
TabIndex = 13
Top = 636
Width = 312
_ExtentX = 556
_ExtentY = 529
RefMode = 0
RefUnitMode = 1
RefAccMode = 0
Enabled = -1 'True
End
Begin UsRefBut.RefCmd RefCmd1
Height = 300
Index = 1
Left = 2916
TabIndex = 12
Top = 1008
Width = 312
_ExtentX = 556
_ExtentY = 529
RefMode = 1
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin EDITLib.Edit Edit3
Height = 270
Left = 1260
TabIndex = 2
Top = 630
Width = 2715
_Version = 65536
_ExtentX = 4789
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
BadStr = "|'"""
End
Begin EDITLib.Edit Edit1
Height = 270
Left = 1260
TabIndex = 0
Top = 270
Width = 1065
_Version = 65536
_ExtentX = 1879
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin VB.CommandButton Command1
Height = 252
Index = 0
Left = 2340
Style = 1 'Graphical
TabIndex = 6
Top = 300
Width = 264
End
Begin VB.CommandButton Command1
Height = 252
Index = 1
Left = 3990
Style = 1 'Graphical
TabIndex = 7
Top = 285
Width = 264
End
Begin EDITLib.Edit Edit2
Height = 270
Left = 2910
TabIndex = 1
Top = 270
Width = 1065
_Version = 65536
_ExtentX = 1879
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit Edit4
Height = 270
Left = 1260
TabIndex = 3
Top = 1005
Width = 1605
_Version = 65536
_ExtentX = 2831
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
BadStr = "|'"""
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "业务日期"
Height = 180
Index = 0
Left = 420
TabIndex = 11
Top = 300
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单位名称"
Height = 180
Index = 2
Left = 420
TabIndex = 10
Top = 645
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "账 户 号"
Height = 180
Index = 3
Left = 420
TabIndex = 9
Top = 1020
Width = 720
End
Begin VB.Line Line1
Index = 0
X1 = 2670
X2 = 2830
Y1 = 390
Y2 = 390
End
End
Begin VB.CommandButton Command2
Default = -1 'True
Height = 365
Index = 0
Left = 1920
Style = 1 'Graphical
TabIndex = 4
Top = 1860
Width = 1080
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Height = 365
Index = 1
Left = 3330
Style = 1 'Graphical
TabIndex = 5
Top = 1860
Width = 1080
End
End
Attribute VB_Name = "frmXShFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明:序时账查询
'作者: 赵春立
Option Explicit
Private strFind As String
Private sqlWhole As String
Private sqlWhere As String
Public Quitfs As Boolean
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0: DisplayCalendar Edit1, Me.hwnd, Frame1.left, Frame1.top
Case 1: DisplayCalendar Edit2, Me.hwnd, Frame1.left, Frame1.top
End Select
End Sub
Private Sub Command2_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case 0
If CheckValid Then
For i = 0 To Forms.count - 1
If Forms(i).Tag = "XSH" Then
Me.Hide
BringWindowToTop Forms(i).hwnd
Forms(i).WindowState = 2
Forms(i).sqlFind = strFind
Forms(i).sqlBillFindPg = sqlWhole
Forms(i).sqlBillFind = sqlWhere
Forms(i).RefreshMe
DoEvents
Quitfs = False
Unload Me
Exit Sub
End If
Next i
frmXSh.sqlFind = strFind
frmXSh.sqlBillFindPg = sqlWhole
frmXSh.sqlBillFind = sqlWhere
Me.Hide
DoEvents
frmXSh.Show
Quitfs = False
Unload Me
frmXSh.Tag = "XSH"
End If
Case 1
Unload Me
End Select
End Sub
Private Sub Edit1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
Command1(0).Value = True
Edit1.SetFocus
End If
End Sub
Private Sub Edit1_LostFocus()
If Edit1 <> "" Then
Edit1 = ForDate(Edit1)
If Not IsDate(Edit1) Then
Beep
MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
SetTxtFocus Edit1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -