You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
1.1 KiB
34 lines
1.1 KiB
13 years ago
|
void BookForm::editClicked()
|
||
|
{
|
||
|
EditBookForm *dialog = new EditBookForm( this, "Edit Book Form", TRUE );
|
||
|
TQSqlCursor cur( "book" );
|
||
|
dialog->BookDataBrowser->setSqlCursor( &cur );
|
||
|
dialog->BookDataBrowser->setFilter( BookDataTable->filter() );
|
||
|
dialog->BookDataBrowser->setSort(TQSqlIndex::fromStringList(
|
||
|
BookDataTable->sort(), &cur ) );
|
||
|
dialog->BookDataBrowser->refresh();
|
||
|
int i = BookDataTable->currentRow();
|
||
|
if ( i == -1 ) i = 0; // Always use the first row
|
||
|
dialog->BookDataBrowser->seek( i );
|
||
|
dialog->exec();
|
||
|
delete dialog;
|
||
|
BookDataTable->refresh();
|
||
|
}
|
||
|
|
||
|
void BookForm::newCurrentAuthor( TQSqlRecord * author )
|
||
|
{
|
||
|
BookDataTable->setFilter( "authorid=" + author->value( "id" ).toString() );
|
||
|
BookDataTable->refresh();
|
||
|
}
|
||
|
|
||
|
void BookForm::primeInsertAuthor( TQSqlRecord * buffer )
|
||
|
{
|
||
|
TQSqlQuery query;
|
||
|
query.exec( "UPDATE sequence SET sequence = sequence + 1 WHERE tablename='author';" );
|
||
|
query.exec( "SELECT sequence FROM sequence WHERE tablename='author';" );
|
||
|
if ( query.next() ) {
|
||
|
buffer->setValue( "id", query.value( 0 ) );
|
||
|
}
|
||
|
}
|
||
|
|