roommodify.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 102 行

unit RoomModify;

interface

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

type
  TRoomModifyFrm = class(TForm)
    Label1: TLabel;
    Room_idEdit: TEdit;
    ButSearch: TButton;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Memo1: TMemo;
    ButModify: TButton;
    ButQuit: TButton;
    procedure ButSearchClick(Sender: TObject);
    procedure ButModifyClick(Sender: TObject);
    procedure ButQuitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RoomModifyFrm: TRoomModifyFrm;

implementation
  uses DB_Frm, RoomAdd;
{$R *.dfm}

procedure TRoomModifyFrm.ButSearchClick(Sender: TObject);
var
  qrystring:string;
begin
  qrystring:='select * from Room where Room_id='+''''+trim(Room_idEdit.Text)+'''';
  with DBFrm.Room_Query do
    begin
      close;
      SQL.Clear;
      SQL.Add(qrystring);
      open;
      recordcount;
      if recordcount<>0 then
        begin
          edit2.Text:=fieldbyname('Room_id').AsString;
          edit3.Text:=fieldbyname('Room_level').AsString;
          edit4.Text:=fieldbyname('Cost').AsString;
          edit5.Text:=fieldbyname('Room_state').AsString;
          memo1.Text:=fieldbyname('Room_memo').AsString;
        end
      else
        begin
          if MessageDlg('数据库中不存在该记录，是否添加？',mtInformation,[MbYes,mbNo],0)=mrYes then
            RoomAddFrm.ShowModal
          else
            exit;
        end;
    end;
end;

procedure TRoomModifyFrm.ButModifyClick(Sender: TObject);
var
  qrystring:string;
begin
  if (length(edit2.Text)=0) or (length(edit3.Text)=0) or (length(edit4.Text)=0) or (length(edit5.Text)=0) then
    Messagedlg('请输入客房信息!',mtError,[mbOK],0)
  else
    begin
      qrystring:='update Room set Room_id='+''''+trim(edit2.Text)+'''';
      qrystring:=qrystring+',Room_level='+''''+trim(edit3.Text)+'''';
      qrystring:=qrystring+',Cost='+''''+trim(edit4.Text)+'''';
      qrystring:=qrystring+',Room_state='+''''+trim(edit5.Text)+'''';
      qrystring:=qrystring+',Room_memo='+''''+trim(memo1.Text)+''''+' where Room_id='+''''+trim(Room_idEdit.Text)+'''';
      with DBFrm.Room_Query do
        begin
          close;
          SQL.Clear;
          SQL.Add(qrystring);
          ExecSql;
        end;
     end;
end;

procedure TRoomModifyFrm.ButQuitClick(Sender: TObject);
begin
  close;
end;

end.