uquery_work_order.pas

来自「电信计费帐务系统话费查询营业厅触摸屏界面」· PAS 代码 · 共 185 行

unit Uquery_work_order;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons;

type
  Tquery_work_order = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    SpeedButton12: TSpeedButton;
    E_phone_nbr: TEdit;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure E_phone_nbrChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure InputChar(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure E_phone_nbrExit(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    work_order_nbr:string;
  end;

var
  query_work_order: Tquery_work_order;

implementation

uses Uwork_order_detail;

{$R *.DFM}

procedure Tquery_work_order.SpeedButton14Click(Sender: TObject);
begin
  close;
end;

procedure Tquery_work_order.SpeedButton12Click(Sender: TObject);
begin
  IF work_order_detail.TEST_NBR THEN
  work_order_detail.showmodal;
end;

procedure Tquery_work_order.E_phone_nbrChange(Sender: TObject);
begin
//
 work_order_nbr:=E_phone_nbr.Text;
end;

procedure Tquery_work_order.FormShow(Sender: TObject);
begin
  E_phone_nbr.Text:='';  
end;

procedure Tquery_work_order.SpeedButton11Click(Sender: TObject);
var temp_edit:Tedit;
begin
  temp_edit:=(self.ActiveControl as Tedit);
  temp_edit.SelLength:=-1;
  temp_edit.SelText:='';
  temp_edit:=nil;
end;
procedure Tquery_work_order.InputChar(Sender: TObject);
var temp_edit:Tedit;
begin
  temp_edit:=(self.ActiveControl as Tedit);
  temp_edit.SelText:='';
  if length(temp_edit.Text)< temp_edit.MaxLength then
     temp_edit.SelText:=(sender as Tspeedbutton).caption;
  temp_edit:=nil;
end;
procedure Tquery_work_order.SpeedButton1Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton2Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton3Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton4Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton5Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton6Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton7Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton8Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton9Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton10Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton13Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton15Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton16Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.SpeedButton17Click(Sender: TObject);
begin
  InputChar(Sender);
end;

procedure Tquery_work_order.E_phone_nbrExit(Sender: TObject);
begin
 work_order_nbr:=E_phone_nbr.Text;
end;

end.