⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 form1.frm

📁 本套软件适用于手机等用户、培训机构等单位的教学管理软件。
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            Alignment       =   1
            AutoSize        =   1
            Object.Width           =   5874
            Text            =   "华北水院 版权所有"
            TextSave        =   "华北水院 版权所有"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   1
            Object.Width           =   5874
            Text            =   "记录总数  条"
            TextSave        =   "记录总数  条"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   1
            Object.Width           =   5874
            Text            =   "版本 2008 build v1.0 "
            TextSave        =   "版本 2008 build v1.0 "
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   1
            Object.Width           =   5874
         EndProperty
      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 Label30 
      Caption         =   "Label30"
      Height          =   255
      Left            =   11520
      TabIndex        =   84
      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 Paint 
         Caption         =   "打印(&P)"
      End
      Begin VB.Menu Unload 
         Caption         =   "注销(&U)"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出(&E)"
      End
   End
   Begin VB.Menu Edit 
      Caption         =   "编辑(&E)"
      Begin VB.Menu Insert 
         Caption         =   "插入(&I)"
      End
      Begin VB.Menu Delete 
         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 CountryNum 
         Caption         =   "区号查询(&S)"
      End
   End
   Begin VB.Menu Help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu About 
         Caption         =   "关于(&A)"
      End
      Begin VB.Menu Enregistrer 
         Caption         =   "注册(&E)"
      End
   End
   Begin VB.Menu Right 
      Caption         =   "Right"
      Begin VB.Menu RefreshRow 
         Caption         =   "刷新分组(&R)"
      End
      Begin VB.Menu AddRow 
         Caption         =   "添加分组(&A)"
      End
      Begin VB.Menu EditRow 
         Caption         =   "编辑分组(&E)"
      End
      Begin VB.Menu DeleteRow 
         Caption         =   "删除分组(&D)"
      End
      Begin VB.Menu JoinRow 
         Caption         =   "全部收起(&J)"
      End
      Begin VB.Menu UpRow 
         Caption         =   "向上(&U)"
      End
      Begin VB.Menu DownRow 
         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



Private Sub AddRow_Click()
addgroup.Show
End Sub

Private Sub Calc_Click()
i = Shell("c:\\windows\system32\calc.exe", 1)
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 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, "添加联系人"
StatusBar1.Panels(2).Text = "当前记录数" + Str(Adodc3.Recordset.RecordCount) + "条/ 记录总数" + Str(Adodc4.Recordset.RecordCount) + "条"
End If
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)
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.EditMode
Adodc3.Recordset.Update
Adodc3.Refresh
MsgBox "修改成功！", vbOKOnly + vbExclamation, "修改联系人"
End Sub

Private Sub Command3_Click()
If MsgBox("是否要删除联系人 " + Adodc3.Recordset.Fields("Name").Value, vbYesNo + vbQuestion, "删除联系人") = vbYes Then
Adodc3.Recordset.Delete
'MsgBox ("sd" + Adodc3.Recordset.Fields(0).Value)
End If
End Sub

Private Sub DataGrid2_Click()
'str1 = Adodc4.Recordset.Fields("ID")
'Adodc4.RecordSource = "select distinct * from PersonlInfo where ID=" + "'" & str1 & "'"

'Adodc4.CommandType = adCmdText
'Adodc4.Refresh
If Adodc3.Recordset.RecordCount > 0 Then
'Adodc4.Recordset.MoveLast
Text1.Text = Trim(Adodc3.Recordset.Fields("Name").Value)
Text2.Text = Trim(Adodc3.Recordset.Fields("Mobile_Tel").Value)
Text3.Text = Trim(Adodc3.Recordset.Fields("Family_Add").Value)
'Text4.Text = Trim(Adodc3.Recordset.Fields("Name").Value)
Text5.Text = Trim(Adodc3.Recordset.Fields("Family_Tel").Value)
Text6.Text = Trim(Adodc3.Recordset.Fields("Company_Tel").Value)
Text7.Text = Trim(Adodc3.Recordset.Fields("Smart_Tel").Value)
Text8.Text = Trim(Adodc3.Recordset.Fields("QQ_Num").Value)
Text9.Text = Trim(Adodc3.Recordset.Fields("MSN_Num").Value)
Text10.Text = Trim(Adodc3.Recordset.Fields("Company_Name").Value)
Text11.Text = Trim(Adodc3.Recordset.Fields("Company_Add").Value)
Text12.Text = Trim(Adodc3.Recordset.Fields("Company_Fax").Value)
Text13.Text = Trim(Adodc3.Recordset.Fields("Company_Tel").Value) '办公电话
Text14.Text = Trim(Adodc3.Recordset.Fields("Com_Homepage").Value)
Text15.Text = Trim(Adodc3.Recordset.Fields("Company_Post").Value)
Text16.Text = Trim(Adodc3.Recordset.Fields("Email").Value)
Text17.Text = Trim(Adodc3.Recordset.Fields("Per_Homepage").Value)
Text18.Text = Trim(Adodc3.Recordset.Fields("Loving").Value)
Text19.Text = Trim(Adodc3.Recordset.Fields("Remark").Value)
Text20.Text = Trim(Adodc3.Recordset.Fields("Company_Name").Value)
Text21.Text = Trim(Adodc3.Recordset.Fields("Company_Add").Value)
'Text22.Text = Trim(Adodc3.Recordset.Fields("Email").Value)
Text23.Text = Trim(Adodc3.Recordset.Fields("Name").Value)
'Text24.Text = Trim(Adodc3.Recordset.Fields("So_Call").Value)
Text25.Text = Trim(Adodc3.Recordset.Fields("Family_Post").Value)
Text26.Text = Trim(Adodc3.Recordset.Fields("Standby_Tel").Value)
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -