uq_sum.pas

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

unit Uq_sum;

interface

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

type
  Tq_sum = class(TForm)
    DataSource1: TDataSource;
    Query1: TQuery;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  q_sum: Tq_sum;

implementation

uses Ul_dist_list, Uinfo_list, Uquery_main;

{$R *.DFM}

procedure Tq_sum.SpeedButton3Click(Sender: TObject);
begin
  close
end;

procedure Tq_sum.FormShow(Sender: TObject);
begin
  query1.ParamByName('phone_nbr').asstring :=query_main.phone_nbr;
  query1.ParamByName('billing_period').asstring :=query_main.billing_period;
  query1.open;
end;

procedure Tq_sum.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  query1.close;
with  query_main do
begin
  E_phone_nbr.Text  :='';
  e_password.Text   :='';
  ed_year.text      :='';
  ed_month.text     :='';
  E_phone_nbr.SetFocus;
end;
  
end;

procedure Tq_sum.SpeedButton1Click(Sender: TObject);
begin
  l_dist_list.showmodal;
end;

procedure Tq_sum.SpeedButton2Click(Sender: TObject);
begin
  info_list.showmodal;
end;

end.