home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / MDBS.ZIP / SQLSERVE.CLS < prev    next >
Text File  |  1990-01-15  |  845b  |  31 lines
  1. /*
  2. **  (C) Copyright 1989, 1990
  3. **  Micro Data Base Systems Inc.
  4. **  Lafayette, Indiana
  5. */
  6.  
  7. subclass(SaveForm,
  8.          #SqlServerQuery,
  9.          nil,
  10.          true, true, false);
  11.  
  12.  
  13.  
  14. /* Initialize the SaveBox Dialog. Answer 'false' so that PM hands the focus
  15.    off to the first control in the dialog with the TABSTOP bit set. */
  16. method SqlServerQuery::initializeDialog(self, hwnd, createParams)
  17. {
  18.         local temp;
  19.  
  20.         temp = initializeDialog(super, hwnd, createParams);
  21.         setText(self, "SQL Server Network Name");
  22.         setItemText(self, SAVEBOX_TITLE, "SQL Server Name:");
  23.         setItemText(self, MBID_OK, "Accept");
  24.         return temp;
  25. }
  26. /* Display the about box for the help. */
  27. method SqlServerQuery::help(self, mp1, mp2)
  28. {
  29.         new(ModalDialog, IDD_ABOUTBOX, nil);
  30.         return nil;
  31. }