新手实战Delphi体会

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.