unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Image1: TImage;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Memo1Change(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
ADOQuery1.sql.Add('select * from xuesheng') ;
adoquery1.Open ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery1.Append;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.delete;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
ADOQuery1.close;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
ADOQuery1.sql.Add('slect*from students')
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.ItemIndex <> -1 then combobox2.Items.Clear ;
Case combobox1.ItemIndex of
3:combobox2.Items.Add('等于');
4: combobox2.Items.Add('匹配');
0,1,2:begin
combobox2.Items.Add('>');
combobox2.Items.Add('<');
combobox2.Items.Add('=');
combobox2.Items.Add('>=');
combobox2.Items.Add('<=');
end;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ADOQuery1.Edit;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
if ADOQuery1.Modified then
ADOQuery1.post;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Case combobox1.ItemIndex of
4: begin
case combobox2.ItemIndex of
0:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add(' where'+' sex '+' like '+quotedstr('%'+edit1.Text+'%') );
adoquery1.Open;
end;
end;
end;
3: begin
case combobox2.ItemIndex of
0:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add(' where name like'+quotedstr('%'+edit1.Text+'%'));
adoquery1.Open;
end;
end;
end;
0: begin
case combobox2.ItemIndex of
0:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' sid'+'>'+edit1.text);
adoquery1.Open;
end;
1:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' sid'+'<'+edit1.text);
adoquery1.Open;
end;
2:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' sid'+'='+edit1.text);
adoquery1.Open;
end;
3:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' sid'+'>='+edit1.text);
adoquery1.Open;
end;
4:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' sid'+'<='+edit1.text);
adoquery1.Open;
end;
end;
end;
1:begin
case combobox2.ItemIndex of
0:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' age'+'>'+edit1.text);
adoquery1.Open;
end;
1:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' age'+'<'+edit1.text);
adoquery1.Open;
end;
2:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' age'+'='+edit1.text);
adoquery1.Open;
end;
3:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' age'+'>='+edit1.text);
adoquery1.Open;
end;
4:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' age'+'<='+edit1.text);
adoquery1.Open;
end;
end;
end;
2: begin
case combobox2.ItemIndex of
0:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' grade'+'>'+edit1.text);
adoquery1.Open;
end;
1:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' grade'+'<'+edit1.text);
adoquery1.Open;
end;
2:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' grade'+'='+edit1.text);
adoquery1.Open;
end;
3:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+' grade'+'>='+edit1.text);
adoquery1.Open;
end;
4:begin
ADOquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from xuesheng');
adoquery1.SQL.Add('where'+'grade'+'<='+edit1.text);
adoquery1.Open;
end;
end;
end;
end;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
adoquery1.Next;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
adoquery1.Prior;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
adoquery1.First;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
adoquery1.Last;
end;
end.

自顶

自顶

自顶

自顶

错误提示呢？发图上来。

你要实现什么功能？