unit7.pas

Delphi结合Access

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, DBGrids,Unit5, DBCtrls;

type
  TForm3 = class(TForm)
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    GroupBox1: TGroupBox;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Label9: TLabel;
    DBMemo1: TDBMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
  sqlstr:string;
begin
  sqlstr:='select *from dangan where(1=1)';
  if Edit1.Text <> '' then
    sqlstr:=sqlstr + 'and (姓名='''+Edit1.Text+''')';
  if Edit2.Text <> '' then
    sqlstr:=sqlstr + 'and (学号='''+Edit2.Text+''')';
  if Combobox1.Text <> '' then
    sqlstr:=sqlstr + 'and (性别='''+Combobox1.Text+''')';
  if Combobox2.Text <> '' then
    sqlstr:=sqlstr + 'and (党团员='''+Combobox2.Text+''')';
  if Edit3.Text <> '' then
    sqlstr:=sqlstr + 'and (院系='''+Edit3.Text+''')';
  if Edit4.Text <> '' then
    sqlstr:=sqlstr + 'and (籍贯='''+Edit4.Text+''')';
  if Edit5.Text <> '' then
    sqlstr:=sqlstr + 'and (专业='''+Edit5.Text+''')';
  if Edit6.Text <> '' then
    sqlstr:=sqlstr + 'and (电话号码='''+Edit6.Text+''')';
  dm.ADOQuery1.Close;
  dm.ADOQuery1.SQL.Clear;
  dm.ADOQuery1.SQL.Add(sqlstr);
  dm.ADOQuery1.Open;
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit6.Text:='';
  Combobox1.Text:='';
  Combobox2.Text:='';
  Statusbar1.Panels[0].Text:='总共找到 ' + IntToStr(dm.ADOQuery1.RecordCount) + ' 条记录';
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  //dm.ADOQuery1.Close;
  //dm.ADOQuery2.Close;
  dm.ADOConnection1.Close;
  try
    dm.ADOConnection1.Open;
  except
    application.MessageBox('找不到数据库，引起该问题的原因是数据库文件可能被人为删除或改名。','无法打开数据库',0);
    application.Terminate;
  end;
end;
end.