1、在定义局部变量的时候不要再加var 如: private
user_id,user_name,user_pwd,user_rpwd,user_class:string;
sSql:string;
{ Private declarations }
2、在单元unit定义过程或者涵数的时候 要声明名称和参数
var
Form1: TForm1;
function GetRecNum(sqlstr:string):integer;
procedure ExecQry(sSql:string);
3、更新dbgrd的时候用
myqry1.close;
myqry1.Open;
//dbgrd1.DataSource.DataSet.Refresh;
4、选择dbgrd行列值
dbgrd1.Fields[1].Value
5、设置快捷键tab编辑框时候,属性taborder在相应的控件里设置。
6、dggrd出现乱码的时候需要设置控件connection属性Options-Useunicode设置为TRUE
7、若不想下次又跳出连接服务设置就只要把LoginPrompt设置为false
8、mysql无字符类型区别
9、更新定位dbgrid控件行
myqry1.Close;
myqry1.Open;
myqry1.RecNo:=StrtoInt(ID)+1;
也可以用myqry1.Locate('id',ID,[]);
10、增加定位dbgrid控件
myqry1.Close;
myqry1.Open;
myqry1.Last;
11、如何打开工程文件(dpr)
一般从Project---View Source中打开dpr的(D7)
Application.Initialize;
Application.Title := '管理工具';
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmMyInputBox, frmMyInputBox);
Application.CreateForm(TfrmMenu, frmMenu);
Application.Run;
12、打开工程项目管理
view---project manager
13、解决对一个变量右键选 find declaration不跳转方法
解决办法:一般重新Build一下就行了project---build add projects
14、 实现运行界面窗体图标的改变
projcet---option--application(load icon)
15、打开网页的两种方法
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ComObj,ShellAPI;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//方法一 可调整窗口 uses里加入comobj
procedure TForm1.Button1Click(Sender: TObject);
procedure OpenInIe(URL:string);
var
Ie:Variant;
begin
Ie:=CreateOleObject('InternetExplorer.Application');
Ie.visible:=True;
Ie.left:=300; //与左边相隔距离
Ie.top:=200; //与顶部相隔距离
Ie.height:=400; //高度
Ie.width:=600; //宽度
Ie.menubar:=0; //隐藏菜单栏
Ie.toolbar:=0; //隐藏工具栏
Ie.addressbar:=0; //隐藏地址栏
//Ie.statubar:=0; //不可调整大小
Ie.resizable:=0;
Ie.navigate(URL);
end;
begin
OpenInIe('www.hi.baidu.com/yncg2046');
end;
//方法二 正常窗口打开 uses里加入shellapi
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Handle,'open','www.hi.baidu.com/yncg2046',nil,nil,SW_SHOWNORMAL)
end;
end.