?? form2.frm
字號:
VERSION 5.00
Object = "{CFA7AFF4-3242-4269-9172-7389D695AE01}#1.0#0"; "StoneXP.ocx"
Begin VB.Form Form2
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "新商品添加"
ClientHeight = 2370
ClientLeft = 45
ClientTop = 435
ClientWidth = 4530
Icon = "Form2.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
ScaleHeight = 2370
ScaleWidth = 4530
StartUpPosition = 2 '屏幕中心
Begin 銷售系統.FCombo text1
Height = 315
Index = 0
Left = 1200
TabIndex = 5
Top = 570
Width = 2295
_ExtentX = 4048
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
ListIndex = -1
End
Begin VB.Timer Timer1
Interval = 10
Left = 4080
Top = 1320
End
Begin StoneXP.XPButton XPButton2
Height = 375
Left = 2520
TabIndex = 4
Top = 1800
Width = 1215
_ExtentX = 2143
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "離 開"
MouseIcon = "Form2.frx":F84A
MousePointer = 99
End
Begin StoneXP.XPButton XPButton1
Height = 375
Left = 600
TabIndex = 3
Top = 1800
Width = 1215
_ExtentX = 2143
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "確 定"
MouseIcon = "Form2.frx":FB64
MousePointer = 99
End
Begin 銷售系統.FCombo text1
Height = 315
Index = 1
Left = 1320
TabIndex = 6
Top = 960
Width = 2295
_ExtentX = 4048
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
ListIndex = -1
End
Begin 銷售系統.FCombo text1
Height = 315
Index = 2
Left = 1320
TabIndex = 7
Top = 1320
Width = 2295
_ExtentX = 4048
_ExtentY = 556
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
ListIndex = -1
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "新單位電話:"
ForeColor = &H00000000&
Height = 255
Index = 2
Left = 120
TabIndex = 2
Top = 1350
Width = 1335
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "新單位地址:"
ForeColor = &H00000000&
Height = 255
Index = 1
Left = 120
TabIndex = 1
Top = 990
Width = 1095
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "新單位名稱:"
ForeColor = &H00000000&
Height = 255
Index = 0
Left = 120
TabIndex = 0
Top = 600
Width = 1095
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Private Sub Form_Load()
'Form2.BackColor = RGB(97, 69, 133)
'For i = 0 To 2
'text1(i).BackColor = Form2.BackColor
'Next
XPButton1.Default = True
End Sub
Private Sub Text1_Change(Index As Integer)
If Index = 0 Then
If Text1(0).Text <> "" Then
Set s2 = cnn.Execute("select * from 商品名稱 where 商品類型='" & Text1(0).Text & "'")
Text1(1).Clear
Do While s2.EOF = False
Text1(1).AddItem s2.Fields(1)
s2.MoveNext
Loop
Set s2 = Nothing
End If
End If
End Sub
Private Sub Timer1_Timer()
If duixiang = 1 Then
Label1(0).Caption = "新單位名稱:"
Label1(1).Caption = "新單位地址:"
Label1(2).Caption = "新單位電話:"
Me.Caption = "新對象單位添加"
End If
If duixiang = 2 Then
Label1(0).Caption = "新商品類型:"
Label1(1).Caption = "新商品名稱:"
Label1(2).Caption = "對應商品型號:"
Set s1 = cnn.Execute("select * from 商品類型")
Text1(0).Clear
Do While s1.EOF = False
Text1(0).AddItem s1.Fields(0)
s1.MoveNext
Loop
Me.Caption = "新商品添加"
End If
Timer1.Interval = 0
End Sub
Private Sub XPButton1_Click()
If Text1(0).Text = "" And Text1(1).Text = "" Then
MsgBox "數據沒有輸入完整!", vbInformation, "輸入錯誤"
Exit Sub
End If
If duixiang = 1 Then
If qy2.State = adStateOpen Then '檢測單位是否在列表中
qy2.Close
End If
qy2.Open "select * from 合作單位 where 單位名稱='" & Text1(0).Text & "'", cnn, adOpenKeyset, adLockOptimistic, adCmdText
If qy2.EOF = True Then
qy2.AddNew
For i = 0 To 2
qy2.Fields(i) = Text1(i).Text
Next
qy2.Update
MsgBox "添加成功,繼續操作", vbInformation, "添加成功"
Else
MsgBox "該單位己經存在,無須再次添加!", vbInformation, "單位名稱己存在"
End If
End If
If duixiang = 2 Then
jsql = "select * from 商品類型 where 商品類型='" & Text1(0).Text & "'"
Set s1 = cnn.Execute(jsql)
If s1.EOF = True Then
jsql = "insert into 商品類型 values('" & Text1(0).Text & "')"
Set s1 = cnn.Execute(jsql)
End If
jsql = "select * from 商品名稱 where 商品類型='" & Text1(1).Text & "'"
Set s1 = cnn.Execute(jsql)
If s1.EOF = True Then
jsql = "insert into 商品名稱 values('" & Text1(0).Text & "','" & Text1(1).Text & "')"
Set s1 = cnn.Execute(jsql)
End If
If Text1(2).Text <> "" Then
jsql = "select * from 商品型號 where 商品型號='" & Text1(2).Text & "' and 商品名稱='" & Text1(1).Text & "'"
Set s1 = cnn.Execute(jsql)
If s1.EOF = True Then
jsql = "insert into 商品型號 values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "')"
Set s1 = cnn.Execute(jsql)
Text1(2).Text = ""
Else
MsgBox "當前商品己存在!", vbInformation, "商品重復"
Exit Sub
End If
End If
Set s1 = Nothing
MsgBox "新商品添加成功!", vbInformation, "操作成功"
End If
End Sub
Private Sub XPButton2_Click()
Unload Me
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -