知识大全数据访问部件的应用及编程（一）[2]

Posted 2022-07-21 部件

篇首语：知识是万物中的指路明灯。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全数据访问部件的应用及编程（一）[2]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：数据访问部件的应用及编程（一）[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　程序清单

　　unit unit ;

　　interface

　　uses

　　SysUtils Windows Messages Classes Graphics Controls

　　Forms Dialogs StdCtrls DB DBTables Buttons ComCtrls Tabnotbk;

　　type

　　TQueryForm = class（TForm）

　　BitBtn : TBitBtn;

　　DataSource : TDataSource;

　　Table : TTable;

　　GroupBox : TGroupBox;

　　CheckBox : TCheckBox;

　　PageControl : TPageControl;

　　TabSheet : TTabSheet;

　　Label : TLabel;

　　ListBox : TListBox;

　　TabSheet : TTabSheet;

　　Memo : TMemo;

　　procedure FormCreate（Sender: TObject）

　　procedure ListBox Click（Sender: TObject）

　　end;

　　var

　　QueryForm: TQueryForm;

　　implementation

　　$R * DFM

　　uses RSLTFORM;

　　procedure TQueryForm FormCreate（Sender: TObject）

　　begin

　　Screen Cursor := crHourglass;

　　 Populate the alias list

　　with ListBox do

　　begin

　　Items Clear;

　　Session GetAliasNames（Items）

　　end;

　　 Make sure there are aliases defined

　　Screen Cursor := crDefault;

　　if ListBox Items Count < then

　　MessageDlg（ There are no database aliases currently defined You +

　　 need at least one alias to use this demonstration

　　mtError [mbOK] ）

　　end;

　　procedure TQueryForm ListBox Click（Sender: TObject）

　　var

　　strValue: string; Holds the alias selected by the user

　　bIsLocal: Boolean; Indicates whether or not an alias is local

　　slParams: TStringList; Holds the parameters of the selected alias

　　iCounter: Integer; An integer counter variable for loops

　　begin

　　 Determine the alias name selected by the user

　　with ListBox do

　　strValue := Items Strings[ItemIndex];

　　 Get the names of the tables in the alias and put them in the

　　appropriate list box making sure the user s choices are reflected

　　in the list

　　ListBox Items Clear;

　　Session GetTableNames（strValue alias to enumerate

　　 pattern to match

　　 数据集中的数据维护

　　数据集中的数据维护主要包括数据记录的修改插入和删除 Delphi为数据集部件提供了相应的方法用于其中的数据维护这些方法如表所示

cha138/Article/program/Delphi/201311/25162

知识大全 数据访问部件的应用及编程（一）[2]

知识大全数据访问部件的应用及编程（一）[2]