unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, Menus, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    DBText1: TDBText;
    DBText2: TDBText;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Image1: TImage;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N81: TMenuItem;
    N101: TMenuItem;
    N121: TMenuItem;
    N141: TMenuItem;
    N161: TMenuItem;
    N181: TMenuItem;
    N201: TMenuItem;
    N10: TMenuItem;
    N82: TMenuItem;
    N102: TMenuItem;
    N122: TMenuItem;
    N142: TMenuItem;
    N162: TMenuItem;
    N182: TMenuItem;
    N202: TMenuItem;
    N11: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N81Click(Sender: TObject);
    procedure N101Click(Sender: TObject);
    procedure N121Click(Sender: TObject);
    procedure N141Click(Sender: TObject);
    procedure N161Click(Sender: TObject);
    procedure N181Click(Sender: TObject);
    procedure N201Click(Sender: TObject);
    procedure N82Click(Sender: TObject);
    procedure N102Click(Sender: TObject);
    procedure N122Click(Sender: TObject);
    procedure N142Click(Sender: TObject);
    procedure N162Click(Sender: TObject);
    procedure N182Click(Sender: TObject);
    procedure N202Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
  while ADOTable1.FieldByName('isreaded').Value=true do
    ADOTable1.Next;
    ADOTable1.Edit;
    ADOTable1.FieldValues['isreaded']:='true';
    ADOTable1.Post;
    DBText2.Hint:=DBText1.Field.Value;
    DBText1.Hint:=DBText2.Field.Value;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if  not ADOTable1.Bof then
begin
  ADOTable1.Prior;
  DBText1.Hint:=DBText2.Field.Value;
  DBText2.Hint:=DBText1.Field.Value;
  ADOTable1.Edit;
  ADOTable1.FieldValues['isreaded']:='true';
  ADOTable1.Post;
end
else
  Button1.Enabled:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if  not ADOTable1.Eof then
begin
if Button1.Enabled=false then
   Button1.Enabled:=true;
   ADOTable1.Next;
   DBText1.Hint:=DBText2.Field.Value;
   DBText2.Hint:=DBText1.Field.Value;
   ADOTable1.Edit;
   ADOTable1.FieldValues['isreaded']:='true';
   ADOTable1.Post;
end;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
   DBText2.Visible:=false;
   N2.Enabled:=true;
   N1.Enabled:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  DBText2.Visible:=false;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  DBText2.Visible:=true;
  N1.Enabled:=true;
  N2.Enabled:=false;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
   DBText1.Visible:=false;
   N5.Enabled:=true;
   N4.Enabled:=false;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  DBText1.Visible:=true;
  N4.Enabled:=true;
  N5.Enabled:=false;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.N81Click(Sender: TObject);
begin
  DBText1.Font.Size:=8;
end;

procedure TForm1.N101Click(Sender: TObject);
begin
  DBText1.Font.Size:=10;
end;

procedure TForm1.N121Click(Sender: TObject);
begin
  DBText1.Font.Size:=12;
end;

procedure TForm1.N141Click(Sender: TObject);
begin
  DBText1.Font.Size:=14;
end;

procedure TForm1.N161Click(Sender: TObject);
begin
  DBText1.Font.Size:=16;
end;

procedure TForm1.N181Click(Sender: TObject);
begin
  DBText1.Font.Size:=18;
end;

procedure TForm1.N201Click(Sender: TObject);
begin
  DBText1.Font.Size:=20;
end;

procedure TForm1.N82Click(Sender: TObject);
begin
  DBText2.Font.Size:=8;
end;

procedure TForm1.N102Click(Sender: TObject);
begin
  DBText2.Font.Size:=10;
end;

procedure TForm1.N122Click(Sender: TObject);
begin
  DBText2.Font.Size:=12;
end;

procedure TForm1.N142Click(Sender: TObject);
begin
  DBText2.Font.Size:=14;
end;

procedure TForm1.N162Click(Sender: TObject);
begin
  DBText2.Font.Size:=16;
end;

procedure TForm1.N182Click(Sender: TObject);
begin
  DBText2.Font.Size:=18;
end;

procedure TForm1.N202Click(Sender: TObject);
begin
  DBText2.Font.Size:=20;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
  form3.Show;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
  form4.Show;
end;

end.