modifycustomer.pas.~1~

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

unit modifyCustomer;

interface

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

type
  TfrmModifyCustomer = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    UserID: TEdit;
    location: TButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label11: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Username: TEdit;
    sex: TEdit;
    birthday: TDateTimePicker;
    joinTime: TDateTimePicker;
    CardNum: TEdit;
    arrearage: TEdit;
    tel: TEdit;
    address: TEdit;
    btnmodify: TButton;
    btnclose: TButton;
    procedure locationClick(Sender: TObject);
    procedure btncloseClick(Sender: TObject);
    procedure UserIDChange(Sender: TObject);
    procedure btnmodifyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmModifyCustomer: TfrmModifyCustomer;

implementation

uses dataModule, delCustomer;

{$R *.dfm}

procedure TfrmModifyCustomer.locationClick(Sender: TObject);
var
    flag : boolean;
begin

    //按照编号查找用户
    if ( frmDelCustomer.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);
            btnModify.Enabled:=false;
            exit;
        end;
    end;
    btnModify.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 TfrmModifyCustomer.btncloseClick(Sender: TObject);
begin
    //关闭窗体
    dm.TLeader.close;
    close;
end;

procedure TfrmModifyCustomer.UserIDChange(Sender: TObject);
begin
    btnModify.Enabled := false;
end;

procedure TfrmModifyCustomer.btnmodifyClick(Sender: TObject);
var
   i:integer;
begin
   i:=messageDlg('确定要修改用户记录?',mtWarning,[mbYes,mbNo],0);
   if i=6 then
   begin
         with dm.TLeader do
         begin
            edit;
            fieldValues['姓名']:=UserName.Text;
            fieldValues['性别']:=sex.Text;
            fieldValues['生日']:=birthDay.Date;
            fieldValues['任职时间']:=joinTime.Date;
            fieldValues['电话']:=tel.Text;
            fieldValues['身份证号码']:=CardNum.Text;
            fieldValues['地址']:=address.Text;

            post;
       end;
   end;
end;

end.