📄 formjc.frm
字号:
Top = 1560
Width = 975
End
Begin VB.Label Label5
Caption = "事由"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 255
Left = 720
TabIndex = 12
Top = 1200
Width = 495
End
Begin VB.Label Label4
Caption = "职务"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 255
Left = 5280
TabIndex = 10
Top = 840
Width = 495
End
Begin VB.Label Label1
Caption = "工号"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 255
Left = 720
TabIndex = 8
Top = 855
Width = 495
End
Begin VB.Label Label2
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 255
Left = 2040
TabIndex = 7
Top = 840
Width = 495
End
Begin VB.Label Label3
Caption = "部门"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 255
Left = 3480
TabIndex = 6
Top = 840
Width = 495
End
End
Attribute VB_Name = "Formjc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim vzgid, vbmid, vjobid, vzgname, vbmname, vjobname
Dim vbookmark As Variant
Dim lcurrrec As Long
Dim baddnewflag As Boolean
Dim WithEvents adors As Recordset
Attribute adors.VB_VarHelpID = -1
Dim vmonth
Private Sub Adcjc_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Not Adcjc.Recordset.EOF Then
If Not IsNull(Adcjc.Recordset.Fields("zgid").Value) Then
Textzgid.Text = Adcjc.Recordset.Fields("zgid").Value
End If
If Not IsNull(Adcjc.Recordset.Fields("zgname").Value) Then
Textzgname.Text = Adcjc.Recordset.Fields("zgname").Value
End If
If Not IsNull(Adcjc.Recordset.Fields("bmid").Value) Then
Textbmname.Text = Adcjc.Recordset.Fields("bmid").Value
End If
If Not IsNull(Adcjc.Recordset.Fields("jobid").Value) Then
Textjobname.Text = Adcjc.Recordset.Fields("jobid").Value
End If
If Not IsNull(Adcjc.Recordset.Fields("su").Value) Then
Textsu.Text = Adcjc.Recordset.Fields("su").Value
End If
If Not IsNull(Adcjc.Recordset.Fields("jcid").Value) Then
Textjcname.Text = Adcjc.Recordset.Fields("jcid").Value
End If
If Not IsNull(Adcjc.Recordset.Fields("sdate").Value) Then
Textsdate.Text = Adcjc.Recordset.Fields("sdate").Value
End If
End If
End Sub
Private Sub Command1_Click()
Dialogjc.Show
End Sub
Private Sub DCombo1_Click(Area As Integer)
End Sub
Private Sub Form_Load()
Dim vmonth, vyear, vdate
vmonth = Month(Date)
vyear = Year(Date)
vdate = CDate(vyear & "-" & vmonth & "-1")
Adcjc.RecordSource = "select * from jc order by sdate,zgid"
Adcjc.Refresh
Set adors = Adcjc.Recordset
setbuttons True
Toolbar1.Buttons(4).Enabled = False
If Not Adcjc.Recordset.EOF Then
If Not IsNull(Adcjc.Recordset.Fields("zgid").Value) Then
Textzgid.Text = Adcjc.Recordset.Fields("zgid").Value
End If
If Not IsNull(Adcjc.Recordset.Fields("su").Value) Then
Textsu.Text = Adcjc.Recordset.Fields("su").Value
End If
If Not IsNull(Adcjc.Recordset.Fields("jcid").Value) Then
Textjcname.Text = Adcjc.Recordset.Fields("jcid").Value
End If
If Not IsNull(Adcjc.Recordset.Fields("sdate").Value) Then
Textsdate.Text = Adcjc.Recordset.Fields("sdate").Value
End If
End If
End Sub
Private Sub Textbmname_Change()
Dim vbmid, vbmname As String
vbmid = Textbmname.Text
Adcbm.RecordSource = "select bmname from tbm where bmid ='" & vbmid & "'"
Adcbm.Refresh
If Not Adcbm.Recordset.EOF Then
vbmname = Adcbm.Recordset.Fields("bmname").Value
Textbmname.Text = vbmname
Textbmid.Text = vbmid
End If
End Sub
Private Sub Textjcname_Change()
Dim vjcid, vjcname
vjcid = Textjcname.Text
Adcjcset.RecordSource = "select * from jcset where jcid ='" & vjcid & "'"
Adcjcset.Refresh
If Not Adcjcset.Recordset.EOF Then
vjcname = Adcjcset.Recordset.Fields("jcname").Value
Textjcname.Text = vjcname
Textjcid.Text = vjcid
End If
End Sub
Private Sub Textjcname_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textsdate.SetFocus
End If
End Sub
Private Sub Textjobname_Change()
Dim vjobid, vjobname As String
vjobid = Textjobname.Text
Adcjob.RecordSource = "select jobname from tjob where jobid ='" & vjobid & "'"
Adcjob.Refresh
If Not Adcjob.Recordset.EOF Then
vjobname = Adcjob.Recordset.Fields("jobname").Value
Textjobname.Text = vjobname
Textjobid.Text = vjobid
End If
End Sub
Private Sub Textsu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textjcname.SetFocus
End If
End Sub
Private Sub Textzgid_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNull(Textzgid.Text) Then
MsgBox ("没有输入工号")
Textzgid.SetFocus
Else
vzgid = Textzgid.Text
Adczg.RecordSource = "select * from tzg where zgid='" & vzgid & "'"
Adczg.Refresh
If Not Adczg.Recordset.EOF Then
If Not IsNull(Adczg.Recordset.Fields("zgname").Value) Then
Textzgname = Adczg.Recordset.Fields("zgname").Value
End If
If Not IsNull(Adczg.Recordset.Fields("bmid").Value) Then
Textbmname.Text = Adczg.Recordset.Fields("bmid").Value
End If
If Not IsNull(Adczg.Recordset.Fields("jobid").Value) Then
Textjobname.Text = Adczg.Recordset.Fields("jobid").Value
End If
Textsu.SetFocus
End If
End If
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim response, iresponse As Integer
Dim vdate1
Select Case Button.Index
Case 1
If Not (adors.BOF And adors.EOF) Then
vbookmark = adors.Bookmark
End If
adors.AddNew
Textzgid.SetFocus
baddnewflag = True
setbuttons False
Toolbar1.Buttons(4).Enabled = True
Case 2
response = MsgBox("Are you sure", vbYesNo, "delete record")
If response = vbYes Then
Adcjc.Recordset.Delete
Adcjc.Recordset.MoveNext
End If
If Adcjc.Recordset.EOF Then
Adcjc.Recordset.MoveLast
End If
Case 3
adors.Requery
Case 4
response = MsgBox("你确信要更新", vbYesNo, "更新数据")
If response = vbYes Then
If Textzgid.Text = "" Or Textsu.Text = "" Or Not IsDate(Textsdate.Text) Then
MsgBox ("有空值，请检察")
Textzgid.SetFocus
Else
vzgid = Textzgid.Text
vzgname = Textzgname.Text
vbmid = Textbmid.Text
vjobid = Textjobid.Text
vdate1 = Textsdate.Text
Adcjc1.RecordSource = "select * from jc where zgid='" & vzgid & "'and sdate='" & vdate1 & "'"
Adcjc1.Refresh
If Adcjc1.Recordset.EOF Then
adors.Fields("zgid").Value = Textzgid.Text
adors.Fields("zgname").Value = Textzgname.Text
adors.Fields("bmid").Value = Textbmid.Text
adors.Fields("jobid").Value = Textjobid.Text
adors.Fields("su").Value = Textsu.Text
adors.Fields("jcid").Value = Textjcid.Text
adors.Fields("sdate").Value = Textsdate.Text
adors.update
End If
End If
End If
setbuttons True
Toolbar1.Buttons(4).Enabled = False
Case 5
response = MsgBox("你确信取消操作", vbYesNo, "取消操作")
If response = vbYes Then
setbuttons True
adors.CancelUpdate
If vbookmark > 0 Then
adors.Bookmark = vbookmark
Else
adors.MoveFirst
End If
Toolbar1.Buttons(3).Enabled = False
baddnewflag = False
End If
Case 6
If Toolbar1.Buttons(4).Enabled Then
iresponse = MsgBox("data changed ,save it?", vbYesNo, "update data?")
If iresponse = vbYes Then
adors.update
Else
adors.CancelUpdate
End If
End If
Unload Me
Case 7
Dialogjcfind.Show
Case 8
lcurrrec = 1
adors.MoveFirst
Case 9
If Not (Adcjc.Recordset.BOF) Then
adors.MovePrevious
End If
If adors.BOF And adors.RecordCount > 0 Then
adors.MoveFirst
End If
Case 10
If Not adors.EOF Then
adors.MoveNext
End If
Case 11
adors.MoveLast
Case 12
Toolbar1.Buttons(4).Enabled = True
End Select
End Sub
Private Sub setbuttons(bval As Boolean)
Toolbar1.Buttons(1).Enabled = bval
Toolbar1.Buttons(2).Enabled = bval
Toolbar1.Buttons(3).Enabled = bval
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -