?? frmmain.frm
字號:
Picture = "FrmMain.frx":15B4
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":1E8E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":2768
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":3442
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":3D1C
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":45F6
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":4ED0
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":57AA
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":6084
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":695E
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":7638
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 0
Top = 0
Width = 13545
_ExtentX = 23892
_ExtentY = 1508
ButtonWidth = 2090
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageBar"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "開啟來電顯示"
Key = "來電顯示"
ImageIndex = 2
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "客戶組管理"
ImageIndex = 1
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "客戶管理"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "來電記錄查詢"
ImageIndex = 11
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "其他信息查詢"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
ImageIndex = 12
EndProperty
EndProperty
Begin MSCommLib.MSComm MSComm1
Left = 8040
Top = 120
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
End
Begin MSComctlLib.TreeView TreeView1
Height = 4575
Left = 120
TabIndex = 1
Top = 960
Width = 2415
_ExtentX = 4260
_ExtentY = 8070
_Version = 393217
HideSelection = 0 'False
Indentation = 353
LabelEdit = 1
Sorted = -1 'True
Style = 7
HotTracking = -1 'True
SingleSel = -1 'True
ImageList = "ImageList1"
BorderStyle = 1
Appearance = 1
MousePointer = 99
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MouseIcon = "FrmMain.frx":90FA
End
Begin MSComctlLib.StatusBar StatusBar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 3
Top = 8565
Width = 13545
_ExtentX = 23892
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 2
Object.Width = 21080
MinWidth = 21080
TextSave = "2005-7-21"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 2
TextSave = "8:58"
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
OLEDropMode = 1
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483628
ImageWidth = 16
ImageHeight = 16
MaskColor = 16777215
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":9414
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":BDA6
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":E738
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":110CA
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":13A5C
Key = ""
EndProperty
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "最近來電信息："
Height = 195
Left = 120
TabIndex = 5
Top = 5760
Width = 1260
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim ConnIni As String
ConnIni = GetAppPath & "\Setup.ini"
Server = ReadOneString("setup", "Server", ConnIni)
User = ReadOneString("setup", "User", ConnIni)
Password = ReadOneString("setup", "Password", ConnIni)
Adodc2.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=CallerMIS"
Adodc2.RecordSource = "SELECT * FROM Caller order by CallerId"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2
Set TmpNode = TreeView1.Nodes.Add(, , "a0", "客戶組信息", 1, 3)
TmpNode.Selected = True
TmpNode.ExpandedImage = 2
Call Add_DepToTree(TreeView1, "a0")
TreeView1_Click
On Error GoTo error_open
For i = 1 To 4
FrmMain.MSComm1.CommPort = i
FrmMain.MSComm1.PortOpen = True
'設(shè)置可用的第一個串口
On Error GoTo 0
FrmMain.MSComm1.PortOpen = False
Exit Sub
error_resume:
Next
error_open:
Resume error_resume
End Sub
Private Sub MSComm1_OnComm()
On Error Resume Next
Static buffer As String
Dim ring As String
Dim PosDate As String, Postime As String, Posnum As String
buffer = buffer + MSComm1.Input
If InStr(1, buffer, "NMBR") Then
Me.WindowState = 2
PosDate = InStr(1, buffer, "DATE")
Postime = InStr(1, buffer, "TIME")
Posnum = InStr(1, buffer, "NMBR")
If Posnum Then
FrmCaller.CallDate = Mid(buffer, Postime + 7, 4)
FrmCaller.CallTime = Mid(buffer, PosDate + 7, 4)
FrmCaller.Callnum = Mid(buffer, Posnum + 7, (Len(buffer) - 8 - Posnum))
FrmCaller.Show
buffer = ""
End If
End If
' '測試
' FrmCaller.CallDate = "0720"
' FrmCaller.CallTime = "1438"
' FrmCaller.Callnum = "01051683640"
' FrmCaller.Show
' buffer = ""
End Sub
Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Caption
Case "客戶組管理"
FrmClientGroup.Show 1
Set TmpNode = TreeView1.Nodes.Add(, , "a0", "客戶組信息", 1, 3)
TmpNode.Selected = True
TmpNode.ExpandedImage = 2
Call Add_DepToTree(TreeView1, "a0")
TreeView1_Click
Case "客戶管理"
FrmClient.Show
Case "來電記錄查詢"
FrmCallerInfo.Show
Case "其他信息查詢"
FrmOtherInfo.Show
Case "開啟來電顯示"
If Not ShowNumber(True) Then
MsgBox "不能開啟來電顯示功能", vbCritical
Else
MsgBox "來電功能已開啟！", vbInformation
End If
Toolbar.Buttons("來電顯示").Caption = "關(guān)閉來電顯示"
Case "關(guān)閉來電顯示"
If Not ShowNumber(False) Then
MsgBox "不能開啟來電顯示功能", vbCritical
Else
FrmMain.MSComm1.PortOpen = False
MsgBox "來電顯示功能已禁止！", vbInformation
End If
Toolbar.Buttons("來電顯示").Caption = "開啟來電顯示"
Case "退出"
Unload Me
End
End Select
End Sub
Function ShowNumber(OpenClose As Boolean) As Boolean
Dim i As Integer
Dim strTemp As String
Dim CommCID(1) As String
Dim Duration As Single
Dim BStop As Boolean
Dim Ninterval As Integer
If OpenClose = True Then
FrmMain.MSComm1.PortOpen = True
End If
CommCID(0) = "at#id=" & Str(IIf(OpenClose, 1, 0))
CommCID(1) = "at#vcid=" & IIf(OpenClose, 1, 0)
FrmMain.MSComm1.RThreshold = 0
For i = 0 To 1
FrmMain.MSComm1.Output = CommCID(i) & vbCr
Duration = Timer + 100
Do While BStop = False
Ninterval = Ninterval + 1
If FrmMain.MSComm1.InBufferCount >= 2 Then
strTemp = FrmMain.MSComm1.Input
If InStr(strTemp, "OK") = 0 Then
BStop = True
ShowNumber = True
Exit Function
End If
End If
If Timer >= Duration Or Err.Number Then Exit Do
Loop
Next i
ShowNumber = False
FrmMain.MSComm1.RThreshold = 1
End Function
Private Sub TreeView1_Click()
Dim Focuskey As String
'根據(jù)關(guān)鍵字獲取部門信息
Focuskey = TreeView1.SelectedItem.Key
CurDep.Dep_name = TreeView1.SelectedItem.Text
CurDep.Dep_Id = Val(Right(TreeView1.SelectedItem.Key, Len(TreeView1.SelectedItem.Key) - 1))
'如果包含子結(jié)點，則設(shè)置圖像格式
If CurDep.HaveSon(CurDep.Dep_Id) = False Then
TreeView1.SelectedItem.ExpandedImage = 4
TreeView1.SelectedItem.Image = 4
TreeView1.SelectedItem.SelectedImage = 5
End If
'根據(jù)選擇的部門編號刷新Ado，從而選擇符合條件的員工姓名
Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=CallerMIS"
Adodc1.RecordSource = "SELECT * FROM Client WHERE ClientGroup =" + Trim(Str(CurDep.Dep_Id))
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -