📄 fm_shop_dossier.frm
字号:
Begin VB.TextBox Area
DataField = "Degree"
DataSource = "datPrimaryRS"
Height = 285
Left = 1320
TabIndex = 0
Top = 2160
Width = 1935
End
Begin VB.Label Label2
Caption = "编 号:"
Height = 255
Left = 360
TabIndex = 38
Top = 360
Width = 855
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "登录时间:"
Height = 180
Index = 3
Left = 360
TabIndex = 9
Top = 735
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "店 名:"
Height = 180
Index = 4
Left = 360
TabIndex = 8
Top = 1080
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "经营性质:"
Height = 180
Index = 5
Left = 360
TabIndex = 7
Top = 1440
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "开业日期:"
Height = 180
Index = 6
Left = 360
TabIndex = 6
Top = 2520
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "品 牌:"
Height = 180
Index = 7
Left = 360
TabIndex = 5
Top = 1800
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "面 积:"
Height = 180
Index = 8
Left = 360
TabIndex = 4
Top = 2160
Width = 810
End
End
End
Attribute VB_Name = "Fm_Shop_Dossier"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim vplace As String, vPlace1 As String, vPlace2 As String, vPlace3 As String, vPlace4 As String
Private Sub cmdAdd_Click()
If MsgBox("是否要新增店中店?", vbOKCancel, "提示信息") = vbOK Then
DataEnable "B"
ButtonStyle "B"
End If
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdModify_Click()
Dim str1 As String
Dim ss As New ADODB.Recordset
str1 = FindShop()
ss.Open "select * from Shop_Dossier where code='" & str1 & "'", GetConnect
If ss.BOF Or ss.EOF = True Then
Else
Me.Code = ss!Code
Me.ShopName = "" & ss!Name
Me.Managenature = "" & ss!Managenature
Me.Brand = "" & ss!Brand
Me.Area = "" & ss!Area
Me.Officer = "" & ss!Officer
Me.Shopkeerper = "" & ss!Shopkeerper
Me.PerSonnel = "" & ss!PerSonnel
Me.Buckle = "" & ss!Buckle
Me.Memo = "" & ss!Memo
Me.Level = "" & ss!Level
Me.TelePhone = "" & ss!TelePhone
If ss!Direction <> "" Then
Me.Place1 = Trim(ss!Direction)
End If
Me.Place2 = CodeName("SELECT name From Area WHERE code='" & ss!Place & " '")
Me.Place3 = CodeName("SELECT name From Area WHERE code='" & ss!Province & " '")
Me.Place4 = CodeName("SELECT name From Area WHERE code='" & ss!City & " '")
DataEnable "C"
ButtonStyle "B"
End If
ss.Close
End Sub
Private Sub cmdUpdate_Click()
On Error Resume Next
Dim IsTrue As Boolean
Dim Rst1 As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset
Dim rst3 As New ADODB.Recordset
Dim rstShopper As New ADODB.Recordset
If Me.Code = "" Then
'----------------------------------新增的情况-------------------------------------------
IsTrue = True
If Me.Place1 = "" Or Me.Place1 = "*" Then
IsTrue = False
End If
If Me.Place2 = "" Or Me.Place2 = "*" Then
IsTrue = False
End If
If Me.Place3 = "" Or Me.Place3 = "*" Then
IsTrue = False
End If
'-------------------------取出店中店编号---------------------------------------------
If IsTrue = True Then
Rst1.Open "SELECT code FROM area WHERE area.name='" & Me.Place2.Text & "'", GetConnect
vPlace2 = NameCode("select code from area where name='" & Me.Place2 & "'")
vPlace3 = NameCode("select code from area where name='" & Me.Place3 & "'")
vPlace4 = NameCode("select code from area where name='" & Me.Place4 & "'")
If vPlace2 <> CodeCode("select province from area where code='" & vPlace3 & "' ") Then
IsTrue = False
Else
If vPlace3 <> CodeCode("select province from area where code='" & vPlace4 & "' ") Then
IsTrue = False
Else
vplace = vPlace2 & vPlace3 & vPlace4
End If
End If
End If
'-----------------------------------------------------------------------------
If IsTrue = True And vplace <> "" Then
If MsgBox("登录资料是否存盘?", vbOKCancel, "提示信息") = vbOK Then
rstShopper.Open "select * from Shop_Dossier where left(code,6)='" & vplace & "' order by code", GetConnect, adOpenStatic, adLockOptimistic
If rstShopper.BOF And rstShopper.EOF Then
vplace = vplace & "01"
Else
rstShopper.MoveLast
vplace = Left(rstShopper!Code, 6) & Format((Val(Right(rstShopper!Code, 2)) + 1), "00")
End If
rstShopper.AddNew
rstShopper!Code = vplace
rstShopper!Name = Me.ShopName
rstShopper!Managenature = Me.Managenature
rstShopper!Brand = Me.Brand
rstShopper!Area = Me.Area
rstShopper!Officer = Me.Officer
rstShopper!Shopkeerper = Me.Shopkeerper
rstShopper!PerSonnel = 0 & Me.PerSonnel
rstShopper!Buckle = 0 & Me.Buckle
rstShopper!Memo = Me.Memo
rstShopper!Level = 0 & Me.Level
rstShopper!TelePhone = "" & Me.TelePhone
rstShopper!RecordDate = Me.RecordDate
rstShopper!OpenDate = Me.OpenDate
rstShopper!Direction = Me.Place1
rstShopper!Place = vPlace2
rstShopper!Province = vPlace3
rstShopper!City = vPlace4
rstShopper.Update
MsgBox "存盘完毕!", , "提示信息"
Me.Code = vplace
DataEnable "A"
ButtonStyle "A"
rstShopper.Close
End If
Else
MsgBox "输入资料有误,请查正!", , "提示信息"
End If
Else
'----------------------------------修改的情况-----------------------------------------------
rstShopper.Open "select * from Shop_Dossier where code='" & Me.Code & "' order by code", GetConnect, adOpenStatic, adLockOptimistic
If rstShopper.RecordCount > 0 Then
rstShopper!Name = Me.ShopName.Text
rstShopper!Managenature = Me.Managenature.Text
rstShopper!Brand = Me.Brand.Text
rstShopper!Area = Me.Area.Text
rstShopper!Officer = Me.Officer.Text
rstShopper!Shopkeerper = Me.Shopkeerper.Text
rstShopper!PerSonnel = Me.PerSonnel.Text
rstShopper!Buckle = Me.Buckle.Text
rstShopper!Memo = Me.Memo.Text
rstShopper!Level = Me.Level.Text
rstShopper!TelePhone = Me.TelePhone.Text
rstShopper.Update
MsgBox "存盘完毕!", , "提示信息"
DataEnable "A"
ButtonStyle "A"
End If
rstShopper.Close
End If
End Sub
Private Sub Code_GotFocus()
If Me.ShopName.Enabled = True Then
Me.ShopName.SetFocus
Else
Me.cmdClose.SetFocus
End If
End Sub
Private Sub Form_Load()
ComboListChick Place2, "SELECT name FROM area WHERE style='1'"
ComboListChick Place3, "SELECT name FROM area WHERE style='2' or style='3' or style='4' Order by code;"
ComboListChick Place4, "SELECT name FROM area WHERE style='5' Order by code;"
Me.Place1.Text = "*"
DataEnable "A"
ButtonStyle "A"
End Sub
Private Sub DataEnable(vStyle As String)
Select Case vStyle
Case "A"
Me.Place1.Enabled = False
Me.Place2.Enabled = False
Me.Place3.Enabled = False
Me.Place4.Enabled = False
Me.RecordDate.Enabled = False
Me.ShopName.Enabled = False
Me.Managenature.Enabled = False
Me.Brand.Enabled = False
Me.Area.Enabled = False
Me.OpenDate.Enabled = False
Me.Officer.Enabled = False
Me.Shopkeerper.Enabled = False
Me.TelePhone.Enabled = False
Me.PerSonnel.Enabled = False
Me.Buckle.Enabled = False
Me.Level.Enabled = False
Me.Memo.Enabled = False
Case "B"
Me.Code = ""
Me.Place1.Enabled = True
Me.Place1.Text = "*"
Me.Place2.Enabled = True
Me.Place2.Text = "*"
Me.Place3.Enabled = True
Me.Place3 = "*"
Me.Place4.Enabled = True
Me.Place4 = "*"
Me.RecordDate.Enabled = True
Me.ShopName.Enabled = True
Me.ShopName = ""
Me.Managenature.Enabled = True
Me.Managenature = "店中店"
Me.Brand.Enabled = True
Me.Brand = ""
Me.Area.Enabled = True
Me.Area = 0
Me.OpenDate.Enabled = True
Me.Officer.Enabled = True
Me.Officer = ""
Me.Shopkeerper.Enabled = True
Me.Shopkeerper = ""
Me.TelePhone.Enabled = True
Me.TelePhone = ""
Me.PerSonnel.Enabled = True
Me.PerSonnel = 0
Me.Buckle.Enabled = True
Me.Buckle = 0
Me.Level.Enabled = True
Me.Level = 0
Me.Memo.Enabled = True
Me.Memo = ""
Case "C"
Me.Place1.Enabled = True
Me.Place2.Enabled = True
Me.Place3.Enabled = True
Me.Place4.Enabled = True
Me.RecordDate.Enabled = True
Me.ShopName.Enabled = True
Me.Managenature.Enabled = True
Me.Brand.Enabled = True
Me.Area.Enabled = True
Me.OpenDate.Enabled = True
Me.Officer.Enabled = True
Me.Shopkeerper.Enabled = True
Me.TelePhone.Enabled = True
Me.PerSonnel.Enabled = True
Me.Buckle.Enabled = True
Me.Level.Enabled = True
Me.Memo.Enabled = True
End Select
End Sub
Private Sub ButtonStyle(vStyle As String)
Select Case vStyle
Case "A"
Me.cmdAdd.Enabled = True
Me.cmdModify.Enabled = True
Me.cmdUpdate.Enabled = False
Me.cmdClose.Enabled = True
Case "B"
Me.cmdAdd.Enabled = False
Me.cmdModify.Enabled = False
Me.cmdUpdate.Enabled = True
Me.cmdClose.Enabled = True
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -