find.pas

delphi编写的联合管理程序,很不错的哦

unit find;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Grids, XPMenu;

type
  Tfrmfind = class(TForm)
    namefind: TTabSheet;
    sexfind: TTabSheet;
    phonefind: TTabSheet;
    componetfind: TTabSheet;
    pagectl: TPageControl;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    strgdname: TStringGrid;
    Label1: TLabel;
    btnfindname: TButton;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    edsex: TEdit;
    btnfindsex: TButton;
    GroupBox4: TGroupBox;
    strgdsex: TStringGrid;
    GroupBox5: TGroupBox;
    Label3: TLabel;
    edphone: TEdit;
    Button2: TButton;
    GroupBox6: TGroupBox;
    strgdphone: TStringGrid;
    GroupBox7: TGroupBox;
    Label4: TLabel;
    edsex1: TEdit;
    btnfind: TButton;
    GroupBox8: TGroupBox;
    strgdcom: TStringGrid;
    Label5: TLabel;
    edaddress1: TEdit;
    btncancel: TButton;
    cmbif: TComboBox;
    Edit1: TEdit;
    procedure btnfindnameClick(Sender: TObject);
    procedure btnfindsexClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
    procedure btnfindClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmfind: Tfrmfind;

implementation

uses datacont;

{$R *.dfm}
procedure find1(sender:tobject;qstr:string);
var i:integer;
begin
    with dataconnect.adoqrycomm do
         begin
            close;
            sql.Clear ;
            sql.add('select * from comm1 '+qstr);
            open;
    for i:=0 to fieldcount-1 do
            begin
            (sender as tstringgrid).Cells[i,0]:=fields[i].FieldName ;//加载字段名称给STRINGGRID
             end;
   if recordcount>0 then
          begin
          first;
          while not eof do
          begin
          for i:=0 to fieldcount-1 do
            begin
            (sender as tstringgrid).Cells[i,1]:=fields[i].AsString;
            end;
            next;
           end;
         end
   else
    showmessage('没有查找到符合条件的记录!');
end;
end;

procedure Tfrmfind.btnfindnameClick(Sender: TObject);
var qstr1:string;
begin
qstr1:='';
//得到查询的条件值
if trim(edit1.Text)<>'' then
qstr1:='where 姓名 like ''%'+trim(edit1.Text)+'%'''
else
qstr1:='where false';
find1(strgdname,qstr1);
end;

procedure Tfrmfind.btnfindsexClick(Sender: TObject);
var qstr1: string;
begin
qstr1:='';
if trim(edsex.Text)<>'' then
qstr1:='where 性别 like ''%'+trim(edsex.Text)+'%'''
else
qstr1:='where false';
find1(strgdsex,qstr1);
end;
procedure Tfrmfind.Button2Click(Sender: TObject);
var qstr1: string;
begin
qstr1:='';
if trim(edphone.Text)<>'' then
qstr1:='where 联系电话 like ''%'+trim(edphone.Text)+'%'''
else
qstr1:='where false';
find1(strgdphone,qstr1);
end;

procedure Tfrmfind.btncancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrmfind.btnfindClick(Sender: TObject);
var qstr1:string;
begin
if trim(edsex1.Text)=''then
   begin
   showmessage('请输入查找条件!');
   edsex1.SetFocus;
   abort;
   end
else
   qstr1:=' where 性别='''+trim(edsex1.text)+''' ';
   if trim(edaddress1.Text)=''then
       begin
       showmessage('请输入查找条件!');
       edaddress1.SetFocus;
       abort;
       end
   else
   if trim(cmbif.Text)<>''then
   qstr1:=qstr1+cmbif.Text+' 住址='''+trim(edaddress1.Text)+''' ';
   find1(strgdcom,qstr1);
end;

procedure Tfrmfind.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
close;
end;

end.