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