roomyud.~pas

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

unit RoomYud;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DBCtrls, Mask;

type
  TRoomYudFrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Memo1: TMemo;
    Label5: TLabel;
    GroupBox4: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    Label8: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBMemo1: TDBMemo;
    Label9: TLabel;
    DBGrid2: TDBGrid;
    Label10: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label11: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label12: TLabel;
    DBEdit4: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit5: TDBEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RoomYudFrm: TRoomYudFrm;

implementation
  uses DB_Frm;
{$R *.dfm}

procedure TRoomYudFrm.Button1Click(Sender: TObject);
var
  qrystring:string;
begin
  if (length(edit1.Text)=0)or(length(ComboBox1.Text)=0)or(length(edit2.Text)=0)or(length(edit4.Text)=0)
    or(length(edit5.Text)=0)or(length(edit6.Text)=0) then
    begin
      if (RadioButton1.Checked=false)and(RadioButton2.Checked=false) then
        Messagedlg('请选择性别！',mtError,[mbOK],0)
      else
        Messagedlg('请输入完备的定房记录信息！',mtError,[mbOK],0);
    end
  else
    begin
      qrystring:='select * from yuding where Order_id='+''''+trim(edit4.Text)+'''';
      with DBFrm.yuding_query do
        begin
          close;
          sql.Clear;
          sql.Add(qrystring);
          open;
          recordcount;
          if recordcount<>0 then
            Messagedlg('该记录已经存在！',mtError,[mbOK],0)
          else
            begin
              with DBFrm.yuding_Table do      //登记预定客户信息及其所预定的房间
                begin
                  close;
                  open;
                  append;
                  fieldbyname('Order_id').AsString:=trim(edit4.Text);
                  fieldbyname('customer_name').AsString:=trim(edit1.Text);
                  fieldbyname('certifi_type').AsString:=trim(ComboBox1.Text);
                  fieldbyname('certifi_id').AsString:=trim(edit2.Text);
                  fieldbyname('phone').AsString:=trim(edit3.Text);
                  fieldbyname('room_id').AsString:=trim(DBEdit4.Text);
                  fieldbyname('state_time').AsString:=trim(edit5.Text);
                  fieldbyname('end_time').AsString:=trim(edit6.Text);
                  fieldbyname('memo').AsString:=trim(memo1.Text);
                  if RadioButton1.Checked then
                    fieldbyname('gender').AsString:=RadioButton1.Caption
                  else
                    fieldbyname('gender').AsString:=RadioButton2.Caption;
                  post;
                end;
              with DBFrm.Room_Table do
                begin
                  edit;
                  fieldbyname('Room_memo').AsString:='预定';  //在对应客房信息的备注中注上已经“预定”
                  post;
                end;
            end;
        end;
    end;
end;

procedure TRoomYudFrm.Button2Click(Sender: TObject);
begin
  if messagedlg('确实要删除该记录吗？',mtinformation,[mbOK,mbCancel],0)=mrOK then
    DBFrm.yuding_Table.Delete;
end;

end.