#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <wsqllib.h>
#include <winlib/winlib.h>

#include "sqlbase.h"
#include "dbinit.h"
#include "dbutil.h"



static BOOL EmptyLine(char *s)
{
       char *p;

       if (! strlen(s))
               return TRUE;

       for (p = s; isspace(*p);) {
               if (! *(++p))
                       return TRUE;
       }

       return FALSE;
}


static BOOL LoadDLL(VARS *v, char *dllName)
{
       HMODULE hDll;
       char fName[256];

       sprintf(fName, "dat/%s", dllName);

       if (! (hDll = LoadLibrary(fName)))
               return FALSE;

       v->CheckExtraAccel =
                       (void (*)(WORD, VARS*))GetProcAddress(hDll,
                       "_CheckExtraAccel");

       v->GetAccelTableSize = (int (*)(void))GetProcAddress(hDll,
                       "_GetAccelTableSize");

       v->accelTable = (ACCEL*)GetProcAddress(hDll,
                       "_accelTable");

       v->extraMenuItems = (MENUITEM *)GetProcAddress(hDll, "_extraMenuItems");

       return TRUE;
}


HACCEL DefineAccel(VARS *v)
{
       HACCEL hAccel;
       ACCEL *accelTable;
       int oldSize, exSize, newSize;

       if (! (hAccel = LoadAccelerators(v->hInst, "Accel")))
               return 0;

       if (v->accelTable) {
               oldSize = CopyAcceleratorTable(hAccel, NULL, 0);
               exSize = v->GetAccelTableSize();
               newSize = oldSize + exSize;
               accelTable = (ACCEL*)malloc(sizeof(ACCEL) * newSize);
               CopyAcceleratorTable(hAccel, accelTable, oldSize);
               memcpy(accelTable + oldSize, v->accelTable,
                               sizeof(ACCEL) * exSize);
               DestroyAcceleratorTable(hAccel);
               if (! (hAccel = CreateAcceleratorTable(accelTable, newSize)))
                       return 0;
       }

       return hAccel;
}


BOOL GetLayout(VARS *v, char *iniName)
{
       SQLFIELD *newField, *prevField = NULL;
       char s[82], *p;
       int i;
       char fldName[20], *dflt = "";

       for (i = 1;; i++) {
               sprintf(fldName, "f%d", i);
               if (! GetPrivateProfileString("layout", fldName, dflt, s,
                               82, iniName)) {
                       if (i == 1)
                               return FALSE;
                       else
                               return TRUE;
               }

               if (! (p = strtok(s, ":")))
                       return FALSE;

               newField = (SQLFIELD*)malloc(sizeof(SQLFIELD));

               if (! strncmp(p, "@", 1))
                       newField->title = NewString("");
               else
                       newField->title = NewString(p);

               if (! (p = strtok(NULL, ":")))
                       return FALSE;
               newField->name = NewString(p);

               if (! (p = strtok(NULL, ":")))
                       return FALSE;
               newField->x = atoi(p);

               if (! (p = strtok(NULL, ":")))
                       return FALSE;
               newField->y = atoi(p);
               if (newField->y > v->yMax)
                       v->yMax = newField->y;

               if (! (p = strtok(NULL, ":")))
                       return FALSE;
               newField->labelWidth = atoi(p);

               if (! (p = strtok(NULL, ":")))
                       return FALSE;
               newField->editWidth = atoi(p);

               newField->next = NULL;

               if (! v->fields)
               v->fields = newField;

               if (prevField)
               prevField->next = newField;

               prevField = newField;
               v->nFields++;
       }
}


BOOL InitDB(VARS *v, LPSTR cmdLine)
{
       char iniName[80], *p, *p2, s[82];
       int i, done = 0;
       char *dflt = "";
       char dllName[256];
       LOGINDATA loginData;

       if (! strlen(cmdLine)) {
               MessageBox(NULL, "Missing parameters", "SQLBase",
                               MB_OK | MB_ICONERROR);
               return FALSE;
       }
       sprintf(iniName, "dat/%s.ini", cmdLine);

       v->fields = NULL;
       v->nFields = 0;
       v->xMax = 530;
       v->yMax = 0;

       v->CheckExtraAccel = NULL;
       v->GetAccelTableSize = NULL;
       v->accelTable = NULL;
       v->extraMenuItems = NULL;

       strcpy(dllName, "");

       if (! GetPrivateProfileString("dbinfo", "title", dflt, v->title,
                       256, iniName))
               goto error;
       if (! GetPrivateProfileString("dbinfo", "database", dflt, v->db,
                       50, iniName))
               goto error;
       if (! GetPrivateProfileString("dbinfo", "table", dflt, v->table,
                       50, iniName))
               goto error;
       if (! GetPrivateProfileString("dbinfo", "order", dflt, v->order,
                       256, iniName))
               goto error;

       if (! GetLayout(v, iniName))
               goto error;

       if (GetPrivateProfileString("dbinfo", "dll", dflt, dllName,
                       256, iniName)) {
               if (! LoadDLL(v, dllName)) {
                       MessageBox(NULL, "Error loading DLL", "SQLBase",
                               MB_OK | MB_ICONERROR);
                       return FALSE;
               }
       }

       if (! Login(&loginData))
               return FALSE;

       if (! SQLConnect(0, loginData.host, loginData.user,
                       loginData.passwd))
               return FALSE;

       if (! SQLSelectDB(0, v->db)) {
               SQLDisconnect(0);
               return FALSE;
       }

       return TRUE;

error:
       MessageBox(NULL, "Invalid data file format", "SQLBase",
                       MB_OK | MB_ICONERROR);
       return FALSE;
}

You are viewing proxied material from bitreich.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.