Liren Large Software Subsidy 5

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 5 / 05.iso / a / a025 / 10.ddi / CURSORS.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1992-03-12 | 18.3 KB | 427 lines

PrimaryWindow Cursor Scroll Bar Example ffffffffffffffff ffffffffffffffffffffffffffffffffoo ooffofoof fofoo ofoof ofofffffffffffffof ffffffffffffff offfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff fffffffffffffo ffffffffffffff fffffffoo ffffffffffffffffffffffffffffffffff ffffffffffffffff Form1 Frame1 Object Label1 &Database: Database_List Database_List Label4 &Table: Table_List Table_List Frame2 Cursor Information Label5 Rows per &Fetch: Fetch_size Label6 (Max = 15) Open_Button &Open Label2 Cursor &Sensitivity: Sensitivity_List Label8 IntN_value Text1 Close_Button C&lose Label3 Concurrenc&y Control: CC_List Update_Button &Update Label7 &Results: VBSQL1 VBSQL SQL Error/Message COLUMN_LABEL Label8 Courier VScroll1 Cursor_Buffer Courier | Menu_File &Connect Logon_Selection &Logon Log_Off_Selection Log &Off Exit_Selection &Exit Form_Click PrimaryWindowTitleZ ChangePrimaryWindowCaptionG InitializeApplication DBLIB_VERSION Sensitivity_List CC_List Logon_Selection enabled Log_Off_Selectionz False Exit_Selection Open_Buttonx Close_Button0 Next_ButtonI Prev_Button First_Button Last_Button Random_Buttong Relative_Button Update_Button_ OpenTran ClearCursorBuffer Logon_Selection_Clicko Login PrimaryWindow MousePointer CheckServerConnection SqlConn Resultso GetDatabases] Database_List CC_List_Change Log_Off_Selection_Click ClearDatabaseList ClearTableList1 LogoffC Exit_Selection_ClickT ExitApplicationD VBSQL1_Error Severity. ErrorNum ErrorStr RetCode DisplayDBLIBError| VBSQL1_Messagec Message StateJ MsgStr DisplaySQLError Database_List_Change[ DatabaseSelection6 Text+ SqlUseR SUCCEED< RetrieveTableNamesx Table_List ListIndex DatabaseName` SqlName' PrepareStringb String_Inr String_Out ExecuteSQLCommand SqlResults NOMORERESULTS SqlNextRow NOMOREROWS SqlData ListCount( Num_Rows_Edit_Changet Num_Rows_Edit_LostFocus Num_Rows_Edit Table_List_Change Table_List_Click Close_Button_Click CommitTran SqlCursorClose= CursorHandle HScroll1 Open_Button_Click NumRowsInCursorr RowStatus ScrollOpt CURFORWARD CURKEYSET CURDYNAMIC Concuropt CURREADONLY" CURLOCKCC CUROPTCC: CUROPTCCVAL Statement SqlCursorOpen+ SqlCursorInfo NumCols NumRowsInKeyset ColCount SqlCursorColInfo colname Coltype ColLenR UserType, CursorColNameQ CursorColLen ClearOutputBufferg ProcessCursorHeader Keyset_Size keysetR Fetch_Size/ Fetch_size_Changeh Fetch_size_LostFocus @ BeginTran Next_Button_Click SqlCursorFetch! FETCHNEXT ProcessCursorRowsG @ FillCursorBuffer Prev_Button_Click FETCHPREV First_Button_ClickD FETCHFIRST Last_Button_Click FETCHLAST Random_Button_Click Rownum FETCHRANDOM Relative_Button_ClickP Cursor_Buffer FETCHRELATIVE( Fetch_Relative Fetch_First Fetch_Lastp Fetch_Next Fetch_Previousa @ Fetch_Random CC_List_Click Sensitivity_List_Change% Sensitivity_List_Click Update_Button_Click ColNum Value Table UpdateValue SQLCHAR SQLVARCHAR SqlCursor] CRSUPDATEc TABKEY: colline OutputCount ENDRESULTS2 FTCENDOFRESULTS ENDKEYSET FTCENDOFKEYSETF RowCount ColValuep SqlCursorData actuallenz tmplen DataStr OutputData NEWLINE coluline startshift rowlen- focusD below heading> COLUMN_HEADINGJ COLUMN_LABEL RowCount5 HScroll1_Changex tabcountZ foundtab VScroll1_Change VScroll1s PAGEUP< FTCRENDOFRESULTS PAGEDOWN FTCENDOF CursorSliderValueR SmallChange Fetch_ VScroll LargeChange @ Form_Load Database_List_ClickK Caption Cursor_Buffer_Click6 databases serverg Keyset_Size_Change Menu_File_Click MaxRows delta Current ScrollValue Keyset_Size_LostFocus Label1_Click. IntN_value IntN_value_LostFocus Make; guess multiplying fetch arbitrary number chose testval cursorscrollvalue Logon_Selection_Click Logon to the server Get the databases in the server and display them in the list boxt Change the primary window caption to reflect current status Log_Off_Selection_Click Set the state of the controls Logoffo Exit_Selection_Click VBSQL1_Error VBSQL1_Message PrepareString RetrieveTableNames Retrieve table names from SQL Server into list box Select name from sysobjects where type = 'U' ClearTableList Clear all tables out of list boxh Table_List_Click Make sure the required data is supplied before enabling the open button Close_Button_Click Open_Button_Click Get the fetch size and keyset size Redimension the rowstatus array Set the scroll option and concurrency control values Static& Keyset driven"& Dynamic"& Int N"& You must Supply N" Cursor Example Read only"& Locking control"& Optimistic concurrency& Optimistic concurrency by values& Setup the select statement and open the cursoru select * from Get Column names and lengths Output the column headero Set the vertical scroll bar to <page up> and <page down> the size of the fetch Determine the max value of VScroll1 If we are dealing with a mixed scroll, then set to number (ScrollOpt% * IntN%) * an arbitrary numbera NOTE: You choose an arbitrary number because you want to be able to go outside of keyset. If Dealing with keyset or static scroll and we have enough room to store the whole keyset,m then set max to full keyset size. Otherwise, we're dealing with Dynamic scroll or we can't fit the who keyset.k Make a guess as to how big the keyset is by multiplying the "asked for" fetch size by some arbitrary number (we chose 10). Fetch the first batch of rows Refresh the vertical scrollbar Note: the number 10 is an arbitrary number Cursor failed to open. Cursor Example Fetch_size_LostFocus Make sure the fetch size fits in the results list box to avoid scrollingl Value must be between 1 and 15 Cursor Example ClearDatabaseList Clear all databases out of list box BeginTran begin tran CommitTran commit tran" Fetch_Relative This routine will get a batch relative to the selected row First Calculate where to start the fetchf Fetch the rows display the data Problem fetching cursor. Cursor Example Fetch_First display the data Problem fetching cursor. Cursor Example Fetch_Last display the data Problem fetching cursor. Cursor Example Fetch_Next This routine will get this next batch of rows display the data Problem fetching cursor. You are more than likely at the end of the result set Cursor Example Fetch_Previous This routine will get the previous batch of rowsp display the data Problem fetching cursor. Cursor Example Fetch_Random This routine will get a row number to start fetching from display the data Problem fetching cursor. Cursor Example CC_List_Click Sensitivity_List_Click Make sure the required data is supplied before enabling the open button Update_Button_Click Get the selected row number Select a row to update." Cursor Example Get column # to update and new valuei Number of column to update:" Update Update column with value: " Update Determine name of column to updateu Create the update stringt Perform updatep ProcessCursorRows This routine gets each of the cursor rows and displays them HScroll1.Refresh 'Refresh the horizontal scroll bar Set the end of results and keyset valuesr Get the cursor data based on the row and column ProcessCursorHeader This routine gets and formats the cursor header Set the COLUMN_LABEL label ClearCursorBuffer FillCursorBuffer If x% >= 0, then we are doing a horizontal scroll Clear the list boxe Fill the list box with the shifted data First fill the buffer with the headings Then fill in the data ClearOutputBuffer VScroll1_Change Define <Page Up> and <Page Down> values Get the current scroll valuev Based on the scroll value, call the appropriate routine If "Mixed" scroll and scrolling within the keyset, then just do a randoma User is either doing a <Page Down>, <Page Up>, or Dynamic scrolling Save the current scroll value for next time.a Form_Load Initialize the applicationa Cursor Example Cursor Example Set the initial state of each of the controls in the form Static Keyset driven" Dynamic" Int N" Read only" Locking control" Optimistic concurrency Optimistic concurrency by values Database_List_Click This routine will use the selected database, get all the user tables in the database, and change the primary window title to reflect the database change.