uwork_order_detail.pas

电信计费帐务系统话费查询营业厅触摸屏界面

unit Uwork_order_detail;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, Db, DBTables, Oracle, OracleData;

type
  Twork_order_detail = class(TForm)
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DataSource1: TDataSource;
    DBGrid2: TDBGrid;
    L_mingyi: TLabel;
    L_addr: TLabel;
    L_old_phone: TLabel;
    L_new_phone: TLabel;
    Query1: TOracleDataSet;
    Q_name_addr: TOracleQuery;
    Q_number: TOracleQuery;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    FUNCTION TEST_NBR:BOOLEAN;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  work_order_detail: Twork_order_detail;

implementation

uses Umainface,Uquery_work_order,Uform_message;

{$R *.DFM}

procedure Twork_order_detail.SpeedButton2Click(Sender: TObject);
begin
  close;
end;
FUNCTION Twork_order_detail.TEST_NBR:BOOLEAN;
BEGIN
  RESULT:=TRUE;
  L_mingyi.Caption:='';
  L_addr.Caption:='';
  L_old_phone.Caption:='';
  L_new_phone.Caption:='';

  Q_number.SetVariable('work_order_nbr',query_work_order.work_order_nbr);
  q_number.Execute;
  if q_number.eof then BEGIN show_message('没有此工单！');Q_number.CLOSE;RESULT:=FALSE;END
  else
  begin
    L_old_phone.Caption:=q_number.FIELD('OLD_PHONE_NBR');
    L_new_phone.Caption:=q_number.FIELD('NEW_PHONE_NBR');

    Q_name_addr.SetVariable('work_order_nbr',query_work_order.work_order_nbr);
    Q_name_addr.Execute;
    //Q_name_addr.ParamByName('work_order_nbr').asstring:=query_work_order.work_order_nbr;
    //Q_name_addr.open;

    L_mingyi.Caption:=Q_name_addr.FIELD('CUST_NME');
    L_addr.Caption:=Q_name_addr.FIELD('DETIAL');

    Q_name_addr.CLOSE;

    query1.SetVariable('work_order_nbr',query_work_order.work_order_nbr);
    query1.Open;

{    Query1.ParamByName('work_order_nbr').asstring:=query_work_order.work_order_nbr;
    query1.open;
}
    if  query1.IsEmpty then BEGIN show_message('此工单已经竣工！');QUERY1.CLOSE;RESULT:=FALSE;END;
  end;
  Q_number.CLOSE;
END;

procedure Twork_order_detail.FormShow(Sender: TObject);
begin
//
end;
{
工单号--->查找电话号--->找不到-->没有此工单
                  |---->找到
                        |----->查找名义地址--->工单当前状态---> 失败-->工单已经竣工
                                                         |----->成功
}

procedure Twork_order_detail.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//
  WITH  query_work_order DO
  BEGIN
    E_phone_nbr.Text:='';
  END;
  Q_number.CLOSE;
  Q_name_addr.CLOSE;
  Query1.CLOSE;
end;

end.