delphi开发回忆录——面向对象的基础，继承

今天是大年三十了，简单总结一下过去一年。回想起来感到惭愧，本来想好好的写一些文章，由于自己没有坚持，写的太少，不过最大的原因我想是自己总是无法理顺自己的思路，技术文章其实最难写，不仅要写出来，关键是要让看的朋友也能明白，不然，仅写给自己意义就不大了。

说真的，叫开发日志系列不妥当，因为是我在回忆以前的开发情况来写的，所以这次就改成开发回忆录吧。虽然是回忆，我还是把所有的东西都重新写了一次，这样，我觉得可以提高自己，让自己更深入的理解delphi的精髓。废话不说了，开始记录这次的东西。

上次创建子基窗体和基窗体相关操作的基类，这次我们开始创建用于如货品资料，员工资料，部门资料，客户资料等基本资料的窗体frmBasic，此窗体继承frmBase，在窗体上放入两个数据感知控件：dbgrdhList（TDBGridEh），用于显示基本资料的列表；dxdbinsEdit:（TdxDBInspector），用于输入基本资料的编辑控件。

然后在主窗体中创建此窗体，并关联数据库，就可以增加，保存数据了。

主窗体打开刚才创建的窗体的代码如下：

procedure TfrmMain.rgBaseDatumItems0Click(Sender: TObject);

var

testform:TfrmBasic;

begin

testform:=TfrmBasic.Create(Application);

try

testform.DBGridEh1.DataSource:=frmDM.dsMaster;

testform.dxDBInspector1.DataSource:=frmDM.dsMaster;

frmDM.qryMaster.SQL.Clear;

frmDM.qryMaster.SQL.Text:='select * from [user]';

frmDM.qryMaster.Open;

testform.Show;

finally

end;

end;

明天把新的源码再上传一次，并置顶，这样就方便朋友们下载了。

利用面向对象来编程真是太简单，太神奇了，怎么样，是不是很有成就感？

希望有爱好的朋友多多交流，多提问，大家共同进步！