s_addunit.~pas

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

unit S_AddUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TS_AddForm = class(TForm)
    ButtonOk: TButton;
    ButtonCancel: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Ename: TEdit;
    Esex: TEdit;
    Egrade: TEdit;
    Enative: TEdit;
    Eidentity: TEdit;
    Eage: TEdit;
    procedure ButtonOkClick(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  S_AddForm: TS_AddForm;

implementation

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

procedure TS_AddForm.ButtonOkClick(Sender: TObject);
var pkg:TSPackage;
    Inpkg:TSPkgData;
    vo: OleVariant;
    Data: PChar;
begin
  {确认}
  if Eage.Text = '' then Eage.Text:='0';

  {打包数据}
  pkg := TSPackage.Create;

  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_Add(vo);

  ModalResult := mrOK;

end;

procedure TS_AddForm.ButtonCancelClick(Sender: TObject);
begin
  {取消}
  ModalResult := mrCancel;
end;

procedure TS_AddForm.FormCreate(Sender: TObject);
begin
  Ename.Text:=''; //*学员姓名*/
  Esex.Text:=''; //*性别*/
  Egrade.Text:=''; //*入学年度*/
  Enative.Text:=''; //*籍贯*/
  Eidentity.Text:=''; //*身份证编号*/
  Eage.Text:=''; //*年龄*/

end;

end.