📄 sale order form.frm
字号:
EndProperty
Height = 375
Left = 720
TabIndex = 26
Top = 2115
Width = 1815
End
Begin VB.Label Label10
BackColor = &H80000013&
Caption = "Total Amount"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 23
Top = 3880
Width = 1815
End
Begin VB.Label Label3
BackColor = &H80000013&
Caption = "Valid Upto"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 22
Top = 1245
Width = 1335
End
Begin VB.Label Label7
BackColor = &H80000013&
Caption = "Total Mounds"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 21
Top = 3000
Width = 1695
End
Begin VB.Label Label6
BackColor = &H80000013&
Caption = "Product Name"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 20
Top = 2560
Width = 1935
End
Begin VB.Label Label4
BackColor = &H80000013&
Caption = "Contract Date"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 19
Top = 795
Width = 1815
End
Begin VB.Label Label2
BackColor = &H80000013&
Caption = "Customer Code"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 18
Top = 1680
Width = 1815
End
Begin VB.Label Label1
BackColor = &H80000013&
Caption = "Contract No"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 17
Top = 360
Width = 1455
End
Begin VB.Label Label8
BackColor = &H80000013&
Caption = "Rate/Mound"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 16
Top = 3440
Width = 1455
End
End
Begin VB.Frame Frame2
BackColor = &H80000013&
Caption = "Operations"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 600
TabIndex = 13
Top = 5520
Width = 6255
Begin VB.Frame Frame3
BackColor = &H00FFFFFF&
Height = 735
Left = 120
TabIndex = 24
Top = 240
Width = 6015
End
End
Begin VB.Image Image3
Height = 645
Left = 6880
Picture = "Sale Order form.frx":0040
Top = 6120
Width = 555
End
Begin VB.Image Image2
Height = 855
Left = -1680
Picture = "Sale Order form.frx":1352
Top = 6720
Width = 8775
End
Begin VB.Label Label12
BackColor = &H80000013&
Height = 6135
Left = 6960
TabIndex = 31
Top = 0
Width = 375
End
Begin VB.Image Image1
Height = 7560
Left = 7080
Picture = "Sale Order form.frx":19A90
Top = 0
Width = 1440
End
Begin VB.Label Label5
Caption = "Product Code"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 0
TabIndex = 28
Top = 0
Visible = 0 'False
Width = 1335
End
Begin VB.Label Label9
BackColor = &H80000013&
Caption = "Sale Product Contract "
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 1200
TabIndex = 14
Top = 240
Width = 5175
End
End
Attribute VB_Name = "Form28"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset
Dim rs5 As New ADODB.Recordset
Dim rs6 As New ADODB.Recordset
Dim rs7 As New ADODB.Recordset
Dim rs8 As New ADODB.Recordset
Dim rs9 As New ADODB.Recordset
Dim rs10 As New ADODB.Recordset
Dim rs11 As New ADODB.Recordset
Public Sub reset()
Text2.Text = ""
code.Text = ""
nam.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text7.Text = ""
'/////////////////////
dat.Value = Date
valid.Value = Date
Command3.SetFocus
If rs.State = adStateOpen Then rs.Close
rs.Open "Sale_Receive_Order_Table", cnn, adOpenStatic, adLockReadOnly, adCmdTable
If rs.RecordCount = 0 Then
Text1.Text = 1
Else
rs.MoveLast
Text1.Text = rs.Fields(0) + 1
End If
'//////////////////////////
End Sub
Private Sub clear_Click(Index As Integer)
reset
End Sub
Private Sub Command1_Click(Index As Integer)
Set Form27.callingform = Me
Form27.Show vbModal
End Sub
Private Sub Command2_Click()
If Text2.Text = "" Then
MsgBox "Please Enter the Customer Code"
Command3.SetFocus
Exit Sub
End If
If code.Text = "" Then
MsgBox "Please enter the Product Code"
code.SetFocus
Exit Sub
End If
If nam.Text = "" Then
MsgBox "Please Enter the Product Name"
nam.SetFocus
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -