熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

DELPHI基礎教程:SQL編程(二)[2]

2022-06-13   來源: Delphi編程 

  TabSheet: TTabSheet;

  Label: TLabel;

  Label: TLabel;

  Label: TLabel;

  Label: TLabel;

  Label: TLabel;

  ListBox: TListBox;

  ListBox: TListBox;

  ListBox: TListBox;

  Edit: TEdit;

  ComboBox: TComboBox;

  BitBtn: TBitBtn;

  TabSheet: TTabSheet;

  Memo: TMemo;

  procedure FormCreate(Sender: TObject)

  procedure ListBoxClick(Sender: TObject)

  procedure ListBoxClick(Sender: TObject)

  procedure BitBtnClick(Sender: TObject)

  end;

  var

  QueryForm: TQueryForm;

  implementation

  {$R *DFM}

  uses RSLTFORM;

  procedure TQueryFormFormCreate(Sender: TObject)

  begin

  ScreenCursor := crHourglass;

  { Populate the alias list }

  with ListBox do

  begin

  ItemsClear;

  SessionGetAliasNames(Items)

  end;

  { Make sure there are aliases defined }

  ScreenCursor := crDefault;

  if ListBoxItemsCount < then

  MessageDlg( There are no database aliases currently defined You

  need at least one alias to use this demonstration

  mtError [mbOK]

  { Default the dropdown list to the first value in the list }

  ComboBoxItemIndex := ;

  end;

  procedure TQueryFormListBoxClick(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 := ItemsStrings[ItemIndex];

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

  appropriate list box making sure the users choices are reflected

  in the list }

  ListBoxItemsClear;

  SessionGetTableNames(strValue { alias to enumerate }

   { pattern to match }

  CheckBoxChecked { show extensions flag }

  CheckBoxChecked { show system tables flag }

  ListBoxItems) { target for table list }

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

  error; otherwise clear the list box }

  ScreenCursor := crDefault;

  if ListBoxItemsCount < then

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

  choose another mtError [mbOK]

  ListBoxItemsClear;

  end;

  procedure TQueryFormListBoxClick(Sender: TObject)

  begin

  ScreenCursor := crHourglass;

  try

  { First disable the TTable object }

  if TableActive then

  TableClose;

  { Open the selected table }

  with ListBox do

  TableDatabaseName := ItemsStrings[ItemIndex];

  with ListBox do

  TableTableName := ItemsStrings[ItemIndex];

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

  list box }

[]  []  []  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/25141.html
    推薦文章
    Copyright © 2005-2022 電腦知識網 Computer Knowledge   All rights reserved.