📄 frm_pack_type_edit.frm
字号:
VERSION 5.00
Begin VB.Form Frm_Pack_Type_Edit
BorderStyle = 1 'Fixed Single
Caption = "包装方式"
ClientHeight = 2355
ClientLeft = 7830
ClientTop = 6735
ClientWidth = 7215
Icon = "Frm_Pack_Type_Edit.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2355
ScaleWidth = 7215
Begin VB.TextBox txt_Filed_Numbers
Height = 300
Left = 983
TabIndex = 12
Text = "Text1"
Top = 1080
Width = 5925
End
Begin VB.CommandButton cmd_Exit
Caption = "退出(&X)"
Height = 375
Left = 6000
TabIndex = 4
Top = 1800
Width = 975
End
Begin VB.CommandButton cmd_Save
Caption = "保存(&S)"
Height = 375
Left = 5040
TabIndex = 5
Top = 1800
Width = 975
End
Begin VB.CommandButton cmd_Add
Caption = "添加(&A)"
Height = 375
Left = 4080
TabIndex = 10
Top = 1800
Width = 975
End
Begin VB.CommandButton cmd_Last
Caption = "末一条 >>"
Height = 375
Left = 3120
TabIndex = 9
Top = 1800
Width = 975
End
Begin VB.CommandButton cmd_Next
Caption = "后一条 >"
Height = 375
Left = 2160
TabIndex = 8
Top = 1800
Width = 975
End
Begin VB.CommandButton cmd_Preview
Caption = "< 前一条"
Height = 375
Left = 1200
TabIndex = 7
Top = 1800
Width = 975
End
Begin VB.CommandButton cmd_First
Caption = "<< 第一条"
Height = 375
Left = 240
TabIndex = 6
Top = 1800
Width = 975
End
Begin VB.TextBox txt_Filed_Packtype
Height = 300
Left = 983
TabIndex = 3
Text = "Text2"
Top = 720
Width = 5925
End
Begin VB.TextBox txt_Filed_ID
Height = 300
Left = 983
TabIndex = 2
Text = "Text1"
Top = 360
Width = 5925
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "每箱数量"
Height = 180
Left = 120
TabIndex = 11
Top = 1140
Width = 720
End
Begin VB.Line Line1
X1 = 90
X2 = 6960
Y1 = 1560
Y2 = 1560
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "包装方式"
Height = 180
Left = 150
TabIndex = 1
Top = 780
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "编号"
Height = 180
Left = 503
TabIndex = 0
Top = 420
Width = 360
End
End
Attribute VB_Name = "Frm_Pack_Type_Edit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim flag_Add As Boolean
Private Sub cmd_Add_Click()
On Error GoTo err
Me.txt_Filed_ID.text = ""
Me.txt_Filed_Packtype.text = ""
Me.txt_Filed_Numbers.text = ""
flag_Add = True
Me.Cmd_Add.Enabled = False
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub cmd_Exit_Click()
Unload Me
End Sub
Private Sub cmd_First_Click()
On Error GoTo err
If Rs_Common.BOF = False Then Rs_Common.MoveFirst
If IsNull(Rs_Common!编号) = False Then Me.txt_Filed_ID.text = Rs_Common!编号
If IsNull(Rs_Common!包装方式) = False Then Me.txt_Filed_Packtype.text = Rs_Common!包装方式
If IsNull(Rs_Common!每箱数量) = False Then Me.txt_Filed_Numbers.text = Rs_Common!每箱数量 Else Me.txt_Filed_Numbers.text = ""
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub cmd_Last_Click()
On Error GoTo err
If Rs_Common.EOF = False Then Rs_Common.MoveLast
If IsNull(Rs_Common!编号) = False Then Me.txt_Filed_ID.text = Rs_Common!编号
If IsNull(Rs_Common!包装方式) = False Then Me.txt_Filed_Packtype.text = Rs_Common!包装方式
If IsNull(Rs_Common!每箱数量) = False Then Me.txt_Filed_Numbers.text = Rs_Common!每箱数量 Else Me.txt_Filed_Numbers.text = ""
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub cmd_Next_Click()
On Error GoTo err
Rs_Common.MoveNext
If Rs_Common.EOF = True Then Rs_Common.MoveLast
If IsNull(Rs_Common!编号) = False Then Me.txt_Filed_ID.text = Rs_Common!编号
If IsNull(Rs_Common!包装方式) = False Then Me.txt_Filed_Packtype.text = Rs_Common!包装方式
If IsNull(Rs_Common!每箱数量) = False Then Me.txt_Filed_Numbers.text = Rs_Common!每箱数量 Else Me.txt_Filed_Numbers.text = ""
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub cmd_Preview_Click()
On Error GoTo err
Rs_Common.MovePrevious
If Rs_Common.BOF = True Then Rs_Common.MoveFirst
If IsNull(Rs_Common!编号) = False Then Me.txt_Filed_ID.text = Rs_Common!编号
If IsNull(Rs_Common!包装方式) = False Then Me.txt_Filed_Packtype.text = Rs_Common!包装方式
If IsNull(Rs_Common!每箱数量) = False Then Me.txt_Filed_Numbers.text = Rs_Common!每箱数量 Else Me.txt_Filed_Numbers.text = ""
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub cmd_Save_Click()
On Error GoTo err
If Trim(Me.txt_Filed_ID.text) = "" Or Trim(Me.txt_Filed_Packtype.text) = "" Or Trim(Me.txt_Filed_Numbers.text) = "" Then
MsgBox "编号、包装方式和每箱数量不能为空,请输入", vbCritical
Exit Sub
End If
If flag_Add = True Then
Rs_Common.AddNew
If IsNull(Trim(Me.txt_Filed_ID.text)) = False Then Rs_Common!编号 = Val(Me.txt_Filed_ID.text)
If IsNull(Trim(Me.txt_Filed_Packtype.text)) = False Then Rs_Common!包装方式 = Me.txt_Filed_Packtype.text
If IsNull(Trim(Me.txt_Filed_Numbers.text)) = False Then Rs_Common!每箱数量 = Val(Me.txt_Filed_Numbers.text)
Rs_Common.Update
flag_Add = False
Me.Cmd_Add.Enabled = True
Else
If IsNull(Me.txt_Filed_ID.text) = False Then Rs_Common!编号 = Val(Me.txt_Filed_ID.text)
If IsNull(Me.txt_Filed_Packtype.text) = False Then Rs_Common!包装方式 = Me.txt_Filed_Packtype.text
If IsNull(Trim(Me.txt_Filed_Numbers.text)) = False Then Rs_Common!每箱数量 = Val(Me.txt_Filed_Numbers.text)
Rs_Common.Update
End If
Set Frm_Pack_Type.dgrid_Art_Kind.DataSource = Nothing
Rs_Common.Close
Rs_Common.Open "select * from pack_type order by 编号", Cn_Common, adOpenKeyset, adLockOptimistic, adCmdText
Set Frm_Pack_Type.dgrid_Art_Kind.DataSource = Rs_Common
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub Form_Load()
On Error GoTo err
If Rs_Common.RecordCount = 0 Then
flag_Add = True
Me.txt_Filed_ID.text = ""
Me.txt_Filed_Packtype.text = ""
Me.txt_Filed_Numbers.text = ""
Me.Cmd_Add.Enabled = False
Else
If IsNull(Rs_Common!编号) = False Then Me.txt_Filed_ID.text = Rs_Common!编号 Else Me.txt_Filed_ID.text = ""
If IsNull(Rs_Common!包装方式) = False Then Me.txt_Filed_Packtype.text = Rs_Common!包装方式 Else Me.txt_Filed_Packtype.text = ""
If IsNull(Rs_Common!每箱数量) = False Then Me.txt_Filed_Numbers.text = Rs_Common!每箱数量 Else Me.txt_Filed_Numbers.text = ""
End If
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -