form8.frm

为一个单位的老师写的小工具

      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   5520
      TabIndex        =   3
      Text            =   "field(X)"
      Top             =   480
      Width           =   3015
   End
   Begin VB.ComboBox Combo1 
      DataSource      =   " "
      Height          =   315
      Left            =   5520
      TabIndex        =   0
      Text            =   "char(50)"
      Top             =   1800
      Width           =   3015
   End
   Begin VB.Label Label2 
      Caption         =   "名称"
      Height          =   375
      Left            =   3480
      TabIndex        =   2
      Top             =   480
      Width           =   1575
   End
   Begin VB.Label Label1 
      Caption         =   "类型"
      Height          =   375
      Left            =   3480
      TabIndex        =   1
      Top             =   1800
      Width           =   1695
   End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
Function checkField() As Boolean
   checkField = False
   If Trim(Text1.Text) <> "" Then
     checkField = True
   End If
   '今后要加入对 类型和名称的所有合法性检查，这里比较简略了
End Function
Private Sub Command1_Click()
If checkField Then
   Adodc1.Refresh
   Adodc1.Recordset.AddNew
   Adodc1.Recordset.Fields(0) = Trim(Text1.Text)
   Adodc1.Recordset.Fields(1) = Trim(Combo1.Text)
   Adodc1.Recordset.Update
   Dim count As Integer
   Adodc1.RecordSource = "select  count(*)  from tblCol  "
    Adodc1.Refresh
   count = Adodc1.Recordset.Fields(0) + 1
   Adodc1.RecordSource = "select  c   from tblC   "
    Adodc1.Refresh
   Adodc1.Recordset.Fields(0) = count
   Adodc1.Recordset.Update
   
   
   
  Dim cn As New ADODB.Connection
  Dim Cmd As New ADODB.Command
  Dim CONSTR As String
  CONSTR = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & App.Path & "\招聘信息.mdb "
  cn.Open CONSTR
  Set Cmd.ActiveConnection = cn
  Cmd.CommandText = "ALTER TABLE tblXUESHENG add COLUMN " & Trim(Text1.Text) & " " & "char(50)" 'Trim(Combo1.Text)
  Cmd.Execute
  
  '不知为什么 有的地方哟功能
     
   
   Command1.Enabled = False
   Text1.Enabled = False
End If
  Adodc1.RecordSource = "select  *  from tblCol  "
  Adodc1.Refresh
End Sub

Private Sub Command2_Click()
 On Error GoTo AddErr
  Command2.Enabled = False
  
   DataGrid1.Col = 0
  Adodc1.RecordSource = "select  *  from tblCol where  名称= '" & Trim(DataGrid1.Text) & "'"
  Adodc1.Refresh
  If Adodc1.Recordset.RecordCount > 0 Then
    Adodc1.Recordset.Delete
    Adodc1.Recordset.Update
  Else
    MsgBox "请双击右侧列表的相应条目以选择您所希望修改的字段!"
  End If
  Adodc1.RecordSource = "select  *  from tblCol  "
  Adodc1.Refresh
  
    
  Dim cn As New ADODB.Connection
  Dim Cmd As New ADODB.Command
  Dim CONSTR As String
  CONSTR = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & App.Path & "\招聘信息.mdb "
  cn.Open CONSTR
  Set Cmd.ActiveConnection = cn
 '
  Cmd.CommandText = "ALTER TABLE tblXUESHENG drop COLUMN " & Trim(Text1.Text)
  Cmd.Execute
  
 
  Command5.Enabled = True
  GoTo aaaa
AddErr:
     MsgBox Err.Description
aaaa:
'  Adodc1.RecordSource = "select  *  from tblCol  "
'  Adodc1.Refresh
End Sub

Private Sub Command3_Click()
   Text1.Enabled = Combo1.Enabled = True
   Text1.Text = Combo1.Text = ""
   Command1.Enabled = True
End Sub

Private Sub Command4_Click()
  On Error GoTo AddErr
  Adodc1.RecordSource = "select  *  from tblCol where  名称= '" & Trim(Text1.Text) & "'"
  Adodc1.Refresh
  
  
  Text1.Enabled = True
  Command5.Enabled = True
  GoTo aaaa
AddErr:
     MsgBox Err.Description
aaaa:
End Sub

Private Sub Command5_Click()
    Dim count As Integer
     Dim strXXX As String
     DataGrid1.Col = 0
    strXXX = DataGrid1.Text
    
    
    Command4.Enabled = False
    Command5.Enabled = False
    Adodc1.Recordset.Fields(0) = Trim(Text1.Text)
    Adodc1.Recordset.Fields(1) = Trim(Combo1.Text)
    Adodc1.Recordset.Update
    Command1.Enabled = False
   
    DataGrid1.Col = 0
    
    
    Adodc1.RecordSource = "select  count(*)  from tblCol  "
    Adodc1.Refresh
   count = Adodc1.Recordset.Fields(0) + 1
   Adodc1.RecordSource = "select  c   from tblC   "
    Adodc1.Refresh
   Adodc1.Recordset.Fields(0) = count
   Adodc1.Recordset.Update
     
    Adodc1.RecordSource = "select  *  from tblCol  "
    Adodc1.Refresh
    
    
    
  Dim cn As New ADODB.Connection
  Dim Cmd As New ADODB.Command
  Dim CONSTR As String
  CONSTR = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & App.Path & "\招聘信息.mdb "
  cn.Open CONSTR
  Set Cmd.ActiveConnection = cn
  '主要工作：
  Cmd.CommandText = "ALTER TABLE tblXUESHENG add COLUMN [" & Trim(Text1.Text) & "] " & Trim(Combo1.Text)
  Cmd.Execute
  Cmd.CommandText = "update   tblXUESHENG set [" & Trim(Text1.Text) & "] = [" & Trim(strXXX) & "]"
  Cmd.Execute
  Cmd.CommandText = "ALTER TABLE tblXUESHENG drop COLUMN " & Trim(strXXX)
  Cmd.Execute
    
   Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\招聘信息.mdb;Persist Security Info=False"

    Adodc2.RecordSource = "select  *  from tblXUESHENG "
  
    Adodc2.Refresh
    
    
End Sub





Private Sub Command6_Click()
On Error GoTo asdfasd
' Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\招聘信息.mdb;Persist Security Info=False"

    
 
 ' Provider="Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\招聘信息.mdb;Persist Security Info=False"

  '   Adodc2.RecordSource = "ALTER TABLE tblC DROP COLUMN Nots4es  " ' & App.Path & "\招聘信息.mdb;Persist Security Info=False"
 
 
  Dim cn As New ADODB.Connection
  Dim Cmd As New ADODB.Command
  Dim CONSTR As String
  CONSTR = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & App.Path & "\招聘信息.mdb "
  cn.Open CONSTR
  Set Cmd.ActiveConnection = cn
  Cmd.CommandText = "ALTER TABLE tblXUESHENG DROP COLUMN Nots4es "
  Cmd.Execute
 
 
 
GoTo asas
asdfasd:
  MsgBox Err.Description
asas:
End Sub

Private Sub DataGrid1_Click()
On Error GoTo AddErr
    DataGrid1.Col = 0
    Text1.Text = DataGrid1.Text
    DataGrid1.Col = 1
    Combo1.Text = DataGrid1.Text
    
    Text1.Enabled = Combo1.Enabled = False
    Command4.Enabled = True
    Command2.Enabled = True
GoTo aaaa
AddErr:
     MsgBox Err.Description
aaaa:
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2     '使窗体居中
    Me.Top = (Screen.Height - Me.Height) / 2
     
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\招聘信息.mdb;Persist Security Info=False"

    Adodc1.RecordSource = "select  *  from tblCol "
  
    Adodc1.Refresh
    
   
    Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\招聘信息.mdb;Persist Security Info=False"

    Adodc2.RecordSource = "select  *  from tblXUESHENG "
  
    Adodc2.Refresh
    
    Dim Name As Variant
    Name = Array("char(50)", "char(30)", "date") '所有的类型名称 以后查查书再添加全
    '添加类型选项
    For j1 = 0 To 2
         Combo1.AddItem Trim(Name(j1))
    Next j1
 
 
 
 
    Text1.Enabled = Combo1.Enabled = False
    Command4.Enabled = False
    Command5.Enabled = False
    Command2.Enabled = False
    Command1.Enabled = False
End Sub