detail.pas

不错啊

unit detail;

interface

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

type
  TfrmDetail = class(TForm)
    Label2: TLabel;
    no: TEdit;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ok: TBitBtn;
    cancel: TBitBtn;
    Query1: TQuery;
    procedure okClick(Sender: TObject);
    procedure noKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     count:integer;
  public
    { Public declarations }
  end;

var
  frmDetail: TfrmDetail;

implementation

{$R *.dfm}

procedure TfrmDetail.okClick(Sender: TObject);
var
   s:string;
begin
   s:='select 被叫号码,电话类型,开始时间,通话时长,话费 '+
      'from detail '+
      'where 分机号='''+no.Text+'''';
   with query1 do
   begin
      close;
      sql.Clear;
      sql.Add(s);
      try
         open;
      except
         execSql;
      end;
   end;
end;

procedure TfrmDetail.noKeyPress(Sender: TObject; var Key: Char);
var
   s1:string;
   s2:array[0..5] of char;
begin
   if count<4 then
   begin
      if (ord(key)>=48)and (ord(key)<=57) then
      begin
         count:=count+1;
      end
      else if ord(key)=8 then
      begin
         count:=count-1;
      end
      else
         key:=chr(27);
   end
   else if (count<=4) and (ord(key)=8) then
   begin
      count:=count-1;
   end
   else
      key:=chr(27);
end;

procedure TfrmDetail.FormCreate(Sender: TObject);
begin
   count:=0;
end;

end.