closetel.pas

不错啊

unit closeTel;

interface

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

type
  TfrmCloseTel = class(TForm)
    ok: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    no: TEdit;
    money: TEdit;
    cancel: TBitBtn;
    Table1: TTable;
    procedure okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCloseTel: TfrmCloseTel;

implementation

{$R *.dfm}

procedure TfrmCloseTel.okClick(Sender: TObject);
var
   canSend:boolean;
begin
   //检查分机号的合理性
   canSend:=false;
   with table1 do
   begin
      open;
      while not eof do
      begin
         if fieldByName('分机号').AsString=no.Text then
         begin
            canSend:=true;
            break;
         end;
         next;
      end;
   end;
   if canSend=false then
   begin
      showMessage('输入的分机号错误，请重新输入！');
      table1.Close;
      exit;
   end;
   with table1 do
   begin
      money.Text:=fieldByName('话费限额').AsString;
      edit;
      fieldValues['开通标志']:='n';
      fieldValues['话费限额']:='0';
      post;
      close;
   end;
end;

end.