vnleningrat

New Member

Download miễn phí Đề tài Quản lý thu mua chè làm Đề tài cho Luận văn tốt nghiệp của mình





Dạng 1: If then < lệnh> End If

Khi gặp một điều lệnh If .then, Visual Basic sẽ kiểm tra , nếu là True thì máy sẽ thực hiện nếu kêt quả là False thì máy sẽ bỏ qua lệnh và thực hiện những lệnh sau End If.

Dạng 2: If then else

Khi gặp lệnh này, nếu lấy giá trị True thì thực hiện < lệnh 1> bỏ qua , còn nếu lấy giá trị False thì bỏ qua và thực hiện .

Nhiều khi bạn phải thực hiện nhiều lệnh ứng với điều kiện là True hay False. Để làm được điều đó, ta sử dụng dạng khác của cấu trúc If .then, có dạng tổng quát như sau:

If then

 





Để tải tài liệu này, vui lòng Trả lời bài viết, Mods sẽ gửi Link download cho bạn ngay qua hòm tin nhắn.

Ketnooi -


Ai cần tài liệu gì mà không tìm thấy ở Ketnooi, đă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:


1)
imgNav.ListImages.Add , , LoadResPicture("foward_click", 1)
Call DefControls
NewH = True
End Sub
Private Sub Check1_Click()
On Error Resume Next
If Check1.Value = True Then
chkTyleChe.Value = 0
sFrame.Width = 6435
frmLoai2.Visible = True
chkTyleChe.Enabled = True
txtTyleChe.Enabled = True
Else
chkTyleChe.Enabled = False
chkTyleChe.Value = 0
sFrame.Width = 3435
frmLoai2.Visible = False
txtTyleChe.Text = "100"
txtTyleChe.Enabled = False
End If
End Sub
Public Sub TinhTien()
On Error Resume Next
Dim KNuoc As Double 'Khoi luong nuoc trong che
Dim Ktruoc As Double 'Khoi luong ban dau
Dim Ksau As Double 'Khoi luong sau
Dim Che1 As Double 'Khoi luong loai1
Dim Che2 As Double 'Khoi luong loai2
Dim Tong 'As Double
Dim Baobi As Double ' khoi luong bao bi
'##########################################
'Cong thuc tinh
' Khoi luong nuoc = (Khoi luong ban dau - Khoi luong bao bi ) * (Ty le nuoc)
' Khoi luong sau = (Khoi luong truoc) - (Khoi luong nuoc) - (Bao bi)
'-------------------------------------------------------------------------
Ktruoc = CDbl(txtKhoiLuongTruoc.Text)
Baobi = CDbl(txtBaoBi.Text)
KNuoc = (Ktruoc - Baobi) * CDbl(txtTylenuoc.Text) / 100
If chkTyleNuoc.Value = 0 And chkBaobi.Value = 0 Then
lblKhoiLuongSau.Caption = Ktruoc
End If
If chkTyleNuoc.Value = 1 And chkBaobi.Value = 0 Then
lblKhoiLuongSau.Caption = Ktruoc - KNuoc
End If
If chkTyleNuoc.Value = 0 And chkBaobi.Value = 1 Then
lblKhoiLuongSau.Caption = Ktruoc - Baobi
End If
If chkTyleNuoc.Value = 1 And chkBaobi.Value = 1 Then
lblKhoiLuongSau.Caption = Ktruoc - KNuoc - Baobi
End If
Ksau = CDbl(lblKhoiLuongSau.Caption)
If Check1.Value = 0 Then
Che1 = Ksau
Che2 = 0
Else
Che1 = Ksau * CDbl(txtTyleChe.Text) / 100
Che2 = Ksau - (Ksau * CDbl(txtTyleChe.Text) / 100)
End If
Tong = (Che1 * CDbl(txtGia1.Text)) + (Che2 * CDbl(txtGia2.Text))
Tong = Round(Tong, 0)
'----------------------------------------------------------------------
'Quy t¾c lµm trßn : cã 2 lo¹i lµm trßn do biÕn RoundUp (Boolean) quyÕt ®Þnh
' +> RoundUp=True : lµm trßn lªn . NÕu sè lÎ >500 vµ < 1000 th× lµm trßn lªn 1000
' NÕu sè lÎ < 500 thi trßn thµnh 500
' +> RoundUp=False : lµm trßn xuèng . NÕu sè lÎ >500 vµ < 1000 th× lµm trßn xuèng 500
' NÕu sè lÎ < 500 thi trßn thµnh 0
'----------------------------------------------------------------------
If (Tong Mod 1000) > 500 Then
If RoundUp = True Then ' Lµm trßn lªn
Tong = Tong - (Tong Mod 1000) + 1000
Else ' lµm trßn xuèng
Tong = Tong - (Tong Mod 1000) + 500
End If
End If
If (Tong Mod 1000) < 500 Then
If RoundUp = True Then
Tong = Tong - (Tong Mod 1000) + 500
Else
Tong = Tong - (Tong Mod 1000)
End If
End If
' Hµm FormatMoney sÏ ®­a ra ®Þnh d¹ng kiÓu tiÒn .
'VD 1110000 sÏ ®­îc chuyÓn thµnh 1,100,000
lblThanhTien.Caption = FormatMoney(Tong)
If lblThanhTien.Caption = "" Then
lblThanhTien.Caption = "0"
End If
End Sub
Private Sub DisplayPos(CurP As Integer)
On Error Resume Next
Dim i As Byte
With lv.ListItems(CurP)
txtKhoiLuongTruoc.Text = .SubItems(1)
For i = 0 To 3
If cmbLoai1.list(i) = .SubItems(2) Then
cmbLoai1.Text = cmbLoai1.list(i)
Exit For
End If
Next i
txtTyleChe.Text = .SubItems(3)
If .SubItems(4) "" Then
Check1.Value = True
For i = 0 To 3
If cmbLoai2.list(i) = .SubItems(4) Then
cmbLoai2.Text = cmbLoai2.list(i)
Exit For
End If
Next i
lblTyle.Caption = .SubItems(5)
Else
Check1.Value = False
End If
Check1_Click
If .SubItems(6) "0" Then
txtBaoBi.Text = .SubItems(6)
Else
txtBaoBi.Text = "0"
chkBaobi.Value = 0
End If
If .SubItems(7) "0" Then
txtTylenuoc.Text = .SubItems(7)
Else
txtTylenuoc.Text = "0"
chkTyleNuoc.Value = 0
End If
lblKhoiLuongSau.Caption = .SubItems(8)
lblThanhTien.Caption = .SubItems(9)
End With
End Sub
Private Sub SaveData()
' On Error Resume Next
Dim maKH As String
Dim tien As String
maKH = AutoKH
With RsHoaDon
.AddNew
.Fields(0) = lblMaHD.Caption
.Fields(1) = maKH
.Fields(2) = UserName
.Fields(3) = Date
.Fields(5) = CDbl(lblTongKL.Caption)
.Fields(4) = CDbl(lblTongtien.Caption)
If HDNo = True Then
RsTongTien.MoveFirst
.Fields(6) = CDbl(lblTongtien.Caption) - CDbl(RsTongTien.Fields(0))
RsTongTien.Fields(0) = "0"
RsTongTien.update
ElseIf HDNo = False Then
With RsTongTien
.MoveFirst
tien = .Fields(0)
.MoveFirst
.Fields(0) = CDbl(tien) - CDbl(lblTongtien.Caption)
.update
End With
End If
.update
End With
If lblA.Caption "0" Then
Call SaveND(RsNoiDungMua, lblMaHD.Caption, "Lo¹i A", lblA.Caption)
End If
If lblB.Caption "0" Then
Call SaveND(RsNoiDungMua, lblMaHD.Caption, "Lo¹i B", lblB.Caption)
End If
If lblC.Caption "0" Then
Call SaveND(RsNoiDungMua, lblMaHD.Caption, "Lo¹i C", lblC.Caption)
End If
If lblD.Caption "0" Then
Call SaveND(RsNoiDungMua, lblMaHD.Caption, "Lo¹i D", lblD.Caption)
End If
With rsKhachHang
.AddNew
.Fields(0) = maKH
.Fields(1) = txtTenKH.Text
.Fields(2) = txtDiachi.Text
.update
End With
End Sub
Private Sub newHang() ' Khoi tao lai cac Control khi chon nhap them hang
On Error Resume Next
EditHD = False
txtBaoBi.Text = "0"
txtKhoiLuongTruoc.Text = "0"
txtTylenuoc.Text = "0"
chkBaobi.Value = False
chkTyleNuoc.Value = False
Check1.Value = 0
Check1_Click
txtKhoiLuongTruoc.SetFocus
End Sub
Private Sub DefControls()
EditHD = False
lblNote.Caption = ""
lblMaHD.Caption = AutoKey
sFrame.Width = 3435
frmLoai2.Visible = False
End Sub
Private Sub EnableCont()
On Error Resume Next
txtKhoiLuongTruoc.Enabled = True
Check1.Enabled = True
chkTyleNuoc.Enabled = True
chkBaobi.Enabled = True
cmbLoai1.Enabled = True
End Sub
Private Sub ReOrder()
On Error Resume Next
Dim i As Integer
Call ReSum
If lv.ListItems.Count <= 0 Then
Exit Sub
End If
For i = 1 To lv.ListItems.Count
lv.ListItems(i).Text = i
Next i
End Sub
Private Sub ReSum()
On Error Resume Next
lblA.Caption = "0"
lblB.Caption = "0"
lblC.Caption = "0"
lblD.Caption = "0"
lblTongBB.Caption = "0"
lblTongKL.Caption = "0"
lblTongtien.Caption = "0"
If lv.ListItems.Count <= 0 Then
Exit Sub
End If
Dim i As Integer
Dim A As Double
Dim B As Double
Dim C As Double
Dim D As Double
Dim Per As Double
A = 0
B = 0
C = 0
D = 0
For i = 1 To lv.ListItems.Count
With lv.ListItems(i)
Per = CDbl(.SubItems(3)) / 100
If .SubItems(2) = cmbLoai1.list(0) Then
A = A + (Per * .SubItems(8))
End If
If .SubItems(2) = cmbLoai1.list(1) Then
B = B + Per * .SubItems(8)
End If
If .SubItems(2) = cmbLoai1.list(2) Then
C = C + Per * .SubItems(8)
End If
If .SubItems(2) = cmbLoai1.list(3) Then
D = D + Per * .SubItems(8)
End If
If Per < 100 Then ' Che bi lan
Per = CDbl(.SubItems(5)) / 100
If .SubItems(4) = cmbLoai1.list(0) Then
A = A + (Per * .SubItems(8))
End If
If .SubItems(4) = cmbLoai1.list(1) Then
B = B + Per * .SubItems(8)
End If
If .SubItems(4) = cmbLoai1.list(2) Then
C = C + Per * .SubItems(8)
End If
If .SubItems(4) = cmbLoai1.list(3) Then
D = D + Per * .SubItems(8)
End If
End If
lblTongBB.Caption = CDbl(lblTongBB.Caption) + CDbl(lv.ListItems(i).SubItems(6))
lblTongKL.Caption = CDbl(lblTongKL.Caption) + CDbl(lv.ListItems(i).SubItems(8))
lblTongtien.Caption = CDbl(lblTongtien.Caption) + CDbl(lv.ListItems(i).SubItems(9))
End With
Next i
lblA.Caption = A
lblB.Caption = B
lblC.Caption = C
lblD.Caption = D
End Sub
Private Sub SaveND(rsND As ADODB.Recordset, Ma As String, Loai As String, Kl As String)
Dim P As Double
If Loai = "Lo¹i A" Then
P = GiaA
End If
If Loai = "Lo¹i B" Then
P = GiaB
End If
If Loai = "Lo¹i C" Then
P = GiaC
End If
If Loai = "Lo¹i D" Then
P = GiaD
End If
With rsND
.AddNew
.Fields(0) = Ma ' Ma hoa don
.Fields(1) = Loai ' Loai che
.Fields(2) = P ' Gia che
.Fields(7) = Kl ' Khoi luong
.Fields(8) = CDbl(P) * CDbl(Kl)
.update
End With
End Sub
Private Sub update(mahd As String)
Dim gia, klt, klt1, tt As Double
Dim i As Integer
Dim Sql As String
Dim cmd As ADODB.Command
If lv.ListItems.Count = 0 Then
Exit Sub
End If
'Call GetOldData
Set cmd = New ADODB.Command
For i = 1 To lv.ListItems.Count
If lv.ListItems(i).SubItems(4) = "" Then
If lv.ListItems(i).SubItems(2) = "Lo¹i A" Then
gia = GiaA
ElseIf lv.ListItems(i).SubItems(2) = "Lo¹i B" Then
gia = GiaB
ElseIf lv.ListItems(i).SubItems(2) = "Lo¹i C" Then
gia = GiaC
ElseIf lv.ListItems(i).SubItems(2) = "Lo¹i D" Then
gia = GiaD
End If
Sql = "insert into tbl_noidungmua(mahd,loaiche,giache,khoiluongbd,phantramche,tylenuoc,baobi,khoiluongsau,giatri) values('" & mahd & "','" & lv.ListItems(i).SubItems(2) & "','" & CStr(gia) & "','" & lv.ListItems(i).SubItems(1) & "','" & lv.ListItems(i).SubIt...

 
Các chủ đề có liên quan khác
Tạo bởi Tiêu đề Blog Lượt trả lời Ngày
D Tình hình thu gom và quản lý rác thải sinh hoạt ở Chợ Đầu Mối Phường Phú Hậu Thành Phố Huế Luận văn Kinh tế 0
D sâu xanh da láng (spodoptera exigua hubner) hại hành hoa và biện pháp quản lý tổng hợp chúng trong vụ hè thu Nông Lâm Thủy sản 0
D Báo cáo tốt nghiệp quản lý doanh thu trong doanh nghiệp Luận văn Kinh tế 0
D Nghiên cứu ứng dụng giao thông thông minh (ITS) trong quản lý khai thác, điều hành giao thông và thu phí trên hệ thống đường ô tô cao tốc Việt Nam Luận văn Kinh tế 0
D Quản lý nhà nước về thu hút vốn đầu tư vào các khu công nghiệp trên địa bàn tỉnh Thái Nguyên Luận văn Kinh tế 0
D Thiết kế hệ thống quản lý, thu gom và xử lý chất thải rắn cho thành phố Hội An + bản vẽ Khoa học Tự nhiên 0
D Hoàn thiện công tác quản lý tài chính các hoạt động có thu ở các đơn vị dự toán thuộc quân khu i Luận văn Kinh tế 0
D Xây dựng chương trình quản lý thu chi của trường ĐHDL Hải Phòng Luận văn Kinh tế 2
H Một số giải pháp nhằm hoàn thiện công tác tập trung quản lý thu NSNN qua KBNN huyện Phong thổ Luận văn Kinh tế 0
Q Hoàn thiện quản lý thu quỹ BHXH trên địa bàn huyện Mỹ Đức - Tỉnh Hà Tây Luận văn Kinh tế 0

Các chủ đề có liên quan khác

Top