s_gradeunit.~pas

实例4学院信息管理系统 - RAR 档案文件

unit S_GradeUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, Grids, DBGrids, StdCtrls, ExtCtrls;

type
  TS_GradeForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    ButtonXiuGai: TButton;
    DBGridBase: TDBGrid;
    DBGridCredit: TDBGrid;
    DataSourceMaster: TDataSource;
    DataSourceDetail: TDataSource;
    ButtonTuiChu: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ButtonTuiChuClick(Sender: TObject);
    procedure ButtonXiuGaiClick(Sender: TObject);
  private
    { Private declarations }
    procedure refresh;
  public
    { Public declarations }
  end;

var
  S_GradeForm: TS_GradeForm;

implementation

uses CDMUnit;

{$R *.DFM}

procedure TS_GradeForm.FormCreate(Sender: TObject);
begin
  {}
  with CDM.ClientDataSetBase do
  begin
    Close;
    CommandText:='Select * from BaseTB';
    Open;
  end;

  with CDM.ClientDataSetCredit do
  begin
    Close;
    IndexFieldNames:='student_id';
    MasterSource:=DataSourceMaster;
    MasterFields:='student_id';
    CommandText:='Select * from CreditTB';
    Open;
  end;

end;

procedure TS_GradeForm.ButtonTuiChuClick(Sender: TObject);
begin
  {退出}
  ModalResult := mrCancel;
end;

procedure TS_GradeForm.ButtonXiuGaiClick(Sender: TObject);
var InputString:string;
    i:integer;
    fstudent_id:string[8];
    fcourse:string[10];
begin
  {修改}
  InputString:= InputBox('学员成绩', '分数：', '0');
  if InputString <> '' then
  begin
    Try
      i:=strtoint(InputString);
      {取课程数据}
      with DBGridCredit.DataSource.DataSet do
      begin
        fstudent_id :=FieldByName('student_id').AsString;
        fcourse     :=FieldByName('course').AsString;
      end;

    finally
      CDM.DCOMConnectionStudent.AppServer.S_G_Md(fstudent_id,fcourse,i);
      refresh;
    end;
  end;
end;

procedure TS_GradeForm.refresh;
begin
  with CDM.ClientDataSetCredit do
  begin
    Close;
    IndexFieldNames:='student_id';
    MasterSource:=DataSourceMaster;
    MasterFields:='student_id';
    CommandText:='Select * from CreditTB';
    Open;
  end;
end;

end.