unit36.pas

一个用DELPHI编的酒店管理系统。 其中数据库：SQL Server2000, 只需恢复 My database文件夹中 My database_Data.MDF和 My database_Log.

unit Unit36;

interface

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

type
  TForm36 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    customerid: TEdit;
    Button3: TButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    customername: TEdit;
    gender: TComboBox;
    idcard: TEdit;
    Button1: TButton;
    Button2: TButton;
    nation: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    idname: TComboBox;
    Label7: TLabel;
    customerrank: TComboBox;
    Label9: TLabel;
    Label6: TLabel;
    tel: TEdit;
    Label8: TLabel;
    address: TEdit;
    Label10: TLabel;
    mark: TEdit;
    Label12: TLabel;
    account: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    function isInteger(s:string):boolean;
  public
    { Public declarations }
  end;

var
  Form36: TForm36;

implementation

uses Unit16, Unit6;

{$R *.dfm}

procedure TForm36.FormCreate(Sender: TObject);
begin
   {没验证客户编号前不可修改}
   button1.Enabled:=false;
end;

procedure TForm36.Button2Click(Sender: TObject);
begin
form16.table1.Close;
end;

procedure TForm36.Button3Click(Sender: TObject);
var
   flag:boolean;
   i:integer;
begin
   {验证客户编号的合法性}
   if isInteger(customerId.Text)=false then
   begin
      messageDlg('输入编号不合法',mtWarning,[mbOk],0);
      exit;
   end;
   {验证客户编号的存在性}
   flag:=false;
   with form16.table1 do
   begin
      open;
      first;
      while not eof do
      begin
         if fieldByName('客户编号').AsString=customerId.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 form16.table1 do
   begin
      customerName.Text:=fieldByName('客户姓名').asString;
      i:=gender.Items.IndexOf(fieldByName('性别').asString);
      gender.ItemIndex:=i;
      idcard.Text:=fieldByName('证件号码').asString;
      i:=idname.Items.IndexOf(fieldByName('证件名称').asString);
      idname.ItemIndex:=i;
      tel.text:=fieldByName('联系电话').asString;
      i:=nation.Items.IndexOf(fieldByName('国籍').asString);
      nation.ItemIndex:=i;
      address.text:=fieldByName('通信地址').asString;
      mark.text:=fieldByName('消费积分').asString;
      i:=customerrank.Items.IndexOf(fieldByName('客户等级').asString);
      customerrank.ItemIndex:=i;
      i:=account.Items.IndexOf(fieldByName('折扣').asString);
      account.ItemIndex:=i;
   end;
end;

function Tform36.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 TForm36.Button1Click(Sender: TObject);
var
   i:integer;
begin
   i:=messageDlg('确定要修改客户记录?',mtWarning,[mbYes,mbNo],0);
   if i=6 then
   begin
         with form6.table1 do
         begin
            edit;
            fieldValues['客户姓名']:=customerName.Text;
            fieldValues['性别']:=gender.Items[gender.ItemIndex];
            fieldValues['证件名称']:=idname.Items[idname.ItemIndex];
            fieldValues['证件号码']:=idcard.Text;
            fieldValues['国籍']:=nation.Items[nation.ItemIndex];
            fieldValues['联系电话']:=tel.Text;
            fieldValues['折扣']:=account.Items[account.ItemIndex];
            fieldValues['客户等级']:=customerrank.Items[customerrank.ItemIndex];
            fieldValues['消费积分']:=mark.Text;
            fieldValues['通信地址']:=address.Text;
            post;
       end;
   end;
end;

procedure TForm36.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form16.table1.Close;
end;

end.