pgchaxun.frm

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

VERSION 5.00
Begin VB.Form pgchaxun 
   Caption         =   "输入单据号窗口"
   ClientHeight    =   2370
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   2370
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   1710
      TabIndex        =   2
      Top             =   1770
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   720
      Width           =   2295
   End
   Begin VB.Frame Frame1 
      Caption         =   "输入单据号"
      Height          =   1335
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   3855
   End
End
Attribute VB_Name = "pgchaxun"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim en As rdoEnvironment
Dim cn As rdoConnection
Dim result As rdoResultset
Dim SQL As String

Private Sub Command1_Click()
      If Len(Text1.Text) <> 12 Then
           MsgBox "提示，输入的单据号不正确"
           Exit Sub
      End If
      SQL = "select * from pgysd where 单据号='" & Trim(Text1.Text) & "'  and 是否掰过票='否'  and 是否搭赠='否' and 是否作废='否' "
      Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
        If result.RowCount <> 0 Then
              Unload Me
                t = True
                pgkaipiao.Mask.Text = Trim(result("开票日期"))
                     pgkaipiao.Mask.Enabled = False
                pgkaipiao.Text1.Text = Trim(result("单据号"))
                     pgkaipiao.Text1.Enabled = False
                pgkaipiao.Combo1.Text = Trim(result("地区"))
                     pgkaipiao.Combo1.Enabled = False
                pgkaipiao.Combo2.Text = Trim(result("单位名称"))
                     pgkaipiao.Combo2.Enabled = False
                pgkaipiao.Text2.Text = Trim(result("酒桶数"))
              '       pgkaipiao.Text2.Enabled = False
                pgkaipiao.Text3.Text = Trim(result("成套数"))
             '       pgkaipiao.Text3.Enabled = False
                pgkaipiao.Text4.Text = Trim(result("空箱数"))
             '       pgkaipiao.Text4.Enabled = False
                pgkaipiao.Text5.Text = Trim(result("空瓶数"))
            '        pgkaipiao.Text5.Enabled = False
                pgkaipiao.Combo3.Text = Trim(result("单据标志"))
                     pgkaipiao.Combo3.Enabled = False
                pgkaipiao.Combo4.Text = Trim(result("包装物名称"))
                       pgkaipiao.Combo4.Enabled = False
                pgkaipiao.Combo5.Text = Trim(result("验收车间"))
                      pgkaipiao.Combo5.Enabled = False
                pgkaipiao.Combo6.Text = Trim(result("验收人"))
                      pgkaipiao.Combo6.Enabled = False
                pgkaipiao.Combo7.Text = Trim(result("制表人"))
                      pgkaipiao.Combo7.Enabled = False
                 pgkaipiao.Combo8.Text = Trim(result("是否搭赠"))
                      pgkaipiao.Combo8.Enabled = False
        Else
               MsgBox "单据号" & Trim(Text1.Text) & "已经掰过票" & "或者是搭赠票不能掰票" & "或者作废"
               Exit Sub
        End If
        result.Close
End Sub

Private Sub Form_Load()
      Move Screen.Width / 2 - pgchaxun.Width / 2, Screen.Height / 2 - pgchaxun.Height / 2 - 500
      Set en = rdoEnvironments(0)
      Set cn = en.OpenConnection(dsname:="odbc_api_demo", Prompt:="rdodriverprompt", ReadOnly:=False, Connect:="uid=sa;pwd=;driver={SQL SERVER};SERVER=ntserver;database=rongpin2004;")
End Sub