知识大全 SQL编程（二）[2]

Posted 2022-07-21 知

篇首语：不塞不流，不止不行。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 SQL编程（二）[2]相关的知识，希望对你有一定的参考价值。

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

　　TabSheet : TTabSheet;

　　Label : TLabel;

　　ListBox : TListBox;

　　Edit : TEdit;

　　ComboBox : TComboBox;

　　BitBtn : TBitBtn;

　　TabSheet : TTabSheet;

　　Memo : TMemo;

　　procedure FormCreate（Sender: TObject）

　　procedure ListBox Click（Sender: TObject）

　　procedure BitBtn 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] ）

　　 Default the drop down list to the first value in the list

　　ComboBox ItemIndex := ;

　　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

　　CheckBox Checked show extensions flag

　　CheckBox Checked show system tables flag

　　ListBox Items） target for table list

　　 Make sure there are tables defined in the alias If not show an

　　error; otherwise clear the list box

　　Screen Cursor := crDefault;

　　if ListBox Items Count < then

　　MessageDlg（ There are no tables in the alias you selected Please

　　choose another mtError [mbOK] ）

　　ListBox Items Clear;

　　end;

　　procedure TQueryForm ListBox Click（Sender: TObject）

　　begin

　　Screen Cursor := crHourglass;

　　try

　　 First disable the TTable object

　　if Table Active then

　　Table Close;

　　 Open the selected table

　　with ListBox do

　　Table DatabaseName := Items Strings[ItemIndex];

　　with ListBox do

　　Table TableName := Items Strings[ItemIndex];

　　 Open the table and put a list of the field names in the Fields

　　list box

cha138/Article/program/Delphi/201311/25141