procedure TFormDbWiz.BitBtnNext1Click(Sender: TObject);
var
CurrentDB, CurrentFilter: string;
begin
// get the database and filters
CurrentDB := ListDatabases.Items[
ListDatabases.ItemIndex];
CurrentFilter := GroupFilter.Items[
GroupFilter.ItemIndex];
// retrieve the tables
Session.GetTableNames(CurrentDB,
CurrentFilter, True, False, ListTables.Items);
// move to the next page
NoteBook1.PageIndex := 1;
BitBtnNext2.Enabled := False;
end;

procedure TFormDbWiz.ListTablesClick(Sender: TObject);
begin
// table selected: enable next button
BitBtnNext2.Enabled := True;
end;

procedure TFormDbWiz.BitBtnBack2Click(Sender: TObject);
begin
// go back to first page
NoteBook1.PageIndex := 0;
end;

procedure TFormDbWiz.BitBtnNext2Click(Sender: TObject);
var
I: Integer;
begin
// set the properties of the selected table
with Table1 do
begin
DatabaseName := ListDatabases.Items[
ListDatabases.ItemIndex];
TableName := ListTables.Items[
ListTables.ItemIndex];
// load the field definitions
FieldDefs.Update;
end;
// clear the list box, then fill it
ListFields.Clear;
for I := 0 to Table1.FieldDefs.Count - 1 do
// add number, name, and class name of each field
ListFields.Items.Add(Format(
‘%d) %s [%s]’,
[Table1.FieldDefs[I].FieldNo,
Table1.FieldDefs[I].Name,
Table1.FieldDefs[I].FieldClass.ClassName]));
// move to the next page
NoteBook1.PageIndex := 2;
BitBtnNext3.Enabled := False;
end;

procedure TFormDbWiz.BitBtnBack3Click(Sender: TObject);
begin
// back to the second page
NoteBook1.PageIndex := 1;
end;

procedure TFormDbWiz.BitBtnAllClick(Sender: TObject);
var
I: Integer;
begin
// select every available field
for I := 0 to ListFields.Items.Count - 1 do
ListFields.Selected[I] := True;
// enable Next button
BitBtnNext3.Enabled := True;
end;

procedure TFormDbWiz.BitBtnNoneClick(Sender: TObject);
var
I: Integer;
begin
// deselect all the fields
for I := 0 to ListFields.Items.Count - 1 do
ListFields.Selected[I] := False;
// disable next button (no fields are selected)
BitBtnNext3.Enabled := False;
end;

Страницы: 1 2 3 4 5

Эта запись была опубликована 14.12.2007в 20:38. В рубриках: Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.