form12.frm

我用VB开发的饲料经营进销存管理程序,包含购入、售出管理

                    S = S & t_value & S1
                Case 8, 9
                    t_len = 0
                    t_value = Round(rs1.Fields(i).Value, 2)
                    t_len = 11 - Len(t_value)
                    S1 = ""
                    If t_value = Int(t_value) Then
                        S1 = S1 & ".00"
                        t_len = t_len - 3
                    Else
                        If (t_value * 10) = Int(t_value * 10) Then
                            S1 = S1 & "0"
                            t_len = t_len - 1
                        End If
                    End If
                    For t = 1 To t_len
                        S1 = S1 & " "
                    Next
                    S = S & t_value & S1
                Case 2
                    t_len = 8 - Len(rs1.Fields(i).Value)
                    S1 = ""
                    For t = 1 To t_len
                        S1 = S1 & " "
                    Next
                    S = S & rs1.Fields(i).Value & S1
                Case 3, 4
                    t_len = 6 - Len(rs1.Fields(i).Value)
                    S1 = ""
                    For t = 1 To t_len
                        S1 = S1 & " "
                    Next
                    S = S & rs1.Fields(i).Value & S1
                Case Else
                    t_len = 11 - Len(rs1.Fields(i).Value)
                    S1 = ""
                    For t = 1 To t_len
                        S1 = S1 & " "
                    Next
                    S = S & rs1.Fields(i).Value & S1
            End Select
        Next
        List1.AddItem S, j
        f_arr_number(j) = rs1.Fields(0).Value
        j = j + 1
        rs1.MoveNext
    Wend
    List1.ListIndex = 0
    cnn1.Close
    Set cnn1 = Nothing
exit_Command1_Click:
End Sub

Private Sub Command2_Click()
    g_current_number = f_arr_number(List1.ListIndex)
    g_form = "form12"
    Form21.Show
    f_formshow = "NO"
    Unload Form12
End Sub

Private Sub Command3_Click()
    Printer.Height = 6
    Printer.FontUnderline = False
    Printer.Orientation = 2
    Printer.FontSize = 13
    Printer.FontName = "黑体"
    doc = ""
    doc = doc & Chr(vbKeyReturn)
    doc = doc & Space(3) & Label1.Caption
    doc = doc & Chr(vbKeyReturn)
    Printer.Print doc
    Printer.FontUnderline = True
    doc = ""
    For i = 0 To List1.ListCount - 1
        doc = doc & Space(3) & List1.List(i) & Chr(vbKeyReturn)
    Next
    Printer.Print doc
    Printer.EndDoc
End Sub

Private Sub Form_Load()
    Dim cnn1 As ADODB.Connection
    Dim cmd1 As ADODB.Command
    Dim rs1 As ADODB.Recordset
    Set cnn1 = New ADODB.Connection
    f_formshow = "OK"
    cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Documents and Settings\jujumao\My Documents\粤丰饲料\粤丰饲料经营情况.mdb;"
    Set cmd1 = New ADODB.Command
    SQL = "select * from 品种售出表 where " & _
          "品种= " & "'" & g_breed & "'" & " and 年份 = " & g_year & " and 月份=" & g_month & " order by 帐本号,单号"
    With cmd1
        .ActiveConnection = cnn1
        .CommandText = SQL
        .CommandType = adCmdText
    End With
    Set rs1 = cmd1.Execute
    j = 0
    If rs1.EOF Then
        MsgBox ("没有查询到记录")
        Command1.Enabled = False
        Command2.Enabled = False
        cnn1.Close
        Set cnn1 = Nothing
        GoSub exit_form_load
    End If
    rs1.MoveFirst
    While Not rs1.EOF
        S = ""
        For i = 1 To rs1.Fields.Count - 1
            Select Case i
                Case 1
                    tt_len = Len(rs1.Fields(i).Value)
                    t_len = 0
                    For t = 1 To tt_len
                        If Asc((Mid((rs1.Fields(i).Value), t, 1))) < 0 Then
                            t_len = t_len + 2
                        Else
                            t_len = t_len + 1
                        End If
                    Next
                    t_len = 16 - t_len
                    S1 = ""
                    For t = 1 To t_len
                        S1 = S1 & " "
                    Next
                    S = S & rs1.Fields(i).Value & S1
                Case 5, 10, 11
                    tt_len = Len(rs1.Fields(i).Value)
                    t_len = 0
                    For t = 1 To tt_len
                        If Asc((Mid((rs1.Fields(i).Value), t, 1))) < 0 Then
                            t_len = t_len + 2
                        Else
                            t_len = t_len + 1
                        End If
                    Next
                    t_len = 12 - t_len
                    S1 = ""
                    For t = 1 To t_len
                        S1 = S1 & " "
                    Next
                    S = S & rs1.Fields(i).Value & S1
                Case 7
                    t_len = 0
                    t_value = Round(rs1.Fields(i).Value, 3)
                    t_len = 11 - Len(t_value)
                    S1 = ""
                    If t_value = Int(t_value) Then
                        S1 = S1 & ".000"
                        t_len = t_len - 4
                    Else
                        If (t_value * 10) = Int(t_value * 10) Then
                            S1 = S1 & "00"
                            t_len = t_len - 2
                        Else
                            If (t_value * 100) = Int(t_value * 100) Then
                                S1 = S1 & "0"
                                t_len = t_len - 1
                            End If
                        End If
                    End If
                    If t_value < 1 And t_value > 0 Then
                        S = S & "0"
                        t_len = t_len - 1
                    End If
                    
                    For t = 1 To t_len
                        S1 = S1 & " "
                    Next
                    
                    S = S & t_value & S1
                Case 8
                    t_len = 0
                    t_value = Round(rs1.Fields(i).Value, 2)
                    t_len = 11 - Len(t_value)
                    S1 = ""
                    If t_value = Int(t_value) Then
                        S1 = S1 & ".00"
                        t_len = t_len - 3
                    Else
                        If (t_value * 10) = Int(t_value * 10) Then
                            S1 = S1 & "0"
                            t_len = t_len - 1
                        End If
                    End If
                    For t = 1 To t_len
                        S1 = S1 & " "
                    Next
                    S = S & t_value & S1
                Case 9
                Case 2
                    date_string = Round(rs1.Fields(2).Value, 0) & "年" & _
                    Round(rs1.Fields(3).Value, 0) & "月" & _
                    Round(rs1.Fields(4).Value, 0) & "日"
                    t_len = 14 - Len(date_string)
                    S1 = ""
                    For t = 1 To t_len
                        S1 = S1 & " "
                    Next
                    S = S & date_string & S1
                Case 3, 4
                Case Else
                    t_len = 11 - Len(rs1.Fields(i).Value)
                    S1 = ""
                    For t = 1 To t_len
                        S1 = S1 & " "
                    Next
                    S = S & rs1.Fields(i).Value & S1
            End Select
        Next
        List1.AddItem S, j
        f_arr_number(j) = rs1.Fields(0).Value
        j = j + 1
        rs1.MoveNext
    Wend
    List1.ListIndex = 0
    cnn1.Close
    Set cnn1 = Nothing
exit_form_load:
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If f_formshow = "OK" Then
        Form5.Show
    End If
End Sub