销售系统课程设计 - 图文(5)

HZ制药公司的销售管理信息系统设计

附录

6.1 登录窗体程序编程

Private Sub Command1_Click()

If Text1.Text = \Unload Me Form3.Show Else

MsgBox \用户名或密码错误，请重新登录！\Text1.Text = \Text2.Text = \Text1.SetFocus End If

第 25 页 共 28 页

HZ制药公司的销售管理信息系统设计

End Sub

6.2 销售系统订货窗口编程程序

Option Explicit

Dim mblnaddmode As Boolean

Private Sub Adodc1_MoveComplete(ByVal adReason ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) If mblnaddmode = False Then

If Adodc1.Recordset.BOF = True Or Adodc1.Recordset.EOF = True Then Exit Sub End If

Text1.Text = Adodc1.Recordset.Fields(\订货人员ID\Text2.Text = Adodc1.Recordset.Fields(\姓名\Text3.Text = Adodc1.Recordset.Fields(\电话\ End If End Sub

Private Sub Command1_Click() Command1.Enabled = False Command3.Enabled = True Command2.Enabled = False Text1.Text = \Text2.Text = \Text3.Text = \

mblnaddmode = True

Adodc1.Recordset.AddNew

End Sub

Private Sub Command2_Click() Adodc1.Recordset.Delete Adodc1.Refresh End Sub

Private Sub Command3_Click() On Error Resume Next

Adodc1.Recordset.Fields(\订货人员ID\Adodc1.Recordset.Fields(\姓名\ Adodc1.Recordset.Fields(\电话\Command1.Enabled = True

第 26 页 共 28 页

As As

HZ制药公司的销售管理信息系统设计

End Sub

Private Sub Command4_Click() Form3.Visible = True Form2.Visible = False End Sub

Private Sub DataGrid1_Click()

End Sub

Private Sub Form_Load() Adodc1.Refresh

Text1.Text = Adodc1.Recordset.Fields(\订货人员ID\Text2.Text = Adodc1.Recordset.Fields(\姓名\Text3.Text = Adodc1.Recordset.Fields(\电话\mblnaddmode = False End Sub

第 27 页 共 28 页