sales_form.frm
来自「很好一套库存管理」· FRM 代码 · 共 1,955 行 · 第 1/5 页
FRM
1,955 行
Top = 840
Width = 9855
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Index = 4
Left = 1920
Locked = -1 'True
TabIndex = 4
Top = 1200
Width = 1575
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Index = 0
Left = 1920
Locked = -1 'True
TabIndex = 0
Top = 240
Width = 1455
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 1920
TabIndex = 1
Top = 600
Width = 3615
End
Begin LVbuttons.LaVolpeButton LaVolpeButton1
Height = 315
Left = 5640
TabIndex = 2
Top = 600
Width = 615
_ExtentX = 1085
_ExtentY = 556
BTYPE = 3
TX = "&New"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
BCOL = 14737632
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "sales_form.frx":0ECE
ALIGN = 1
IMGLST = "(None)"
IMGICON = "(None)"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
End
Begin LVbuttons.LaVolpeButton LaVolpeButton2
Height = 315
Left = 4200
TabIndex = 3
Top = 960
Width = 1335
_ExtentX = 2355
_ExtentY = 556
BTYPE = 3
TX = "&Verify"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
BCOL = 14737632
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "sales_form.frx":0EEA
ALIGN = 1
IMGLST = "(None)"
IMGICON = "(None)"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 8040
TabIndex = 20
Top = 240
Width = 1695
_ExtentX = 2990
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
OLEDropMode = 1
CalendarBackColor= 16777215
CustomFormat = "dd-MMM-yyyy"
Format = 47841283
CurrentDate = 37457
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Sales Date"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 6840
TabIndex = 28
Top = 360
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Customer ID"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 120
TabIndex = 27
Top = 1200
Width = 1695
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Invoice Number"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 120
TabIndex = 26
Top = 240
Width = 1695
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Customer Name"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 120
TabIndex = 25
Top = 600
Width = 1695
End
End
Begin LVbuttons.LaVolpeButton cmd
Height = 735
Left = 8040
TabIndex = 19
Top = 6240
Width = 1815
_ExtentX = 3201
_ExtentY = 1296
BTYPE = 3
TX = "Save and Generate Bill (F5)"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
BCOL = 14737632
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "sales_form.frx":0F06
ALIGN = 1
IMGLST = "(None)"
IMGICON = "(None)"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "Items Description"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 12
Left = 4920
TabIndex = 38
Top = 5760
Width = 1935
End
Begin VB.Label issues
BackStyle = 0 'Transparent
Caption = "Please Be Sure while adding Sales entry in to Sales Master. You will not be able to delete it later or Modify any of the field."
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 240
TabIndex = 23
Top = 360
Width = 9135
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "Sales Entry Form"
BeginProperty Font
Name = "Verdana"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 240
TabIndex = 22
Top = 0
Width = 5175
End
Begin VB.Image Image1
Height = 840
Left = 0
Picture = "sales_form.frx":0F22
Stretch = -1 'True
Top = 0
Width = 10080
End
End
Attribute VB_Name = "sales_form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs_custo_datail As New ADODB.Recordset
Dim rs_sales_master As New ADODB.Recordset
Dim rs_cust_system_detail As New ADODB.Recordset
Dim RS_ITEM As New ADODB.Recordset
Dim rs_item_type As New ADODB.Recordset
Dim rs_cur_invoice_item As New ADODB.Recordset
Dim RS_PUR_ITEMS As New ADODB.Recordset
Dim INVOICE_NUMBER As String
Dim rs_cur_record_count As New ADODB.Recordset
Dim Status As Boolean
Dim RS_SALES_INVOICE_DESC As New ADODB.Recordset
Public SNAME As String
Public FNAME As String
Public SALE_TYPE As String
Public SYSTEM_QTY As Integer
Public TOTAL_TRAN_AMT As Double
Dim GRID2_CLICKED As Boolean
Private Sub cmd_Click()
If SALE_TYPE = "SYSTEM" Then
Dim d As New ADODB.Recordset
d.Open "SELECT * FROM CHECK_QTY", db, adOpenDynamic, adLockOptimistic
While d.EOF <> True
If d.Fields(1).Value <> SYSTEM_QTY Then
MsgBox "Qty of some Item is less or greater than the required Qty", vbCritical, "Enter Proper Qty from Each Items"
Exit Sub
End If
d.MoveNext
Wend
End If
If Len(Combo1.Text) = 0 Then
MsgBox "Customer Name not found ...", vbInformation, "Enter Party Name ..."
Exit Sub
End If
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?