unit5.~pas

用VC和SQL Server开发的固定资产管理系统

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm5 = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    CheckBox1: TCheckBox;
    ListBox1: TListBox;
    Edit1: TEdit;
    ADOTable1: TADOTable;
    procedure Button1Click(Sender: TObject);
    procedure FillFields;
    procedure FormCreate(Sender: TObject);
    function GetSearchOpition():TLocateOptions;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}
procedure TForm5.FillFields;
var
i:integer;
begin
  listbox1.Items.Clear;
  listbox1.itemindex:=0;
  for i:=0 to adotable1.FieldCount-1 do
    begin
     listbox1.Items.Add(adotable1.Fields[i].DisplayName);
     end;
  listbox1.Selected[0]:=true;
end;

procedure TForm5.Button1Click(Sender: TObject);
 var s,s1:string;
begin
 s:=listbox1.Items[listbox1.itemindex];
 s1:=quotedstr(edit1.Text);
   showmessage(s1);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 基本数据表 where ');
adoquery1.SQL.Add(s);
adoquery1.SQL.add('='+s1);

adoquery1.Open;
   with adoquery1 do begin
   if  Locate(listbox1.Items[listbox1.itemindex],edit1.Text,GetSearchOpition)=false then
   showmessage('对不起，没有查到你所要的结果！');
   end;
end;



procedure TForm5.FormCreate(Sender: TObject);
begin
 FillFields;
end;

function  Tform5.GetSearchOpition():TlocateOptions;
var
   SearchOpition:TLocateOptions;
   begin
   if checkbox1.Checked then
   SearchOpition:=SearchOpition+[loPartialKey];
    Result:=SearchOpition;
    end;
end.