📄 frmbuyticket.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Begin VB.Form frmBuyTicket
BorderStyle = 1 'Fixed Single
Caption = "票据购买"
ClientHeight = 3045
ClientLeft = 45
ClientTop = 330
ClientWidth = 6495
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3045
ScaleWidth = 6495
StartUpPosition = 2 '屏幕中心
Begin VB.CheckBox chkVoid
Caption = "作废(&V)"
Height = 300
Left = 5160
TabIndex = 18
TabStop = 0 'False
Top = 2430
Visible = 0 'False
Width = 1103
End
Begin VB.Frame Frame1
Height = 2805
Left = 120
TabIndex = 3
Top = 90
Width = 4905
Begin GACALENDARLibCtl.Calendar dtmInput
Height = 285
Left = 1200
OleObjectBlob = "frmBuyTicket.frx":0000
TabIndex = 9
Top = 1080
Width = 1245
End
Begin ListRefer.ListText lstInput
Height = 315
Index = 0
Left = 1200
TabIndex = 5
Top = 240
Width = 3495
_ExtentX = 6165
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText lstInput
Height = 315
Index = 1
Left = 1200
TabIndex = 7
Top = 660
Width = 3495
_ExtentX = 6165
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText lstInput
Height = 315
Index = 2
Left = 3330
TabIndex = 11
Top = 1080
Width = 1365
_ExtentX = 2408
_ExtentY = 556
BackColor = -2147483643
MaxLenth = 10
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText lstInput
Height = 315
Index = 3
Left = 1200
TabIndex = 13
Top = 1500
Width = 3495
_ExtentX = 6165
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin AtlEdit.TEdit txtInput
Height = 285
Index = 0
Left = 1200
TabIndex = 15
Top = 1920
Width = 3495
_ExtentX = 6165
_ExtentY = 503
maxchar = 16
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin AtlEdit.TEdit txtInput
Height = 315
Index = 1
Left = 1200
TabIndex = 17
Top = 2340
Width = 3495
_ExtentX = 6165
_ExtentY = 556
maxchar = 16
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin VB.Label lblItem
AutoSize = -1 'True
Caption = "票据止号(&E)"
Height = 180
Index = 6
Left = 180
TabIndex = 16
Top = 2400
Width = 990
End
Begin VB.Label lblItem
AutoSize = -1 'True
Caption = "票据起号(&S)"
Height = 180
Index = 5
Left = 180
TabIndex = 14
Top = 1980
Width = 990
End
Begin VB.Label lblItem
AutoSize = -1 'True
Caption = "票据种类(&T)"
Height = 180
Index = 4
Left = 180
TabIndex = 12
Top = 1530
Width = 990
End
Begin VB.Label lblItem
AutoSize = -1 'True
Caption = "购买人(&N)"
Height = 180
Index = 3
Left = 2490
TabIndex = 10
Top = 1140
Width = 810
End
Begin VB.Label lblItem
AutoSize = -1 'True
Caption = "购买日期(&D)"
Height = 180
Index = 2
Left = 180
TabIndex = 8
Top = 1140
Width = 990
End
Begin VB.Label lblItem
AutoSize = -1 'True
Caption = "币种(&C)"
Height = 180
Index = 1
Left = 180
TabIndex = 6
Top = 720
Width = 630
End
Begin VB.Label lblItem
AutoSize = -1 'True
Caption = "银行科目(&A)"
Height = 180
Index = 0
Left = 180
TabIndex = 4
Top = 300
Width = 990
End
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Height = 350
Index = 1
Left = 5160
Style = 1 'Graphical
TabIndex = 1
Tag = "1002"
Top = 540
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 0
Left = 5160
Style = 1 'Graphical
TabIndex = 0
Tag = "1001"
Top = 180
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 2
Left = 5160
Style = 1 'Graphical
TabIndex = 2
Tag = "1009"
Top = 900
UseMaskColor = -1 'True
Width = 1215
End
End
Attribute VB_Name = "frmBuyTicket"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'支票购买
'苏梦
'1999-09-11
Option Explicit
Private m_lngID As Long
Private m_blnFirstIN As Boolean
Private m_OldCheckNO1 As String
Private m_OldCheckNO2 As String
Public Function NewCard() As Long
m_lngID = 0
On Error Resume Next
Me.Show vbModal
NewCard = m_lngID
End Function
Public Function EditACard(ByVal lngID As Long) As Boolean
If lngID <= 0 Then
Exit Function
End If
m_lngID = lngID
On Error Resume Next
Me.Show vbModal
End Function
Private Sub cmdOK_Click(Index As Integer)
Select Case Index
Case 0
If SaveCard() Then
Unload Me
End If
Case 1
Unload Me
Case 2
If SaveCard() Then
ClearCard
End If
End Select
End Sub
Private Sub Form_Activate()
On Error Resume Next
If Me.HelpContextID <> 0 Then
SetHelpID Me.HelpContextID
End If
If m_blnFirstIN Then
m_blnFirstIN = False
lstInput(0).SetFocus
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'SendKeys "{TAB}"
BKKEY Me.ActiveControl.hwnd, vbKeyTab
End If
End Sub
Private Sub Form_Load()
Me.HelpContextID = 600004
Me.MousePointer = vbHourglass
Utility.LoadFormResPicture Me
GetList
m_blnFirstIN = True
If m_lngID = 0 Then
ClearCard
Else
ShowOldCard
cmdOK(2).Visible = False
End If
Me.MousePointer = vbDefault
End Sub
Private Sub GetList(Optional ByVal lngIndex As Long = -1)
If lngIndex = 0 Or lngIndex = -1 Then
With lstInput(0)
.Tag = Message.msgAccount
.SeekCol = "1,2,3"
Set .Recordset = Utility.GetListRecordSet(lrtAccount)
'.SeekCol = "1,2,3"
.AddRefer "<新增>"
.AddRefer "<修改>"
.AddRefer "<删除>"
End With
End If
If lngIndex = 1 Or lngIndex = -1 Then
With lstInput(1)
.Tag = Message.msgcurrency
.SeekCol = "1,2,3"
Set .Recordset = GetCurrencyRec()
'.SeekCol = "1,2,3"
.AddRefer "<新增>"
.AddRefer "<修改>"
.AddRefer "<删除>"
End With
End If
If lngIndex = 2 Or lngIndex = -1 Then
With lstInput(2)
.SeekCol = "1,2"
Set .Recordset = GetPersonRec()
'.SeekCol = "1,2"
End With
End If
If lngIndex = 3 Or lngIndex = -1 Then
With lstInput(3)
.Tag = Message.msgPaymentMethod
.SeekCol = "1,2,3"
Set .Recordset = GetPaymentMethodRec()
'.SeekCol = "1,2,3"
.AddRefer "<新增>"
.AddRefer "<修改>"
.AddRefer "<删除>"
End With
End If
End Sub
Private Function GetPersonRec() As rdoResultset
Dim strSql As String
strSql = "SELECT lngOperatorID,strOperatorName FROM Operator WHERE blnIsInActive = 0"
Set GetPersonRec = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
End Function
Private Function GetCurrencyRec() As rdoResultset
Dim strSql As String
strSql = "SELECT lngCurrencyID,strCurrencyCode,strCurrencyName FROM Currencys WHERE blnIsInActive = 0"
Set GetCurrencyRec = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
End Function
Private Function GetPaymentMethodRec() As rdoResultset
Dim strSql As String
strSql = "SELECT lngPaymentMethodID, strPaymentMethodCode, strPaymentMethodName " & _
" FROM PaymentMethod WHERE blnIsInActive = 0 And blnIsCheck <> 0 "
Set GetPaymentMethodRec = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
End Function
Private Sub ClearCard()
'清空内容
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -