1]连接好数据库，并显示；
procedure tform1.formcreate(sender: tobject);
begin
fdquery1.connection := fdconnection1;
fdconnection1.loginprompt:=false; //取消登录提示框
fdconnection1.open('driverid=sqlite;database=test1.sqlite3.db');
end;
2]增加所有字段；
3]添加事件；
// fdquery1username: twidememofield;
procedure tform1.fdquery1usernamegettext(sender: tfield; var text: string; displaytext: boolean); begin text := copy(fdquery1username.asstring, 1, 50); end;
4]效果；
