數(shù)據(jù)庫原理與應(yīng)用課程設(shè)計報告-倉庫管理系統(tǒng)-在線瀏覽
2025-03-25 21:14本頁面
【正文】 Single) If Button 1 Then Exit Sub If 權(quán)限類別 (11) 0 Then M 倉庫信息 _Click End Sub Private Sub L 單據(jù)查詢 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button 1 Then Exit Sub If 權(quán)限類別 (6) 0 Then M 單據(jù)查詢 _Click End Sub Private Sub 當(dāng)前日期 _Click() 表 .Show vbModal End Sub Private Sub 登記新供應(yīng)商 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button 1 Then Exit Sub If 權(quán)限類別 (4) 0 Then M 供應(yīng)商 _Click End Sub Private Sub 登記新貨物 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button 1 Then Exit Sub If 權(quán)限類別 (12) 0 Then M 貨物信息 _Click End Sub Private Sub 登記新客戶 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button 1 Then Exit Sub If 權(quán)限類別 (5) 0 Then M 往來客戶 _Click End Sub Private Sub 登記新職員 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button 1 Then Exit Sub If 權(quán)限類別 (10) 0 Then 職員信息 .Show vbModal End Sub Private Sub 給作者寫信 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As 8 Single) If Button 1 Then Exit Sub ShellExecute 0, , mailto:, , , 5 End Sub Private Sub 更換用戶登陸 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button 1 Then Exit Sub vbModal End Sub Private Sub L 貨物出入統(tǒng)計 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button 1 Then Exit Sub If 權(quán)限類別 (6) 0 Then M 貨物出入統(tǒng)計 _Click End Sub Private Sub L 庫存查詢 _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button 1 Then Exit Sub If 權(quán)限類別 (6) 0 Then M 庫存查詢 _Click End Sub 圖 Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() = DataConnectString SQL = Set = Adodc1 = False 9 = DataConnectString Set = Adodc2 = 倉庫名稱 = False = DataConnectString Set = Adodc1 = False initdatagrid1 End Sub 圖 rivate Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) On Error Resume Next Dim caption As String caption = (ColIndex).caption If caption = 經(jīng)辦人 Then caption = 姓名 If caption = 金額 Then Exit Sub If caption = 備注 Then caption = 入庫單 .備注 If caption = 編號 Then caption = 入庫單 .編號 10
公司管理相關(guān)推薦
鄂ICP備17016276號-1