Using Data Access - From VC++ with Arrays

The MDMDA session object is being called from a Microsoft VC++ application. This sample includes references to an item array (12J1).

The dataset and items are defined as follows:

ITEMS:
  ITEM-NO, Z6;
  SALES-PERIODS, 12X6;
  SALES-HISTORY, 12P12;
  MISC, 12J1;
  OTHER, J2;

SETS:
  NAME: HISTORY, DETAIL (1/18);
  ENTRY: ITEM-NO(!HISTORY-M),
    SALES-PERIODS,
    SALES-HISTORY,
    MISC,
    OTHER;
  CAPACITY: 101;
END.

BOOL CVc01Dlg::OnInitDialog()
{
char buf[20];
BOOL b1;
COleException pError;

    CDialog::OnInitDialog();

    SetIcon(m_hIcon, TRUE);
    SetIcon(m_hIcon, FALSE);
   
    da = new IMdmdaDoc();
    b1 = da->CreateDispatch ( "MdmDA.Session", &pError );
    if ( !b1 ) {
        sprintf ( buf, "Session error: [x%08X]\0", pError.m_sc );
        AfxMessageBox ( buf );
        return TRUE;
    };
    da->SetTraceLevel ( 0 );
    da->SetHostAddress ( "support.minisoft.com\0" );
    da->SetPort ( 30002 );
    da->SetLoginUser ( "MGR" );
    da->SetLoginGroup ( "UTIL" );
    da->SetLoginAccount ( "MINISOFT" );
    da->SetUserPassword ( "abcdef" );
    if ( !da->Connect() ) {
        AfxMessageBox("couldn't connect...");
        return TRUE;
    };
    if ( !da->GetLoginStatus()) {
        AfxMessageBox("Login failed...");
        return TRUE;
    };
    db = new IImageDatabase();
    ds = new IImageDataset();
    db->AttachDispatch(da->AddImageDBRef("MSCARD"),true);
    ds->AttachDispatch(db->AddDatasetRef("HISTORY"),true);
    if ( !db->Open("MSCARD", "UTIL", "MINISOFT", 1, "DO-ALL") ) {
        AfxMessageBox("Open failed...");
        return TRUE;
    };
    ds->SetDelimiter ("\0");
    if ( !ds->ReadSerialNext("@;") ) {
        AfxMessageBox("ReadSerialNext failed...");
        return TRUE;
    };
    SetItemValues();

    return TRUE;
}

void CVc01Dlg::OnDestroy()
{
    CDialog::OnDestroy();
   
    if ( ds ) {
        ds->ReleaseDispatch();
        delete ds;
    }
    if ( db ) {
        db->ReleaseDispatch();
        delete db;
    }
    if ( da ) {
        da->ReleaseDispatch();
        delete da;
    }
}

void CVc01Dlg::SetItemValues()
{
    CString buf;
    char buf2[10];

    m_Edit1.SetWindowText(ds->GetItem("ITEM-NO"));
    buf = ds->GetItem("MISC");
    m_Edit2.SetWindowText(buf);
   
    sprintf ( buf2, "%d", atoi ( buf.Mid( 0, 6 ) ) );
    m_misc_1.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 6, 6 ) ) );
    m_misc_2.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 12, 6 ) ) );
    m_misc_3.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 18, 6 ) ) );
    m_misc_4.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 24, 6 ) ) );
    m_misc_5.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 30, 6 ) ) );
    m_misc_6.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 36, 6 ) ) );
    m_misc_7.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 42, 6 ) ) );
    m_misc_8.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 48, 6 ) ) );
    m_misc_9.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 54, 6 ) ) );
    m_misc_10.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 60, 6 ) ) );
    m_misc_11.SetWindowText ( buf2 );
    sprintf ( buf2, "%d", atoi ( buf.Mid( 66, 6 ) ) );
    m_misc_12.SetWindowText ( buf2 );

}

void CVc01Dlg::GetItemValues()
{
    CString buf;
    CString buf2;
    char buf3[10];

    m_misc_1.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf = buf3;
    m_misc_2.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;
    m_misc_3.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;
    m_misc_4.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;
    m_misc_5.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;
    m_misc_6.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;
    m_misc_7.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;
    m_misc_8.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;
    m_misc_9.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;
    m_misc_10.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;
    m_misc_11.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;
    m_misc_12.GetWindowText ( buf2 );
    sprintf ( buf3, "%6d", atoi ( buf2 ) );
    buf += buf3;

    m_Edit2.SetWindowText(buf);
    ds->SetItem("MISC",buf);
    m_Edit1.GetWindowText(buf2);
    ds->SetItem("ITEM-NO",buf2);
   
}

void CVc01Dlg::OnNext()
{
    if ( !ds->ReadSerialNext("@;") ) {
        AfxMessageBox("ReadSerialNextfailed...");
        return;
    };

    SetItemValues();

    return;
}

void CVc01Dlg::OnRewind()
{
    if ( !ds->Rewind() ) {
        AfxMessageBox("Rewind failed...");
        return;
    };
}

void CVc01Dlg::OnAdd()
{
    GetItemValues();

    if ( !ds->Write("@;") ) {
        AfxMessageBox("Write failed...");
        return;
    };

    return;