數(shù)據(jù)庫(kù)商品銷售管理系統(tǒng)課程設(shè)計(jì)-在線瀏覽
2024-11-05 19:14本頁(yè)面
【正文】 Dim MESSAGE As String = Tim If = (密碼) Then Load frm_main czy = Unload Me Else If Tim = 3 Then MESSAGE = MsgBox(密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢!, 0, ) If MESSAGE = vbOK Then End End If If (密碼) Then MsgBox (密碼錯(cuò)誤,請(qǐng)重新輸入密碼!) Tim = Tim + 1 End If End If Else Unload Me End If End SubPrivate Sub cmd2_Click() EndEnd Sub 2 主窗體該窗體是本系統(tǒng)的統(tǒng)籌界面。在標(biāo)題欄上顯示軟件名稱及版本 = amp。 amp。 amp。 Dim i As Integer 39。 amp。 amp。 End SubPublic Sub updateStatusBar(ByVal PanelNum As Integer, ByVal StringVal As String, ByVal Bitmap As Boolean) If Not Bitmap Then (panelnume).Text = StringVal Else End If End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)39。調(diào)入銷售窗口 xskd_Click Case Is = xsth 39。調(diào)入銷售查詢窗口 xscx_Click Case Is = xsbb 39。調(diào)入銷售收款窗口 xssk_Click Case Is = kh 39。調(diào)入銷售員信息管理窗口 xsyxxgl_Click Case Is = help 39。Private Sub Timer1_Timer() 39。 (1).Text = Format(Date, long date) amp。 Time39。調(diào)入銷售窗口 Load main_rcyw_xs = FalseEnd SubPrivate Sub xssk_Click() 39。調(diào)入銷售退貨窗口 Load main_rcyw_xsth = FalseEnd SubPrivate Sub xscx_Click() 39。調(diào)入銷售退貨查詢窗口 Load main_cxtj_xsthcx = FalseEnd SubPrivate Sub skcx_Click() 39。調(diào)入庫(kù)存商品查詢窗口 Load main_cxtj_kccx = FalseEnd SubPrivate Sub khxshzb_Click() 39。調(diào)入客戶銷售明細(xì)表 Load main_xsbb_khxsmxb = FalseEnd SubPrivate Sub spxshzb_Click() 39。調(diào)入商品銷售明細(xì)表 Load main_xsbb_spxsmxb = FalseEnd SubPrivate Sub ywyxshzb_Click() 39。調(diào)入業(yè)務(wù)員銷售明細(xì)表 Load main_xsbb_ywyxsmxb = FalseEnd SubPrivate Sub spxxgl_Click() 39。調(diào)入銷售員信息管理窗口 Load main_jbxx_xsrycx = FalseEnd SubPrivate Sub khxxgl_Click() 39。調(diào)入操作員及密碼管理窗口 Load main_xtsz_czysz = FalseEnd SubPrivate Sub qxsz_Click() 39。調(diào)入初始化窗口 Load main_xtsz_xtcsh = FalseEnd SubPrivate Sub myhelp_Click() 39。調(diào)入關(guān)于窗口 Load frmAbout = FalseEnd SubPrivate Sub exit_Click() EndEnd SubPrivate Sub 退出_Click() EndEnd Sub3 日常業(yè)務(wù)（1）銷售開票在這個(gè)窗口能看到已經(jīng)銷售所開的票 商品登記所用程序： If KeyCode = vbKeyReturn Then With If .RecordCount 0 Then 39。賦值給MS1表格 If .Fields(商品名稱) Then (, 1) = Trim(.Fields(商品名稱)) If .Fields(商品編號(hào)) Then (, 2) = Trim(.Fields(商品編號(hào))) If .Fields(規(guī)格) Then (, 3) = Trim(.Fields(規(guī)格)) If .Fields(產(chǎn)地) Then (, 4) = Trim(.Fields(產(chǎn)地)) If .Fields(單位) Then (, 5) = Trim(.Fields(單位)) If .Fields(單價(jià)) Then (, 6) = .Fields(單價(jià)) = 39。text1獲得焦點(diǎn) = 6 = False 39。按ESC鍵grid1不可見(jiàn) = False 39。退貨信息所用程序：Private Sub Command1_Click() Dim r As Integer For i = 0 To 12 = i ( 1, i) = Next i (1)End SubPrivate Sub Command2_Click() Dim r, c As Integer select * from 銷售退貨信息表, Cnn, adOpenKeyset, adLockOptimistic 39。添加新記錄到銷售信息表表中 For c = 0 To 12 (c) = Trim((r, c)) Next c (退貨日期) = Date Next r MsgBox 退貨成功！, , 明日軟件End SubPrivate Sub Command3_Click() Call CmdEnd(Me)End SubPrivate Sub DataCombo1_Click(Area As Integer) = select * from 銷售信息表 where 票號(hào)=39。 End SubPrivate Sub DataGrid1_Click()End Sub4 客戶銷售匯總表客戶銷售匯總：Private Sub Form_Activate() 39。向bo2中添加查詢條件列表 (like) (=) = 0 39。定義顯示數(shù)據(jù)的函數(shù) For i = 0 To 13 If 0 Then kh(i).Text = (i) Else kh(i).Text = Next iEnd SubPrivate Sub Form_Activate() 39。打開客戶信息表 select * from 客戶信息表 order by 客戶編號(hào), Cnn, adOpenKeyset, adLockOptimistic If 0 Then For i = 0 To 13 If
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1