【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了FMNEW_BGDS.frm相关资料，希望对各位网友有所帮助!
VERSION 5.00
Begin VB.Form FMNEW_BGDS
Caption = "产生新产品"
ClientHeight = 2955
ClientLeft = 60
ClientTop = 345
ClientWidth = 6300
LinkTopic = "Form1"
ScaleHeight = 2955
ScaleWidth = 6300
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "新增"
Height = 1455
Left = 3720
TabIndex = 10
Top = 1440
Width = 2535
End
Begin VB.TextBox BGPMM
DataField = "BGPMM"
DataSource = "Adodc1"
BeginProperty Font
Name = "Tahoma"
Size = 15.75
Charset = 136
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1560
TabIndex = 4
Text = "0"
Top = 2400
Width = 2000
End
Begin VB.TextBox BGPVP
DataField = "BGPVP"
DataSource = "Adodc1"
BeginProperty Font
Name = "Tahoma"
Size = 15.75
Charset = 136
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1560
TabIndex = 3
Text = "0"
Top = 1920
Width = 2000
End
Begin VB.TextBox BGPST
DataField = "BGPST"
DataSource = "Adodc1"
BeginProperty Font
Name = "Tahoma"
Size = 15.75
Charset = 136
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1560
TabIndex = 2
Text = "0"
Top = 1440
Width = 2000
End
Begin VB.TextBox BGNAM
DataField = "BGNAM"
DataSource = "Adodc1"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1560
TabIndex = 1
Top = 720
Width = 3000
End
Begin VB.TextBox BGENO
DataField = "BGENO"
DataSource = "Adodc1"
BeginProperty Font
Name = "Tahoma"
Size = 15.75
Charset = 136
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1560
TabIndex = 0
Top = 240
Width = 3000
End
Begin
VB.Label LBBGPMM
Caption = "
会员价"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 9
Top = 2467
Width = 1200
End
Begin VB.Label LBBGPVP
Caption = "贵宾价"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 8
Top = 1987
Width = 1200
End
Begin VB.Label LBBGPST
Caption = "标准价"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 7
Top = 1507
Width = 1200
End
Begin VB.Label LBBGNAM
Caption = "商品名称"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 6
Top = 787
Width = 1995
End
Begin VB.Label LBBGENO
Caption = "商品条码"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 5
Top = 307
Width = 2000
End
End
Attribute VB_Name = "FMNEW_BGDS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public CN As New ADODB.Connection, RS As New ADODB.Recordset
Public SQL As String
Const DBPATH = "./POS.MDB"
Const ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPATH
Private Sub BGENO_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
BGNAM.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub BGNAM_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
BGPST.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub BGPMM_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call Command1_Click
End If
End Sub
Private Sub BGPST_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
BGPVP.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub BGPVP_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
BGPMM.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub Command1_Click()
If (BGENO.Text = "") And (BGNAM.Text = "") Then
MsgBox "输入资料不完整"
Else
CN.Open ConnString
SQL = "SELECT * FROM BGDS "
SQL = SQL & "WHERE BGENO = '" & BGENO.Text & "' "
RS.Open SQL, ConnString, , , adCmdText
If RS.EOF = False Then
MsgBox "已经有此笔资料了"
Else
SQL = "INSERT INTO BGDS"
SQL = SQL & "( BGENO, BGNAM, BGPST, BGPVP, BGPMM )"
SQL = SQL & " VALUES ("
SQL = SQL & " '" & BGENO.Text & "' , "
SQL = SQL & " '" & BGNAM.Text & "' , "
SQL = SQL & " " & BGPST.Text & " , "
SQL = SQL & " " & BGPVP.Text & " , "
SQL = SQL & " " & BGPMM.Text & " "
SQL = SQL & " ) "
CN.Execut
相关文章
2013-9-1
