50分 数据库小程序

Question

简单数据库小程序,差查询功能没实现,来个高手帮下忙,邮箱联系[email protected],程序发给你们,程序修好给分100

Answer 1

[email protected]简单的我可以指导你一下

Answer 2

因为是才学习DELPHI,用数据库做的一个程序,主要是想完成数据内容的修改保存和查询功能,修改和保存的功能已经实现了,就是查询功能不知道怎么写,在网上找都是写的很好也很麻烦的大的数据库程序,一下子不容易看明白.
最好是能把程序发给你们看一下[email protected]
代码:
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, DBCtrls, Grids, DBGrids, ExtCtrls, StdCtrls,
  Buttons, ComCtrls;type
  TcontactForm2 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    BitBtn6: TBitBtn;
    CheckBox1: TCheckBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    CheckBox2: TCheckBox;
    GroupBox4: TGroupBox;
    Label2: TLabel;
    Edit2: TEdit;
    CheckBox3: TCheckBox;
    GroupBox5: TGroupBox;
    Label4: TLabel;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker1: TDateTimePicker;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  contactForm2: TcontactForm2;implementationuses Unit6, Unit8, Unit7;{$R *.dfm}procedure TcontactForm2.BitBtn1Click(Sender: TObject);
begin
  Form7 := TForm7.Create(nil);
  Form7.ToolButton1.Click;
  Form7.ShowModal;
  Form7.Free;
end;procedure TcontactForm2.BitBtn2Click(Sender: TObject);
begin
  Form7 := TForm7.Create(nil);
  Form7.ToolButton9.Click;
  Form7.ShowModal;
  Form7.Free;
end;procedure TcontactForm2.BitBtn4Click(Sender: TObject);
begin
  Form7 := TForm7.Create(nil);
  Form7.Panel1.Enabled := False;
  Form7.ShowModal;
  Form7.Free;
end;procedure TcontactForm2.BitBtn3Click(Sender: TObject);
begin
  if Application.MessageBox(PChar('确定要删除该信息吗？'), PChar('警告'), MB_YESNO + MB_ICONQUESTION) = IDYes then
    DataModule1.ADOTable1.Delete;
end;procedure TcontactForm2.BitBtn5Click(Sender: TObject);
begin
  Close;
end;procedure TcontactForm2.DBGrid1CellClick(Column: TColumn);
begin
  BitBtn2.Enabled := not DataModule1.ADOTable1.IsEmpty;
  BitBtn3.Enabled := not DataModule1.ADOTable1.IsEmpty;
  BitBtn4.Enabled := not DataModule1.ADOTable1.IsEmpty;
end;procedure TcontactForm2.DBGrid1DblClick(Sender: TObject);
begin
  Form7 := TForm7.Create(nil);
  Form7.Panel1.Enabled := False;
  Form7.ShowModal;
  Form7.Free;
end;procedure TcontactForm2.RadioButton1Click(Sender: TObject);
begin
GroupBox1.Enabled:=CheckBox1.Checked;
end;procedure TcontactForm2.CheckBox1Click(Sender: TObject);
begin
GroupBox3.Enabled:=CheckBox1.Checked;
end;procedure TcontactForm2.CheckBox2Click(Sender: TObject);
begin
GroupBox4.Enabled:=CheckBox2.Checked;
end;procedure TcontactForm2.CheckBox3Click(Sender: TObject);
begin
GroupBox5.Enabled:=CheckBox3.Checked;
end;procedure TcontactForm2.BitBtn6Click(Sender: TObject);
begin
//这里要填的就是查询的代码,我实在是不会写//
end;end.

Answer 3

查询要确定对哪些字段查，拿什么内容来比较（>,<,>=,<=,<>,like模糊），
是单个比较关系还是多个比较的组合（and,or,括号）

Answer 4

查询简单的就是拼SQL语句，在界面上放几个edit
然后拼sql就行了

Answer 5

var 
  str: String; 
begin 
  str := 'select * from table名 where 1=1'; 
  .... 
  with adoquery1 do 
  begin 
    close; 
    sql.text := str; 
    Open; 
  end; 
end; 
楼主找找sql语句看看就明白了