企業(yè)合同管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-文庫(kù)吧資料
2024-08-20 11:52本頁(yè)面
【正文】 ate Sub Command3_Click()Dim sak As IntegerOn Error Resume Nextask = MsgBox(刪除否?, vbYesNo)If ask = 6 ThenIf Then End IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Command5_Click()If Then = TrueEnd SubPrivate Sub Command6_Click()If Then = TrueEnd SubPrivate Sub Command7_Click() = FalseEnd Sub本模塊提供了兩種查詢方式：編號(hào)查詢、姓名查詢，也可以點(diǎn)擊“查詢?nèi)俊卑粹o查詢所有客戶信息。Set = Adodc1End IfEnd Sub本模塊提供文本框輸入客戶相關(guān)基本信息，單擊“添加”按鈕完成客戶信息的保存，單擊“退出”按鈕返回主菜單。 Trim() amp。Set = Adodc1End IfIf = True Then = adCmdText = select * from 員工信息表 where 員工姓名=39。 Trim() amp。 員工信息查詢界面代碼如下：Private Sub Command1_Click() = adCmdText = select * from 員工信息表 Set = Adodc1End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command4_Click()If = True Then = adCmdText = select * from 員工信息表 where 員工編號(hào) =39。 員工信息添加界面代碼如下：Private Sub Command1_Click()On Error Resume NextIf = 添加 Then = 確定Else = 添加MsgBox 員工信息添加完成End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub本模塊可以選擇相應(yīng)員工的信息進(jìn)行修改刪除，點(diǎn)擊修改、刪除按鈕分別完成員工信息修改、刪除，點(diǎn)擊退出按鈕、返回主控界面。!) = = End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Timer1_Timer() = + 36If Then = End IfEnd Sub本模塊功能是在啟動(dòng)窗體的同時(shí)，進(jìn)行數(shù)據(jù)庫(kù)的連接操作。200。202。208。214。代碼如下：Private Sub Command1_Click(Index As Integer)If = 11 And = 11 ThenUnload MeElseresponse = MsgBox(199。如表33所示：表33 合同信息表中文字段名數(shù)據(jù)類型寬度是否為空說(shuō)明合同編號(hào)text50no合同名稱text50no合同描述Textno客戶名稱Textno合同金額數(shù)字50no簽約人Textno合同起始日期Dateno合同終止日期Date已付款數(shù)字備注Text本模塊提供系統(tǒng)啟動(dòng)功能，點(diǎn)擊“進(jìn)入系統(tǒng)”按鈕完成系統(tǒng)的啟動(dòng)，點(diǎn)擊“退出系統(tǒng)”完成系統(tǒng)的退出。登錄模塊企業(yè)合同管理系統(tǒng)員工信息管理客戶信息管理合同信息管理 總體框架員工管理添加修改刪除查詢 員工管理客戶管理添加修改刪除查詢 客戶管理合同管理添加修改刪除查詢圖 合同管理根據(jù)系統(tǒng)的需求，利用ACCESS數(shù)據(jù)庫(kù)管理系統(tǒng)，分別建立員工信息表、客戶信息表、合同信息表，具體如下：（1）員工信息表，用于對(duì)員工信息的編號(hào)、姓名、部門、性別、生日、職務(wù)進(jìn)行定義，如表31所示：表31員工信息表字段名（中文）數(shù)據(jù)類型寬度是否為空說(shuō)明員工編號(hào)Text10no員工姓名Text10no部門Text
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1