|
第三章 系统的设计 内容来自www.paper51.com 3．1 系统的功能结构设计 内容来自www.paper51.com 本系统主要功能模块由:1.系统设置:锁定系统,操作员入口,登陆设置. http://www.paper51.com 2.采购信息:采购单,采购查询,采购统计. 内容来自www.paper51.com
3.库存:元件登记,产品登记,库存查询. 内容来自www.paper51.com 4.入库信息:入库单,入库查询,入库统计 内容来自www.paper51.com
5.出库信息:出库单,出库查询,出库统计 paper51.com 6.数据维护:供应商信息,数据维护 内容来自论文无忧网 www.paper51.com 7.模拟配货:公司材料模拟组成,公司材料模拟配套 内容来自论文无忧网 www.paper51.com 8.工具管理:工具库存,入库管理.出库管理,入库管理 paper51.com 9.退出 内容来自www.paper51.com 3．2 界面设计与代码设计 http://www.paper51.com 创建新用户界面 paper51.com
http://www.paper51.com 创建新用户源代码: http://www.paper51.com
Private Sub CmdOk_Click() 内容来自www.paper51.com On Error GoTo gl http://www.paper51.com
IfTxt(1).Enabled = False Then paper51.com If rs.State Then http://www.paper51.com rs.Close 内容来自www.paper51.com
End If copyright paper51.com rs.Source = "select *from usertable where username= '" & MSF.TextMatrix(MSF.row, 0) &"'" 内容来自www.paper51.com rs.Open , cn, adOpenKeyset, adLockOptimistic 内容来自www.paper51.com
rs!UserName = Trim(Txt(0).Text) 内容来自论文无忧网 www.paper51.com rs.Update 内容来自论文无忧网 www.paper51.com rs.Close 内容来自论文无忧网 www.paper51.com
Set rs = Nothing 内容来自论文无忧网 www.paper51.com MSF.TextMatrix(MSF.row, 0) = Txt(0).Text copyright paper51.com
CmdAdd.Enabled = True paper51.com CmdAdd.SetFocus 内容来自www.paper51.com Exit Sub paper51.com
End If paper51.com
CmdCancel.Enabled= False copyright paper51.com IfLen(Trim(Txt(2).Text)) = 0 Or Len(Trim(Txt(0).Text)) = 0 OrLen(Trim(Txt(1).Text)) = 0 Then http://www.paper51.com
MsgBox" 数据不完整，请检查！ ", , "提示信息" http://www.paper51.com Exit Sub paper51.com EndIf paper51.com
IfTrim(Txt(2).Text) <> Trim(Txt(1).Text) Then http://www.paper51.com MsgBox" 两次密码值不相等！ ", , ginfo 内容来自论文无忧网 www.paper51.com Exit Sub http://www.paper51.com
EndIf copyright paper51.com Setrs = New ADODB.Recordset 内容来自论文无忧网 www.paper51.com rs.Source = "select *from usertable order by id" http://www.paper51.com
rs.Open , cn, adOpenKeyset,adLockOptimistic 内容来自论文无忧网 www.paper51.com Ifrs.RecordCount <> -1 Then copyright paper51.com rs.MoveLast copyright paper51.com Idadd = rs!ID copyright paper51.com
Else 内容来自论文无忧网 www.paper51.com Idadd = 1 内容来自www.paper51.com End If 内容来自论文无忧网 www.paper51.com
IfFlg Then rs.AddNew paper51.com rs!ID = Idadd + 1 copyright paper51.com rs!UserName = Txt(0).Text copyright paper51.com rs!userpwd = Txt(1).Text paper51.com rs!userdep = UsrDepartment 内容来自论文无忧网 www.paper51.com rs.Update 内容来自论文无忧网 www.paper51.com rs.Close paper51.com Setrs = Nothing paper51.com
MSF.AddItem Txt(0).Text 内容来自论文无忧网 www.paper51.com CmdAdd.Enabled = True copyright paper51.com CmdOk.Enabled = False 内容来自www.paper51.com CmdDelete.Enabled = False 内容来自论文无忧网 www.paper51.com CmdAdd.SetFocus http://www.paper51.com ExitSub http://www.paper51.com
gl: MsgBox err.Description 内容来自www.paper51.com
End Sub copyright paper51.com
Private Sub cmdpwdedit_Click() paper51.com frmChangePassword.Show 1 内容来自www.paper51.com End Sub 内容来自www.paper51.com Private Sub Form_Load() http://www.paper51.com UsrDepartment = "MainManager" 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com LoadUserToMsfObject paper51.com End Sub 内容来自论文无忧网 www.paper51.com 采购单界面: copyright paper51.com copyright paper51.com 采购单源代码: copyright paper51.com Private Sub Command3_Click() 内容来自论文无忧网 www.paper51.com RsbuydTmp.Filter = " ename='" &Trim(dtgrd.Columns(0).Text) & "' And etype = '" &Trim(dtgrd.Columns(1).Text) & "'" paper51.com
Toolbar1.Buttons(6).Enabled = False 内容来自论文无忧网 www.paper51.com If dtgrd.row <> -1 Then 内容来自www.paper51.com Re = MsgBox("您确定要删除表格中的记录吗?", vbYesNo + vbQuestion + vbDefaultButton2, ginfo) http://www.paper51.com If Re = 6 Then 内容来自论文无忧网 www.paper51.com RsbuydTmp.Delete adAffectCurrent paper51.com
RsbuydTmp.UpdateBatch adAffectCurrent copyright paper51.com
RsbuydTmp.Requery paper51.com End If 内容来自论文无忧网 www.paper51.com End If copyright paper51.com
Ado.RecordSource = "select * from grdbuy" 内容来自www.paper51.com Ado.CursorLocation = adUseClient copyright paper51.com Ado.Refresh 内容来自论文无忧网 www.paper51.com Set dtgrd.DataSource = Ado 内容来自www.paper51.com dtgrd.Refresh paper51.com RsbuydTmp.Filter = "" 内容来自www.paper51.com RsbuydTmp.Requery 内容来自论文无忧网 www.paper51.com
copyright paper51.com End Sub http://www.paper51.com 库存查询界面: 内容来自www.paper51.com
copyright paper51.com 库存界面源代码: paper51.com Private Sub CmdOk_Click() http://www.paper51.com On Error GoTo gl 内容来自www.paper51.com Dim SQL As String 内容来自www.paper51.com If opt1.Value Then paper51.com IfTrim(txtname) <> "" Then 内容来自论文无忧网 www.paper51.com SQL = "ename like '%" & Trim(txtname) & "%'" paper51.com End If 内容来自www.paper51.com
RsE.Filter = SQL copyright paper51.com
If Not (RsE.BOF Or RsE.EOF) Then copyright paper51.com Setdtgrd2.DataSource = RsE 内容来自论文无忧网 www.paper51.com Else 内容来自论文无忧网 www.paper51.com MsgBox "没有找到记录!", , ginfo paper51.com
RsE.Filter = "" http://www.paper51.com End If http://www.paper51.com Else http://www.paper51.com If Trim(txtname) <> "" Then copyright paper51.com SQL = "Pname='" & Trim(txtname) & "'" paper51.com
End If paper51.com RsP.Filter = SQL paper51.com
If Not (RsP.BOF Or RsP.EOF) Then 内容来自www.paper51.com Set dtgrd1.DataSource = RsP http://www.paper51.com
Else paper51.com MsgBox " 没有找到记录！", , ginfo paper51.com RsP.Filter = "" copyright paper51.com End If copyright paper51.com End If 内容来自www.paper51.com Exit Sub http://www.paper51.com
gl: MsgBox err.Description 内容来自论文无忧网 www.paper51.com End Sub paper51.com |