medicine.txt

应该很详尽咯...希望能够帮助到大家才好啊...应该米什么错误的...大家放心使用吧

Private Sub Command1_Click()
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    
    If Not Testtxt(txtName.Text) Then
        MsgBox "请输入药品名称！", vbOKOnly + vbExclamation, "警告"
        txtName.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(txtNumber.Text) Then
        MsgBox "请输入预定数量！", vbOKOnly + vbExclamation, "警告"
        txtNumber.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(comboBianhao.Text) Then
        MsgBox "请选择编号！", vbOKOnly + vbExclamation, "警告"
        comboBianhao.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(txtMoneyjin.Text) Then
        MsgBox "请输入进货单价！", vbOKOnly + vbExclamation, "警告"
        txtMoneyjin.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(comboAddress.Text) Then
        MsgBox "请选择产地！", vbOKOnly + vbExclamation, "警告"
        comboAddress.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(txtMonerpi.Text) Then
        MsgBox "请输入批发单价！", vbOKOnly + vbExclamation, "警告"
        txtMonerpi.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(txtGuige.Text) Then
        MsgBox "请输入规格！", vbOKOnly + vbExclamation, "警告"
        txtGuige.SetFocus
        Exit Sub
    End If
    If Not Testtxt(txtYouxiao.Text) Then
        MsgBox "请输入有效期！", vbOKOnly + vbExclamation, "警告"
        txtYouxiao.SetFocus
        Exit Sub
    End If
    
    txtSQL = "select * from medinfo_Info where medinfo_ID = '" & Trim(txtName.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = False Then
        MsgBox "药品名称重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
        mrc.Close
        txtName.SetFocus
    Else
        mrc.Close
        If Not IsDate(txtMoneyjin.Text) Then
            MsgBox "", vbOKOnly + vbExclamation, "警告"
            txtMoneyjin.SetFocus
        Else
            txtMoneyjin = Format(txtMoneyjin, "y.x")
            If Not IsDate(txtGuige.Text) Then
                MsgBox "", vbOKOnly + vbExclamation, "警告"
                txtGuige.SetFocus
            Else
                txtGuige = Format(txtGuige, "y.x")
                txtSQL = "select * from medinfo_Info"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                mrc.AddNew
                mrc.Fields(0) = Trim(txtName.Text)
                mrc.Fields(1) = Trim(txtNumber.Text)
                mrc.Fields(2) = Trim(comboBianhao.Text)
                mrc.Fields(3) = Trim(txtMoneyjin.Text)
                mrc.Fields(4) = Trim(comboAddress.Text)
                mrc.Fields(5) = Trim(txtMonerpi.Text)
                mrc.Fields(6) = Trim(txtGuige.Text)
                mrc.Fields(7) = Trim(txtYouxiao.Text)
                mrc.Fields(8) = Trim(txtComment.Text)
                mrc.Update
                MsgBox "添加进入药品清单成功！", vbOKOnly + vbExclamation, "警告"
                mrc.Close
                Me.Hide
            End If
        End If
    End If
           
End Sub
 
Private Sub Command2_Click()
    
    Unload Me
End Sub
 
Private Sub Form_Load()
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    Dim i As Integer
    
    comboBianhao.AddItem "晋字"
    comboBianhao.AddItem "  "
    txtSQL = "select * from stock_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    For i = 1 To mrc.RecordCount
        comboAddress.AddItem mrc.Fields(0)
        mrc.MoveNext
    Next i
    mrc.Close
End Sub
Private Sub txtName_Change()
End Sub
顾怡 15:37:29
Private Sub cmdExit_Click()
    Unload Me
End Sub
 
Private Sub cmdInquire_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim dd(4) As Boolean
    Dim mrc As ADODB.Recordset
     
    txtSQL = "select * from medinfo_Info where "
    If Check1(0).Value Then
        If Trim(txtName.Text) = "" Then
            sMeg = "药品名称不能为空"
            MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
            txtName.SetFocus
            Exit Sub
        Else
            If Not IsNumeric(Trim(txtName.Text)) Then
                MsgBox "请输入药品名称！", vbOKOnly + vbExclamation, "警告"
                Exit Sub
                txtName.SetFocus
            End If
            dd(0) = True
            txtSQL = txtSQL & "medinfo_ID = '" & Trim(txtName.Text) & "'"
        End If
    End If
    
    If Check1(1).Value Then
        If Trim(txtName.Text) = "" Then
            sMeg = "预定数量不能为空"
            MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
            txtName.SetFocus
            Exit Sub
        Else
            dd(1) = True
            If dd(0) Then
                txtSQL = txtSQL & "and medinfo_Name = '" & txtName.Text & "'"
            Else
                txtSQL = txtSQL & "medinfo_Name = '" & txtName.Text & "'"
            End If
        End If
    End If
    
    If Check1(2).Value Then
        If Trim(comboBianhao.Text) = "" Then
            sMeg = "产地不能为空"
            MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
            comboBianhao.SetFocus
            Exit Sub
        Else
            dd(2) = True
            If dd(0) Or dd(1) Then
                txtSQL = txtSQL & "and stock_No = '" & comboBianhao.Text & "'"
            Else
                txtSQL = txtSQL & "stock_No = '" & comboBianhao.Text & "'"
            End If
        End If
    End If
    
    If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then
        MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    
    txtSQL = txtSQL & " order by medinfo_ID "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    With myflexgrid
        .Rows = 2
        .CellAlignment = 4
        .TextMatrix(1, 0) = "药品名称"
        .TextMatrix(1, 1) = "预定数量"
        .TextMatrix(1, 2) = "编号"
        .TextMatrix(1, 3) = "进货单价"
        .TextMatrix(1, 4) = "产地"
        .TextMatrix(1, 5) = "批发单价"
        .TextMatrix(1, 6) = "规格"
        .TextMatrix(1, 7) = "有效期"
        
        Do While Not mrc.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
            .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)
            .TextMatrix(.Rows - 1, 2) = mrc.Fields(2)
            .TextMatrix(.Rows - 1, 3) = Format(mrc.Fields(3), "y.x")
            .TextMatrix(.Rows - 1, 4) = mrc.Fields(4)
            .TextMatrix(.Rows - 1, 5) = mrc.Fields(5)
            .TextMatrix(.Rows - 1, 6) = Format(mrc.Fields(6), "y.x")
            .TextMatrix(.Rows - 1, 7) = mrc.Fields(7)
            mrc.MoveNext
        Loop
        
    End With
    
    mrc.Close
    
End Sub
 
Private Sub Form_Load()
    With myflexgrid
        .CellAlignment = 4
        .TextMatrix(1, 0) = "药品名称"
        .TextMatrix(1, 1) = "预定数量"
        .TextMatrix(1, 2) = "编号"
        .TextMatrix(1, 3) = "进货单价"
        .TextMatrix(1, 4) = "产地"
        .TextMatrix(1, 5) = "批发单价"
        .TextMatrix(1, 6) = "规格"
        .TextMatrix(1, 7) = "有效期"
    End With
End Sub





http://www.zjcxxg.com/pclw/NewsView.asp?NewsId=370&BigClassName=%C3%E2%B7%D1%C2%DB%CE%C4