11。Lazarus数据库编程9。ZeosDBO与FireBird综合示例

　　9.ZeosDBO与FireBird综合示例9.1关于 FireBird
　　Firebird是一个开源的关系数据库，提供了大部分SQL-99标准的功能，可以运行在Windows、linux和多种Unix操作系统上。Firebird提供良好的并发性，高效的执行，强大的语言支持存储过程和触发器。从1981年起，它已经被许多商业公司运用于许多的产品系统中。
　　Firebird 和原 Borland 的 InterBase 有着相同的血脉，其作为一个开源项目遵循 InterBase Public License V.1.0 on 25 July, 2000 协议。
　　FireBird 数据库的特点： Firebird是一个真正的关系数据库，支持存储过程、视图、触发器、事务等大型关系数据库的所有特性； Firebird支持SQL92的绝大部分命令，并且支持大部分SQL99命令，新版Firebird 2.0对SQL99的支持更完整； Firebird源码基于成熟的商业数据库 Interbase，有良好的稳定性，与Interbase有良好的兼容性； 不用考虑授权费用（免费），不用担心将来有一天你或你的客户因为使用盗版而被数据库开发商告上法庭； 发布简易，安装文件只有几M，且高度可定制，客户端的分发也很简单，只需一个DLL文件； Firebird 还具有一个嵌入式服务器版本，不用安装，直接运行，基于单机开发首选； Firebird的运行效率非常高； 具备高度可移植性，可在Linux、Unix、MacOS、Windows、Solaris 系统下运行，而且数据库格式完全一致，不用修改； 开发环境支持良好，Delphi、C++Builder不用通过 ODBC 连接，直接用原生开发接口开发出基于 Firebird 的程序；除此之外，对于 Java、Python、.NET、PHP 都具有良好的支持。
　　FireBird 数据库软件有三种套件，支持不同作业平台（windows系列、linux、freebsd 等...） Super Server  - 无法直接存取数据库档案，必须透过socket来和服务器沟通 Classic  - 直接存取数据库的档案，多个程序可以同时存取一个档案， 类似于 vfp、dbase embedded  - 专为小型应用系统使用的嵌入式数据库 （pda）
　　另外，新版的 FireBird 数据库软件还支持 Android ARM32、 Android ARM64、 Mac OS X。 9.2 FireBird 开发示例
　　本节示例：实现对一张数据表的 CRUD 操作，通过两个窗体，其中主窗体展现数据，表单窗体用于录入和修改数据。数据准备如下： create table c_dep (     dep_id varchar(64) primary key,     dep_name varchar(16) ); insert into c_dep (dep_id, dep_name) values (＂yfb＂, ＂研发部＂); insert into c_dep (dep_id, dep_name) values (＂xsb＂, ＂销售部＂); insert into c_dep (dep_id, dep_name) values (＂jszcb＂, ＂技术支持部＂); insert into c_dep (dep_id, dep_name) values (＂cwb＂, ＂财务部＂); insert into c_dep (dep_id, dep_name) values (＂xzb＂, ＂行政部＂);  create table d_dep_staff (     staff_id varchar(64) primary key,     dep_id varchar(64),     name varchar(32),     sex varchar(8),     birthday date,     edu_level varchar(16),     school varchar(64),     speciality varchar(32),     native_place varchar(256) );  INSERT INTO d_dep_staff (staff_id, dep_id, name, sex, birthday, edu_level, school, speciality, native_place) VALUES(uuid_to_char(gen_uuid()), ＂yfb＂, ＂张三＂, ＂女＂, ＂1981-9-10＂, ＂本科＂, ＂内蒙古大学＂, ＂经济管理＂, ＂内蒙古乌兰察布市集宁区＂);  INSERT INTO d_dep_staff (staff_id, dep_id, name, sex, birthday, edu_level, school, speciality, native_place) VALUES(uuid_to_char(gen_uuid()), ＂xsb＂, ＂刘五＂, ＂男＂, ＂1978-7-11＂, ＂本科＂, ＂内蒙古大学＂, ＂计算机科学与技术＂, ＂内蒙古鄂尔多斯市东胜区＂);  INSERT INTO d_dep_staff (staff_id, dep_id, name, sex, birthday, edu_level, school, speciality, native_place) VALUES(uuid_to_char(gen_uuid()), ＂xzb＂, ＂弓九＂, ＂女＂, ＂1983-3-10＂, ＂本科＂, ＂内蒙古科技大学＂, ＂计算机科学与技术＂, ＂内蒙古呼和浩特市托克托县＂);
　　在数据表设计上，我比较习惯于主键使用 UUID，这个习惯也是受近几年的分布式数据库的影响而形成的。在 FireBird 中，对于 UUID 在支持包括如下函数： CHAR_TO_UUID (ascii_uuid) GEN_UUID () UUID_TO_CHAR (uuid)
　　如： select char_to_uuid(＂A0bF4E45-3029-2a44-D493-4998c9b439A3＂) from rdb$database -- returns A0BF4E4530292A44D4934998C9B439A3 (16-byte string) select char_to_uuid(＂A0bF4E45-3029-2A44-X493-4998c9b439A3＂) from rdb$database -- error: -Human readable UUID argument for CHAR_TO_UUID must -- have hex digit at position 20 instead of ＂X (ASCII 88)＂  select gen_uuid() from rdb$database -- returns e.g. 017347BFE212B2479C00FA4323B36320 (16-byte string)  select uuid_to_char(x＂876C45F4569B320DBCB4735AC3509E5F＂) from rdb$database -- returns ＂876C45F4-569B-320D-BCB4-735AC3509E5F＂ select uuid_to_char(gen_uuid()) from rdb$database -- returns e.g. ＂680D946B-45FF-DB4E-B103-BB5711529B86＂ select uuid_to_char(＂Firebird swings!＂) from rdb$database -- returns ＂46697265-6269-7264-2073-77696E677321＂9.3 Lazarus 应用程序示例9.3.1 界面设计
　　主窗体界面如下图：
　　表单窗体界面如下图：
　　9.3.2 数据模块
　　数据模块组件声明代码： TDataModule1 = class(TDataModule)     // 数据库组件     ZConnection1: TZConnection;     ZQuery1: TZQuery;     // 字段定义     ZQuery1_BIRTHDAY: TDateField;     ZQuery1_DEP_ID: TStringField;     ZQuery1_DEP_NAME: TStringField;     ZQuery1_EDU_LEVEL: TStringField;     ZQuery1_NAME: TStringField;     ZQuery1_NATIVE_PLACE: TStringField;     ZQuery1_SCHOOL: TStringField;     ZQuery1_SEX: TStringField;     ZQuery1_SPECIALITY: TStringField;     ZQuery1_STAFF_ID: TStringField;   private    public    end;
　　数据库组件属性设置：
　　组件
　　属性
　　值
　　ZConnection1
　　Protocol
　　firebird
　　HostName
　　127.0.0.1
　　Port
　　3050
　　User
　　sysdba
　　Password
　　***
　　Database
　　E:workspace_of_lazarusDEMODB.FDB
　　Connected
　　True
　　ZQuery1
　　Connection
　　ZConnection1
　　SQL
　　SELECT staff_id, s.dep_id, name, sex, birthday, edu_level, school, speciality, native_place, d.dep_name FROM d_dep_staff s left join c_dep d on s.dep_id = d.dep_id
　　Active
　　True  9.3.3 主窗体组件
　　主窗体组件声明代码如下： TForm1 = class(TForm)     // CRUD 按钮     Button1: TButton;     Button2: TButton;     Button3: TButton;     Button4: TButton;     // 数据库组件     DataSource1: TDataSource;     DBGrid1: TDBGrid;     // 数据导航组件     DBNavigator1: TDBNavigator;     // 按钮及数据导航组件容器     Panel1: TPanel;          procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure DBGrid1DblClick(Sender: TObject);   private    public    end;
　　主窗体数据库组件的属性：
　　组件
　　属性
　　值
　　DataSource1
　　DataSet
　　DataModule1.ZQuery1
　　DBNavigator1
　　DataSource
　　DataSource1
　　VisibleButtons
　　[nbFirst,nbPrior,nbNext,nbLast]
　　Align
　　alRight
　　DBGrid1
　　DataSource
　　DataSource1
　　Options
　　dgRowSelect=True
　　Align
　　alClient 9.3.4 表单窗体组件
　　表单窗体组件声明代码： TForm2 = class(TForm)     // 确定、取消按钮     Button1: TButton;     Button2: TButton;     // 数据编辑组件     SpecialityEdit: TEdit;     SchoolEdit: TEdit;     EduLevelComboBox: TComboBox;     BirthdayDateTimePicker: TDateTimePicker;     DepComboBox: TComboBox;     NameEdit: TEdit;     NativePlaceEdit: TEdit;     SexRadioGroup: TRadioGroup;     // 数据标签组件     GroupBox1: TGroupBox;     GroupBox2: TGroupBox;     GroupBox3: TGroupBox;     GroupBox4: TGroupBox;     GroupBox5: TGroupBox;     GroupBox6: TGroupBox;     GroupBox7: TGroupBox;          procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormActivate(Sender: TObject);   private    public     isNew: Boolean; // 标识是否为新建数据记录    end;           9.3.5 主窗体功能实现代码
　　代码如下： uses unit2, unit3;  { TForm1 }  procedure TForm1.Button1Click(Sender: TObject); begin   // 新建   Form2.isNew := True;   if Form2.ShowModal = mrOk then   begin     DataModule1.ZQuery1.Refresh;   end; end;  procedure TForm1.Button2Click(Sender: TObject); begin   // 编辑   if DataModule1.ZQuery1.BOF then     if DataModule1.ZQuery1.RecordCount > 0 then       DataModule1.ZQuery1.First     else       Exit;    if DataModule1.ZQuery1.EOF then     if DataModule1.ZQuery1.RecordCount > 0 then       DataModule1.ZQuery1.Last     else       Exit;    Form2.isNew := False;   if Form2.ShowModal = mrOk then   begin     DataModule1.ZQuery1.Refresh;   end; end;  procedure TForm1.Button3Click(Sender: TObject); var   Query: TZQuery; begin   // 删除   if DataModule1.ZQuery1.BOF then     if DataModule1.ZQuery1.RecordCount > 0 then       DataModule1.ZQuery1.First     else       Exit;    if DataModule1.ZQuery1.EOF then     if DataModule1.ZQuery1.RecordCount > 0 then       DataModule1.ZQuery1.Last     else       Exit;    Query := TZQuery.Create(Self);   try     Query.Connection := DataModule1.ZConnection1;      Query.Close;      Query.SQL.Text := ＂DELETE FROM d_dep_staff where staff_id = :staffId＂;     Query.Params.ParamByName(＂staffId＂).AsString := DataModule1.ZQuery1_STAFF_ID.Value;      Query.ExecSQL;   except       on D: EDatabaseError do          MessageDlg(＂Error＂, ＂A database error has occurred. Technical error message: ＂ + D.Message, mtError, [mbOK], 0);   end;    Query.Destroy;    DataModule1.ZQuery1.Refresh; end;  procedure TForm1.Button4Click(Sender: TObject); begin   // 刷新   DataModule1.ZQuery1.Refresh; end;  procedure TForm1.DBGrid1DblClick(Sender: TObject); begin   // 双击修改   Button2Click(Sender); end;           9.3.6 表单窗体功能实现代码
　　代码如下： uses unit2;  { TForm2 }  procedure TForm2.Button1Click(Sender: TObject); begin   // 取消   ModalResult := mrCancel; end;  procedure TForm2.Button2Click(Sender: TObject); var   Query: TZQuery;   index: Integer;   depId: String; begin   // 确定   if NameEdit.Text = ＂＂ then   begin     MessageDlg(＂提示＂, ＂请输入姓名！＂, mtError, [mbOK], 0);     Exit;   end;    if DepComboBox.ItemIndex < 0 then   begin     MessageDlg(＂提示＂, ＂请选择所在部门！＂, mtError, [mbOK], 0);     Exit;   end;    index := DepComboBox.ItemIndex;   depId := PAnsiString(DepComboBox.Items.Objects[index])^;    Query := TZQuery.Create(Self);   try     Query.Connection := DataModule1.ZConnection1;     Query.Close;      if isNew then     begin       Query.SQL.Text := ＂INSERT INTO d_dep_staff (staff_id, dep_id, name, sex, birthday, edu_level, school, speciality, native_place) VALUES(uuid_to_char(gen_uuid()), :depId, :name, :sex, :birthday, :eduLevel, :school, :speciality, :nativePlace)＂;        Query.Params.ParamByName(＂depId＂).AsString := depId;       Query.Params.ParamByName(＂name＂).AsString := NameEdit.Text;       if SexRadioGroup.ItemIndex = 0 then         Query.Params.ParamByName(＂sex＂).AsString := ＂男＂       else         Query.Params.ParamByName(＂sex＂).AsString := ＂女＂;       Query.Params.ParamByName(＂birthday＂).AsDate := BirthdayDateTimePicker.Date;       Query.Params.ParamByName(＂eduLevel＂).AsString := EduLevelComboBox.Text;       Query.Params.ParamByName(＂school＂).AsString := SchoolEdit.Text;       Query.Params.ParamByName(＂speciality＂).AsString := SpecialityEdit.Text;       Query.Params.ParamByName(＂nativePlace＂).AsString := NativePlaceEdit.Text;        Query.ExecSQL;     end     else     begin       Query.SQL.Text := ＂UPDATE d_dep_staff SET dep_id=:depId, name=:name, sex=:sex, birthday=:birthday, edu_level=:eduLevel, school=:school, speciality=:speciality, native_place=:nativePlace WHERE staff_id=:staffId＂;        Query.Params.ParamByName(＂depId＂).AsString := depId;       Query.Params.ParamByName(＂name＂).AsString := NameEdit.Text;       if SexRadioGroup.ItemIndex = 0 then         Query.Params.ParamByName(＂sex＂).AsString := ＂男＂       else         Query.Params.ParamByName(＂sex＂).AsString := ＂女＂;       Query.Params.ParamByName(＂birthday＂).AsDate := BirthdayDateTimePicker.Date;       Query.Params.ParamByName(＂eduLevel＂).AsString := EduLevelComboBox.Text;       Query.Params.ParamByName(＂school＂).AsString := SchoolEdit.Text;       Query.Params.ParamByName(＂speciality＂).AsString := SpecialityEdit.Text;       Query.Params.ParamByName(＂nativePlace＂).AsString := NativePlaceEdit.Text;        Query.Params.ParamByName(＂staffId＂).AsString := DataModule1.ZQuery1_STAFF_ID.Value;        Query.ExecSQL;     end;   except       on D: EDatabaseError do          MessageDlg(＂Error＂, ＂A database error has occurred. Technical error message: ＂ + D.Message, mtError, [mbOK], 0);   end;    Query.Destroy;   ModalResult := mrOk; end;  procedure TForm2.FormActivate(Sender: TObject); var   Query: TZQuery;   index: Integer; begin   // 初始化部门选项   try     Query := TZQuery.Create(Self);     Query.Connection := DataModule1.ZConnection1;      Query.Close;     Query.SQL.Text := ＂SELECT dep_id, dep_name FROM c_dep＂;     Query.Open;      DepComboBox.Items.Clear;     while not Query.EOF do     begin       DepComboBox.Items.AddObject(         Query.FieldByName(＂dep_name＂).AsString,         TObject(NewStr(Query.FieldByName(＂dep_id＂).AsString))       );       Query.Next;     end;   except       on D: EDatabaseError do          MessageDlg(＂Error＂, ＂A database error has occurred. Technical error message: ＂ + D.Message, mtError, [mbOK], 0);   end;    // 初始化数据项   if isNew then   begin     NameEdit.Text:=＂＂;     SexRadioGroup.ItemIndex:=0;     SchoolEdit.Text:=＂＂;     SpecialityEdit.Text:=＂＂;     NativePlaceEdit.Text:=＂＂;   end   else   with DataModule1 do   begin     NameEdit.Text:=ZQuery1_NAME.Value;     if ZQuery1_SEX.Value = ＂男＂ then       SexRadioGroup.ItemIndex:=0     else       SexRadioGroup.ItemIndex:=1;      index := DepComboBox.Items.IndexOf(ZQuery1_DEP_NAME.Value);     DepComboBox.ItemIndex:=index;      BirthdayDateTimePicker.Date := ZQuery1_BIRTHDAY.Value;     EduLevelComboBox.Text := ZQuery1_EDU_LEVEL.Value;     SchoolEdit.Text := ZQuery1_SCHOOL.Value;     SpecialityEdit.Text:=ZQuery1_SPECIALITY.Value;     NativePlaceEdit.Text:= ZQuery1_NATIVE_PLACE.Value;   end; end;