add.frm

1个msn数据库

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "msadodc.ocx"
Begin VB.Form add 
   Caption         =   "添加Msn记录"
   ClientHeight    =   5490
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7875
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5490
   ScaleWidth      =   7875
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command4 
      Caption         =   "重填"
      Height          =   495
      Left            =   5160
      TabIndex        =   12
      Top             =   3600
      Width           =   1215
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   375
      Left            =   6480
      Top             =   5040
      Visible         =   0   'False
      Width           =   1455
      _ExtentX        =   2566
      _ExtentY        =   661
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      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;Password=aaa;Persist Security Info=True;User ID=aaa;Initial Catalog=maodb;Data Source=218.193.187.86"
      OLEDBString     =   "Provider=SQLOLEDB.1;Password=aaa;Persist Security Info=True;User ID=aaa;Initial Catalog=maodb;Data Source=218.193.187.86"
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "select * from msn3203"
      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.CommandButton Command3 
      Caption         =   "确定"
      Height          =   495
      Left            =   2040
      TabIndex        =   11
      Top             =   3600
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "返回"
      Height          =   495
      Left            =   5160
      TabIndex        =   10
      Top             =   4680
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查看"
      Height          =   495
      Left            =   2040
      TabIndex        =   9
      Top             =   4680
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Caption         =   "添加Msn记录"
      Height          =   3135
      Left            =   1920
      TabIndex        =   8
      Top             =   240
      Visible         =   0   'False
      Width           =   4455
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   3
      Left            =   2040
      TabIndex        =   7
      Top             =   2400
      Width           =   4335
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   2
      Left            =   2040
      TabIndex        =   6
      Top             =   1560
      Width           =   4335
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   1
      Left            =   2040
      TabIndex        =   5
      Top             =   960
      Width           =   4335
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   0
      Left            =   2040
      TabIndex        =   4
      Top             =   360
      Width           =   4335
   End
   Begin VB.Label Label4 
      Caption         =   "备注"
      Height          =   375
      Left            =   480
      TabIndex        =   3
      Top             =   2400
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "手机"
      Height          =   375
      Left            =   480
      TabIndex        =   2
      Top             =   1680
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "Msn"
      Height          =   375
      Left            =   480
      TabIndex        =   1
      Top             =   1080
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "姓名"
      Height          =   495
      Left            =   480
      TabIndex        =   0
      Top             =   360
      Width           =   1215
   End
End
Attribute VB_Name = "add"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long


Private Sub Command1_Click()
Me.Hide
search.Show

End Sub

Private Sub Command2_Click()
Me.Hide
main.Show
End Sub
Private Sub Command3_Click()
If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Or Trim(Text1(2).Text) = "" Or Trim(Text1(3).Text) = "" Then
MsgBox "数据项不能为空", vbOKOnly, "信息提示"
Text1(0).SetFocus
Exit Sub
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("姓名") = Trim(Text1(0).Text)
Adodc1.Recordset.Fields("Msn") = Trim(Text1(1).Text)
Adodc1.Recordset.Fields("手机") = Trim(Text1(2).Text)
Adodc1.Recordset.Fields("备注") = Trim(Text1(3).Text)
Adodc1.Recordset.Update
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Text1(3).Text = ""
Text1(0).SetFocus
End Sub

Private Sub Command4_Click()
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Text1(3).Text = ""
Text1(0).SetFocus
End Sub

Private Sub Form_Load()
Adodc1.Refresh
Dim n_SysMenu As Long
n_SysMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu n_SysMenu, 6, 1024
RemoveMenu n_SysMenu, 5, 1024
End Sub