?? frmset.frm
字號:
VERSION 5.00
Begin VB.Form FrmSet
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 1395
ClientLeft = 0
ClientTop = 0
ClientWidth = 6135
LinkTopic = "Form1"
ScaleHeight = 1395
ScaleWidth = 6135
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer1
Interval = 500
Left = 4200
Top = 240
End
Begin VB.ComboBox CmbNianji
BackColor = &H00E8F4F8&
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2490
Style = 2 'Dropdown List
TabIndex = 1
Top = 690
Visible = 0 'False
Width = 2070
End
Begin VB.ComboBox CmbKeMu
BackColor = &H00E8F4F8&
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 135
Style = 2 'Dropdown List
TabIndex = 0
Top = 705
Visible = 0 'False
Width = 2205
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "即將進入操作窗口，確定嗎？"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 360
TabIndex = 4
Top = 360
Width = 4095
End
Begin VB.Label Label4
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0080C0FF&
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 = &H80000008&
Height = 345
Left = 4815
MouseIcon = "FrmSet.frx":0000
MousePointer = 99 'Custom
TabIndex = 3
Top = 825
Width = 975
End
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H0080C0FF&
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 = &H80000008&
Height = 345
Left = 4800
MouseIcon = "FrmSet.frx":0442
MousePointer = 99 'Custom
TabIndex = 2
Top = 255
Width = 975
End
Begin VB.Shape Shape1
BackColor = &H00FFC0C0&
BackStyle = 1 'Opaque
BorderWidth = 2
Height = 1380
Left = 15
Top = 15
Width = 6120
End
End
Attribute VB_Name = "FrmSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim KeMuIdArr() As Long
Dim NianJiIdArr() As Long
Private Sub Form_Load()
Dim adokemuRs As Recordset
Dim adoNianJiRs As Recordset
Set adokemuRs = New Recordset
Set adoNianJiRs = New Recordset
Dim KeMuQXStr As String
'如果是總管理員就不檢查權(quán)限。
If UserCode <> "admin" Then
adokemuRs.Open "select kemuQX from admin where code='" & UserCode & "'", adoCn, adOpenStatic, adLockOptimistic
KeMuQXStr = adokemuRs.Fields(0).Value
adokemuRs.Close
If KeMuQXStr = "" Then
Exit Sub
End If
adokemuRs.Open "select * from kemu where id in(" + KeMuQXStr + ")", adoCn, adOpenStatic, adLockOptimistic
Else
adokemuRs.Open "kemu", adoCn, adOpenStatic, adLockOptimistic
End If
If Not adokemuRs.EOF Then
adokemuRs.MoveLast
adokemuRs.MoveFirst
ReDim KeMuIdArr(adokemuRs.RecordCount) As Long
'添加到控件
Do While Not adokemuRs.EOF
KeMuIdArr(0) = adokemuRs.Fields("id").Value
' adokemuRs.AbsolutePosition - 1
CmbKeMu.AddItem adokemuRs.Fields("name").Value
adokemuRs.MoveNext
Loop
CmbKeMu.ListIndex = 0
End If
Set adokemuRs = Nothing
adoNianJiRs.Open "nianji", adoCn, adOpenStatic, adLockOptimistic
If Not adoNianJiRs.EOF Then
adoNianJiRs.MoveLast
adoNianJiRs.MoveFirst
ReDim NianJiIdArr(adoNianJiRs.RecordCount) As Long
'添加到控件
Do While Not adoNianJiRs.EOF
NianJiIdArr(0) = adoNianJiRs.Fields("id").Value
'adoNianJiRs.AbsolutePosition -1
CmbNianJi.AddItem adoNianJiRs.Fields("name").Value
adoNianJiRs.MoveNext
Loop
CmbNianJi.ListIndex = 0
End If
Set adoNianJiRs = Nothing
End Sub
Private Sub Label3_Click()
If CmbKeMu.Text = "" Then
MsgBox "沒有部門信息，請你先添加部門信息表！" + vbCrLf + "或者聯(lián)系系統(tǒng)管理員付給你操作科目權(quán)限！"
Unload Me
Exit Sub
End If
If CmbNianJi.Text = "" Then
MsgBox "沒有車間信息，請你先添加車間信息表！"
Unload Me
Exit Sub
End If
'FrmFlash.Show 1
' DoEvents
UseKeMuID = KeMuIdArr(CmbKeMu.ListIndex)
UseNianJiID = NianJiIdArr(CmbNianJi.ListIndex)
'MsgBox CmbKeMu.Text
'MsgBox UseKeMuID
Unload Me
Select Case UseForm
Case "FrmQuestion"
frmquestion.CmbKeMu.AddItem CmbKeMu.Text
frmquestion.CmbKeMu.ListIndex = 0
frmquestion.CmbNianJi.AddItem CmbNianJi.Text
frmquestion.CmbNianJi.ListIndex = 0
frmquestion.Show 1
Case "FrmShiJuan"
FrmShiJuan.LabKemu.Caption = CmbKeMu.Text
FrmShiJuan.LabNianJi.Caption = CmbNianJi.Text
FrmShiJuan.Show 1
'' Case "FrmTianKong"
'' FrmTianKong.LabKeMu.Caption = CmbKeMu.Text
'' FrmTianKong.LabNianJi.Caption = CmbNianji.Text
'' FrmTianKong.Show 1
Case "FrmPanDuan"
FrmPanDuan.LabKemu.Caption = CmbKeMu.Text
FrmPanDuan.LabNianJi.Caption = CmbNianJi.Text
FrmPanDuan.Show 1
'' Case "FrmWenDa"
'' FrmWenDa.LabKeMu.Caption = CmbKeMu.Text
'' FrmWenDa.LabNianJi.Caption = CmbNianji.Text
'' FrmWenDa.Show 1
'' Case "FrmZuoWen"
'' FrmZuoWen.LabKeMu.Caption = CmbKeMu.Text
'' FrmZuoWen.LabNianJi.Caption = CmbNianji.Text
'' FrmZuoWen.Show 1
Case "FrmSheZhi"
FrmShezhi.LabKemu.Caption = CmbKeMu.Text
FrmShezhi.LabNianJi.Caption = CmbNianJi.Text
FrmShezhi.Show 1
'' Case "FrmPanJuan"
'' FrmPanJuan.LabKeMu.Caption = CmbKeMu.Text
'' FrmPanJuan.LabNianJi.Caption = CmbNianji.Text
'' FrmPanJuan.Show 1
End Select
End Sub
Private Sub Label4_Click()
Unload Me
End Sub
'Private Sub Timer1_Timer()
'
'
' Label3_Click
'End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -