dataform1.vb

来自「Source code for VB.NET book - Chapter 6」· VB 代码 · 共 460 行 · 第 1/5 页

        Me.objColumnStylegrdEmployeesLastName = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesFirstName = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesTitle = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesTitleOfCourtesy = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesBirthDate = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesHireDate = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesAddress = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesCity = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesRegion = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesPostalCode = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesCountry = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesHomePhone = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesExtension = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesNotes = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesReportsTo = New System.Windows.Forms.DataGridTextBoxColumn
        Me.objColumnStylegrdEmployeesPhotoPath = New System.Windows.Forms.DataGridTextBoxColumn
        CType(Me.objStudy, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.grdEmployees, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT EmployeeID, LastName, FirstName, Title, TitleOfCourtesy, BirthDate, HireDa" & _
        "te, Address, City, Region, PostalCode, Country, HomePhone, Extension, Photo, Not" & _
        "es, ReportsTo, PhotoPath FROM Employees"
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO Employees(LastName, FirstName, Title, TitleOfCourtesy, BirthDate, Hir" & _
        "eDate, Address, City, Region, PostalCode, Country, HomePhone, Extension, Photo, " & _
        "Notes, ReportsTo, PhotoPath) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?" & _
        ", ?, ?); SELECT EmployeeID, LastName, FirstName, Title, TitleOfCourtesy, BirthDa" & _
        "te, HireDate, Address, City, Region, PostalCode, Country, HomePhone, Extension, " & _
        "Photo, Notes, ReportsTo, PhotoPath FROM Employees WHERE (EmployeeID = @@IDENTITY" & _
        ")"
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("LastName", System.Data.OleDb.OleDbType.VarWChar, 20, "LastName"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("FirstName", System.Data.OleDb.OleDbType.VarWChar, 10, "FirstName"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Title", System.Data.OleDb.OleDbType.VarWChar, 30, "Title"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("TitleOfCourtesy", System.Data.OleDb.OleDbType.VarWChar, 25, "TitleOfCourtesy"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("BirthDate", System.Data.OleDb.OleDbType.DBTimeStamp, 8, "BirthDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("HireDate", System.Data.OleDb.OleDbType.DBTimeStamp, 8, "HireDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarWChar, 60, "Address"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("City", System.Data.OleDb.OleDbType.VarWChar, 15, "City"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Region", System.Data.OleDb.OleDbType.VarWChar, 15, "Region"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("PostalCode", System.Data.OleDb.OleDbType.VarWChar, 10, "PostalCode"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Country", System.Data.OleDb.OleDbType.VarWChar, 15, "Country"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("HomePhone", System.Data.OleDb.OleDbType.VarWChar, 24, "HomePhone"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Extension", System.Data.OleDb.OleDbType.VarWChar, 4, "Extension"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Photo", System.Data.OleDb.OleDbType.VarBinary, 2147483647, "Photo"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Notes", System.Data.OleDb.OleDbType.VarWChar, 1073741823, "Notes"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ReportsTo", System.Data.OleDb.OleDbType.Integer, 4, "ReportsTo"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("PhotoPath", System.Data.OleDb.OleDbType.VarWChar, 255, "PhotoPath"))
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE Employees SET LastName = ?, FirstName = ?, Title = ?, TitleOfCourtesy = ?," & _
        " BirthDate = ?, HireDate = ?, Address = ?, City = ?, Region = ?, PostalCode = ?," & _
        " Country = ?, HomePhone = ?, Extension = ?, Photo = ?, Notes = ?, ReportsTo = ?," & _
        " PhotoPath = ? WHERE (EmployeeID = ?) AND (Address = ? OR ? IS NULL AND Address " & _
        "IS NULL) AND (BirthDate = ? OR ? IS NULL AND BirthDate IS NULL) AND (City = ? OR" & _
        " ? IS NULL AND City IS NULL) AND (Country = ? OR ? IS NULL AND Country IS NULL) " & _
        "AND (Extension = ? OR ? IS NULL AND Extension IS NULL) AND (FirstName = ?) AND (" & _
        "HireDate = ? OR ? IS NULL AND HireDate IS NULL) AND (HomePhone = ? OR ? IS NULL " & _
        "AND HomePhone IS NULL) AND (LastName = ?) AND (PhotoPath = ? OR ? IS NULL AND Ph" & _
        "otoPath IS NULL) AND (PostalCode = ? OR ? IS NULL AND PostalCode IS NULL) AND (R" & _
        "egion = ? OR ? IS NULL AND Region IS NULL) AND (ReportsTo = ? OR ? IS NULL AND R" & _
        "eportsTo IS NULL) AND (Title = ? OR ? IS NULL AND Title IS NULL) AND (TitleOfCou" & _
        "rtesy = ? OR ? IS NULL AND TitleOfCourtesy IS NULL); SELECT EmployeeID, LastName" & _
        ", FirstName, Title, TitleOfCourtesy, BirthDate, HireDate, Address, City, Region," & _
        " PostalCode, Country, HomePhone, Extension, Photo, Notes, ReportsTo, PhotoPath F" & _
        "ROM Employees WHERE (EmployeeID = ?)"
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("LastName", System.Data.OleDb.OleDbType.VarWChar, 20, "LastName"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("FirstName", System.Data.OleDb.OleDbType.VarWChar, 10, "FirstName"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Title", System.Data.OleDb.OleDbType.VarWChar, 30, "Title"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("TitleOfCourtesy", System.Data.OleDb.OleDbType.VarWChar, 25, "TitleOfCourtesy"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("BirthDate", System.Data.OleDb.OleDbType.DBTimeStamp, 8, "BirthDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("HireDate", System.Data.OleDb.OleDbType.DBTimeStamp, 8, "HireDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarWChar, 60, "Address"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("City", System.Data.OleDb.OleDbType.VarWChar, 15, "City"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Region", System.Data.OleDb.OleDbType.VarWChar, 15, "Region"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("PostalCode", System.Data.OleDb.OleDbType.VarWChar, 10, "PostalCode"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Country", System.Data.OleDb.OleDbType.VarWChar, 15, "Country"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("HomePhone", System.Data.OleDb.OleDbType.VarWChar, 24, "HomePhone"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Extension", System.Data.OleDb.OleDbType.VarWChar, 4, "Extension"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Photo", System.Data.OleDb.OleDbType.VarBinary, 2147483647, "Photo"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Notes", System.Data.OleDb.OleDbType.VarWChar, 1073741823, "Notes"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ReportsTo", System.Data.OleDb.OleDbType.Integer, 4, "ReportsTo"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("PhotoPath", System.Data.OleDb.OleDbType.VarWChar, 255, "PhotoPath"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_EmployeeID", System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EmployeeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address", System.Data.OleDb.OleDbType.VarWChar, 60, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address1", System.Data.OleDb.OleDbType.VarWChar, 60, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_BirthDate", System.Data.OleDb.OleDbType.DBTimeStamp, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BirthDate", System.Data.DataRowVersion.Original, Nothing))