Delphi培训第五天学习笔记

TButton是标准的Windows组件，它的颜色是有Windows风格决定的，更改TButton.Font.Color不会改变它的颜色
TButton有TabOrder属性，表示按下Tab键后焦点在TButton上的转移顺序
Additional中的TSpeedButton也是按钮，可以自定义字体颜色，并且在点击时不会改变焦点
DFM文件保存UI控件的定义及其属性，PAS文件保存UI控件的引用。
可以在DFM中批量改变控件的属性或控件类型（比如将TButton全改成TSpeedButton），保存后Xe4会提示是否更新对应的Pas文件，选确定就好了
Delphi文件构成：

    .dfm: Delphi窗口设计文件，保存各种控件的非默认值的属性
    .pas: Delphi代码文件，保存业务逻辑代码和各种事件代码
    .dcu: Delpho代码编译文件，保存的是.pas编译后的机器码，只有当pas文件发生变化才会重新编译
    .dpr: Delphi项目文件，包含项目中要使用的单元和窗口以及初始化
    .dproj: Delphi项目配置文件，用XML格式保存版本号等信息
    .res: 程序的资源文件，比如图标和图片，ResourceString定义的常量也在这里可以找到

函数和过程的调用都是按就近原则的。在类中方法中调用方法的顺序是：该方法中定义的方法-->该类中的方法-->该类父类的方法-->如果全部祖先都没有，则找全局方法-->最后找引用模块中的公共方法-->没找到就只能报错了

Xe4中自动生成的按钮点击事件中的参数Sender:TObejct，其含义是触发点击事件的对象，按钮点击事件的触发对象就是该按钮，故可以将Sender强制转换成TButton，从而获取点击的按钮的信息。
强制转换：TButton(Sender);

新建窗口（Form）：File->new VCL Form
显示窗口： Form.show;
关闭当前窗口：Close;

连接数据库：

  1、添加数据库连接组件FcUniConnection,  重要属性：1：Name,组件名；2，CustomConnect:数据库连接属性，里面包括了数据库Ip地址、登录名、密码、连接的DB等连接数据库要用的信息
  2、添加数据库组件FcDB，  重要属性：1：Name,组件名；
  3，添加数据库查询组件FcQuery,  
      重要属性：1：Name,组件名；  2：SQL.Text, 要执行的SQL查询语句,string类型； 3，Fields，返回的列名
               3,Open,执行查询语句，函数； Close，关闭查询，函数； FieldByName，通过列名获取
  Open和ExecSQL都能执行查询语句，不过ExecSQL没有返回值 

···
--向数据库传参（FcQuery组件名假设为qry）
qry.SQL.Text := 'Select * From student Where Name = :Name, Age > :Age';--这里 ':'就相当于SQL代码中的@，代表变量
qry.ParamByName('Name').AsString := edt1.Text; --ParamByName('')：通过名字找到SQL.Text中的变量名，并根据数据类型进行赋值
qry.ParamByName('Age').AsInteger := StrToInt(edt2.Text); --数据库中Age属性为Int
···

···
--弹出窗口
show:弹出窗口后继续执行后面的代码
showModel:弹出窗口（模态框）后阻塞了后面代码的执行，只有关闭了弹出的窗口才能继续执行
--showModel有返回值ModelResult,有两个值mrOK,mrCancel
···

SetFocus:为组件设置焦点
Cursor属性是指鼠标悬浮在该组件上时显示的形状，比如手形和箭头形
回车Enter：char(13)或#13

DataModule:程序统一的数据库连接管理

单表增删改查： ——》设置FcDb中的TFcTable--》设置DataAccess中的DataSource--》设置JComponent中的TJDBGrid--》将TFcTable中的列拉到窗口--》设置DataControl中的TDBNavigator

---

补充：

1、登录或注册界面的实现可以用showModel来实现,在showModal执行完毕前不会执行其后的代码（阻塞），返回值用ModalResult保存，有两个值--mrOK、mrCancel。
  frmLogin := TfrmLogin.Create(nil);
  if frmLogin.showModal() <> mrOK then Exit;
2、设置DataModule：File --> New --> Other --> Delphi Files -->Data Module --> 重命名Data Module --> 添加并设置Connection组件 --> 添加并设置DataBase组件
3、query组件和table组件都要设置Active属性为True才能生效，其它配套组件（如TDBNavigator和DBGrid）才能获取数据