uquery_main.pas

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

unit Uquery_main;

interface

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

type
  Tquery_main = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    E_phone_nbr: TEdit;
    E_password: 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;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Ed_year: TEdit;
    Ed_month: TEdit;
    SpeedButton14: TSpeedButton;
    Q_acct_nbr: TOracleQuery;
    procedure InputChar(Sender: TObject);
    procedure makebilling_period;
    procedure test_all_edit;
    function  test_password:boolean;
    procedure Button12Click(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 SpeedButton11Click(Sender: TObject);
    procedure E_phone_nbrChange(Sender: TObject);
    procedure E_passwordChange(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure Ed_yearChange(Sender: TObject);
    procedure Ed_monthChange(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    phone_nbr:string;
    password:string;
    m_year:string;
    m_month:string;
    billing_period:string;
    acct_nbr:string;
  end;

var
  query_main: Tquery_main;

implementation

uses Umainface,Uq_sum, Uq_yue,Uform_message;

{$R *.DFM}


procedure Tquery_main.makebilling_period;
begin
  m_year:=ed_year.text;
  if length(ed_month.text)=1 then
        m_month:='0'+ed_month.text
  else  m_month:=ed_month.text;
  billing_period:=m_year+m_month;
end;

procedure Tquery_main.Button12Click(Sender: TObject);
begin
  close;
end;

procedure Tquery_main.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_main.SpeedButton1Click(Sender: TObject);
begin
  InputChar(Sender);
end;

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

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

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

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

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

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

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

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

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

procedure Tquery_main.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_main.E_phone_nbrChange(Sender: TObject);
begin
  phone_nbr:=E_phone_nbr.Text;
end;

procedure Tquery_main.E_passwordChange(Sender: TObject);
begin
  password:=E_password.Text;
end;

procedure Tquery_main.SpeedButton13Click(Sender: TObject);
begin
//show_message('没有此电话号！');
  if test_password then
 q_sum.ShowModal;
end;

procedure Tquery_main.Ed_yearChange(Sender: TObject);
begin
  makebilling_period;
end;

procedure Tquery_main.Ed_monthChange(Sender: TObject);
begin
  makebilling_period;
end;

procedure Tquery_main.test_all_edit;
//var pass:integer;
begin
//  pass:=0;//可以进行查询

//if E_phone_nbr.text='' then begin end;
//    and (E_password.text='')
//    and (Ed_year.text='')
//    and (Ed_month.text='')


end;

procedure Tquery_main.SpeedButton12Click(Sender: TObject);
begin
  if test_password then
  q_yue.showmodal;
end;

function Tquery_main.test_password:boolean;
begin
  result:=false;
  acct_nbr:='';
  Q_acct_nbr.SetVariable('phone_nbr',phone_nbr);
  Q_acct_nbr.Execute;
  if Q_acct_nbr.eof then
     show_message('无此电话号！')
  else
    if password=Q_acct_nbr.Field('password') then
    begin
      acct_nbr:=Q_acct_nbr.Field('acct_nbr');
      result:=true;
    end
    else
      show_message('密码错误！');
  q_acct_nbr.close;
end;
{
查找合同号--->未找到--->电话号非法
         |----找到
               |---->校验密码---->不成功--->密码错
                           |----->成功
                                    |---->执行相应的操作
}
procedure Tquery_main.FormShow(Sender: TObject);
begin
  E_phone_nbr.Text  :='';
  e_password.Text   :='';
  ed_year.text      :='';
  ed_month.text     :='';
end;

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

end.