📄 czrytj.frm
字号:
VERSION 5.00
Begin VB.Form czrytj
BorderStyle = 1 'Fixed Single
Caption = "添加操作人员"
ClientHeight = 3840
ClientLeft = 5715
ClientTop = 2820
ClientWidth = 3975
Icon = "czrytj.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3840
ScaleWidth = 3975
Begin VB.CommandButton Command1
Caption = "确定(&O)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 11
Top = 3240
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "取消(&C)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2160
TabIndex = 10
Top = 3240
Width = 1215
End
Begin VB.Frame Frame6
Height = 3135
Left = 0
TabIndex = 0
Top = 0
Width = 3855
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 3240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 1440
Visible = 0 'False
Width = 1065
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 3240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 960
Visible = 0 'False
Width = 1065
End
Begin VB.Frame Frame4
Caption = "请选择人员"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1815
Left = 240
TabIndex = 3
Top = 240
Width = 3375
Begin VB.ComboBox Combo1
BackColor = &H00FFFFFF&
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1560
TabIndex = 6
Top = 360
Width = 1335
End
Begin VB.ComboBox Combo2
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1560
TabIndex = 5
Top = 840
Width = 1335
End
Begin VB.TextBox Text2
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 4
Top = 1320
Width = 1335
End
Begin VB.Label Label1
Caption = "编号 "
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 600
TabIndex = 9
Top = 360
Width = 615
End
Begin VB.Label Label2
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 600
TabIndex = 8
Top = 840
Width = 495
End
Begin VB.Label Label3
Caption = "部门"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 600
TabIndex = 7
Top = 1320
Width = 615
End
End
Begin VB.Frame Frame2
Caption = "请填写密码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 855
Left = 240
TabIndex = 1
Top = 2160
Width = 3375
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 720
TabIndex = 2
Top = 360
Width = 2295
End
End
End
End
Attribute VB_Name = "czrytj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
Dim strfind As String
strfind = Combo1.Text
Data1.Refresh 'data控件用后要注意更新
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "zybh = " & "'" & strfind & "'"
'Data1.Recordset.MoveLast
'Debug.Print Data1.Recordset("xm")
czrytj.Combo2.Text = Data1.Recordset("xm")
Text2.Text = Data1.Recordset("szbm")
End Sub
Private Sub Combo2_Click()
Dim strfind As String
strfind = Combo2.Text
Data1.Refresh 'data控件用后要注意更新
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "xm = " & "'" & strfind & "'"
'Data1.Recordset.MoveLast
'Debug.Print Data1.Recordset("xm")
czrytj.Combo1.Text = Data1.Recordset("zybh")
Text2.Text = Data1.Recordset("szbm")
End Sub
Private Sub Command1_Click()
On Error GoTo endthis
czrygl.Data1.Recordset.MoveLast
czrygl.Data1.Recordset.AddNew
czrygl.Data1.Recordset("zybh") = czrytj.Combo1.Text
czrygl.Data1.Recordset("xm") = czrytj.Combo2.Text
czrygl.Data1.Recordset("mm") = czrytj.Text1.Text
czrygl.Data1.Recordset.Update
czrygl.Data1.Refresh
czrygl.MSFlexGrid.TextMatrix(0, 1) = "职员编号"
czrygl.MSFlexGrid.TextMatrix(0, 2) = "姓名"
czrygl.MSFlexGrid.TextMatrix(0, 3) = "密码"
Unload Me
czrygl.Show
Dim Msg, Style, Title, Ctxt, Response, MyString
Msg = "是否立即权限分配？否则他将有全部权利。" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "提示" ' 定义标题。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
'Call Form_Activate
'MyString = "Yes" ' 完成某操作。
'czrytj.Data1.Recordset.MoveLast
'czrytj.Data2.Recordset.Edit
'czrytj.Data2.Recordset.AddNew
'czrytj.Data2.Recordset("zybh") = czrygl.Data1.Recordset("zybh")
'czrytj.Data2.Recordset.Update
'czrytj.Data2.Refresh
czrytj.Data1.Recordset.MoveLast
' End If
'czrytj.Data2.Recordset.Edit
czrytj.Data2.Recordset.AddNew
czrytj.Data2.Recordset("zybh") = czrytj.Combo1.Text
'czrygl.Data1.Recordset ("zybh")
For i = 1 To 24
czrytj.Data2.Recordset.Fields(i) = "1"
Next
czrytj.Data2.Recordset.Update
czrytj.Data2.Refresh
qxfp1.Text1.Text = " 编号" & czrytj.Combo1.Text & " 姓名" & czrytj.Combo2.Text
qxfp1.Data1.Recordset.FindFirst "zybh = " & "'" & czrytj.Combo1.Text & "'"
qxfp1.Show
Else ' 用户按下“否”。
' Call Form_Activate
' MyString = "No" ' 完成某操作。
'If qxfp1.Data1.Recordset.BOF = False Then
czrytj.Data1.Recordset.MoveLast
' End If
czrytj.Data2.Recordset.Edit
czrytj.Data2.Recordset.AddNew
czrytj.Data2.Recordset("zybh") = czrytj.Combo1.Text
'czrygl.Data1.Recordset ("zybh")
For i = 1 To 24
czrytj.Data2.Recordset.Fields(i) = "1"
Next
czrytj.Data2.Recordset.Update
czrytj.Data2.Refresh
czrygl.Show
End If
Unload Me
czrygl.Show
endthis:
Exit Sub
End Sub
Private Sub Command2_Click()
Unload Me
czrygl.Show
End Sub
Private Sub Form_Activate()
Dim a, i As Integer
Data1.Recordset.MoveLast
a = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
For i = 1 To a
Combo1.AddItem (Data1.Recordset("zybh"))
Combo2.AddItem (Data1.Recordset("xm"))
Data1.Recordset.MoveNext
Next
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.RecordSource = "select * from zyzl"
Data2.DatabaseName = App.Path & "\db1.mdb"
Data2.RecordSource = "select * from qxfp"
End Sub
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -