제가 콤보박스와 에디트1로 DB그리드를 검색할때
콤보박스문
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
0 : Table1.IndexFieldNames := 'Ucode';
1 : Table1.IndexFieldNames := 'Uname';
2 : Table1.IndexFieldNames := 'Uage';
3 : Table1.IndexFieldNames := 'Urrn';
4 : Table1.IndexFieldNames := 'Uadd';
5 : Table1.IndexFieldNames := 'Upon';
end;
end;
버튼문
//if (Input.Text = '') then
// MessageDlg('검색자료를 입력하시오.', mtError, [mbOK], 0)
// else
// if not Table1.FindKey([Input.Text]) then
// MessageDlg('일치하는 자료가 없습니다.',
// mtInformation, [mbOK], 0)
//end;
// end;
이렇게썼거든요?
이렇게 검색하면 모든 내용이 있는 상태서 그 위치만 가더라구요..
근데 Data Access 에 있는 SQl(쿼리)이걸루 저 콤보박스와 Edit1(네임은 Input로변경)
을 사용으로 버튼1을 눌러서 되게 할수있나요??
procedure TForm2.Button2Click(Sender: TObject);
var
begin
with Query1 do
begin
Close;
SQL.clear;
SQL.Add('select Ucode, Uname, Uage, Urrn, Uadd, Upon');
SQL.Add('From User1');
SQL.add('Where );
Prepare;
Open;
end;
end;
end.
아예 여기에서 막혔습니다..;;; ...