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,uIUserMaint;

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;
    procedure btnUpdateClick(Sender: TObject);
    procedure btnQryByNameClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    objUsers:TIUserMaint;
  public
    { Public declarations }
  end;

var
  frmUsers: TfrmUsers;

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

  implementation

{$R *.dfm}
function TObjUsers:TIUserMaintClass;
  external 'UserSvr.dll';
  
procedure TfrmUsers.btnUpdateClick(Sender: TObject);
var nErr:integer;
begin
  if cdsUserMaint.State=dsEdit then cdsUserMaint.Post;
  if (cdsUserMaint.ChangeCount > 0) then
  begin
    objUsers.UpdateUserData(cdsUserMaint.Delta,nErr);
    if nErr>0 then
       application.MessageBox('更新失败！',M_TITLE,MB_ICONWARNING)
    else
    begin
      application.MessageBox('更新成功！',M_TITLE,MB_ICONINFORMATION) ;
      btnQryByNameClick(nil);
    end;
  end;
end;

procedure TfrmUsers.btnQryByNameClick(Sender: TObject);
begin
  btnUpdate.Enabled:=true;
  dbcbDep.Items.AddStrings(objUsers.GetDepList);
  cdsUserMaint.Active:=false;
  cdsUserMaint.Data:=objUsers.GetUserList(edtQryByName.Text);
  cdsUserMaint.Active:=True;
end;

procedure TfrmUsers.FormCreate(Sender: TObject);
begin
  objUsers:=TObjUsers.Create;
end;

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

procedure TfrmUsers.FormDestroy(Sender: TObject);
begin
  objUsers.Free;
end;

end.