pgmenu.frm

这是一个啤酒行业的软件,用VB6开发的

VERSION 5.00
Begin VB.Form PGMenu 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu kl 
      Caption         =   "menu"
      Begin VB.Menu ReportLoss 
         Caption         =   "挂失"
      End
   End
End
Attribute VB_Name = "PGMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    '''''''连接数据库''''''
    ConnectionToDatabase
    ''''''''
    Set m_AdoCmd = New ADODB.Command
    Set m_AdoResult = New ADODB.Recordset
    m_AdoCmd.ActiveConnection = m_AdoConn
    'm_AdoCmd.CommandText = "Select *  From   J案卷类别"
    'm_AdoResult.CursorLocation = adUseClient
    'm_AdoResult.Open m_AdoCmd, , adOpenDynamic, adLockOptimistic
End Sub

Private Sub ReportLoss_Click()
    Dim strSql As String
    Dim m_rs As New ADODB.Recordset
    Dim msgtxt As String
    'strSql = "INSERT INTO  PGReportLoss(RL_Date,RL_BillCode,RL_Area,RL_Name,RL_BillFlag,RL_WrappageName,RL_JTValue,RL_CTValue,RL_KXValue,RL_KPValue,RL_WSName,RL_YSPerson,RL_Tabulator) VALUES("
    'strSql = strSql & "m_TmpReportLoss(0),m_TmpReportLoss(1),m_TmpReportLoss(2),m_TmpReportLoss(3),m_TmpReportLoss(4),m_TmpReportLoss(5),m_TmpReportLoss(6),m_TmpReportLoss(7),m_TmpReportLoss(8),"
    'strSql = strSql & "m_TmpReportLoss(9),m_TmpReportLoss(10),m_TmpReportLoss(11),m_TmpReportLoss(12))"
    'Set m_rs = ExecuteSQL(strSql, msgtxt)
    Dim sPrompt As String
    sPrompt = "确定是否挂失单据号为:" & m_TmpReportLoss(1) & "的记录？"
    If MsgBox(sPrompt, vbOKCancel, "挂失提示：") = 6 Then
       m_rs.CursorType = adOpenKeyset
       m_rs.LockType = adLockOptimistic
       m_rs.Open "PGReportLoss", m_AdoConn, , , adCmdTable
       m_rs.AddNew
        m_rs("RL_Date") = m_TmpReportLoss(0)
        m_rs("RL_BillCode") = m_TmpReportLoss(1)
        m_rs("RL_Area") = m_TmpReportLoss(2)
        m_rs("RL_Name") = m_TmpReportLoss(3)
        m_rs("RL_BillFlag") = m_TmpReportLoss(4)
        m_rs("RL_WrappageName") = m_TmpReportLoss(5)
        m_rs("RL_JTValue") = m_TmpReportLoss(6)
        m_rs("RL_CTValue") = m_TmpReportLoss(6)
        m_rs("RL_KXValue") = m_TmpReportLoss(7)
        m_rs("RL_KPValue") = m_TmpReportLoss(8)
        m_rs("RL_WSName") = m_TmpReportLoss(10)
        m_rs("RL_YSPerson") = m_TmpReportLoss(11)
        m_rs("RL_Tabulator") = m_TmpReportLoss(12)
        m_rs.Update
        MsgBox "挂失成功..."
    End If
End Sub