unit2.pas

一个让你记英语口语的小程序

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
   if strtoint(edit1.Text)>strtoint(edit2.Text) then
   begin
     showmessage('ERROR:前大后小了,改一下吧!');
     edit1.SetFocus;
   end
   else
   begin
     ADOQuery1.Close;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('update 英语口语999句 set isreaded=false where id>=:x1 and id<=:x2');
     ADOQuery1.Parameters.ParamByName('x1').Value:=strtoint(edit1.Text);
     ADOQuery1.Parameters.ParamByName('x2').Value:=strtoint(edit2.Text);
     ADOQuery1.ExecSQL;
     showmessage('OK');
     form2.Close;
   end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  edit1.Text:='1';
  edit2.Text:=form1.DBEdit1.Text;
end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#13,#8]) then
  key:=#0;

end;

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#13,#8]) then
  key:=#0;

end;

end.