u_lookorder.pas

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

unit u_lookorder;

interface

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

type
  TF_lookorder = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Label1: TLabel;
    btnOk: TButton;
    cbxid: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_lookorder: TF_lookorder;

implementation

{$R *.dfm}

procedure TF_lookorder.FormCreate(Sender: TObject);
var
  sSql:string;
  i:integer;
begin
  sSql:='select id from food_order';
  with DM_main.Q_orderids do
  begin
    if Active then Close;
    SQL.Text:=sSql;
    Open;
    if IsEmpty then
      Exit;
    cbxId.Clear;
    First;
    for i:=0 to RecordCount-1 do
    begin
      cbxId.Items.Add(Fields[0].AsString);
      Next;
    end;
    Close;
  end;
end;

procedure TF_lookorder.btnOkClick(Sender: TObject);
var
  sSql:string;
begin
  sSql:='select * from order_detail where order_id='''+cbxId.Text+'''';
  with DM_main.Q_orderfind do
  begin
    Close;
    SQL.Text:=sSql;
    Open;
  end;
end;

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

end.