modginfunit.~pas

很好地delphi书籍源码

unit ModGInfUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons, ExtCtrls, Mask;

type
  TFrmModGInf = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GuestIDCB: TComboBox;
    OldSG: TStringGrid;
    NewSG: TStringGrid;
    Splitter1: TSplitter;
    OkSB: TSpeedButton;
    CloseSB: TSpeedButton;
    RefreshSB: TSpeedButton;
    LookUpIDSB: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure GuestIDCBChange(Sender: TObject);
    procedure OkSBClick(Sender: TObject);
    procedure CloseSBClick(Sender: TObject);
    procedure LookUpIDSBClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
//    procedure GroupBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    constructor Create(AQwner:TComponent;N:integer);
    { Public declarations }
  end;

var
  FrmModGInf: TFrmModGInf;

implementation

uses DataModuleUnit, GetYourInputUnit;

{$R *.dfm}

procedure TFrmModGInf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFrmModGInf.GuestIDCBChange(Sender: TObject);
var
 i:Word;
begin
  if GuestIDCB.Text='' then   exit;
  if  Not IsInteger(GuestIDCB.Text) then
  begin
    Showmessage('客户编号是一个整数,您再检查一下,好吗?');
    exit;
  end;
  with DataModule1.qGInfo  do
  begin
    Close;
    sql.Clear;
    SQL.Add('SELECT * From tbGInfo where GuestID='+ GuestIDCB.Text );
    Open;
    for i:=1 to 12 do
    begin
     OldSG.Cells[1,i]:=Fields[i].AsString  ;
     NewSG.Cells[0,i]:=OldSG.Cells[1,i];
   end;
 end;
end;

procedure TFrmModGInf.OkSBClick(Sender: TObject);
var
  SQLstr:TStrings;
begin
  with NewSG do
  begin
    if (Cells[0,1]='')or(Cells[0,2]='')or(Cells[0,3]='')or(Cells[0,4]='')
       or(Cells[0,5]='')or(Cells[0,6]='')or(Cells[0,9]='')or(Cells[0,10]='')
       or(Cells[0,11]='')or(Cells[0,12]='') then
    begin
     Showmessage('修改栏部分可能缺少某些信息!');
     exit;
    end;
  end;
  SQLstr:=TStringList.Create;
  SQLstr.Add('Update tbGInfo Set');
  SQLstr.Add('GuestName="'+NewSG.Cells[0,1]+'",');
  SQLstr.Add('Sex="'+NewSG.Cells[0,2]+'",');
  SQLstr.Add('Age='+ NewSG.Cells[0,3]+',');
  SQLstr.Add('BornPlace="'+NewSG.Cells[0,4]+'",');
  SQLstr.Add('CardName="'+NewSG.Cells[0,5]+'",');
  SQLstr.Add('CardID="'+ NewSG.Cells[0,6]+'",');
  SQLstr.Add('Company="'+NewSG.Cells[0,7]+'",');
  SQLstr.Add('Duty="'+NewSG.Cells[0,8]+'",');
  SQLstr.Add('PlanDays='+ NewSG.Cells[0,9]+',');
  SQLstr.Add('Foregift='+ NewSG.Cells[0,10]+',');
  SQLstr.Add('EnterDateTime="'+NewSG.Cells[0,11]+'",');
  SQLstr.Add('LeaveDateTime="'+NewSG.Cells[0,12] +'"');
  SQLstr.Add(' WHERE GuestID='+ GuestIDCB.Text);
  //更新该客户的tbGRoomFee表
  SQLstr.Add('Update tbGRoomFee Set');
  SQLstr.Add('GuestName="'+NewSG.Cells[0,1]+'",');
  SQLstr.Add('CardID="'+ NewSG.Cells[0,6]+'"');
  SQLstr.Add(' WHERE GuestID='+ GuestIDCB.Text);
  //更新该客户的tbGHotelFee表
  SQLstr.Add('Update tbGHotelFee Set');
  SQLstr.Add('GuestName="'+NewSG.Cells[0,1]+'",');
  SQLstr.Add('CardID="'+ NewSG.Cells[0,6]+'"');
  SQLstr.Add(' WHERE GuestID='+ GuestIDCB.Text);


  with DataModule1.qGInfo  do
  begin
    Close;
    SQL.Clear;
    SQL.AddStrings(SQLstr);
    ExecSQL;
  end;
  SQLstr.Free;
  RefreshSB.Enabled:=true;
end;
procedure TFrmModGInf.CloseSBClick(Sender: TObject);
begin
  Close;
end;

constructor TFrmModGInf.Create(AQwner: TComponent; N: integer);
begin
  inherited Create(AQwner);
  OldSG.DefaultColWidth:=(OldSG.Width div 2)-4;
  NewSG.DefaultColWidth:=NewSG.Width-10 ;
  OldSG.Cells[0,1]:='姓名';
  OldSG.Cells[0,2]:='性别' ;
  OldSG.Cells[0,3]:='年龄'  ;
  OldSG.Cells[0,4]:='出生地' ;
  OldSG.Cells[0,5]:='证件类型';
  OldSG.Cells[0,6]:='证件号码' ;
  OldSG.Cells[0,7]:='工作单位' ;
  OldSG.Cells[0,8]:='职务'    ;
  OldSG.Cells[0,9]:='预住天数' ;
  OldSG.Cells[0,10]:='预付押金' ;
  OldSG.Cells[0,11]:='入住时间' ;
  OldSG.Cells[0,12]:='结算时间' ;
  NewSG.Cells[0,0]:='修改后信息'    ;

  if N=0 then   //用于查询
  begin
    OldSG.Cells[0,0]:='信息名称';
    OldSG.Cells[1,0]:='信息内容';
    OldSG.Align:=alClient;
    OkSB.Visible:=false;
    RefreshSB.Visible:=false;
    NewSG.Visible:=false;
  end else
  begin
    OldSG.Cells[0,0]:='可修改信息';
    OldSG.Cells[1,0]:='修改前信息' ;
    RefreshSB.Visible:=true;
    NewSG.Visible:=true;
  end;
end;

procedure TFrmModGInf.LookUpIDSBClick(Sender: TObject);
var
  GName :string;
begin
  GName:=GetYourString;
  with DataModule1.qGInfo  do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT GuestID From tbGInfo where GuestName="'+GName+'"');
    Open;
    GuestIDCB.Clear;
    First;
    while not eof do
    begin
      GuestIDCB.Items.Add(Fields[0].Value);
      Next;
    end;
  end;
  GuestIDCB.ItemIndex:=0;
  GuestIDCB.OnChange(self);
end;

procedure TFrmModGInf.FormCreate(Sender: TObject);
begin
 GuestIDCB.Items:=FindGuestID;
end;

end.