winform.pas.~1~

Delphi 2005程序设计教程_实例源文件和教学课件

        Self.bdpInsertCommand3.Transaction := nil;
        Self.bdpInsertCommand3.UpdatedRowSource := System.Data.UpdateRowSource.None;
        // 
        // bdpSelectCommand3
        // 
        Self.bdpSelectCommand3.CommandOptions := nil;
        Self.bdpSelectCommand3.CommandText := 'SELECT * FROM dbo.Student';
        Self.bdpSelectCommand3.CommandType := System.Data.CommandType.Text;
        Self.bdpSelectCommand3.Connection := Self.BdpConnection1;
        Self.bdpSelectCommand3.ParameterCount := (SmallInt(0));
        Self.bdpSelectCommand3.SchemaName := nil;
        Self.bdpSelectCommand3.Transaction := nil;
        Self.bdpSelectCommand3.UpdatedRowSource := System.Data.UpdateRowSource.None;
        // 
        // bdpUpdateCommand3
        // 
        Self.bdpUpdateCommand3.CommandOptions := nil;
        Self.bdpUpdateCommand3.CommandText := 'UPDATE dbo.Student SET ID = ?, Name = ?, Birth = ?, ClsID = ?, Dorm = ? WHERE I'+ 
  'D = ? AND Name = ? AND Birth = ? AND ClsID = ? AND Dorm = ?';
        Self.bdpUpdateCommand3.CommandType := System.Data.CommandType.Text;
        Self.bdpUpdateCommand3.Connection := Self.BdpConnection1;
        Self.bdpUpdateCommand3.ParameterCount := (SmallInt(10));
        Self.bdpUpdateCommand3.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ID', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                8, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ID', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand3.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Name', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                20, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Name', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand3.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Birth', 
                                Borland.Data.Common.BdpType.DateTime, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Birth', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand3.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ClsID', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                6, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ClsID', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand3.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Dorm', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                8, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Dorm', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand3.Parameters.Add(Borland.Data.Common.BdpParameter.Create('IDOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                8, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ID', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand3.Parameters.Add(Borland.Data.Common.BdpParameter.Create('NameOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                20, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Name', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand3.Parameters.Add(Borland.Data.Common.BdpParameter.Create('BirthOriginal', 
                                Borland.Data.Common.BdpType.DateTime, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Birth', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand3.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ClsIDOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                6, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ClsID', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand3.Parameters.Add(Borland.Data.Common.BdpParameter.Create('DormOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                8, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Dorm', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand3.SchemaName := nil;
        Self.bdpUpdateCommand3.Transaction := nil;
        Self.bdpUpdateCommand3.UpdatedRowSource := System.Data.UpdateRowSource.None;
        // 
        // frmMain
        // 
        Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
        Self.ClientSize := System.Drawing.Size.Create(544, 389);
        Self.Controls.Add(Self.TabControl1);
        Self.Name := 'frmMain';
        Self.Text := '学生信息管理系统';
        Include(Self.Load, Self.frmMain_Load);
        Self.TabControl1.ResumeLayout(False);
        Self.TabPage1.ResumeLayout(False);
        (System.ComponentModel.ISupportInitialize(Self.dgStu)).EndInit;
        Self.GroupBox1.ResumeLayout(False);
        Self.TabPage2.ResumeLayout(False);
        Self.GroupBox3.ResumeLayout(False);
        Self.GroupBox2.ResumeLayout(False);
        Self.TabPage3.ResumeLayout(False);
        (System.ComponentModel.ISupportInitialize(Self.dgDep)).EndInit;
        (System.ComponentModel.ISupportInitialize(Self.dgCls)).EndInit;
        (System.ComponentModel.ISupportInitialize(Self.dsStu1)).EndInit;
        (System.ComponentModel.ISupportInitialize(Self.dsAdmin1)).EndInit;
        (System.ComponentModel.ISupportInitialize(Self.daCls)).EndInit;
        (System.ComponentModel.ISupportInitialize(Self.daDep)).EndInit;
        (System.ComponentModel.ISupportInitialize(Self.daStu)).EndInit;
        Self.ResumeLayout(False);
end;
{$ENDREGION}

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

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

//当双击数据网格某行时切换到该行的编辑界面
procedure frmMain.dgStu_DoubleClick(sender: System.Object; e: System.EventArgs);
begin
  TabControl1.SelectedTab:=TabPage2;
end;

//在编辑学生信息时弹出对话框选择班号
procedure frmMain.btnSelCls_Click(sender: System.Object; e: System.EventArgs);
var
  tmpForm:frmSelClass;
begin
  tmpForm:=frmSelClass.Create;
  //弹出班号选择对话框
  if tmpForm.ShowDialog=System.Windows.Forms.DialogResult.OK then
    txtClsID.Text:= tmpForm.ReturnValue;

end;

//当改变班号时得到系别信息
procedure frmMain.txtClsID_TextChanged(sender: System.Object; e: System.EventArgs);
var
  cmdDep:BdpCommand;
  dr:BdpDataReader;
begin
  BdpConnection1.Open;
  //创建命令对象
  cmdDep:=BdpCommand.Create;
  cmdDep.Connection:=BdpConnection1;
  cmdDep.CommandText:='SELECT Department.Name FROM Class Inner Join Department'+
    ' ON Class.DepID=Department.ID WHERE Class.ID='''+txtClsID.Text+'''';
  //执行选择命令，得到的数据输出给数据读取器
  dr:=cmdDep.ExecuteReader;
  //如果查询返回数据
  if dr.Read then
    txtDepName.Text:=dr.GetString(0)
  else //否则
    txtDepName.Text:='';
  BdpConnection1.Close;
end;

//删除当前学生信息
procedure frmMain.btnDel_Click(sender: System.Object; e: System.EventArgs);
var
  dtStu:DataTable;
begin
  //信息框提示是否删除
  if MessageBox.Show('是否删除该学生信息？','提示',MessageBoxButtons.OKCancel,
    MessageBoxIcon.Information)=System.Windows.Forms.DialogResult.OK then
  begin
    dtStu:=dsStu1.Tables['Student'];
    //删除当前行
    dtStu.Rows[myBind.Position].Delete;
  end;
end;

//更新对学生信息所作的修改
procedure frmMain.btnStuSave_Click(sender: System.Object; e: System.EventArgs);
var
  ChangedCount:Integer;
begin
  TabControl1.SelectedTab:=TabPage1;
  try
    //对编辑进行更新，并返回影响的行数
    ChangedCount:=daStu.Update(dsStu1.Tables['Student']);
    MessageBox.show(ChangedCount.ToString+'条信息更新成功！');
  except
    on ex:Exception do
      MessageBox.Show(ex.Message);
  end;
end;

//显示所有学生信息
procedure frmMain.btnViewAll_Click(sender: System.Object; e: System.EventArgs);
begin
  //查询出所有学生信息
  daStu.SelectCommand.CommandText:='SELECT * FROM Student';
  //学生信息绑定
  StuDataBinding;
end;

//增加学生信息
procedure frmMain.BtnAdd_Click(sender: System.Object; e: System.EventArgs);
var
  dr:DataRow;
begin
  //在DataTable中增加行
  dr:=dsStu1.Tables['Student'].NewRow;
  dr['ID']:='New ID';
  dr['Name']:='New Name';
  dr['Birth']:=DateTime.Now.ToShortDateString;
  dr['ClsID']:='';
  dr['Dorm']:='';
  dsStu1.Tables['Student'].Rows.Add(dr);
  myBind.Position:=myBind.Count-1;
end;

//最后一条学生信息
procedure frmMain.btnLast_Click(sender: System.Object; e: System.EventArgs);
begin
  myBind.Position:=myBind.Count-1;
end;

//后一条学生信息
procedure frmMain.btnNext_Click(sender: System.Object; e: System.EventArgs);
begin
  if myBind.Position=myBind.Count-1 then
    MessageBox.Show('无后一条信息！')
  else
    myBind.Position:=myBind.Position+1;
end;

//前一条学生信息
procedure frmMain.btnPrevious_Click(sender: System.Object; e: System.EventArgs);
begin
  if myBind.Position=0 then
    MessageBox.Show('无前一条信息！')
  else
    myBind.Position:=myBind.Position-1;
end;

//第一条学生信息
procedure frmMain.btnFirst_Click(sender: System.Object; e: System.EventArgs);
begin
  myBind.Position:=0;
end;

//按条件查找学生
procedure frmMain.btnSearch_Click(sender: System.Object; e: System.EventArgs);
var
  strSQL:string; //