s_mdunit.~pas

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

unit S_MDUnit;

interface

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

type
  TS_MDForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    LStudent_id: TLabel;
    Label3: TLabel;
    ESex: TEdit;
    Label4: TLabel;
    Egrade: TEdit;
    Label5: TLabel;
    Eidentity: TEdit;
    Label6: TLabel;
    Eage: TEdit;
    Label7: TLabel;
    Enative: TEdit;
    Label2: TLabel;
    Ename: TEdit;
    ButtonUpdate: TButton;
    DataSource1: TDataSource;
    DBGridBase: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure ButtonUpdateClick(Sender: TObject);
    procedure DBGridBaseDblClick(Sender: TObject);
  private
    { Private declarations }
    procedure showitem;
    procedure Refresh;
  public
    { Public declarations }
  end;

var
  S_MDForm: TS_MDForm;

implementation

{$R *.DFM}
uses PkgUnit,CDMUnit;

{
  Ename.Text:=''; //*学员姓名*/
  Esex.Text:=''; //*性别*/
  Egrade.Text:=''; //*入学年度*/
  Enative.Text:=''; //*籍贯*/
  Eidentity.Text:=''; //*身份证编号*/
  Eage.Text:=''; //*年龄*/
}

procedure TS_MDForm.FormCreate(Sender: TObject);
begin
  //with (DBGrid1.DataSource.DataSet) as TClientDataSet do
  with CDM.ClientDataSetBase do
  begin
    Close;
    CommandText:='Select * from BaseTB';
    Open;

  end;

  showitem;

end;

procedure TS_MDForm.ButtonUpdateClick(Sender: TObject);
var pkg:TSPackage;
    Inpkg:TSPkgData;
    vo: OleVariant;
    Data: PChar;
begin
  {}
  ButtonUpdate.Enabled:=False;
  {打包数据}
  pkg := TSPackage.Create;

  pkg.Item['student_id']:=LStudent_id.Caption; //*学号*/
  pkg.Item['name']:=Ename.Text; //*学员姓名*/
  pkg.Item['sex']:=Esex.Text; //*性别*/
  pkg.Item['grade']:=Egrade.Text; //*入学年度*/
  pkg.Item['native']:=Enative.Text; //*籍贯*/
  pkg.Item['identity']:=Eidentity.Text; //*身份证编号*/
  pkg.Item['age']:=Eage.Text; //*年龄*/

  pkg.GetPacket(Inpkg);
  pkg.Free;
  {发送数据包 ...}
  vo := VarArrayCreate([0, SPackageLength-1], varByte);
  Data := VarArrayLock(vo);
  try
    Move(Inpkg,Data^, SPackageLength);
  finally
    VarArrayUnlock(vo);
  end;

  CDM.DCOMConnectionStudent.AppServer.S_Md(vo);

  //CDM.ClientDataSet1.RefreshRecord;
  Refresh;

  ButtonUpdate.Enabled:=True;

end;

procedure TS_MDForm.showitem;
begin
  with DBGridBase.DataSource.DataSet do
  begin
    LStudent_id.Caption:=FieldByName('student_id').AsString;
    Ename.Text:=FieldByName('name').AsString; //*学员姓名*/
    Esex.Text:=FieldByName('sex').AsString; //*性别*/
    Egrade.Text:=FieldByName('grade').AsString; //*入学年度*/
    Enative.Text:=FieldByName('native').AsString; //*籍贯*/
    Eidentity.Text:=FieldByName('identity').AsString; //*身份证编号*/
    Eage.Text:=FieldByName('age').AsString; //*年龄*/
  end;

end;

procedure TS_MDForm.Refresh;
begin
  with CDM.ClientDataSetBase do
  begin
    Close;
    CommandText:='Select * from BaseTB';
    Open;
  end;
  showitem;

end;



procedure TS_MDForm.DBGridBaseDblClick(Sender: TObject);
begin
  showitem;
end;

end.