毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VB进销存管理系统毕业论文 第7页

更新时间:2010-2-25:  来源:毕业论文
VB进销存管理系统毕业论文 第7页
Format(dsRec.Fields("CKDJ").Value, "##,##0.00"))
    itmX.SubItems(9) = IIf(dsRec.Fields("CKJE").Value = "", "", Format(dsRec.Fields("CKJE").Value, "##,##0.00")) '
    itmX.SubItems(10) = rd_theSL
    itmX.SubItems(11) = Format(m_drCash, "##,##0.00")
    dsRec.MoveNext
Loop
End Sub

Private Sub DoStyle()
Dim intWid As Integer
intWid = 1200
LstView.ColumnHeaders.Add , , "序号", 600
LstView.ColumnHeaders.Add , , "日期", 1000, lvwColumnRight
LstView.ColumnHeaders.Add , , "凭证编号", intWid, lvwColumnRight
LstView.ColumnHeaders.Add , , "摘要", intWid, lvwColumnRight
LstView.ColumnHeaders.Add , , "收入数量", intWid, lvwColumnRight
LstView.ColumnHeaders.Add , , "收入单价", intWid, lvwColumnRight
LstView.ColumnHeaders.Add , , "收入金额", intWid, lvwColumnRight
LstView.ColumnHeaders.Add , , "发出数量", intWid, lvwColumnRight
LstView.ColumnHeaders.Add , , "发出单价", intWid, lvwColumnRight
LstView.ColumnHeaders.Add , , "发出金额", intWid, lvwColumnRight
LstView.ColumnHeaders.Add , , "结存数量", intWid, lvwColumnRight
LstView.ColumnHeaders.Add , , "结存金额", intWid, lvwColumnRight
End Sub
Private Sub Form_Resize()
On Error Resume Next
LstView.Move 0, 100 + 500 + 50, Me.ScaleWidth, Me.ScaleHeight - Me.StatusBar1.Height - 650
End Sub

Private Function GetInitData(m_giNum As Single, m_giCash As Double) As Boolean
Dim drRec_1 As ADODB.Recordset
Dim drRec_2 As ADODB.Recordset
Dim drSQL As String
GetInitData = True
m_giNum = -2002.1994
m_giCash = -2002.1994
drSQL = "select * from T_SFC Where BHBH='" & m_CLBH & "'"
drSQL = drSQL & " AND Month(YFYF)=" & m_Month & " AND Year(YFYF)=" & m_Year
Set drRec_1 = AppCN.Execute(drSQL)
If drRec_1.EOF Then
    drSQL = "select * from T_SFC_QC Where BHBH='" & m_CLBH & "'"
    drSQL = drSQL & " AND Month(YFYF)=" & m_Month & " AND Year(YFYF)=" & m_Year
    Set drRec_2 = AppCN.Execute(drSQL)
    If drRec_2.EOF Then
        MsgBox "没有盘点,没有期初期末数据!"
        GetInitData = False
    Else
        m_giNum = drRec_2.Fields("QCSL").Value
www.751com.cn ").Value
    m_giCash = drRec_1.Fields("QCJE").Value
End If
drRec_1.Close:  Set drRec_1 = Nothing
End Function
Private Sub Form_Unload(Cancel As Integer)
m_CLBH = ""
m_Month = 0
m_Year = 0
End Sub
Private Sub DoRemain(m_drNum As Single, m_drCash As Double)
Dim rd_theSL As Single
Dim rd_theJE As Double
Dim rd_RKJE As Double, rd_CKJE As Double
rd_theSL = m_drNum
rd_theJE = m_drCash
For I = 1 To Me.LstView.ListItems.Count
    rd_theSL = rd_theSL + Val(LstView.ListItems(I).SubItems(4)) - Val(LstView.ListItems(I).SubItems(7))
    LstView.ListItems(I).SubItems(10) = rd_theSL
    If rd_theSL <> 0 Then
    rd_CKJE = Val(Format(LstView.ListItems(I).SubItems(9), "###0.00"))
    rd_theJE = rd_theJE + rd_RKJE - rd_CKJE
    Else
    rd_theJE = 0
    End If
    LstView.ListItems(I).SubItems(11) = Format(rd_theJE, "##,##0.00")
NextEnd Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页

VB进销存管理系统毕业论文 第7页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。