c_rz.pas

《delphi数据库设计与实例开发》随书光盘

unit c_rz;

interface

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

type
  Tcfrm_rz = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    ComboBox2: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    Edit5: TEdit;
    ComboBox3: TComboBox;
    Label9: TLabel;
    Edit6: TEdit;
    Label10: TLabel;
    Panel5: TPanel;
    GroupBox3: TGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Panel6: TPanel;
    Label14: TLabel;
    Panel7: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_rz: Tcfrm_rz;

implementation

uses c_datam;

{$R *.dfm}

procedure Tcfrm_rz.FormCreate(Sender: TObject);
begin
  with dm.adoq_kfcx do
   begin
   Close;
   SQL.clear;
   SQL.add('select * from room where Room_state=''空''');
   Open;
   First;
   end;
  while not dm.adoq_kfcx.Eof do
  begin
  combobox1.Items.Add(dm.adoq_kfcx.fieldbyname('Room_id').asstring);
  dm.adoq_kfcx.Next;
  end;
  combobox1.text:=combobox1.items[0];
  dm.ado_inroom.Open;
end;

procedure Tcfrm_rz.ComboBox1Change(Sender: TObject);
begin
   dm.ADO_room.Open;
   dm.ADO_room.First;
   dm.ADO_room.Locate('Room_id',ComboBox1.Text,[]);
   edit1.Text:=dm.ADO_room.fieldbyname('Room_type').AsString;
   edit2.Text:=dm.ADO_room.fieldbyname('Cost').AsString;
   edit3.Text:=dm.ADO_room.fieldbyname('Room_memo').AsString;
end;



procedure Tcfrm_rz.BitBtn1Click(Sender: TObject);
begin
if (length(Edit4.Text)=0)or(length(combobox2.Text)=0)or(length(combobox3.Text)=0)or(length(Edit5.Text)=0)or(length(Edit6.Text)=0)then
begin
  Messagedlg('请输入完备的信息！',mtError,[mbOK],0);
  exit;
end
  else              //已经输入完备的记录信息
    begin
      with dm.ADO_room do
        begin
          close;
          open;
          locate('Room_id',Combobox1.Text,[]);
          edit;
          fieldbyname('Room_state').AsString:='满';
          fieldbyname('customer_name').AsString:=trim(edit4.Text);
          fieldbyname('state_time').AsDateTime:=DateTimePicker1.Date;
          fieldbyname('end_time').AsDateTime:=DateTimePicker2.Date;
          if fieldbyname('Room_memo').AsString='预定' then
            fieldbyname('Room_memo').AsString:='';
          post;
          close;
        end;

      with dm.ado_customer do
        begin
          close;
          open;
          append;
          fieldbyname('customer_name').AsString:=trim(edit4.Text);
          fieldbyname('certifi_type').AsString:=trim(ComboBox3.Text);
          fieldbyname('certifi_id').AsString:=trim(edit5.Text);
          fieldbyname('phone').AsString:=trim(edit6.Text);
          fieldbyname('state_time').AsDateTime:=DateTimePicker1.Date;
          fieldbyname('end_time').AsDateTime:=DateTimePicker2.Date;
          fieldbyname('memo').AsString:=trim(memo1.Text);
          fieldbyname('gender').AsString:=trim(Combobox2.text);
          post;
          close;
        end;
      with dm.ado_inroom do
        begin
          close;
          open;
          append;
          fieldbyname('customer_name').AsString:=trim(edit4.Text);
          fieldbyname('room_id').AsString:=trim(ComboBox1.Text);
          fieldbyname('cost').AsString:=trim(edit2.Text);
          fieldbyname('state_time').AsDateTime:=DateTimePicker1.Date;
          fieldbyname('end_time').AsDateTime:=DateTimePicker2.Date;
          post;
          close;
          open;
        end;
    end;
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    edit5.Text:='';
    edit6.Text:='';
    Memo1.Text:='';
    Combobox1.Text:='';
    Combobox2.Text:='';
    Combobox3.Text:='';
end;

procedure Tcfrm_rz.FormShow(Sender: TObject);
begin
 Datetimepicker1.Date:=date();
 Datetimepicker2.Date:=date();
end;

end.