u_search.pas

来自「以多个信息系统为例」· PAS 代码 · 共 96 行

unit u_search;

interface

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

type
  TF_search = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    i_id: TEdit;
    Label2: TLabel;
    i_name: TEdit;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    DBGrid2: TDBGrid;
    Label4: TLabel;
    Label5: TLabel;
    i_from: TEdit;
    Label6: TLabel;
    i_room: TEdit;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DBText1: TDBText;
    DBLookupComboBox1: TDBLookupComboBox;
    DBText2: TDBText;
    DBRadioGroup1: TDBRadioGroup;
    DBMemo1: TDBMemo;
    DBEdit1: TDBEdit;
    DBMemo2: TDBMemo;
    DBImage1: TDBImage;
    procedure FormShow(Sender: TObject);
    procedure i_idKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure i_nameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure i_fromKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure i_roomKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_search: TF_search;

implementation

uses u_data;
{$R *.DFM}

procedure TF_search.FormShow(Sender: TObject);
begin
  DM_main.OpenSearchInfo;
end;

procedure TF_search.i_idKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    DM_main.SetCustID(i_id.Text);
end;

procedure TF_search.i_nameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    DM_main.SetCustName(i_name.Text);
end;

procedure TF_search.i_fromKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    DM_main.SetCustFrom(i_from.Text);
end;

procedure TF_search.i_roomKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    DM_main.SetCustRoom(i_room.Text);
end;

end.