📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "短信客户关系管理系统"
ClientHeight = 5070
ClientLeft = 2190
ClientTop = 3285
ClientWidth = 9180
LinkTopic = "MDIForm1"
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 10000
Left = 1200
Top = 2280
End
Begin MSCommLib.MSComm MSCommx
Index = 0
Left = 4560
Top = 2640
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = 0 'False
InBufferSize = 1000
OutBufferSize = 10000
RThreshold = 1
SThreshold = 1
End
Begin VB.Timer Timer1
Interval = 60000
Left = 5520
Top = 2400
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 4800
Width = 9180
_ExtentX = 16193
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 10557
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "10:23"
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 1920
Top = 2880
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ImageList imlToolbarIcons
Left = 2745
Top = 2625
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0000
Key = "New"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0112
Key = "Open"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0224
Key = "Save"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0336
Key = "Print"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0448
Key = "Delete"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":055A
Key = "Find"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":066C
Key = "Forward"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":077E
Key = "Properties"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0890
Key = "Sort Ascending"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":09A2
Key = "Sort Descending"
EndProperty
EndProperty
End
Begin MSWinsockLib.Winsock Winsock1
Left = 6480
Top = 1800
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Menu mnuFile
Caption = "操作管理(&F)"
Begin VB.Menu mnuSysUSer
Caption = "操作员管理"
End
Begin VB.Menu mnuSysRight
Caption = "权限设置"
End
Begin VB.Menu mnuChgPassword
Caption = "改变我的口令"
End
Begin VB.Menu logout
Caption = "注销我自己"
End
Begin VB.Menu mnuSysExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuIN
Caption = "日常工作(&C)"
Begin VB.Menu mnucusclass
Caption = "客户分类目录"
End
Begin VB.Menu mnuProject
Caption = "客户资料"
End
Begin VB.Menu mnugroup
Caption = "客户分组"
End
Begin VB.Menu mnuCreTech
Caption = "常用语"
End
Begin VB.Menu mc
Caption = "-"
End
Begin VB.Menu mnusend
Caption = "短信单发"
End
Begin VB.Menu mnuTIMEC
Caption = "短信群发"
End
Begin VB.Menu mnusendtoall
Caption = "向所有客户发送短信"
Visible = 0 'False
End
Begin VB.Menu mck
Caption = "-"
End
Begin VB.Menu mnunewcustomer
Caption = "查询收到的短信"
End
End
Begin VB.Menu mnusetled
Caption = "短信发送参数"
Begin VB.Menu mnustartsend
Caption = "开始发送短信"
Visible = 0 'False
End
Begin VB.Menu mnustopsend
Caption = "停止短信发送"
Visible = 0 'False
End
Begin VB.Menu mnuPara
Caption = "参数定义"
End
End
Begin VB.Menu mnuOut
Caption = "查询(D)"
Visible = 0 'False
Begin VB.Menu MNULEDMODE
Caption = "查询短信发送情况"
End
End
Begin VB.Menu mnuWindow
Caption = "窗口(&W)"
WindowList = -1 'True
Begin VB.Menu mnuWindowCascade
Caption = "级连"
End
Begin VB.Menu mnuWindowTileHorizontal
Caption = "水平排列"
End
Begin VB.Menu mnuWindowTileVertical
Caption = "垂直排列"
Index = 2
End
Begin VB.Menu mnuWindowArrangeIcons
Caption = "图标安排"
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuHelpAbout
Caption = "关于"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mp As m_parameter
Dim readysend As Boolean
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Const EM_UNDO = &HC7
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private Sub logout_Click()
If User.userid = -1 Then
frmLogin.Show vbModal
Unload frmLogin
Else
User.logout
End If
If User.userid = -1 Then
logout.caption = "注册"
Else
User.refreshRights
logout.caption = "注消我自己"
End If
Me.sbStatusBar.Panels(2).text = "操作员：" & User.username
End Sub
Private Sub MDIForm_Load()
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
' Me.caption = MyCom.CompanyName & " Commercial Management"
Me.sbStatusBar.Panels(2).text = "操作员：" & User.username
'Me.Timer2.Interval = 60000
'//startTimer
readysend = True
initsend
'Me.Timer2.Interval = Me.Timer2.Interval * 3600
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
releAllObj
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -