📄 frmdmqx.frm
字号:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 2
Left = 180
TabIndex = 14
Top = 1620
Width = 1275
End
Begin VB.Label LblName
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Caption = "12345678901234567890123456789012345678901234567890"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 1
Left = 1440
TabIndex = 12
Top = 1320
Width = 6255
End
Begin VB.Label LblHincd
BackColor = &H00C0FFFF&
BorderStyle = 1 'Fixed Single
Caption = "123456"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 1
Left = 180
TabIndex = 11
Top = 1320
Width = 1275
End
Begin VB.Label LblName
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "12345678901234567890123456789012345678901234567890"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 0
Left = 1440
TabIndex = 10
Top = 1020
Width = 6255
End
Begin VB.Label LblHincd
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "123456"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 0
Left = 180
TabIndex = 9
Top = 1020
Width = 1275
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
Caption = "分类名称"
BeginProperty Font
Name = "宋体"
Size = 13.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 3
Left = 1440
TabIndex = 8
Top = 660
Width = 6255
End
Begin VB.Line Lin3D
Index = 0
X1 = 300
X2 = 3180
Y1 = 60
Y2 = 60
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
Caption = "分类编号"
BeginProperty Font
Name = "宋体"
Size = 13.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 2
Left = 180
TabIndex = 7
Top = 660
Width = 1275
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
Caption = "分类编号"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 0
Left = 180
TabIndex = 6
Top = 180
Width = 1875
End
End
Attribute VB_Name = "FrmDmqx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************
' 名称 : 操作员数据检索向导
' 履历 : 2001/02/20 Visual Basic 6.0 Programming by TangShaoQiang
'***************************************************************
Option Explicit
Private Const GROW_MAX = 10 ' 明细行数
Private FldOp As New FieldOp
Private DMQX As New ADODB.Recordset
Private m_result As Boolean 'True:决定 False:结束
Private m_selCd As String '操作员编号
Private m_selnM As String '操作员名称
Private m_selKn As String '操作员拼音
Private m_selpd As String 'password
Private g_page As Integer '现在表示儁乕僕
Private g_index As Integer '现在选择行
Public Property Get selCd() As String
selCd = m_selCd
End Property
Public Property Get selNm() As String
selNm = m_selnM
End Property
Private Sub CmdEnd_Click()
m_result = False
Hide
End Sub
Private Sub CmdEnt_Click()
m_result = True
Hide
End Sub
Private Sub cmdNxt_Click()
If m_selCd <> "" Then
LblHincd(g_index).BackStyle = 1
LblName(g_index).BackStyle = 1
m_selCd = ""
CmdEnt.Enabled = False
End If
g_page = g_page + 1
cmdPre.Enabled = True
If g_page < DMQX.PageCount Then
cmdNxt.Enabled = True
Else
cmdNxt.Enabled = False
End If
Call GuideDisplay
End Sub
Private Sub cmdPre_Click()
If m_selCd <> "" Then
LblHincd(g_index).BackStyle = 1
LblName(g_index).BackStyle = 1
m_selCd = ""
CmdEnt.Enabled = False
End If
g_page = g_page - 1
cmdNxt.Enabled = True
If g_page = 1 Then
cmdPre.Enabled = False
Else
cmdPre.Enabled = True
End If
Call GuideDisplay
End Sub
Private Sub cmdSer_Click()
Dim wkWhere As String
Dim wkOdby As String
Dim Wksql As String
g_page = 1
If m_selCd <> "" Then
LblHincd(g_index).BackStyle = 1
LblName(g_index).BackStyle = 1
End If
CmdEnt.Enabled = False
cmdPre.Enabled = False
cmdNxt.Enabled = False
wkWhere = ""
wkOdby = ""
If Trim(TxtCode) <> "" Then
wkWhere = "QXCODE >= '" & Trim(TxtCode) & "'"
End If
wkOdby = "QXCODE"
On Error Resume Next
If DMQX.State <> adStateClosed Then DMQX.Close
Set DMQX = Nothing
On Error GoTo ErrProc
' 记录设置傪取得
Wksql = "SELECT distinct qxcode,qxname FROM Dmqx"
If wkWhere <> "" Then Wksql = Wksql & " WHERE " & wkWhere & " "
Wksql = Wksql & " ORDER BY " & wkOdby
Set DMQX = New ADODB.Recordset
DMQX.MaxRecords = GUIDE_DTL_MAXCNT '取得记录件数
DMQX.PageSize = GROW_MAX '儁乕僕大小
DMQX.Source = Wksql 'SQL语句
DMQX.ActiveConnection = ADOcon '数据库设定
DMQX.CursorType = adOpenStatic '光标类型设定
DMQX.Open
If DMQX.RecordCount = 0 Then
Call GuideInit
Call MsgDisplay(SERCH_NO_DATA, "")
TxtCode.SetFocus
Exit Sub
End If
cmdPre.Enabled = False '前页按钮
If DMQX.PageCount > 1 Then '下页按钮
cmdNxt.Enabled = True
Else
cmdNxt.Enabled = False
End If
Call GuideDisplay
Exit Sub
ErrProc:
Call errMsgEdit("")
End Sub
Private Sub Form_Load()
Call draw3DFrm(Me) ' 3D用Line 表示
Call GuideInit
TxtCode = ""
CmdEnt.Enabled = False
cmdPre.Enabled = False
cmdNxt.Enabled = False
m_selCd = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
If DMQX.State <> adStateClosed Then DMQX.Close
Set DMQX = Nothing
If Err.Number <> 0 Then Err.Clear
End Sub
Public Property Get result() As Integer
result = m_result
End Property
Private Sub LblHincd_Click(Index As Integer)
If LblHincd(Index).Caption = "" Then
Exit Sub
End If
If m_selCd <> "" Then
LblHincd(g_index).BackStyle = 1
LblName(g_index).BackStyle = 1
End If
m_selCd = Trim(LblHincd(Index).Caption)
m_selnM = Trim(LblName(Index).Caption)
LblHincd(Index).BackStyle = 0
LblName(Index).BackStyle = 0
g_index = Index
CmdEnt.Enabled = True
End Sub
Private Sub LblHincd_DblClick(Index As Integer)
If m_selCd <> "" Then
m_result = True
Hide
End If
End Sub
Private Sub LblKana_Click(Index As Integer)
If LblHincd(Index).Caption = "" Then
Exit Sub
End If
If m_selCd <> "" Then
LblHincd(g_index).BackStyle = 1
LblName(g_index).BackStyle = 1
End If
m_selCd = Trim(LblHincd(Index).Caption)
m_selnM = Trim(LblName(Index).Caption)
LblHincd(Index).BackStyle = 0
LblName(Index).BackStyle = 0
g_index = Index
CmdEnt.Enabled = True
End Sub
Private Sub LblKana_DblClick(Index As Integer)
If m_selCd <> "" Then
m_result = True
Hide
End If
End Sub
Private Sub lblName_Click(Index As Integer)
If LblHincd(Index).Caption = "" Then
Exit Sub
End If
If m_selCd <> "" Then
LblHincd(g_index).BackStyle = 1
LblName(g_index).BackStyle = 1
End If
m_selCd = Trim(LblHincd(Index).Caption)
m_selnM = Trim(LblName(Index).Caption)
LblHincd(Index).BackStyle = 0
LblName(Index).BackStyle = 0
g_index = Index
CmdEnt.Enabled = True
End Sub
Private Sub lblName_DblClick(Index As Integer)
If m_selCd <> "" Then
m_result = True
Hide
End If
End Sub
Private Sub TxtCode_GotFocus()
Set FldOp.ctrl = ActiveControl
FldOp.gotFocus
End Sub
Private Sub TxtCode_KeyPress(KeyAscii As Integer)
KeyAscii = FldOp.keyPress(KeyAscii)
If KeyAscii = 0 Then Call TxtCode_LostFocus
End Sub
Private Sub TxtCode_LostFocus()
If ActiveControl.Name = TxtCode.Name Then
FldOp.moveFcs
End If
End Sub
Private Sub GuideDisplay()
'明细的表示
Dim d_index As Integer
'儁乕僕移动
DMQX.AbsolutePage = g_page
'明细的初期化
Call GuideInit
'明细的表示
For d_index = 0 To GROW_MAX - 1
LblHincd(d_index) = NoNull(DMQX!QXCODE)
LblName(d_index) = NoNull(DMQX!QXNAME)
DMQX.MoveNext
If DMQX.EOF = True Then Exit For
Next d_index
End Sub
Private Sub GuideInit()
'明细的初期化
Dim d_index As Integer
For d_index = 0 To GROW_MAX - 1
LblHincd(d_index) = ""
LblName(d_index) = ""
Next d_index
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -