📄 form13.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form Form13
BorderStyle = 1 'Fixed Single
Caption = "商家的拜访记录列表"
ClientHeight = 8430
ClientLeft = 45
ClientTop = 375
ClientWidth = 12660
LinkTopic = "Form13"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 8430
ScaleWidth = 12660
Begin VB.TextBox Text7
Height = 315
Left = 11115
TabIndex = 20
Top = 390
Visible = 0 'False
Width = 1230
End
Begin CSCommand.Command Command2
Height = 375
Left = 10935
TabIndex = 19
Top = 1785
Width = 1620
_ExtentX = 2858
_ExtentY = 661
IconAlign = 0
Icon = "Form13.frx":0000
Caption = "企业信息 &Q"
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 Command1
Height = 375
Left = 10935
TabIndex = 18
Top = 2220
Width = 1635
_ExtentX = 2884
_ExtentY = 661
IconAlign = 0
Icon = "Form13.frx":001C
Caption = "增加记录 &A"
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.Frame Frame5
Caption = "本次拜访"
Height = 690
Left = 135
TabIndex = 15
Top = 75
Width = 5280
Begin VB.TextBox Text6
Height = 285
Left = 1710
TabIndex = 17
Top = 225
Width = 3450
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "本次拜訪的時間："
Height = 180
Left = 240
TabIndex = 16
Top = 285
Width = 1440
End
End
Begin VB.Frame Frame4
Caption = "拜访记录的全部内容"
Height = 2520
Left = 5475
TabIndex = 13
Top = 75
Width = 5385
Begin VB.TextBox Text5
Height = 2130
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 14
Top = 240
Width = 5145
End
End
Begin VB.Frame Frame3
Height = 435
Left = 135
TabIndex = 11
Top = 7875
Width = 9210
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 180
Left = 105
TabIndex = 12
Top = 165
Width = 90
End
End
Begin VB.Frame Frame2
Caption = "拜訪記錄列表"
ForeColor = &H00800000&
Height = 5145
Left = 135
TabIndex = 9
Top = 2700
Width = 12420
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 4680
Left = 165
TabIndex = 10
Top = 270
Width = 12075
_ExtentX = 21299
_ExtentY = 8255
_Version = 393216
RowHeightMin = 300
ScrollTrack = -1 'True
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
End
End
Begin VB.Frame Frame1
Caption = "商家信息"
ForeColor = &H00800000&
Height = 1785
Left = 135
TabIndex = 0
Top = 810
Width = 5280
Begin VB.TextBox Text4
Height = 285
Left = 1155
TabIndex = 8
Top = 1335
Width = 3975
End
Begin VB.TextBox Text3
Height = 285
Left = 1155
TabIndex = 6
Top = 605
Width = 3975
End
Begin VB.TextBox Text2
Height = 285
Left = 1155
TabIndex = 4
Top = 970
Width = 3975
End
Begin VB.TextBox Text1
Height = 285
Left = 1155
TabIndex = 2
Top = 240
Width = 3975
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "企业法人："
Height = 180
Left = 255
TabIndex = 7
Top = 1395
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商家地址："
Height = 180
Left = 240
TabIndex = 5
Top = 645
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "企业电话："
Height = 180
Left = 255
TabIndex = 3
Top = 1020
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商家名称："
Height = 180
Left = 240
TabIndex = 1
Top = 285
Width = 900
End
End
End
Attribute VB_Name = "Form13"
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()
AddBaiFangSub (Val(Text7.Text))
End Sub
Private Sub Command2_Click()
EditComInfo (Val(Text7.Text))
End Sub
Private Sub Form_Load()
HookWheel Me.hwnd '用于支持鼠标滚轮
Me.MSFlexGrid1.BackColorFixed = 16777178: Me.Icon = MDIForm1.Icon
Me.MSFlexGrid1.BackColorBkg = MsFlexGridBackColorBkgValue
Me.BackColor = FormBackColor
Me.Frame1.BackColor = Me.BackColor
Me.Frame2.BackColor = Me.BackColor
Me.Frame3.BackColor = Me.BackColor
Me.Frame4.BackColor = Me.BackColor
Me.Frame5.BackColor = Me.BackColor
form13show = True
Me.Top = (Screen.Height - Me.Height) / 4
Me.Left = (Screen.Width - Me.Width) / 2
Text5.Text = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
AllBaiFangShow = False
form13show = False
End Sub
Private Sub MSFlexGrid1_GotFocus()
Set CtlWheel = MSFlexGrid1 '用于设定支持鼠标滚轮
End Sub
Private Sub MSFlexGrid1_LostFocus()
Set CtlWheel = Nothing '用于设定取消鼠标滚轮的支持
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
UnHookWheel Me.hwnd '卸载鼠标滚轮的支持
End Sub
Private Sub MSFlexGrid1_Click()
On Error GoTo d
Text5.Text = Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 4)
If WeekName(Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 1)) <> "" Then
Text6.Text = Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 1) & " [" & WeekName(Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 1)) & "]"
Else
Text6.Text = Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.RowSel, 1)
End If
Exit Sub
d:
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -