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
    //關(guān)閉窗體
    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.