form19.frm

一个简单完整的工资管理系统 毕业论文里的代码

VERSION 5.00
Begin VB.Form Form16 
   ClientHeight    =   5550
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9045
   LinkTopic       =   "Form16"
   ScaleHeight     =   5550
   ScaleWidth      =   9045
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form16"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete
End Sub

Private Sub Command3_Click()
On Error Resume Next

Adodc1.Refresh
End Sub


Private Sub Command4_Click()
ids = DataCombo1.Text

Dim mycn As New ADODB.Connection

mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;"


Dim myrs3 As New ADODB.Recordset
Set myrs3 = New ADODB.Recordset
myrs3.Open "Insert Into rs_lz select * FROM rs where 编号='" + ids + "';", mycn, adOpenKeyset, adLockOptimistic

Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset
myrs.Open "delete * FROM rs where 编号='" + ids + "';", mycn, adOpenKeyset, adLockOptimistic


Dim myrs2 As New ADODB.Recordset
Set myrs2 = New ADODB.Recordset
myrs2.Open "delete * FROM gs where 编号='" + ids + "';", mycn, adOpenKeyset, adLockOptimistic




End Sub

Private Sub DataCombo1_Change()
bh = DataCombo1.Text
Adodc3.RecordSource = "select * from rs where 编号 ='" + bh + "'"
Adodc3.Refresh

End Sub

Private Sub Text5_Change()
If Text5 = "离职" Then
Command4.Enabled = True
Else
Command4.Enabled = False

End If

End Sub