通用Delphi数据库输入控件DBPanel的实现.docVIP

通用Delphi数据库输入控件DBPanel的实现 Data input is indispensable, no matter what program you develop. Quickly creating a beautiful input interface will undoubtedly greatly improve the efficiency of program development. The original control of the system is often unsatisfactory. In Delphi, if you target a field, the optional control has DBLabel, DBEdit, and so on. If you have a full table input, you have DBGrid. Use the controls such as Dbedit, users must arrange the position of each field, although can achieve the result that is beautiful, but, if the field number, is very troublesome. If the DBGrid, no matter how many fields, only one control is enough, simple is simple, but the field is a word, a bit not convenient to use. For general users, it is convenient and beautiful to use forms of entry. This is the problem that this article addresses. -- technical key The main function of this control is to implement the editing of the database fields. In general rules, the control should contain TdataLink objects and should implement a series of methods related to TdataLink; But that would cost a lot of code. The larger the amount of code, the more complex the system becomes and the more likely it is to go wrong. The idea of this control is to implement the most functionality with minimal code. So, edit the data field directly using the TDBComboBox control. To implement generality, a field editor control array and field header array are maintained within the control. As follows: Editors: an array of TDBComboBox; - is used to edit the data control array, dynamically generated Labels: an array of TLabel; -, the title of each field, dynamically generated The advantage of using TDBComboBox is that it can not only have general editing functionality, but also add prompt information to each field. The code is as follows: {the method} {for adding prompt information to the I field} Procedure TDBPanel AddHits (ItemIndex: Integer; Hits: array of string); var M, n, I: Integer; The begin N: = L