1. Home
  2. Tài liệu khác
  3. Phân tích hệ thống thông tin quản lý bán hàng

Phân tích hệ thống thông tin quản lý bán hàng - pdf 16

Download miễn phí Đề tài Phân tích hệ thống thông tin quản lý bán hàng



Những ứng dụng Visual Basic có thể đáp ứng một số lượng lớn sự kiện chuột, bàn phím. Ví dụ FORM, hộp ảnh và những điều khiển ảnh có thể phát hiện vị trí con trỏ chuột có thể quyết định phím trái hay phím phải được nhấn,và có thể đáp ứng được những tổ hợp của phím chuột với phím Shift, Ctrl hay Alt. Sử dụng những điều khiển phím, ta có thể lập trình những điều khiển và FORM để đáp ứng các hành động phím hay phiên dịch bộ mã Ascii của ký tự.
 



Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phí

Tóm tắt nội dung tài liệu:

, SQLTimkiemKH
If dataKhachhangLoc.Recordset.RecordCount = 0 Then
MsgBox "Không tìm thấy khách hàng có mã: " & cboKhachhangLocMa.Text & "", vbInformation, "Thông báo"
cboKhachhangLocMa.SelStart = 0
cboKhachhangLocMa.SelLength = Len(cboKhachhangLocMa.Text)
Exit Sub
Else
lblKQTK.Visible = True
End If
loi:
End Sub
Private Sub Form_Load()
Dim SQL As String
SQL = "Select KhachhangID From tblKhachhang"
HienForm Me
CauhinhLuoiPhu VSFlexGridKhachhangLoc
KhoitaoADODB SQL
With cboKhachhangLocMa
.AddItem "Tất cả"
End With
With rsado
Do Until .EOF = True
cboKhachhangLocMa.AddItem .Fields("KhachhangID").Value
.MoveNext
Loop
.Close
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
cnado.Close
Set cnado = Nothing
End Sub
Option Explicit
Private Sub cmdBangtinh_Click()
On Error GoTo loi
Shell "C:\WINDOWS\CALC.EXE", vbMaximizedFocus
loi:
Exit Sub
End Sub
Private Sub cmdBCBHTheoHH_Click()
rptBCBHTheoHH.Show
End Sub
Private Sub cmdBCBHTheoNCC_Click()
rptBCBHTheoNCC.Show
End Sub
Private Sub cmdBCBHTheonhom_Click()
rptBCBHTheoNhomHH.Show
End Sub
Private Sub cmdBCBHTheoNV_Click()
rptBCBHTheoNV.Show
End Sub
Private Sub cmdBCBHTheoQui_Click()
imgMuiten.Visible = True
frmQui.Show
End Sub
Private Sub cmdBCDSSP_Click()
frmBCHang.Show
imgMuiten1.Visible = True
End Sub
Private Sub cmdBCBHTheothang_Click()
rptBCBHTheoThang.Show
End Sub
Private Sub cmdBCDSHH_Click()
imgMuiten1.Visible = True
frmBCHang.Show
End Sub
Private Sub cmdBCDSKhach_Click()
rptDSKhachhang.Show
End Sub
Private Sub cmdExcel_Click()
On Error GoTo loi
Shell "C:\Program Files\Microsoft Office\Office\EXCEL.EXE", vbMaximizedFocus
loi:
Exit Sub
End Sub
Private Sub cmdHanghoa_Click()
frmSanpham.Show
End Sub
Private Sub cmdLuuDL_Click()
On Error GoTo loi
Dim Ten As String
With comdHopthoai
.CancelError = True
.DialogTitle = "Bạn phải đặt tên File thì mới Backup được dữ liêu"
.Filter = "Text Files(*.txt)|*.txt|Microsoft Words(*.doc)|*.doc|All Files(*.*)|*.*"
.FilterIndex = 1
.MaxFileSize = 200
.InitDir = "C:\QLKH\Backup"
.ShowSave
Screen.MousePointer = 99
Screen.MouseIcon = LoadPicture("C:\QLKH\GRAPHICS\CURSORS\Wait07.cur")
Ten = frmChitietHD.VSFlexGrid1ChitietHD.Name
frmChitietHD.VSFlexGrid1ChitietHD.SaveGrid .InitDir & "\" & Right$(Ten, Len(Ten) - 10) & ".txt", flexFileAll
Ten = frmHDBanhang.VSFlexGrid1HD.Name
frmHDBanhang.VSFlexGrid1HD.SaveGrid .InitDir & "\" & Right$(Ten, Len(Ten) - 10) & ".txt", flexFileAll
Ten = frmKhachhang.VSFlexGridKhachhang.Name
frmKhachhang.VSFlexGridKhachhang.SaveGrid .InitDir & "\" & Right$(Ten, Len(Ten) - 10) & ".txt", flexFileAll
Ten = frmNguoigui.VSFlexGrid1NgGui.Name
frmNguoigui.VSFlexGrid1NgGui.SaveGrid .InitDir & "\" & Right$(Ten, Len(Ten) - 10) & ".txt", flexFileAll
Ten = frmNhaCCap.VSFlexGrid1Ncc.Name
frmNhaCCap.VSFlexGrid1Ncc.SaveGrid .InitDir & "\" & Right$(Ten, Len(Ten) - 10) & ".txt", flexFileAll
Ten = frmNhanvienbanhang.VSFlexGrid1Nnbh.Name
frmNhanvienbanhang.VSFlexGrid1Nnbh.SaveGrid .InitDir & "\" & Right$(Ten, Len(Ten) - 10) & ".txt", flexFileAll
Ten = frmNhomSP.VSFlexGrid1NhomHH.Name
frmNhomSP.VSFlexGrid1NhomHH.SaveGrid .InitDir & "\" & Right$(Ten, Len(Ten) - 10) & ".txt", flexFileAll
Ten = frmSanpham.VSFlexGrid1SP.Name
frmSanpham.VSFlexGrid1SP.SaveGrid .InitDir & "\" & Right$(Ten, Len(Ten) - 10) & ".txt", flexFileAll
MousePointer = 0
End With
loi:
End Sub
Private Sub cmdLuuDL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblChuthich
.Visible = True
.Caption = "Cho phép bạn lưu bảng dữ liệu lên tệp *.txt với tên tệp được đặt tự động"
End With
End Sub
Private Sub cmdNapDL_Click()
frmXemDLCu.Show
End Sub
Private Sub cmdNapDL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblChuthich
.Visible = True
.Caption = "Cho phép bạn xem dữ liệu đẫ được backup lên tệp *.txt"
End With
End Sub
Private Sub cmdNhapCTietHD_Click()
frmChitietHD.Show
End Sub
Private Sub cmdNhapHDBH_Click()
frmHDBanhang.Show
End Sub
Private Sub cmdNhapKhachhang_Click()
frmKhachhang.Show
End Sub
Private Sub cmdNhapNCC_Click()
frmNhaCCap.Show
End Sub
Private Sub cmdNhapNguoigui_Click()
frmNguoigui.Show
End Sub
Private Sub cmdNhapNhomSP_Click()
frmNhomSP.Show
End Sub
Private Sub cmdThoatCT_Click()
Unload Me
End Sub
Private Sub cmdQLNSD_Click()
MsgBox "chức năng này sẽ được phát triển trong phiên bản sau", vbInformation, "Thông báo"
End Sub
Private Sub cmdQLNSD_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblChuthich
.Visible = True
.Caption = "chức năng này chưa được nghiên cứu,xin bạn hãy chờ đến phiên bản sau"
End With
End Sub
Private Sub cmdThoat_Click()
Unload Me
End Sub
Private Sub cmdTonghop_Click()
imgMuiten2.Visible = True
frmTonghop.Show
End Sub
Private Sub cmdTonghop_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblChuthichTH
.Visible = True
.Caption = "Cho phép ta xem thông tin dưới dạng lưới cô đọng hay có thể xuất dữ liệu lên Excel"
End With
End Sub
Private Sub cmdTrogiup_Click()
MsgBox "chức năng này sẽ được phát triển trong phiên bản sau.", vbInformation, "Thông báo"
End Sub
Private Sub cmdTrogiup_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblChuthich
.Visible = True
.Caption = "chức năng này chưa có"
End With
End Sub
Private Sub cmdWord_Click()
On Error GoTo loi
Shell "C:\Program Files\Microsoft Office\Office\WINWORD.EXE", vbMaximizedFocus
loi:
Exit Sub
End Sub
Private Sub cmdXemTT_Click()
frmTreeView.Show
End Sub
Private Sub cmdXemTT_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblChuthichTT
.Visible = True
.Caption = "Cung cấp thông tin một cách trực quan về kết quả bán hàng của từng nhân viên,hàng hoá v.v..."
End With
End Sub
Private Sub cmdXoaDL_Click()
If MsgBox("Thực hiện công việc này sẽ làm cho dữ liệu bị xoá hết.Bạn có muốn tiếp tục hay không?", vbYesNo + vbCritical, "Thông báo") = vbYes Then
XoaTatCaDL frmChitietHD.dataCTHD
XoaTatCaDL frmHDBanhang.dataHDBH
XoaTatCaDL frmNhanvienbanhang.dataNvbh
XoaTatCaDL frmKhachhang.dataKhachhang
XoaTatCaDL frmNguoigui.dataNguoigui
XoaTatCaDL frmSanpham.dataSanpham
XoaTatCaDL frmNhaCCap.dataNhaCC
XoaTatCaDL frmSanpham.dataSanpham
Else
Exit Sub
End If
End Sub
Private Sub cmdXoaDL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblChuthich
.Visible = True
.Caption = "Nghịch vào đây sẽ rất nguy hiển,dữ liệu sẽ bị mất tất,hãy cẩn thận nhé."
End With
End Sub
Private Sub cmnNhapNVBH_Click()
frmNhanvienbanhang.Show
End Sub
Private Sub Form_Load()
HienForm Me
Me.tabLienket.Tab = 0
lblChuchay.Top = 120
lblChuchay.Left = Picture2.Width
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload frmQui
Unload frmBCHang
Unload frmTonghop
Unload frmDothi
Unload frmXemDLCu
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblChuthichTT
.Visible = False
End With
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblChuthichTH
.Visible = False
End With
End Sub
Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblChuthich
.Visible = False
End With
End Sub
Private Sub Timer1_Timer()
Dim X As Integer
X = 15
If lblChuchay.Left > -lblChuchay.Width Then
lblChuchay.Left = lblChuchay.Left - X
Else
lblChuchay.Left = frmLienket.Picture2.Width
'Timer1_Timer
End If
End Sub
Option Explicit
Private GuiTT As String
Private Sub cmdLocnhanh_Click()
frmNguoiguiLoc.Show
End Sub
Private Sub cmdLuu_Click()
'Gọi thủ tục KhoitaolucLuu
KhoitaoControlsLucLuu Me
With dataNguoigui.Recordset
.Fields("MaNGui").Value = txtNgGuiMa.Text
.Fields("TenCtyGui").Value = txtNgGuiTenCty.Text
.Fields("Dienthoai").Value = txtNgGuiDThoai.Text
.Fields("Fax").Value = txtNgGuiFax.Text
.Fields("Email").Value = txtNgGuiE_mail.Text
.Fields("Wedside").Value = txtNgGuiSide.Text
.Update
End With
dataNguoigui.Refresh
'Gọi thủ tục
dataNguoigui.Recordset.MoveLast
Vohieuhoa Me
End Sub
Private Sub cmdThem_Click()
Dim SQLMatudong As String
SQLMatudong = "Select Max([MaNGui]) as Lonnhat From tblNguoigui"
'Gọi thủ tục tạo data kết nối cho txtNguoiguiMa
Ketnoi dataMatudong, SQLMatudong
dataNguoigui.Rec...
Yêu cầu Download

Tài liệu, ebook tham khảo khác

Học thêm

Music ♫

Copyright: Tài liệu đại học © DMCA.com Protection Status