changemember.pas

餐饮管理源代码 使用BDE Administrator在本地机器上添加一个Paradox数据库别名命名为WorkData

unit changeMember;

interface

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

type
  TfrmChangeMember = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    memberName: TEdit;
    Label11: TLabel;
    gender: TComboBox;
    Label2: TLabel;
    folk: TEdit;
    Label15: TLabel;
    profession: TComboBox;
    Label5: TLabel;
    eduLevel: TComboBox;
    Label3: TLabel;
    address: TEdit;
    Label9: TLabel;
    telephone: TEdit;
    Label12: TLabel;
    memberId: TEdit;
    Button3: TButton;
    Label4: TLabel;
    birthDay: TDateTimePicker;
    joinTime: TDateTimePicker;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure memberIdChange(Sender: TObject);
  private
    { Private declarations }
    function isInteger(s:string):boolean;
  public
    { Public declarations }
  end;

var
  frmChangeMember: TfrmChangeMember;

implementation

{$R *.dfm}

procedure TfrmChangeMember.FormCreate(Sender: TObject);
begin
   {初始化生日和入会时间}
   birthDay.Date:=now;
   joinTime.Date:=now;
   {没验证会员编号前不可修改}
   button1.Enabled:=false;
end;

procedure TfrmChangeMember.Button3Click(Sender: TObject);
var
   flag:boolean;
   i:integer;
begin
   {验证会员编号的合法性}
   if isInteger(memberId.Text)=false then
   begin
      messageDlg('输入编号不合法',mtWarning,[mbOk],0);
      exit;
   end;
   {验证会员编号的存在性}
   flag:=false;
   with dm.tblMember do
   begin
      open;
      first;
      while not eof do
      begin
         if fieldByName('会员编号').AsString=memberId.Text then
         begin
            flag:=true;
            break;
         end;
         next;
      end;
      if flag=false then//会员不存在
      begin
         messageDlg('输入编号不存在',mtWarning,[mbOk],0);
         button1.Enabled:=false;
         exit;
      end;
   end;
   button1.Enabled:=true;
   {显示此会员的信息}
   with dm.tblMember do
   begin
      memberName.Text:=fieldByName('会员姓名').asString;
      i:=gender.Items.IndexOf(fieldByName('性别').asString);
      gender.ItemIndex:=i;
      folk.Text:=fieldByName('民族').asString;
      i:=eduLevel.Items.IndexOf(fieldByName('学历').asString);
      eduLevel.ItemIndex:=i;
      birthDay.Date:=fieldByName('生日').AsDateTime;
      joinTime.Date:=fieldByName('入会时间').AsDateTime;
      i:=profession.Items.IndexOf(fieldByName('职业').asString);
      profession.ItemIndex:=i;
      telephone.Text:=fieldByName('电话').asString;
      address.Text:=fieldByName('地址').asString;
   end;
end;

function TfrmChangeMember.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 TfrmChangeMember.Button2Click(Sender: TObject);
begin
   dm.tblMember.Close;
end;

procedure TfrmChangeMember.Button1Click(Sender: TObject);
var
   i:integer;
begin
   i:=messageDlg('确定要修改会员记录?',mtWarning,[mbYes,mbNo],0);
   if i=6 then
   begin
         with dm.tblMember do
         begin
            edit;
            fieldValues['会员姓名']:=memberName.Text;
            fieldValues['性别']:=gender.Items[gender.ItemIndex];
            fieldValues['民族']:=folk.Text;
            fieldValues['学历']:=eduLevel.Items[eduLevel.ItemIndex];
            fieldValues['生日']:=birthDay.Date;
            fieldValues['入会时间']:=joinTime.Date;
            fieldValues['职业']:=profession.Items[profession.ItemIndex];
            fieldValues['电话']:=telephone.Text;
            fieldValues['地址']:=address.Text;
            post;
       end;
   end;
end;

procedure TfrmChangeMember.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   dm.tblMember.Close;
end;

procedure TfrmChangeMember.memberIdChange(Sender: TObject);
begin
   button1.Enabled:=false;
end;

end.