unit6.pas

作者针对当前酒店客房管理的现状

unit Unit6;

interface

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

type
  TForm6 = class(TForm)
    GroupBox1: TGroupBox;
    all_RB: TRadioButton;
    yes_RB: TRadioButton;
    no_RB: TRadioButton;
    begin_DTP: TDateTimePicker;
    end_DTP: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    PopupMenu1: TPopupMenu;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
  private
    { Private declarations }
  public
     modi:boolean;
     xcaption:string;
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation
 uses Unit7;
{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
var sqlstr,ksrq,jsrq:string;
begin
   ksrq:=DateToStr(begin_DTP.DateTime);
   jsrq:=DateToStr(end_DTP.DateTime);
   if all_RB.Checked then
   sqlstr:='select * from dinggoub where(dgrq>='''+ksrq+''')and(dgrq<='''+jsrq+''')';
   if no_RB.Checked then
   sqlstr:='select * from dinggoub where(dgrq>='''+ksrq+''')and(dgrq<='''+jsrq+''')and(zt=0)';
   if yes_RB.Checked then
   sqlstr:='select * from dinggoub where(dgrq>='''+ksrq+''')and(dgrq<='''+jsrq+''')and(zt=1)';
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add(sqlstr);
   Query1.Open;
   if Query1.RecordCount>0 then
   begin
      N11.Enabled:=True;
      N12.Enabled:=True;
      N13.Enabled:=True;
   end
   else
   begin
      N11.Enabled:=True;
      N12.Enabled:=False;
      N13.Enabled:=False;
      end;
end;

procedure TForm6.Button5Click(Sender: TObject);
begin
  close;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
     Query1.DatabaseName:='gx';
     Query1.Open;
end;

procedure TForm6.N11Click(Sender: TObject);
begin
   modi:=False;
   xcaption:='添加订购图书';
   Application.CreateForm(TForm7,Form7);
   Form7.ShowModal;

end;

procedure TForm6.N12Click(Sender: TObject);
begin
   modi:=True;
   xcaption:='修改订购图书';
   Application.CreateForm(TForm7,Form7);
   Form7.ShowModal;
end;

procedure TForm6.N13Click(Sender: TObject);
var id:string;
begin
  id:=Query1.paramByName('Code').AsString;
  if MessageDlg('确认要删除选中的记录吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
  begin
  with TQuery.Create(nil) do
  begin
  try
  Close;
  SQL.Clear;
   SQL.Add('delete from dinggoub where id='''+id+'''');
   ExecSQL;
   finally
   free;
   end;
   end;
   end;
end;

end.