ul_dist_list.pas

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

unit Ul_dist_list;

interface

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

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

var
  l_dist_list: Tl_dist_list;

implementation

uses Umainface,Uquery_main;

{$R *.DFM}

procedure Tl_dist_list.SpeedButton2Click(Sender: TObject);
begin
close
end;

procedure Tl_dist_list.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  query1.close;
end;

procedure Tl_dist_list.FormShow(Sender: TObject);
begin
  query1.SetVariable('phone_nbr',query_main.phone_nbr);
  query1.SetVariable('billing_period',query_main.billing_period);
  query1.Open;
{
  query1.ParamByName('phone_nbr').asstring :=query_main.phone_nbr;
  query1.ParamByName('billing_period').asstring :=query_main.billing_period;
  query1.open;
 }
end;

procedure Tl_dist_list.SpeedButton1Click(Sender: TObject);
var
i:integer;
begin
  for i:=1 to 20 do if  not query1.Bof then query1.Prior;
end;

procedure Tl_dist_list.SpeedButton3Click(Sender: TObject);
var
i:integer;
begin
  for i:=1 to 20 do if  not query1.Eof then query1.Next;
end;
end.