u_foodfind.pas

本系统分为前台和后台两部分：前台用来实现客户预订、入住等操作

unit u_foodfind;

interface

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

type
  TF_foodfind = class(TForm)
    rdgrp_type: TRadioGroup;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_foodfind: TF_foodfind;

implementation

{$R *.dfm}

procedure TF_foodfind.Button1Click(Sender: TObject);
var
  sSql,sTmp:string;
begin
  if edit1.Text='' then
    Exit;

  case rdgrp_type.ItemIndex of
    0: sTmp:='food_name';
    1: sTmp:='type';
    2: sTmp:='flavor';
  end;

  sSql:='select food_name as 菜名,type as 种类,flavor as 风味,price as 单价,remark as 备注'+
        ' from food_menu where '+sTmp+'='''+edit1.Text+'''';
  with DM_main.Q_foodfind do
  begin
    Close;
    SQL.Text:=sSql;
    Open;
  end;
end;

procedure TF_foodfind.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

end.