delcustomer.pas.~1~

asp.net2.0控件treeview绑定数据以及全选操作

unit delCustomer;

interface

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

type
  TfrmDelCustomer = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    UserID: TEdit;
    GroupBox2: TGroupBox;
    BtnLocation: TButton;
    Label2: TLabel;
    Label3: TLabel;
    sex: TEdit;
    Label4: TLabel;
    birthday: TDateTimePicker;
    Label6: TLabel;
    joinTime: TDateTimePicker;
    Label5: TLabel;
    CardNum: TEdit;
    Label11: TLabel;
    arrearage: TEdit;
    Label7: TLabel;
    tel: TEdit;
    Label8: TLabel;
    address: TEdit;
    btnDelete: TButton;
    BtnClose: TButton;
    Username: TEdit;
    procedure BtnLocationClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure UserIDChange(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    function isInteger(s:string):boolean;
  end;

var
  frmDelCustomer: TfrmDelCustomer;

implementation

uses dataModule;

{$R *.dfm}
function TfrmDelCustomer.isInteger(s: string): boolean;
var
   i:integer;
begin
   i:=1;
   if length(s)=0 then
   begin
      result:=false;
      exit;
   end;
   while i<=length(s) do
   begin
      if (isNumeric(s[i])=false) then
      begin
         result:=false;
         exit;
      end;
      i:=i+1;
   end;
   result:=true;
end;

procedure TfrmDelCustomer.BtnLocationClick(Sender: TObject);
var
    flag : boolean;
begin

    //按照编号查找用户
    if ( isInteger(UserId.Text)=false ) then
    begin
        messageDlg('输入编号不合法',mtWarning,[mbOk],0);
        exit;
    end;

    //
    flag:=false;
    with dm.TLeader do
    begin
        open;
        first;
        while not eof do
        begin
            if fieldByName('编号').AsString=UserId.Text then
            begin
                flag:=true;
                break;
            end;
            next;
        end;
        if flag=false then//会员不存在
        begin
            messageDlg('输入编号不存在',mtWarning,[mbOk],0);
            btnDelete.Enabled:=false;
            exit;
        end;
    end;
    btnDelete.Enabled:=true;

    with dm.TLeader do
    begin

        sex.Text:= fieldByName('性别').asString;
        Username.Text:=fieldByName('姓名').asString;
        birthDay.Date:=fieldByName('生日').AsDateTime;
        CardNum.Text := fieldByName('身份证号码').asString;
        joinTime.Date:=fieldByName('任职时间').AsDateTime;
        tel.Text:=fieldByName('电话').asString;
        address.Text:=fieldByName('地址').asString;
        arrearage.Text := fieldByName('每小时收费').asString;

    end;


end;

procedure TfrmDelCustomer.btnDeleteClick(Sender: TObject);
var
    i:  integer;
    id: integer;
begin
    //删除用户
   i:=messageDlg('确定要删除用户记录?',mtWarning,[mbYes,mbNo],0);
   if i=6 then
   begin
      {记录要删除记录的关键字}
      id:=strtoint(UserId.Text);
      {删除这一条记录}
      dm.TLeader.Delete;
      {清屏并且删除按钮不可用}
      UserId.Text:='';
      UserName.Text:='';
      sex.Text:='';
      birthDay.Date:=now;
      joinTime.Date:=now;
      CardNum.Text := '';
      tel.Text:='';
      address.Text:='';
      arrearage.Text := '';
      activeControl:=UserId;
   end;
end;

procedure TfrmDelCustomer.BtnCloseClick(Sender: TObject);
begin
    //关闭窗体
    dm.TLeader.close;
    close;
end;

procedure TfrmDelCustomer.UserIDChange(Sender: TObject);
begin
    btnDelete.Enabled := false;
end;

end.