group.pas

完成酒店管理系统

unit Group;

interface

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

type
  TGroupFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button6: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    Button3: TButton;
    Button4: TButton;
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GroupFrm: TGroupFrm;

implementation

uses GroupDel;

{$R *.dfm}

procedure TGroupFrm.Button6Click(Sender: TObject);
begin
Close;
end;

procedure TGroupFrm.Button1Click(Sender: TObject);
begin
Edit1.SetFocus;
end;

procedure TGroupFrm.Button3Click(Sender: TObject);

var
flag:boolean;
begin
flag:=true;
 if Edit1.Text='' then flag:=false;
 if flag then
 begin
 ADOQuery1.Append;
 ADOQuery1.FieldValues['接待对象']:=Edit1.Text;
 ADOQuery1.FieldValues['住宿终时']:=DateTimePicker2.Date;
 ADOQuery1.FieldValues['住宿起时']:=DateTimePicker1.Date;
 ADOQuery1.FieldValues['接待对象']:=Edit1.Text;
 ADOQuery1.FieldValues['从何而来']:=Edit8.Text;
 ADOQuery1.FieldValues['到何而去']:=Edit9.Text;
 ADOQuery1.FieldValues['备注']:=Edit7.Text;
 ADOQuery1.Post;
 end
 else begin
 showmessage('请补全信息！');
 end;
 ShowMessage('已完成登记！');

end;


procedure TGroupFrm.Button4Click(Sender: TObject);
begin
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
Edit4.Text:= '';
Edit5.Text:= '';
Edit6.Text:= '';
Edit7.Text:= '';
Edit8.Text:= '';
Edit9.Text:= '';
Edit10.Text:= '';
Edit11.Text:= '';
ComboBox1.Text:= '';


end;

procedure TGroupFrm.Button2Click(Sender: TObject);
begin
GroupDelFrm.Show;
end;

end.