u_query.pas

repair repairrepairrepairrepair

unit u_query;

interface

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

type
  TF_query = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    i_workplace: TEdit;
    i_start_time: TDateTimePicker;
    Label3: TLabel;
    Label4: TLabel;
    i_end_time: TDateTimePicker;
    DBG_equip: TDBGrid;
    Label5: TLabel;
    DBG_fail_rec: TDBGrid;
    Label6: TLabel;
    B_print_fail: TButton;
    Label7: TLabel;
    DBG_move_rec: TDBGrid;
    B_print_move: TButton;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    DBImage1: TDBImage;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    procedure i_workplaceKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_query: TF_query;

implementation

uses u_data;
{$R *.DFM}

procedure TF_query.i_workplaceKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    DM_main.SetQuery(i_workplace.Text, i_start_time.Date, i_end_time.Date);
end;

end.