unit1.pas

一个背单词程序。是我闲着没事做的。 给大家看看

unit unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Menus, ExtDlgs,  StdCtrls,
  Grids, DBGrids, DB, ADODB;

type
  Tperson_main = class(TForm)
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Label2: TLabel;
    Label1: TLabel;
    Edit3: TEdit;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    ComboBox2: TComboBox;
    ComboBox1: TComboBox;
    Button2: TButton;
    Button1: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    //  procedure FormPaint(Sender: TObject);  just for paint
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  person_main: Tperson_main;


implementation

{$R *.dfm}
//just for paint use
{procedure Tperson_main.FormPaint(Sender: TObject);
var i:Word;
    Dy,y:Real;
begin
  Dy:=ClientHeight/256;
  y:=0;
  for i:=255 Downto 0 do
    begin
    Canvas.brush.color:=$00000000+i*$1000000;
    Canvas.fillrect(rect(0,round(y),clientwidth,round(y+Dy)));
    y:=y+Dy;
    end; }




procedure Tperson_main.Button1Click(Sender: TObject);
 var
  strb,stra,str0,str1,str2,str3,str4,str5:String;
begin
 DBGrid1.SetFocus;//聚焦于文本框
str1:=ComboBox1.Text;
if str1='梦境' then
str1:='梦境'
else
if str1='预示' then
str1:='预示';
str2:=ComboBox2.Text;
str3:=Edit1.Text;
str4:='''';
str0:='%'+str3+'%';
str5:=' ';
If ComboBox2.Text='=' then
    stra:=str5+'like'+str4+str0+str4

else
stra:=str2+str3;
strb:='select * from 梦兆 where'+str5+str1+stra;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(strb);
try
ADOQuery1.Open;
except
end;
end;

procedure Tperson_main.Button2Click(Sender: TObject);

var
strb,stra,str0,str1,str2,str3,str4,str5:String;
begin
DBGrid1.SetFocus;//聚焦于文本框
str1:='id';
str2:=ComboBox2.Text;
str3:=Edit3.Text;
str4:='''';
str0:='%'+str3+'%';
str5:=' ';
if ComboBox2.Text='=' then
stra:=str5+'like'+str4+str0+str4
else
stra:=str2+str3;
strb:='select * from 梦兆 where'+str5+str1+stra;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(strb);
try
ADOQuery1.Open;
except
end;
end;


end.