unit2.pas

软件课程设计

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    Label3: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Label8: TLabel;
    Label10: TLabel;
    Edit3: TEdit;
    Label11: TLabel;
    ComboBox1: TComboBox;
    StatusBar1: TStatusBar;
    Button7: TButton;
    Button3: TButton;
    Button5: TButton;
    Button6: TButton;
    Button8: TButton;
    DateTimePicker1: TDateTimePicker;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button9: TButton;
    MainMenu1: TMainMenu;
    dfdf1: TMenuItem;
    Button4: TButton;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    Image1: TImage;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  i:integer;

implementation

uses Unit3, Unit4, Unit6, Unit7, Unit8, Unit5, Unit1, Unit9, Unit10;

{$R *.dfm}

procedure TForm2.Button4Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;

form10.Panel1.Visible:=false;
Form10.showmodal;

end;

procedure TForm2.Button1Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;
form4.Button1.Visible:=false;
form4.Button2.Visible:=false;
form3.ShowModal;

end;

procedure TForm2.Button3Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;
form4.Button1.Visible:=true;
form4.Button2.Visible:=true;
form3.showmodal;
end;

procedure TForm2.Button7Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;

form8.Button6.Visible:=false;
form8.button4.Visible:=true;
form8.button3.Visible:=true;
form8.button2.Visible:=true;
form8.button7.Visible:=false;
form8.ShowModal;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
form1.AdoQuery1.Close;
form1.AdoQuery1.SQL.Clear;
form1.AdoQuery1.SQL.Add('select 包房号,size,是否服务中,是否预定,预定时间,单价 from 房间信息 where 是否服务中=0 ');
form1.AdoQuery1.Open;
form2.GroupBox1.Visible:=false;
form6.showmodal;

end;

procedure TForm2.Button6Click(Sender: TObject);
begin
form7.ShowModal;
form2.GroupBox1.Visible:=false;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
groupbox1.Visible:=true;
end;

procedure TForm2.Button8Click(Sender: TObject);
begin

if checkbox1.Checked=true then
 i:=1
 else
 i:=0;
 Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;

Form1.ADOQuery1.SQL.Add('insert into 会员信息(id,姓名,性别,生日,证件号,单位,电话,注册时间,是否vip,光临次数,是否服务中) values('''+Edit4.Text+''','''+Edit2.Text+''','''+combobox1.text+''','''+datetostr(datetimepicker1.date)+''','''+Edit1.Text+''','''+Edit5.Text+''','''+edit3.text+''','''+datetostr(now())+''','''+inttostr(i)+''',0,0)');
Form1.ADOQuery1.SQL.Add('select *from 会员信息');

Form1.ADOQuery1.Open;
showmessage('添加成功')
end;

procedure TForm2.Button9Click(Sender: TObject);
begin
form9.showmodal;
end;

procedure TForm2.N1Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;
form3.ShowModal;
end;

procedure TForm2.N2Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=true;

end;

procedure TForm2.N3Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;
form3.showmodal;
end;

procedure TForm2.N5Click(Sender: TObject);
begin
form1.AdoQuery1.Close;
form1.AdoQuery1.SQL.Clear;
form1.AdoQuery1.SQL.Add('select 包房号,size,是否服务中,是否预定,预定时间,单价 from 房间信息 where 是否服务中=0 ');
form1.AdoQuery1.Open;
form2.GroupBox1.Visible:=false;
form6.showmodal;
end;

procedure TForm2.N7Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;
form9.showmodal;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;
Form10.showmodal;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;
form8.ShowModal;
form8.button1.Visible:=false;
form8.button2.Visible:=false;
form8.button3.Visible:=false;
form8.Panel1.Visible:=true;
form8.label1.Visible:=false;
form8.label2.Visible:=false;
form8.label3.Visible:=false;
form8.label4.Visible:=false;
form8.label5.Visible:=false;
form8.label6.Visible:=false;
form8.label7.Visible:=false;
form8.combobox1.Visible:=false;
form8.edit1.Visible:=false;
form8.edit2.Visible:=false;
form8.edit3.Visible:=false;
form8.edit4.Visible:=false;
form8.edit5.Visible:=false;
form8.edit6.Visible:=false;
end;

procedure TForm2.N12Click(Sender: TObject);
begin
form2.GroupBox1.Visible:=false;
form8.ShowModal;
form8.button1.Visible:=false;
form8.button2.Visible:=false;
form8.button3.Visible:=false;
form8.Panel1.Visible:=true;
form8.label1.Visible:=false;
form8.label2.Visible:=false;
form8.label3.Visible:=false;
form8.label4.Visible:=false;
form8.label5.Visible:=false;
form8.label6.Visible:=false;
form8.label7.Visible:=false;
form8.combobox1.Visible:=false;
form8.edit1.Visible:=false;
form8.edit2.Visible:=false;
form8.edit3.Visible:=false;
form8.edit4.Visible:=false;
form8.edit5.Visible:=false;
form8.edit6.Visible:=false;

end;

end.