⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit6.~pas

📁 软件课程设计
💻 ~PAS
字号:
🔍 
unit Unit6;

interface

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

type
  TForm6 = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    Label1: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Button3: TButton;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    Edit6: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit7: TEdit;
    CheckBox1: TCheckBox;
    Label9: TLabel;
    Label10: TLabel;
    Edit9: TEdit;
    Label11: TLabel;
    Edit10: TEdit;
    Label12: TLabel;
    Edit11: TEdit;
    Label14: TLabel;
    Edit13: TEdit;
    Label15: TLabel;
    Edit14: TEdit;
    CheckBox2: TCheckBox;
    DBGrid2: TDBGrid;
    Label16: TLabel;
    ComboBox1: TComboBox;
    DBGrid3: TDBGrid;
    Label2: TLabel;
    Edit1: TEdit;
    Edit8: TEdit;
    Label18: TLabel;
    Edit12: TEdit;
    Label19: TLabel;
    Edit15: TEdit;
    Label20: TLabel;
    Edit16: TEdit;
    Label21: TLabel;
    Button4: TButton;
    Label22: TLabel;
    Edit18: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    Edit20: TEdit;
    Button5: TButton;
    Edit21: TEdit;
    Edit19: TEdit;
    Label13: TLabel;
    Edit22: TEdit;
    Edit24: TEdit;
    Edit23: TEdit;
    DateTimePicker1: TDateTimePicker;
    Label17: TLabel;
    DateTimePicker2: TDateTimePicker;
    Edit17: TEdit;
    Edit25: TEdit;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
  str:string;
  i:integer;

implementation

uses Unit1, Unit4;

{$R *.dfm}

procedure TForm6.DBGrid1CellClick(Column: TColumn);
begin
Edit6.Text:=Dbgrid1.Fields[0].Text;
Edit7.Text:=Dbgrid1.Fields[1].Text;
edit21.Text:=Dbgrid1.Fields[4].Text;
Edit9.Text:=Dbgrid1.Fields[5].Text;
if Dbgrid1.Fields[3].Text='1' then
begin
checkbox1.Checked:=true;

label9.Visible:=true;
edit21.Visible:=true;
end
else
begin
checkbox1.Checked:=false;
 label9.Visible:=false;
edit21.Visible:=false;
end

end;

procedure TForm6.DBGrid2CellClick(Column: TColumn);
begin

Edit10.Text:=Dbgrid2.Fields[0].Text;
Edit11.Text:=Dbgrid2.Fields[1].Text;
edit8.Text:=Dbgrid2.Fields[3].Text;
Edit13.Text:=Dbgrid2.Fields[4].Text;
Edit14.Text:=Dbgrid2.Fields[5].Text;
edit22.Text:= Dbgrid2.Fields[7].Text;
if Dbgrid2.Fields[6].Text='1' then checkbox2.Checked:=true
else      checkbox2.Checked:=false;
end;

procedure TForm6.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin

dbgrid3.Visible:=false;
combobox1.Text:='4';
edit2.Text:='500';
edit1.Text:='50';
if TabbedNotebook1.ActivePage='剩余包房信息' then
begin
form1.AdoQuery1.Close;
form1.AdoQuery1.SQL.Clear;
form1.AdoQuery1.SQL.Add('select 包房号,size,是否服务中,进入时间,附加费用,单价,房主类型,房主id from 房间信息 where 是否服务中=1  ');
form1.AdoQuery1.Open;
end;
if TabbedNotebook1.ActivePage='服务中包房信息' then
begin
form1.AdoQuery1.Close;
form1.AdoQuery1.SQL.Clear;
form1.AdoQuery1.SQL.Add('select 包房号,size,是否服务中,是否预定,预定时间,单价 from 房间信息 where 是否服务中=0 ');
form1.AdoQuery1.Open;
end
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
close ;
dbgrid3.Visible:=false;
combobox1.Text:='4';
edit2.Text:='500';
edit1.Text:='50';
end;

procedure TForm6.Button1Click(Sender: TObject);
begin

form1.AdoQuery1.Close;
form1.AdoQuery1.SQL.Clear;
form1.AdoQuery1.SQL.Add('select * from 房间信息 where [size]='''+combobox1.Text+'''  and 单价<='''+edit2.Text+'''and 单价>='''+edit1.Text+'''');
form1.AdoQuery1.open;
dbgrid3.Visible:=true;
end;

procedure TForm6.Button3Click(Sender: TObject);
begin

Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 房间信息 set 是否服务中=1,是否预定=0,预定日期=NULL,进入日期='''+datetostr(now())+''',进入时间='''+datetimetostr(now())+''',预付='''+Edit5.Text+''',房主id='''+Edit4.Text+''' where 包房号='''+Edit3.Text+'''');
Form1.ADOQuery1.SQL.Add('select 是否服务中,进入日期,进入时间,预付 from 房间信息 where 包房号='''+Edit3.Text+'''  ');

Form1.ADOQuery1.SQL.Add('update 会员信息 set 是否服务中=1,进入日期='''+datetostr(now())+''',进入时间='''+datetimetostr(now())+''' where id='''+Edit4.Text+'''');
Form1.ADOQuery1.SQL.Add('select 是否服务中,进入日期,进入时间 from 会员信息 where id='''+Edit4.Text+'''  ');

Form1.ADOQuery1.Open;
showmessage('登记成功');
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select datename(hh,getdate())as 时 from 房间信息 where 包房号='''+Edit3.Text+''' ');
Form1.ADOQuery1.Open;
Edit17.Text:=Form1.ADOQuery1.FieldValues['时'];
if (edit17.text='0')or(edit17.text='1')or(edit17.text='2')or(edit17.text='3')or(edit17.text='4')or(edit17.text='5')or(edit17.text='6')or(edit17.text='7') then
begin
str:='0点到8点';
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 营业统计 where 时间段='''+str+''' ');
Form1.ADOQuery1.Open;
i:=strtoint(Form1.ADOQuery1.FieldValues['次数']);
Edit25.Text:=inttostr(i+1);


Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 营业统计 set 次数=strtoint(Edit25.Text) where 时间段='''+str+'''');
Form1.ADOQuery1.SQL.Add('select 次数 from 房间信息 where 时间段='''+str+'''  ');
Form1.ADOQuery1.open;
end;

if (edit17.text='8')or(edit17.text='9')or(edit17.text='10')or(edit17.text='11') then
begin
str:='8点到12点';
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 营业统计 where 时间段='''+str+''' ');
Form1.ADOQuery1.Open;
i:=strtoint(Form1.ADOQuery1.FieldValues['次数']);
Edit25.Text:=inttostr(i+1);


Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 营业统计 set 次数=strtoint(Edit25.Text) where 时间段='''+str+'''');
Form1.ADOQuery1.SQL.Add('select 次数 from 房间信息 where 时间段='''+str+'''  ');
Form1.ADOQuery1.open;
end;

if (edit17.text='12')or(edit17.text='13')or(edit17.text='14')or(edit17.text='15') then
begin
str:='12点到16点';
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 营业统计 where 时间段='''+str+''' ');
Form1.ADOQuery1.Open;
i:=strtoint(Form1.ADOQuery1.FieldValues['次数']);
Edit25.Text:=inttostr(i+1);


Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 营业统计 set 次数='''+Edit25.Text+''' where 时间段='''+str+''' ');
Form1.ADOQuery1.SQL.Add('select 次数 from 营业统计 where 时间段='''+str+'''  ');
Form1.ADOQuery1.open;
end;

if (edit17.text='16')or(edit17.text='17')or(edit17.text='18')or(edit17.text='19') then
begin
str:='16点到20点';
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 营业统计 where 时间段='''+str+''' ');
Form1.ADOQuery1.Open;
i:=strtoint(Form1.ADOQuery1.FieldValues['次数']);
Edit25.Text:=inttostr(i+1);


Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 营业统计 set 次数=strtoint(Edit25.Text) where 时间段='''+str+'''');
Form1.ADOQuery1.SQL.Add('select 次数 from 房间信息 where 时间段='''+str+'''  ');
end;

if (edit17.text='20')or(edit17.text='21')or(edit17.text='22')or(edit17.text='23') then
begin
str:='20点到0点';
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 营业统计 where 时间段='''+str+''' ');
Form1.ADOQuery1.Open;
i:=strtoint(Form1.ADOQuery1.FieldValues['次数']);
Edit25.Text:=inttostr(i+1);


Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 营业统计 set 次数=strtoint(Edit25.Text) where 时间段='''+str+'''');
Form1.ADOQuery1.SQL.Add('select 次数 from 房间信息 where 时间段='''+str+'''  ');
end;



end;

procedure TForm6.Button4Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 房间信息 set 是否预定=1,预定时间=:a,预付='''+edit16.text+''',房主id='''+edit15.text+''' where 包房号='''+Edit12.Text+'''');
form1.AdoQuery1.Parameters.ParamByName('a').value:=datetimepicker2.date+datetimepicker1.time;
Form1.ADOQuery1.SQL.Add('select 是否预定,预定时间 from 房间信息 where 包房号='''+Edit12.Text+'''  ');


Form1.ADOQuery1.Open;
showmessage('登记成功')
end;

procedure TForm6.Button5Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 房间信息 where 包房号='''+Edit18.Text+''' ');
Form1.ADOQuery1.Open;
Edit23.Text:=Form1.ADOQuery1.FieldValues['附加费用'];
Edit24.Text:=Form1.ADOQuery1.FieldValues['附加费用内容'];

Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 房间信息 set 附加费用=:a ,附加费用内容='''+edit24.text+'''+'''+edit20.text+''' where 包房号='''+Edit18.Text+'''');

form1.AdoQuery1.Parameters.ParamByName('a').value:=strtoint(trim(edit19.text))+strtoint(trim(edit23.text)) ;
Form1.ADOQuery1.SQL.Add('select 附加费用,附加费用内容 from 房间信息 where 包房号='''+Edit18.Text+'''  ');
Form1.ADOQuery1.Open;
showmessage('登记成功');
edit18.text:='';
edit19.text:='';
edit20.text:='';
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -