📄 maininfo.frm
字号:
EndProperty
End
Begin MSComctlLib.TreeView TreeView1
Height = 4575
Left = 120
TabIndex = 0
Top = 2040
Width = 2175
_ExtentX = 3836
_ExtentY = 8070
_Version = 393217
Indentation = 530
Style = 7
ImageList = "ImageList2"
Appearance = 1
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 11040
Top = 5760
Visible = 0 'False
Width = 1800
_ExtentX = 3175
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=txlxt;Data Source=."
OLEDBString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=txlxt;Data Source=."
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = "sa"
Password = ""
RecordSource = "PersonlInfo"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Label Label24
Caption = "Label24"
Height = 255
Left = 11280
TabIndex = 84
Top = 4560
Visible = 0 'False
Width = 1695
End
Begin VB.Label Label30
Caption = "Label30"
Height = 255
Left = 11520
TabIndex = 83
Top = 7680
Visible = 0 'False
Width = 735
End
Begin VB.Line Line2
X1 = 0
X2 = 13680
Y1 = 720
Y2 = 720
End
Begin VB.Menu file
Caption = "文件(&F)"
Begin VB.Menu Unload
Caption = "退出(&U)"
End
End
Begin VB.Menu Edit
Caption = "编辑(&E)"
Begin VB.Menu AddPer
Caption = "添加联系人(&A)"
End
Begin VB.Menu ChangePer
Caption = "修改联系人(&C)"
End
Begin VB.Menu DeletePer
Caption = "删除联系人(&D)"
End
Begin VB.Menu AddGro
Caption = "添加分组(&A)"
End
Begin VB.Menu ChangeGro
Caption = "修改分组(&C)"
End
Begin VB.Menu DeleteGro
Caption = "删除分组(&D)"
End
End
Begin VB.Menu View
Caption = "视图(&V)"
Begin VB.Menu Toolbar
Caption = "刷新分组(&T)"
End
End
Begin VB.Menu System
Caption = "系统(&S)"
Begin VB.Menu ChengePwd
Caption = "修改密码(&C)"
End
End
Begin VB.Menu CommTool
Caption = "常用工具(&T)"
Begin VB.Menu Text
Caption = "记事本(&T)"
End
Begin VB.Menu Calc
Caption = "计算器(&C)"
End
Begin VB.Menu Screen
Caption = "屏幕抓图(&S)"
End
End
Begin VB.Menu Help
Caption = "帮助(&H)"
Begin VB.Menu AboutAll
Caption = "关于(&A)"
End
Begin VB.Menu Enregistrer
Caption = "注册(&E)"
End
End
Begin VB.Menu Right
Caption = "Right"
Visible = 0 'False
Begin VB.Menu AddRow
Caption = "添加分组(&A)"
End
Begin VB.Menu EditRow
Caption = "编辑分组(&E)"
End
Begin VB.Menu DeleteRow
Caption = "删除分组(&D)"
End
End
End
Attribute VB_Name = "MainInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim str1, strcombo As String
Dim strkey, strPhoto As String
Dim i As Integer
Dim FS As New FileSystemObject
Private Sub RefreshTree()
Adodc2.Refresh
Adodc2.Recordset.MoveFirst
While Not Adodc2.Recordset.EOF
Combo2.AddItem (Adodc2.Recordset.Fields("Group_Name"))
Adodc2.Recordset.MoveNext
Wend
Combo2.ListIndex = 0 '分组不能为空
Dim myNod As Node
Dim strall As String
strall = "所有联系人" '添加跟节点
Set myNod = TreeView1.Nodes.Add(, tvwChild, strall, strall, 4) '添加节点
Dim nodtext1 As String
Dim nodtext2 As String
Dim nodid As String
Adodc2.Refresh
Adodc2.Recordset.MoveFirst '联系组信息
While Not Adodc2.Recordset.EOF
nodtext1 = Trim(Adodc2.Recordset.Fields("Group_Name").Value)
Set myNod = TreeView1.Nodes.Add(strall, tvwChild, nodtext1, nodtext1, 1, 4)
'Adodc1.CommandType = adCmdText
Adodc1.Refresh
Adodc1.RecordSource = "select distinct Name from PersonlInfo where Group_Name=" + "'" & nodtext1 & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
nodtext2 = Trim(Adodc1.Recordset.Fields("Name").Value)
Set myNod = TreeView1.Nodes.Add(nodtext1, tvwChild, nodtext2, nodtext2, 1, 4)
Adodc1.Recordset.MoveNext
Wend
End If
Adodc2.Recordset.MoveNext
Wend
End Sub
Private Sub AboutAll_Click()
About.Show
End Sub
Private Sub AddGro_Click()
addgroup.Show
End Sub
Private Sub AddPer_Click()
Call ClearAll
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub AddRow_Click()
addgroup.Show
End Sub
Private Sub Calc_Click()
i = Shell("c:\\windows\system32\calc.exe", 1)
End Sub
Private Sub ChangeGro_Click()
changgroup.Show
End Sub
Private Sub ChangePer_Click()
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub ChengePwd_Click()
ChangePwd.Show
End Sub
Private Sub Combo10_Change()
Combo6.Text = Combo10.Text
End Sub
Private Sub Combo5_Change()
Combo9.Text = Combo5.Text
End Sub
Private Sub Combo6_Change()
Combo10.Text = Combo6.Text
End Sub
Private Sub Combo9_Change()
Combo5.Text = Combo9.Text
End Sub
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "添加联系人"
Exit Sub
End If
If Text2.Text = "" And Text5.Text = "" And Text6.Text = "" And Text7.Text = "" Then
MsgBox "请输入电话号码！", vbOKOnly + vbExclamation, "添加联系人"
Exit Sub
End If
If Adodc3.Recordset.RecordCount > 0 Then
Adodc3.Recordset.MoveLast
Adodc3.Recordset.AddNew
Adodc3.Recordset.Fields("Name").Value = Trim(Text1.Text)
Adodc3.Recordset.Fields("Mobile_Tel").Value = Trim(Text2.Text)
Adodc3.Recordset.Fields("Family_Add").Value = Trim(Text3.Text)
'Adodc3.Recordset.Fields("Name").Value = Trim(Text4.Text)
Adodc3.Recordset.Fields("Family_Tel").Value = Trim(Text5.Text) '办公电话
Adodc3.Recordset.Fields("Company_Tel").Value = Trim(Text6.Text)
Adodc3.Recordset.Fields("Smart_Tel").Value = Trim(Text7.Text)
Adodc3.Recordset.Fields("QQ_Num").Value = Trim(Text8.Text)
Adodc3.Recordset.Fields("MSN_Num").Value = Trim(Text9.Text)
Adodc3.Recordset.Fields("Company_Name").Value = Trim(Text10.Text)
Adodc3.Recordset.Fields("Company_Add").Value = Trim(Text11.Text)
Adodc3.Recordset.Fields("Company_Fax").Value = Trim(Text12.Text)
'Adodc3.Recordset.Fields("Company_Tel").Value = Trim(Text13.Text) '
Adodc3.Recordset.Fields("Com_Homepage").Value = Trim(Text14.Text)
Adodc3.Recordset.Fields("Company_Post").Value = Trim(Text15.Text)
Adodc3.Recordset.Fields("Email").Value = Trim(Text16.Text)
Adodc3.Recordset.Fields("Per_Homepage").Value = Trim(Text17.Text)
Adodc3.Recordset.Fields("Loving").Value = Trim(Text18.Text)
'Text19.Text = Trim(Adodc3.Recordset.Fields("Name").Value)
'Adodc3.Recordset.Fields("Company_Name").Value = Trim(Text20.Text)
'Adodc3.Recordset.Fields("Company_Add").Value = Trim(Text21.Text)
'Adodc3.Recordset.Fields("Email").Value = Trim(Text22.Text)
'Trim(Adodc3.Recordset.Fields("Name").Value)= Text23.Text
'Adodc3.Recordset.Fields("So_Call").Value = Trim(Text24.Text)
Adodc3.Recordset.Fields("Family_Post").Value = Trim(Text25.Text)
Adodc3.Recordset.Fields("Standby_Tel").Value = Trim(Text26.Text)
Adodc3.Recordset.Fields("Sex").Value = Trim(Combo1.Text)
Adodc3.Recordset.Fields("Group_Name").Value = Trim(Combo2.Text)
Adodc3.Recordset.Fields("Blood_Type").Value = Trim(Combo3.Text)
Adodc3.Recordset.Fields("Star").Value = Trim(Combo4.Text)
Adodc3.Recordset.Fields("Dept_Name").Value = Trim(Combo5.Text)
Adodc3.Recordset.Fields("Dept_Duty").Value = Trim(Combo6.Text)
'Adodc3.Recordset.Fields("Sex").Value = Trim(Combo7.Text)
Adodc3.Recordset.Fields("Sheng_Xiao").Value = Trim(Combo8.Text)
'Adodc3.Recordset.Fields("Dept_Name").Value = Trim(Combo9.Text)
'Adodc3.Recordset.Fields("Dept_Duty").Value = Trim(Combo10.Text)
Adodc3.Recordset.Fields("Belong_Industry").Value = Trim(Combo11.Text)
Adodc3.Recordset.Fields("Birth").Value = Trim(DTPicker1.Value)
Adodc3.Recordset.Fields("Remark").Value = Trim(Text19.Text)
Adodc3.Recordset.Fields("Add_Remark").Value = Trim(Text27.Text)
Adodc3.Recordset.Fields("Photo").Value = CommonDialog1.FileTitle
Label30.Caption = App.Path + "\photo\" + CommonDialog1.FileTitle
If CommonDialog1.FileName <> "" Then
FileCopy CommonDialog1.FileName, Label30.Caption
End If
Adodc3.Recordset.Update
Adodc3.Refresh
MsgBox "添加成功！", vbOKOnly + vbExclamation, "添加联系人"
Call ClearAll
Adodc4.CommandType = adCmdText
Adodc4.RecordSource = "select distinct * from PersonlInfo"
Adodc4.Refresh
StatusBar1.Panels(2).Text = "当前记录数" + Str(Adodc3.Recordset.RecordCount) + "条/ 记录总数" + Str(Adodc4.Recordset.RecordCount) + "条"
End If
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Adodc3.Recordset.Fields("Mobile_Tel").Value = Trim(Text2.Text)
Adodc3.Recordset.Fields("Family_Add").Value = Trim(Text3.Text)
Adodc3.Recordset.Fields("Name").Value = Trim(Text1.Text)
Adodc3.Recordset.Fields("Family_Tel").Value = Trim(Text5.Text)
Adodc3.Recordset.Fields("Company_Tel").Value = Trim(Text6.Text)
Adodc3.Recordset.Fields("Smart_Tel").Value = Trim(Text7.Text)
Adodc3.Recordset.Fields("QQ_Num").Value = Trim(Text8.Text)
Adodc3.Recordset.Fields("MSN_Num").Value = Trim(Text9.Text)
Adodc3.Recordset.Fields("Company_Name").Value = Trim(Text10.Text)
Adodc3.Recordset.Fields("Company_Add").Value = Trim(Text11.Text)
Adodc3.Recordset.Fields("Company_Fax").Value = Trim(Text12.Text)
'Adodc3.Recordset.Fields("Company_Tel").Value = Trim(Text13.Text) '办公电话
Adodc3.Recordset.Fields("Com_Homepage").Value = Trim(Text14.Text)
Adodc3.Recordset.Fields("Company_Post").Value = Trim(Text15.Text)
Adodc3.Recordset.Fields("Email").Value = Trim(Text16.Text)
Adodc3.Recordset.Fields("Per_Homepage").Value = Trim(Text17.Text)
Adodc3.Recordset.Fields("Loving").Value = Trim(Text18.Text)
'Trim(Adodc3.Recordset.Fields("Name").Value)= Text19.Text
'Adodc3.Recordset.Fields("Company_Name").Value = Trim(Text20.Text)
'Adodc3.Recordset.Fields("Company_Add").Value = Trim(Text21.Text)
'Adodc3.Recordset.Fields("Email").Value = Trim(Text22.Text)
'Text23.Text = Trim(Adodc3.Recordset.Fields("Name").Value)
'Adodc3.Recordset.Fields("So_Call").Value = Trim(Text24.Text)
Adodc3.Recordset.Fields("Family_Post").Value = Trim(Text25.Text)
Adodc3.Recordset.Fields("Standby_Tel").Value = Trim(Text26.Text)
Adodc3.Recordset.Fields("Sex").Value = Trim(Combo1.Text)
Adodc3.Recordset.Fields("Group_Name").Value = Trim(Combo2.Text)
Adodc3.Recordset.Fields("Blood_Type").Value = Trim(Combo3.Text)
Adodc3.Recordset.Fields("Star").Value = Trim(Combo4.Text)
Adodc3.Recordset.Fields("Dept_Name").Value = Trim(Combo5.Text)
Adodc3.Recordset.Fields("Dept_Duty").Value = Trim(Combo6.Text)
'Adodc3.Recordset.Fields("Sex").Value = Trim(Combo7.Text)
Adodc3.Recordset.Fields("Sheng_Xiao").Value = Trim(Combo8.Text)
'Adodc3.Recordset.Fields("Dept_Name").Value = Trim(Combo9.Text)
'Adodc3.Recordset.Fields("Dept_Duty").Value = Trim(Combo10.Text)
Adodc3.Recordset.Fields("Belong_Industry").Value = Trim(Combo11.Text)
Adodc3.Recordset.Fields("Birth").Value = Trim(DTPicker1.Value)
Adodc3.Recordset.Fields("Remark").Value = Trim(Text19.Text)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -