ufrmusers.pas

Delphi面向对象编程思想附书源码 好用哦！

unit ufrmUsers;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, StdCtrls, DBCtrls, Grids, DBGrids, Mask, ExtCtrls,
  Buttons, InvokeRegistry, Rio, SOAPHTTPClient,Types;

type
  TfrmUsers = class(TForm)
    btnExit: TButton;
    btnQryByName: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edtQryByName: TLabeledEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBGrid1: TDBGrid;
    dbcbSex: TDBComboBox;
    dbcbDep: TDBComboBox;
    DataSource1: TDataSource;
    cdsUserMaint: TClientDataSet;
    cdsUserMaintID: TWideStringField;
    cdsUserMaintNAME: TWideStringField;
    cdsUserMaintSEX: TWideStringField;
    cdsUserMaintJOB: TWideStringField;
    cdsUserMaintTEL: TWideStringField;
    cdsUserMaintCALL: TWideStringField;
    cdsUserMaintDEP: TWideStringField;
    cdsUserMaintGROUP_ID: TWideStringField;
    cdsUserMaintPASSWORD: TWideStringField;
    btnUpdate: TBitBtn;
    HTTPRIO1: THTTPRIO;
    procedure btnUpdateClick(Sender: TObject);
    procedure btnQryByNameClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
    { Public declarations }
  end;

var
  frmUsers: TfrmUsers;

const
  M_TITLE='操作提示';//所有提示对话框的标题

implementation

uses uIUserService;//UserServiceIntf;



{$R *.dfm}

procedure TfrmUsers.btnUpdateClick(Sender: TObject);
var
  IUser:IUserService;
begin
  IUser:=(HTTPRIO1 as IUserService);
  if IUser.UpdateUserData(cdsUserMaint.XMLData)=0 then
    application.MessageBox('更新成功！',M_TITLE,MB_ICONINFORMATION)
  else
    application.MessageBox('更新失败！',M_TITLE,MB_ICONSTOP);
  IUser:=nil;
end;

procedure TfrmUsers.btnQryByNameClick(Sender: TObject);
var
  IUser:IUserService;
begin
  IUser:=(HTTPRIO1 as IUserService);
  btnUpdate.Enabled:=true;
  cdsUserMaint.Active:=false;
  cdsUserMaint.XMLData:=IUser.GetUserList(edtQryByName.Text);
  cdsUserMaint.Active:=True;
  IUser:=nil;
end;

procedure TfrmUsers.btnExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmUsers.FormCreate(Sender: TObject);
var
  IUser:IUserService;
  i,count:integer;
  aDeps:TStringDynArray;
begin
  count:=0;
  IUser:=(HTTPRIO1 as IUserService);
  aDeps:=IUser.GetDepList(count);
  for  i:=0  to count-1 do
    dbcbDep.Items.Add(aDeps[i]);
end;

end.