unit ShowR;

interface

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

type
  TShowRForm = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ShowRForm: TShowRForm;

implementation
uses md,visit;

{$R *.dfm}

procedure TShowRForm.FormCreate(Sender: TObject);
begin
//從visit中傳遞一個姓名。進行查詢
if visitform.YHREdit.Text<>'' then
  with datamd.ADOOrder do
  begin
    close;
    sql.Clear;
    sql.Add('select * from Tborder where 姓名 like '''+Visitform.YHREdit.Text+'''');
    open;
    if not eof then
    begin
     Visitform.flags:=true;
     dbgrid1.DataSource:=datamd.DSorder;
     dbgrid1.Columns[0].Field:=fields[1];
     dbgrid1.Columns[0].Width:=50;
     dbgrid1.Columns[1].Field:=fields[2];
     dbgrid1.Columns[1].Width:=50;
     dbgrid1.Columns[2].Field:=fields[10];
     dbgrid1.Columns[2].Width:=50;
    end
   else
    begin
     showmessage('沒有此學生。請確認你輸入的無誤');
     visitform.Flags:=false;
    end;
  end;
end;

end.