📄 form2.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "ComDlg32.OCX"
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form Form2
Caption = "商家列表"
ClientHeight = 8445
ClientLeft = 1035
ClientTop = 1140
ClientWidth = 11850
KeyPreview = -1 'True
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
NegotiateMenus = 0 'False
ScaleHeight = 8445
ScaleWidth = 11850
Begin CSCommand.Command Command7
Height = 375
Left = 10500
TabIndex = 14
Top = 75
Width = 1230
_ExtentX = 2170
_ExtentY = 661
IconAlign = 0
Icon = "Form2.frx":0000
Caption = "所属员工 &Y"
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 CSCommand.Command Command6
Height = 375
Left = 9240
TabIndex = 13
Top = 75
Width = 1230
_ExtentX = 2170
_ExtentY = 661
IconAlign = 0
Icon = "Form2.frx":001C
Caption = "历次拜访 &L"
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 CSCommand.Command Command4
Height = 360
Left = 135
TabIndex = 11
ToolTipText = "隐藏不需要导出的行信息，这个操作不会更改数据库，仅仅在本列表中删除该行信息。"
Top = 8010
Width = 1290
_ExtentX = 2275
_ExtentY = 635
IconAlign = 0
Icon = "Form2.frx":0038
Caption = "隐藏该行 &H"
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 MSComDlg.CommonDialog CommonDialog1
Left = 4935
Top = 7935
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin CSCommand.Command Command3
Height = 360
Left = 1470
TabIndex = 10
Top = 8010
Width = 1170
_ExtentX = 2064
_ExtentY = 635
IconAlign = 0
Icon = "Form2.frx":0054
Caption = "导至 &Excel"
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 MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 7425
Left = 135
TabIndex = 9
Top = 495
Width = 11610
_ExtentX = 20479
_ExtentY = 13097
_Version = 393216
RowHeightMin = 300
ScrollTrack = -1 'True
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
End
Begin CSCommand.Command Command1
Height = 345
Left = 6540
TabIndex = 8
Top = 75
Width = 1185
_ExtentX = 2090
_ExtentY = 609
IconAlign = 0
Icon = "Form2.frx":0070
Caption = "搜索 &S"
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 CSCommand.Command Command2
Height = 360
Left = 135
TabIndex = 7
Top = 75
Width = 1245
_ExtentX = 2196
_ExtentY = 635
IconAlign = 0
Icon = "Form2.frx":008C
Caption = "刷新 &R"
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.TextBox Text1
Height = 330
Left = 4770
TabIndex = 0
Top = 75
Width = 1680
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Form2.frx":00A8
Left = 2415
List = "Form2.frx":00D0
Style = 2 'Dropdown List
TabIndex = 3
Top = 90
Width = 1560
End
Begin VB.Frame Frame1
Height = 480
Left = 2715
TabIndex = 1
Top = 7905
Width = 2160
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "正在加载数据库 ..."
ForeColor = &H80000008&
Height = 180
Left = 90
TabIndex = 2
Top = 195
Width = 1620
End
End
Begin CSCommand.Command Command5
Height = 375
Left = 7980
TabIndex = 12
Top = 75
Width = 1230
_ExtentX = 2170
_ExtentY = 661
IconAlign = 0
Icon = "Form2.frx":0148
Caption = "增加拜访 &B"
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 Label4
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H000000FF&
BackStyle = 0 'Transparent
Height = 180
Left = 10380
TabIndex = 6
Top = 8100
Width = 1350
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "关键字："
Height = 180
Left = 4050
TabIndex = 5
Top = 165
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "查找项目："
Height = 180
Left = 1470
TabIndex = 4
Top = 135
Width = 900
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/24
'描 述：商务名片及客户资料管理系统 Ver 1.73
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit
Private Sub Command1_Click()
Text1.Text = Trim(Text1.Text)
If Trim(Text1.Text) = "" Then
Me.Text1.SetFocus
Else
allshow ("select * from com where " & Combo1.Text & " like '*" & Me.Text1.Text & "*' order by id desc")
End If
End Sub
Private Sub Command2_Click()
Me.MSFlexGrid1.Clear
allshow ("select * from com order by id desc")
End Sub
Private Sub Command3_Click()
If (Me.MSFlexGrid1.Rows - 1) = 0 Then
Exit Sub
End If
If Trim(Me.MSFlexGrid1.TextMatrix(0, 0)) = "" Then
Exit Sub
End If
Load FrmToExcel
FrmToExcel.Show
FrmToExcel.Label8.Caption = "1"
FrmToExcel.Label7.Caption = Me.Label1.Caption
FrmToExcel.Label6.Caption = Me.MSFlexGrid1.Rows - 1
FrmToExcel.Label5.Caption = "当前的商家列表窗体..."
End Sub
Private Sub Command4_Click()
If Me.MSFlexGrid1.RowSel = 0 Then
MsgBox "没有选中行，所以不能进行隐藏行的操作。", vbInformation
Exit Sub
End If
If Me.MSFlexGrid1.RowSel > 0 And Me.MSFlexGrid1.RowSel > 1 Then
If MsgBox("你将要隐藏【" & Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 1) & "】的资料吗？", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
Me.MSFlexGrid1.RemoveItem (Me.MSFlexGrid1.RowSel)
Else
Exit Sub
End If
Else
'MsgBox "最后一条信息，不能再删除了，否则就没有什么信息可以供导出的了。", vbInformation
MsgBox "非常抱歉，由于技术上的原因，目前此版本暂时无法删除第一行数据，这个问题后续版本有望解决，请及时关注下一版本。", vbInformation
End If
End Sub
Private Sub Command5_Click()
If Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 0) <> "" Then
AddBaiFangSub (Val(Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 0)))
End If
End Sub
Private Sub Command6_Click()
If Val(Form2.MSFlexGrid1.TextMatrix(Form2.MSFlexGrid1.RowSel, 0)) = 0 Then
Exit Sub
Else
ShowComBaifang Val(Form2.MSFlexGrid1.TextMatrix(Form2.MSFlexGrid1.RowSel, 0))
End If
End Sub
Private Sub Command7_Click()
If Val(Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 0)) > 0 Then
ShowComRen Val(Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 0))
End If
End Sub
Private Sub Form_Load()
HookWheel Me.hwnd '用于支持鼠标滚轮
Me.MSFlexGrid1.Cols = 12
Me.BackColor = FormBackColor
Me.Frame1.BackColor = Me.BackColor
Me.MSFlexGrid1.BackColorBkg = MsFlexGridBackColorBkgValue
form2show = True
Me.Height = 8955
Me.Width = 11970
Me.Top = (Screen.Height - Me.Height) / 7
Me.Left = (Screen.Width - Me.Width) / 2
Me.Combo1.ListIndex = 2
Me.Icon = MDIForm1.Icon
Me.MSFlexGrid1.BackColorFixed = 16777178
MDIForm1.ShowThisBaifang.Enabled = True
End Sub
Private Sub Form_Resize()
On Error GoTo nexterr
Me.Height = 8955
Me.Width = 11970
Exit Sub
nexterr:
End Sub
Private Sub Label1_DblClick()
Load Form11
Form11.Show
Form11.Text1.Text = Label1.Caption
Form11.Combo1.ListIndex = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
form2show = False
End Sub
Private Sub MSFlexGrid1_DblClick()
On Error GoTo dblclickerror
If Form2.MSFlexGrid1.Rows = 1 Then Exit Sub
EditComInfo (Val((Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 0)))) '显示修改窗体
Exit Sub
dblclickerror:
MsgBox Err.Number & "：" & Err.Description
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
UnHookWheel Me.hwnd '卸载鼠标滚轮的支持
MDIForm1.ShowThisBaifang.Enabled = False
End Sub
Private Sub MSFlexGrid1_GotFocus()
Set CtlWheel = MSFlexGrid1 '用于设定支持鼠标滚轮
End Sub
Private Sub MSFlexGrid1_LostFocus()
Set CtlWheel = Nothing '用于设定取消鼠标滚轮的支持
End Sub
Private Sub Text1_GotFocus()
SendKeys "{end}"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -