winform1.pas.~3~

《Delphi 2005程序设计及其应用开发》源代码

  Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('O' +
      'ther', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Other', System.Data.DataRowVersion.Current, nil));
  Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'cores', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, 'Scores', System.Data.DataRowVersion.Current, nil));
  Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'tudentID', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'StudentID', System.Data.DataRowVersion.Current, nil));
  Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'tudentName', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'StudentName', System.Data.DataRowVersion.Current, nil));
  Self.bdpInsertCommand1.SchemaName := nil;
  Self.bdpInsertCommand1.Transaction := nil;
  Self.bdpInsertCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // bdpUpdateCommand1
  // 
  Self.bdpUpdateCommand1.CommandOptions := nil;
  Self.bdpUpdateCommand1.CommandText := 'UPDATE Score SET Class = ?, CourseI' +
  'D = ?, CourseName = ?, Other = ?, Scores = ?, StudentID = ?, StudentName ' +
  '= ? WHERE Class = ? AND CourseID = ? AND CourseName = ? AND ID = ? AND Ot' +
  'her = ? AND Scores = ? AND StudentID = ? AND StudentName = ?';
  Self.bdpUpdateCommand1.CommandType := System.Data.CommandType.Text;
  Self.bdpUpdateCommand1.Connection := Self.BdpConnection1;
  Self.bdpUpdateCommand1.ParameterCount := (SmallInt(15));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'lass', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Class', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ourseID', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CourseID', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ourseName', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CourseName', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('O' +
      'ther', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Other', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'cores', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, 'Scores', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'tudentID', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'StudentID', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'tudentName', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'StudentName', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'lassOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Class', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ourseIDOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CourseID', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ourseNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CourseName', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('I' +
      'DOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, 'ID', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('O' +
      'therOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Other', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'coresOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, 'Scores', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'tudentIDOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'StudentID', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'tudentNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'StudentName', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand1.SchemaName := nil;
  Self.bdpUpdateCommand1.Transaction := nil;
  Self.bdpUpdateCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // bdpDeleteCommand1
  // 
  Self.bdpDeleteCommand1.CommandOptions := nil;
  Self.bdpDeleteCommand1.CommandText := 'DELETE FROM Score WHERE Class = ? A' +
  'ND CourseID = ? AND CourseName = ? AND ID = ? AND Other = ? AND Scores = ' +
  '? AND StudentID = ? AND StudentName = ?';
  Self.bdpDeleteCommand1.CommandType := System.Data.CommandType.Text;
  Self.bdpDeleteCommand1.Connection := Self.BdpConnection1;
  Self.bdpDeleteCommand1.ParameterCount := (SmallInt(8));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'lassOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Class', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ourseIDOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CourseID', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ourseNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CourseName', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('I' +
      'DOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, 'ID', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('O' +
      'therOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Other', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'coresOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, 'Scores', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'tudentIDOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'StudentID', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'tudentNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'StudentName', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.SchemaName := nil;
  Self.bdpDeleteCommand1.Transaction := nil;
  Self.bdpDeleteCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // BdpDataAdapter1
  // 
  Self.BdpDataAdapter1.Active := True;
  Self.BdpDataAdapter1.DataSet := Self.dataSet1;
  Self.BdpDataAdapter1.DataTable := Self.DataTable1;
  Self.BdpDataAdapter1.DeleteCommand := Self.bdpDeleteCommand1;
  Self.BdpDataAdapter1.InsertCommand := Self.bdpInsertCommand1;
  Self.BdpDataAdapter1.SelectCommand := Self.bdpSelectCommand1;
  Self.BdpDataAdapter1.StartRecord := 0;
  Self.BdpDataAdapter1.TableMappings.AddRange(TArrayOfSystem_Data_Common_DataTableMapping.Create(System.Data.Common.DataTableMapping.Create('T' +
          'able', 'Score', TArrayOfSystem_Data_Common_DataColumnMapping.Create(System.Data.Common.DataColumnMapping.Create('C' +
                'lass', 'Class'), System.Data.Common.DataColumnMapping.Create('C' +
                'ourseID', 'CourseID'), System.Data.Common.DataColumnMapping.Create('C' +
                'ourseName', 'CourseName'), System.Data.Common.DataColumnMapping.Create('I' +
                'D', 'ID'), System.Data.Common.DataColumnMapping.Create('Oth' +
                'er', 'Other'), System.Data.Common.DataColumnMapping.Create('S' +
                'cores', 'Scores'), System.Data.Common.DataColumnMapping.Create('S' +
                'tudentID', 'StudentID'), System.Data.Common.DataColumnMapping.Create('S' +
                'tudentName', 'StudentName')))));
  Self.BdpDataAdapter1.UpdateCommand := Self.bdpUpdateCommand1;
  // 
  // dataSet1
  // 
  Self.dataSet1.DataSetName := 'NewDataSet';
  Self.dataSet1.Locale := System.Globalization.CultureInfo.Create('zh-CN');
  Self.dataSet1.Tables.AddRange(TArrayOfSystem_Data_DataTable.Create(Self.DataTable1));
  // 
  // DataTable1
  // 
  Self.DataTable1.Columns.AddRange(TArrayOfSystem_Data_DataColumn.Create(Self.DataColumn1, 
          Self.DataColumn2, Self.DataColumn3, Self.DataColumn4, Self.DataColumn5, 
          Self.DataColumn6, Self.DataColumn7, Self.DataColumn8));
  Self.DataTable1.Constraints.AddRange(TArrayOfSystem_Data_Constraint.Create(System.Data.UniqueConstraint.Create('C' +
          'onstraint1', TArrayOfString.Create('ID'), True)));
  Self.DataTable1.PrimaryKey := TArrayOfSystem_Data_DataColumn.Create(Self.DataColumn4);
  Self.DataTable1.TableName := 'Score';
  // 
  // DataColumn1
  // 
  Self.DataColumn1.ColumnName := 'Class';
  Self.DataColumn1.MaxLength := 20;
  // 
  // DataColumn2
  // 
  Self.DataColumn2.ColumnName := 'CourseID';
  Self.DataColumn2.MaxLength := 10;
  // 
  // DataColumn3
  // 
  Self.DataColumn3.ColumnName := 'CourseName';
  Self.DataColumn3.MaxLength := 30;
  // 
  // DataColumn4
  // 
  Self.DataColumn4.AllowDBNull := False;
  Self.DataColumn4.ColumnName := 'ID';
  Self.DataColumn4.DataType := TypeOf(Integer);
  // 
  // DataColumn5
  // 
  Self.DataColumn5.ColumnName := 'Other';
  Self.DataColumn5.MaxLength := 50;
  // 
  // DataColumn6
  // 
  Self.DataColumn6.ColumnName := 'Scores';
  Self.DataColumn6.DataType := TypeOf(Integer);
  // 
  // DataColumn7
  // 
  Self.DataColumn7.ColumnName := 'StudentID';
  Self.DataColumn7.MaxLength := 10;
  // 
  // DataColumn8
  // 
  Self.DataColumn8.ColumnName := 'StudentName';
  Self.DataColumn8.MaxLength := 10;
  // 
  // TWinForm2
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(413, 301);
  Self.Controls.Add(Self.DataGrid1);
  Self.Controls.Add(Self.GroupBox2);
  Self.Name := 'TWinForm2';
  Self.Text := '查询窗口';
  Include(Self.Load, Self.TWinForm2_Load);
  (System.ComponentModel.ISupportInitialize(Self.DataGrid1)).EndInit;
  Self.GroupBox2.ResumeLayout(False);
  (System.ComponentModel.ISupportInitialize(Self.BdpDataAdapter1)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.dataSet1)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.DataTable1)).EndInit;
  Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure TWinForm2.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TWinForm2.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;

procedure TWinForm2.ComboBox1_SelectedIndexChanged(sender: System.Object; e: System.EventArgs);
begin
   case ComboBox1.SelectedIndex of
     0: SearchField := 'StudentID';
     1: SearchField := 'StudentName';
     2: SearchField := 'Class';
     3: SearchField := 'CourseID';
     4: SearchField := 'CourseName';
   end;
end;

procedure TWinForm2.TWinForm2_Load(sender: System.Object; e: System.EventArgs);
begin
   SearchField := 'StudentID';
end;

procedure TWinForm2.QueryBtn_Click(sender: System.Object; e: System.EventArgs);
Var
   SqlStr : String;
begin
   SqlStr := 'SELECT * FROM Score where ' + SearchField + '=''' + TextBox1.Text +'''';
   self.BdpDataAdapter1.Active := False;
   self.BdpDataAdapter1.SelectCommand.CommandText := SqlStr;
   try
     self.BdpDataAdapter1.Active := True;
   except
     on E: Exception do
     begin
       MessageBox.Show('SQL语句执行失败');
     raise e;
     end;
   end;  //end try
end;

end.