代码清单.docVIP

代码清单 Dim stremployee As String Dim rs_employee As New ADODB.Recordset Private Sub Form_Activate() stremployee = select * from employee rs_employee.Open stremployee, cnn, adOpenStatic, adLockOptimistic Dim i As Integer For i = 0 To rs_employee.RecordCount - 1 Combo1.AddItem (rs_employee.Fields(员工姓名)) rs_employee.MoveNext Next rs_employee.Close End Sub Private Sub Form_Load() cnn.Provider = microsoft.jet.oledb.4.0 cnn.ConnectionString = App.Path \sellsystem.mdb cnn.Open End Sub Private Sub Picture1_Click() End Sub Private Sub Label3_Click() If Combo1.Text = Then