📄 frmmember.frm
字号:
VERSION 5.00
Object = "{E3AE1957-12AC-4DB7-8CE4-EB281F9E0359}#1.0#0"; "XPButton.ocx"
Object = "{FDAC2480-F4ED-4632-AA78-DCA210A74E49}#6.0#0"; "SPR32X60.ocx"
Object = "{4932CEF1-2CAA-11D2-A165-0060081C43D9}#2.0#0"; "Actbar2.ocx"
Begin VB.Form frmMember
AutoRedraw = -1 'True
Caption = "Form2"
ClientHeight = 5985
ClientLeft = 1680
ClientTop = 2655
ClientWidth = 8430
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 5985
ScaleWidth = 8430
Begin ActiveBar2LibraryCtl.ActiveBar2 Abar
Align = 1 'Align Top
Height = 5985
Left = 0
TabIndex = 0
Top = 0
Width = 8430
_LayoutVersion = 1
_ExtentX = 14870
_ExtentY = 10557
_DataPath = ""
Bands = "frmMember.frx":0000
Begin VB.PictureBox Pic
Height = 5865
Left = 30
ScaleHeight = 5805
ScaleWidth = 8175
TabIndex = 1
Top = 270
Width = 8235
Begin VB.Data siteData
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 420
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6540
Width = 1140
End
Begin FPSpread.vaSpread fpsp
Bindings = "frmMember.frx":0260
Height = 5385
Left = 180
TabIndex = 8
Top = 240
Width = 4005
_Version = 393216
_ExtentX = 7064
_ExtentY = 9499
_StockProps = 64
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
SpreadDesigner = "frmMember.frx":0277
End
Begin VB.Frame Fredit
Caption = "会员信息"
Enabled = 0 'False
Height = 5475
Left = 4320
TabIndex = 2
Top = 30
Width = 3495
Begin VB.TextBox Tprice
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
ForeColor = &H00000000&
Height = 345
Left = 1110
TabIndex = 22
Top = 3810
Width = 1215
End
Begin VB.TextBox tzw
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "name"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 345
Left = 1110
MaxLength = 50
TabIndex = 20
ToolTipText = "此项不能修改"
Top = 3342
Width = 1230
End
Begin VB.TextBox Tphone
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "name"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 345
Left = 1110
MaxLength = 25
TabIndex = 16
Top = 1956
Width = 2220
End
Begin VB.TextBox temail
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "name"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 345
Left = 1110
MaxLength = 50
TabIndex = 15
ToolTipText = "此项不能修改"
Top = 2418
Width = 2220
End
Begin VB.TextBox tunit
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "name"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 345
Left = 1110
MaxLength = 50
TabIndex = 14
ToolTipText = "此项不能修改"
Top = 2880
Width = 2220
End
Begin VB.TextBox Tsex
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "文件说明"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 345
Left = 1110
MaxLength = 4
TabIndex = 12
Top = 1494
Width = 435
End
Begin VB.PictureBox Picture1
BackColor = &H00FFFFC0&
BorderStyle = 0 'None
Height = 285
Left = 1590
ScaleHeight = 285
ScaleWidth = 1725
TabIndex = 10
Top = 1530
Width = 1725
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "(1)表示男(2)表示女"
ForeColor = &H00000000&
Height = 180
Index = 0
Left = 60
TabIndex = 11
Top = 60
Width = 1620
End
End
Begin VB.TextBox Tcode
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
ForeColor = &H00000000&
Height = 345
Left = 1110
TabIndex = 9
Top = 570
Width = 1245
End
Begin VB.TextBox Tname
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
ForeColor = &H00000000&
Height = 345
Left = 1110
TabIndex = 3
Top = 1032
Width = 1995
End
Begin XPButton.Button cok
Height = 345
Left = 600
TabIndex = 4
Top = 4680
Width = 945
_ExtentX = 1667
_ExtentY = 609
caption = "确认"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPButton.Button ccancle
Height = 345
Left = 1890
TabIndex = 5
Top = 4680
Width = 945
_ExtentX = 1667
_ExtentY = 609
caption = "放弃"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "*折扣率："
Height = 180
Index = 3
Left = 255
TabIndex = 23
Top = 3915
Width = 810
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "职务："
ForeColor = &H80000008&
Height = 180
Index = 0
Left = 525
TabIndex = 21
Top = 3450
Width = 540
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "联系电话："
ForeColor = &H80000008&
Height = 180
Index = 5
Left = 165
TabIndex = 19
Top = 2055
Width = 900
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "邮件："
ForeColor = &H80000008&
Height = 180
Index = 6
Left = 525
TabIndex = 18
Top = 2520
Width = 540
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "工作单位："
ForeColor = &H80000008&
Height = 180
Index = 8
Left = 165
TabIndex = 17
Top = 2985
Width = 900
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "性别："
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 525
TabIndex = 13
Top = 1590
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "*卡号："
Height = 180
Index = 7
Left = 435
TabIndex = 7
Top = 660
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "*客户名称："
Height = 180
Index = 1
Left = 75
TabIndex = 6
Top = 1125
Width = 990
End
End
End
End
End
Attribute VB_Name = "frmMember"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rst As Recordset
Dim dbs As Database
Private Sub ABar_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)
'On Error GoTo er
Select Case Tool.Name
Case "m_add"
CurrOp = "add"
Fredit.Enabled = True
fpsp.Enabled = False
Tname.Enabled = True
Abar.Tools("m_add").Enabled = False
Abar.Tools("m_modify").Enabled = False
Abar.Tools("m_del").Enabled = False
Abar.Tools("m_print").Enabled = False
Tcode.SetFocus
Case "m_del"
If MsgBox("是否删除VIP会员：" & Tname.Text & "?", vbQuestion + vbYesNo, "VIP会员删除") = vbYes Then
dbs.Execute "delete from VIP where 卡号 = '" & Tcode.Text & "'"
rst.Requery
InitGrid
End If
Case "m_modify"
CurrOp = "modify"
Fredit.Enabled = True
fpsp.Enabled = False
Abar.Tools("m_add").Enabled = False
Abar.Tools("m_modify").Enabled = False
Abar.Tools("m_del").Enabled = False
Abar.Tools("m_print").Enabled = False
Tcode.SetFocus
Case "m_print"
InitGrid
tmp = "VIP会员名称" & Space(10) & "容纳人数" & Space(10) & "台位费"
Printer.Print tmp
Printer.Print "========================================="
Do While Not rst.EOF
tmp = rst!siteName & Space(10) & rst!PersonerN & Space(10) & rst!SitePay
Printer.Print tmp
rst.MoveNext
Loop
Case "m_exit"
Unload Me
End Select
Exit Sub
er:
ErrorHandle ""
End Sub
Private Sub Form_Load()
Dim t As ActiveBar2LibraryCtl.Tool
Dim b As ActiveBar2LibraryCtl.Band
Dim keys(0) As New ShortCut
GetFormSet Me, frmMain
Debug.Print Me.Width
Abar.ClientAreaControl = Pic
Me.Icon = LoadResPicture(227, vbResIcon)
Me.Caption = "VIP会员管理"
Set Tool = Abar.Tools.Add(0, "Separator")
With Tool
.Caption = ""
.Category = "Format"
.ControlType = ddTTSeparator
End With
Set b = Abar.Bands.Add("toolsMain")
b.Type = ddBTNormal
b.Caption = "工具条"
b.DisplayMoreToolsButton = False
b.DockingArea = ddDATop
b.MouseTracking = ddTSBevel
b.GrabHandleStyle = ddGSNormal
Set t = Abar.Tools.Add(GetUniqueToolID(), "m_add")
With t
.Caption = "增加"
.SetPicture ddITNormal, LoadResPicture(101, vbResBitmap)
.ControlType = ddTTButton
keys(0) = "Control+A"
.ShortCuts = keys
.ToolTipText = "增加VIP会员"
.CaptionPosition = ddCPBelow
.Style = ddSIconText
End With
Set t = Abar.Tools.Add(GetUniqueToolID(), "m_modify")
With t
.Caption = "修改"
.SetPicture ddITNormal, LoadResPicture(200, vbResBitmap)
.ControlType = ddTTButton
keys(0) = "Control+E"
.ShortCuts = keys
.ToolTipText = "修改VIP会员信息"
.CaptionPosition = ddCPBelow
.Style = ddSIconText
End With
Set t = Abar.Tools.Add(GetUniqueToolID(), "m_del")
With t
.Caption = "删除"
.SetPicture ddITNormal, LoadResPicture(102, vbResBitmap)
.ControlType = ddTTButton
keys(0) = "Control+D"
.ShortCuts = keys
.ToolTipText = "删除VIP会员"
.CaptionPosition = ddCPBelow
.Style = ddSIconText
End With
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -