?? frm_wjzm.frm
字號:
VERSION 5.00
Begin VB.Form frm_wjzm
BorderStyle = 1 'Fixed Single
Caption = "修改表單"
ClientHeight = 4230
ClientLeft = 45
ClientTop = 330
ClientWidth = 5025
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4230
ScaleWidth = 5025
Begin VB.ComboBox Cstate
Height = 300
Left = 1440
TabIndex = 15
Text = "Combo1"
Top = 2235
Width = 975
End
Begin VB.CommandButton cmdCancle
Caption = "取消"
Height = 375
Left = 2880
TabIndex = 14
Top = 3360
Width = 1095
End
Begin VB.CommandButton cmdSave
Caption = "保存"
Height = 375
Left = 840
TabIndex = 13
Top = 3360
Width = 1095
End
Begin VB.TextBox txtemployeeid
Height = 285
Left = 1440
TabIndex = 12
Top = 2610
Width = 825
End
Begin VB.TextBox txtallmoney
Height = 285
Left = 1440
TabIndex = 9
Top = 1845
Width = 1320
End
Begin VB.TextBox txtprotime
Height = 285
Left = 1440
TabIndex = 7
Top = 1470
Width = 2640
End
Begin VB.TextBox txtstime
Height = 285
Left = 1440
TabIndex = 5
Top = 1095
Width = 2640
End
Begin VB.TextBox txtproviderid
Height = 285
Left = 1440
TabIndex = 3
Top = 705
Width = 825
End
Begin VB.TextBox txtbackid
Height = 285
Left = 1440
TabIndex = 1
Top = 330
Width = 1320
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "雇員編號:"
Height = 180
Index = 6
Left = 600
TabIndex = 11
Top = 2655
Width = 810
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "貨單狀態:"
Height = 180
Index = 5
Left = 600
TabIndex = 10
Top = 2280
Width = 810
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "退貨總金額:"
Height = 180
Index = 4
Left = 420
TabIndex = 8
Top = 1890
Width = 990
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "最遲期限:"
Height = 180
Index = 3
Left = 600
TabIndex = 6
Top = 1515
Width = 810
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "下單時間:"
Height = 180
Index = 2
Left = 600
TabIndex = 4
Top = 1140
Width = 810
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "供貨商號:"
Height = 180
Index = 1
Left = 600
TabIndex = 2
Top = 750
Width = 810
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "退貨單號:"
Height = 180
Index = 0
Left = 600
TabIndex = 0
Top = 375
Width = 810
End
End
Attribute VB_Name = "frm_wjzm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Stra As String
Private strstate As String
Private Sub cmdCancle_Click()
Unload Me
End Sub
Private Sub cmdSave_Click()
Dim i As Integer
If strstate <> "cstate" Then
Stra = "update t_bgoodtable set state='" & Cstate & "' where backid='" & txtbackid & "'"
Dblink.executeSQL Stra
i = MsgBox("保存成功,是否返回?", vbOKCancel, "提示!")
If i = 1 Then Unload Me
End If
Call frm_wjzbtable.Combo1_Click
End Sub
Private Sub Form_Load()
Dim strNew As ADODB.Recordset
Cstate.AddItem "確認"
Cstate.AddItem "待定"
Stra = "select * from t_bgoodtable where backid='" & wjz_Backid & "'"
Set strNew = Dblink.executeSQL(Stra)
txtbackid = strNew.Fields(0)
txtproviderid = strNew.Fields(1)
txtStime = strNew.Fields(2)
txtprotime = strNew.Fields(3)
txtAllmoney = strNew.Fields(4) & "元"
Cstate = strNew.Fields(5): strstate = strNew.Fields(5)
txtemployeeid = strNew.Fields(6) & "工"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -