?? pgbaozhuangwumingcheng.frm
字號:
Width = 7215
_ExtentX = 12726
_ExtentY = 9975
_Version = 393216
AllowUserResizing= 3
End
End
End
Attribute VB_Name = "pgbaozhuangwumingcheng"
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
Dim i As Integer
Private Sub Combo1_GotFocus()
Combo1.Clear
SQL = "select distinct 車間名稱 from pgbaozhuangwu "
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
result.MoveFirst
Do While Not result.EOF
If Trim(result("車間名稱")) <> "" Then
Combo1.AddItem Trim(result("車間名稱"))
result.MoveNext
End If
Loop
End If
result.Close
End Sub
Private Sub Combo2_GotFocus()
' Combo2.Clear
' sql = "select distinct 箱色 from pgbaozhuangwu "
' Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
' If result.RowCount <> 0 Then
' result.MoveFirst
' Do While Not result.EOF
' If Trim(result("箱色")) <> "" Then
' Combo2.AddItem Trim(result("箱色"))
' result.MoveNext
' End If
' Loop
' End If
' result.Close
End Sub
Private Sub Combo3_GotFocus()
' Combo3.Clear
' sql = "select distinct 瓶色 from pgbaozhuangwu "
' Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
' If result.RowCount <> 0 Then
' result.MoveFirst
' Do While Not result.EOF
' If Trim(result("瓶色")) <> "" Then
' Combo3.AddItem Trim(result("瓶色"))
' result.MoveNext
' End If
' Loop
' End If
' result.Close
End Sub
Private Sub Combo4_GotFocus()
' Combo4.Clear
' sql = "select * from pgbaozhuangwu "
' Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
' If result.RowCount <> 0 Then
' result.MoveFirst
' Do While Not result.EOF
' If Trim(result("箱規(guī)格")) <> "" Then
' Combo4.AddItem Trim(result("箱規(guī)格"))
' result.MoveNext
' End If
' Loop
' result.Close
' Else
' Combo4.AddItem ""
' End If
End Sub
Private Sub Combo5_GotFocus()
' Combo5.Clear
' sql = "select * from pgbaozhuangwu "
' Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
' If result.RowCount <> 0 Then
' result.MoveFirst
' Do While Not result.EOF
' If Trim(result("瓶規(guī)格")) <> "" Then
' Combo5.AddItem Trim(result("瓶規(guī)格"))
' result.MoveNext
' End If
' Loop
' result.Close
' Else
' Combo5.AddItem ""
' End If
End Sub
Private Sub Command1_Click()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Text1.Text = ""
SQL = "select max(序號) from pgbaozhuangwu "
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
If IsNull(result.RowCount) = True Then
Label8.Caption = 1
Else
Label8.Caption = Val(Trim(result(0))) + 1
End If
result.Close
End Sub
Private Sub Command2_Click()
If Combo1.Text = "" Or Text1.Text = "" Then
Exit Sub
End If
If MsgBox("確認(rèn)是否存盤", vbYesNo, "提示") = vbYes Then
SQL = "select * from pgbaozhuangwu where 序號= '" & Trim(Label8.Caption) & "'"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
MsgBox "存盤失敗"
result.Close
Exit Sub
End If
SQL = "insert into pgbaozhuangwu values('" & Trim(Label8.Caption) & "','" & Trim(Combo1.Text) & "','" & Trim(Combo2.Text) & "','" & Trim(Combo3.Text) & "','" & Trim(Combo4.Text) & "','" & Trim(Combo5.Text) & "','" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "')"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
SQL = "select * from pgbaozhuangwu "
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
MSF.Rows = 2
If result.RowCount <> 0 Then
result.MoveFirst
i = 1
Do While Not result.EOF
MSF.TextArray(i * MSF.Cols) = Trim(result("序號"))
MSF.TextArray(i * MSF.Cols + 1) = Trim(result("車間名稱"))
MSF.TextArray(i * MSF.Cols + 2) = Trim(result("箱色"))
MSF.TextArray(i * MSF.Cols + 3) = Trim(result("瓶色"))
MSF.TextArray(i * MSF.Cols + 4) = Trim(result("箱規(guī)格"))
MSF.TextArray(i * MSF.Cols + 5) = Trim(result("瓶規(guī)格"))
MSF.TextArray(i * MSF.Cols + 6) = Trim(result("包裝物名稱"))
MSF.TextArray(i * MSF.Cols + 7) = Trim(result("單價(jià)"))
MSF.TextArray(i * MSF.Cols + 8) = Trim(result("包裝物規(guī)格"))
MSF.RowHeight(i) = 300
MSF.Rows = MSF.Rows + 1
i = i + 1
result.MoveNext
Loop
Label8.Caption = i
MSF.Rows = MSF.Rows - 1
Else
Label8.Caption = 1
End If
result.Close
' MsgBox "存盤結(jié)束"
End If
End Sub
Private Sub Command3_Click()
If MsgBox("確認(rèn)是否刪除", vbYesNo, "提示") = vbYes Then
SQL = "delete from pgbaozhuangwu where 序號= '" & Trim(Label8.Caption) & "'"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
SQL = "select * from pgbaozhuangwu "
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
MSF.Rows = 2
If result.RowCount <> 0 Then
result.MoveFirst
i = 1
Do While Not result.EOF
MSF.TextArray(i * MSF.Cols) = Trim(result("序號"))
MSF.TextArray(i * MSF.Cols + 1) = Trim(result("車間名稱"))
MSF.TextArray(i * MSF.Cols + 2) = Trim(result("箱色"))
MSF.TextArray(i * MSF.Cols + 3) = Trim(result("瓶色"))
MSF.TextArray(i * MSF.Cols + 4) = Trim(result("箱規(guī)格"))
MSF.TextArray(i * MSF.Cols + 5) = Trim(result("瓶規(guī)格"))
MSF.TextArray(i * MSF.Cols + 6) = Trim(result("包裝物名稱"))
MSF.TextArray(i * MSF.Cols + 7) = Trim(result("單價(jià)"))
MSF.TextArray(i * MSF.Cols + 8) = Trim(result("包裝物規(guī)格"))
MSF.RowHeight(i) = 300
MSF.Rows = MSF.Rows + 1
i = i + 1
result.MoveNext
Loop
Label8.Caption = i
MSF.Rows = MSF.Rows - 1
Else
Label8.Caption = 1
End If
result.Close
End If
End Sub
Private Sub Command4_Click()
If Combo1.Text = "" Or Text1.Text = "" Then
Exit Sub
End If
If MsgBox("確認(rèn)是否修改", vbYesNo, "提示") = vbYes Then
SQL = "update pgbaozhuangwu set 車間名稱='" & Trim(Combo1.Text) & "' ,箱色='" & Trim(Combo2.Text) & "',瓶色='" & Trim(Combo3.Text) & "' ,箱規(guī)格='" & Trim(Combo4.Text) & "',瓶規(guī)格='" & Trim(Combo5.Text) & "',包裝物名稱='" & Trim(Text1.Text) & "',單價(jià)='" & Trim(Text2.Text) & "',包裝物規(guī)格='" & Trim(Text3.Text) & "' where 序號= '" & Trim(Label8.Caption) & "'"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
SQL = "select * from pgbaozhuangwu "
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
MSF.Rows = 2
If result.RowCount <> 0 Then
result.MoveFirst
i = 1
Do While Not result.EOF
MSF.TextArray(i * MSF.Cols) = Trim(result("序號"))
MSF.TextArray(i * MSF.Cols + 1) = Trim(result("車間名稱"))
MSF.TextArray(i * MSF.Cols + 2) = Trim(result("箱色"))
MSF.TextArray(i * MSF.Cols + 3) = Trim(result("瓶色"))
MSF.TextArray(i * MSF.Cols + 4) = Trim(result("箱規(guī)格"))
MSF.TextArray(i * MSF.Cols + 5) = Trim(result("瓶規(guī)格"))
MSF.TextArray(i * MSF.Cols + 6) = Trim(result("包裝物名稱"))
MSF.TextArray(i * MSF.Cols + 7) = Trim(result("單價(jià)"))
MSF.TextArray(i * MSF.Cols + 8) = Trim(result("包裝物規(guī)格"))
MSF.RowHeight(i) = 300
MSF.Rows = MSF.Rows + 1
i = i + 1
result.MoveNext
Loop
Label8.Caption = i
MSF.Rows = MSF.Rows - 1
Else
Label8.Caption = 1
End If
result.Close
' MsgBox "修改結(jié)束"
End If
End Sub
Private Sub Command5_Click()
cn.Close
en.Close
Unload Me
End Sub
Private Sub Form_Load()
Move Screen.Width / 2 - pgbaozhuangwumingcheng.Width / 2, Screen.Height / 2 - pgbaozhuangwumingcheng.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;")
MSF.FormatString = "序號|^ 所屬車間 |^ 箱色|^瓶色|^ 箱規(guī)格|^瓶規(guī)格|^ 包裝物名稱 |^ 單價(jià) |^包裝物規(guī)格"
For i = 0 To MSF.Rows - 1
MSF.RowHeight(i) = 300
Next i
SQL = "select * from pgbaozhuangwu order by 序號 "
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
result.MoveFirst
i = 1
Do While Not result.EOF
MSF.TextArray(i * MSF.Cols) = Trim(result("序號"))
MSF.TextArray(i * MSF.Cols + 1) = Trim(result("車間名稱"))
MSF.TextArray(i * MSF.Cols + 2) = Trim(result("箱色"))
MSF.TextArray(i * MSF.Cols + 3) = Trim(result("瓶色"))
MSF.TextArray(i * MSF.Cols + 4) = Trim(result("箱規(guī)格"))
MSF.TextArray(i * MSF.Cols + 5) = Trim(result("瓶規(guī)格"))
MSF.TextArray(i * MSF.Cols + 6) = Trim(result("包裝物名稱"))
MSF.TextArray(i * MSF.Cols + 7) = Trim(result("單價(jià)"))
MSF.TextArray(i * MSF.Cols + 8) = Trim(result("包裝物規(guī)格"))
MSF.RowHeight(i) = 300
MSF.Rows = MSF.Rows + 1
i = i + 1
result.MoveNext
Loop
Label8.Caption = i
MSF.Rows = MSF.Rows - 1
Else
Label8.Caption = 1
End If
result.Close
End Sub
Private Sub MSF_DblClick()
Label8.Caption = Trim(MSF.TextArray(MSF.Row * MSF.Cols))
Combo1.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 1))
Combo2.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 2))
Combo3.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 3))
Combo4.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 4))
Combo5.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 5))
Text1.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 6))
Text2.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 7))
Text3.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + 8))
End Sub
Private Sub Text1_Click()
' Text1.Text = Trim(Combo4.Text) & Trim(Combo2.Text) & "箱" & Trim(Combo5.Text) & Trim(Combo3.Text) & "瓶"
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -