frmjjd.frm

这是一个用VB编写出来的烟草管理系统

         Width           =   1455
         Begin VB.TextBox fhdwmc 
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   14
            Top             =   240
            Width           =   1215
         End
      End
      Begin VB.Frame Frame10 
         Caption         =   "原发等级"
         Height          =   735
         Left            =   120
         TabIndex        =   11
         Top             =   1320
         Width           =   1215
         Begin VB.TextBox yfdj 
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            MaxLength       =   4
            TabIndex        =   12
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame Frame13 
         Caption         =   "重量"
         Height          =   735
         Left            =   2520
         TabIndex        =   9
         Top             =   1320
         Width           =   1215
         Begin VB.TextBox zl 
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   10
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame Frame14 
         Caption         =   "实收等级"
         Height          =   735
         Left            =   1320
         TabIndex        =   7
         Top             =   1320
         Width           =   1215
         Begin VB.TextBox ssdj 
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            MaxLength       =   4
            TabIndex        =   8
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame Frame16 
         Caption         =   "货区名称"
         Height          =   735
         Left            =   7800
         TabIndex        =   5
         Top             =   600
         Width           =   1215
         Begin VB.TextBox hqmc 
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   6
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame Frame18 
         Caption         =   "原发调拨价"
         Height          =   735
         Left            =   3720
         TabIndex        =   3
         Top             =   1320
         Width           =   1215
         Begin VB.TextBox yfdbj 
            BeginProperty DataFormat 
               Type            =   1
               Format          =   """￥""#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   2
            EndProperty
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            MaxLength       =   4
            TabIndex        =   4
            Top             =   240
            Width           =   975
         End
      End
   End
End
Attribute VB_Name = "frmjjd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rs As Recordset
Dim db1 As Database
Dim rs1 As Recordset
Private Sub command3_Click()
    Set rs = db.OpenRecordset("select * from jjd where lsh =" + Chr$(34) + cxtj.Text + Chr$(34) + ";")
    If rs.EOF = True Then
        MsgBox ("没有此流水号！"), vbOKOnly, ("警告")
    Else
        lsh = rs.Fields("lsh")
        ddh = rs.Fields("ddh")
        Date = rs.Fields("Date")
        fhdwID = rs.Fields("fhdwID")
        Set db1 = OpenDatabase(App.Path + "..\db\System.mdb")
        Set rs1 = db1.OpenRecordset("select yz.yzmc from yz where yzID =" + Chr$(34) + fhdwID + Chr$(34) + ";")
        fhdwmc = rs1.Fields("yzmc")
        hqID = rs.Fields("hqID")
        Set rs1 = db1.OpenRecordset("select hq.hqmc from hq where hqID =" + Chr$(34) + hqID + Chr$(34) + ";")
        hqmc = rs1.Fields("hqmc")
        db1.Close
        yfdj = UCase(rs.Fields("yfdj"))
        ssdj = UCase(rs.Fields("ssdj"))
        zl = rs.Fields("zl")
        Set db1 = OpenDatabase(App.Path + "..\db\System.mdb")
        Set rs1 = db1.OpenRecordset("select yy.dbj from yy where yycode =" + Chr$(34) + yfdj + Chr$(34) + ";")
        yfdbj = rs1.Fields("dbj")
        Set rs1 = db1.OpenRecordset("select yy.dbj from yy where yycode =" + Chr$(34) + ssdj + Chr$(34) + ";")
        ssdbj = rs1.Fields("dbj")
        ce = zl * (ssdbj - yfdbj)
    End If
    cxtj = ""
    cxtj.SetFocus
End Sub

Private Sub Form_Load()
    Dim count As Integer
    cxtj = ""
    Command3.Enabled = False
    With MSF
        .Rows = 1
        .Col = 0: .Row = 0
        .ColWidth(0) = 500
        .Text = "序号"
        .Col = 1: .Row = 0
        .Text = "流水号"
        .Col = 2: .Row = 0
        .Text = "调单号"
        .Col = 3: .Row = 0
        .ColWidth(3) = 1000
        .Text = "日期"
        .Col = 4: .Row = 0
        .Text = "发货单位代码"
        .Col = 5: .Row = 0
        .Text = "发货单位名称"
        .Col = 6: .Row = 0
        .Text = "货区代码"
        .Col = 7: .Row = 0
        .Text = "货区名称"
        .Col = 8: .Row = 0
        .Text = "原发等级"
        .Col = 9: .Row = 0
        .Text = "降级等级"
        .Col = 10: .Row = 0
        .Text = "重量"
        .Col = 11: .Row = 0
        .Text = "原发调拨价"
        .Col = 12: .Row = 0
        .Text = "实收调拨价"
        .Col = 13: .Row = 0
        .Text = "差额"
    End With
    Set db = OpenDatabase(App.Path + "..\db\Data.mdb")
    Set rs = db.OpenRecordset("select * from jjd order by int(lsh)")
    If rs.EOF = False Then
        rs.MoveFirst
        count = 0
        Do Until rs.EOF
            count = count + 1
            rs.MoveNext
        Loop
        With MSF
            rs.MoveFirst
            For i = 1 To count
                .AddItem Str(i)
                .Col = 1: .Row = i
                .Text = rs.Fields("lsh")
                .Col = 2: .Row = i
                .Text = rs.Fields("ddh")
                .Col = 3: .Row = i
                .Text = rs.Fields("Date")
                .Col = 4: .Row = i
                .Text = rs.Fields("fhdwID")
                fhdwID1 = rs.Fields("fhdwID")
                .Col = 5: .Row = i
                Set db1 = OpenDatabase(App.Path + "..\db\System.mdb")
                Set rs1 = db1.OpenRecordset("select yz.yzmc from yz where yzID =" + Chr$(34) + fhdwID1 + Chr$(34) + ";")
                .Text = rs1.Fields("yzmc")
                db1.Close
                .Col = 6: .Row = i
                .Text = rs.Fields("hqID")
                hqID1 = rs.Fields("hqID")
                .Col = 7: .Row = i
                Set db1 = OpenDatabase(App.Path + "..\db\System.mdb")
                Set rs1 = db1.OpenRecordset("select hq.hqmc from hq where hqID =" + Chr$(34) + hqID1 + Chr$(34) + ";")
                .Text = rs1.Fields("hqmc")
                db1.Close
                .Col = 8: .Row = i
                .Text = UCase(rs.Fields("yfdj"))
                temyfdj = rs.Fields("yfdj")
                .Col = 9: .Row = i
                .Text = UCase(rs.Fields("ssdj"))
                temssdj = rs.Fields("ssdj")
                .Col = 10: .Row = i
                .Text = rs.Fields("zl")
                temzl = rs.Fields("zl")
                .Col = 11: .Row = i
                Set db1 = OpenDatabase(App.Path + "..\db\System.mdb")
                Set rs1 = db1.OpenRecordset("select yy.dbj from yy where yycode =" + Chr$(34) + temyfdj + Chr$(34) + ";")
                .Text = rs1.Fields("dbj")
                dbj1 = rs1.Fields("dbj")
                .Col = 12: .Row = i
                Set rs1 = db1.OpenRecordset("select yy.dbj from yy where yycode =" + Chr$(34) + temssdj + Chr$(34) + ";")
                .Text = rs1.Fields("dbj")
                dbj2 = rs1.Fields("dbj")
                db1.Close
                .Col = 13: .Row = i
                temje = temzl * (dbj2 - dbj1)
                .Text = Left(temje, Len(Int(temje * 1000)))
                rs.MoveNext
            Next i
        End With
    End If
End Sub
Private Sub cxtj_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        Command3.Enabled = True
        Command3.SetFocus
    End If
End Sub