Liren Large Software Subsidy 5

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

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

Wrap

Visual Basic Form | 1992-03-12 | 10.5 KB | 324 lines

PrimaryWindow Browse Mode Example ffffffffffffffff ffffffffffffffffffffffffffffffffoo ooffofoof fofoo ofoof ofofffffffffffffof ffffffffffffff offfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff fffffffffffffo ffffffffffffff fffffffoo ffffffffffffffffffffffffffffffffff ffffffffffffffff Form1 Select_Button Select for Browse Label1 Author ID: Author_ID_Label Label2 Last Name: Last_Name_Edit Next_Button Next Row First_Name_Edit Label7 First Name: Label3 Phone: Phone_Edit Update_Button Update Row Label8 Address: Address_Edit Label4 City: 6 City_Edit Cancel_Query_Button Cancel Query Label5 State: State_Edit Label6 Zip Code: Zip_Code_Edit Command1 About Command3 Label9 Contract: Contract_Edit VBSQL1 VBSQL SQL Msg/Err VBSQL1_Error SqlConn, Severity ErrorNum ErrorStru RetCodeY VBSQL1_Message Message State MsgStr Command1_Click7 Logon_Form Command3_Click SqlClose# SqlWinExit Command2_Click Results SqlCmd? SqlExec SqlResultsh SqlNextRow NOMOREROWS- Bitmap_Listu Sqldata Form_ClickK @ Form_Load DBLIBERR DBLibError Count List1 ListCount= CmdStrn SqlSetOpt SQLBUFFER SqlRows Current_Row_Value BUFFULL SqlGetRow] Query_Pending Num_Rows_Value SqlCount? Counter_Label Caption Movie_Num_Value Title_Inputj Rating_Input= ListIndex Description_Input- Next_Control Enabled_ Previous_Control Delete_Control Clear_Control Insert_Control Update_Control Store_ID_ListE BUFFUL Num_Rows_In_Buffero Store_ID_List_Click: Row_Num Store_Name_Label Store_Address_Label City_Label^ State_Label Zip_LabelM SQLRefillBuffert SQLRefilBuffer6 SQLFill Buffer SQLFillBuffer bNum_Rows_In_Buffer SqlClrBuf NumRowsInBufferJ RowNum 6465106 NumRowsIn MOREROWS lrBuf3 owsInBuffer Buffer_Size Buffer_Size_Edit@ Command4_Click SQLCanQuerya ClearList( Clear_List Form_MouseMove Buttons Shift Author_ID_List Author_ID_List_Click Name_Label` Address_Label Contract_Label Phone_Label Refill_Buffer_Click Refill_Buffer_Button_Click} Select_Into_Buffer_Button_Click{ Cancel_Query_Button_Click Refill_Buffer_ButtonY Cancel_Query_Button Select_Into_Buffer_Button Label3_Click Text1l remSQLFillBuffer SqlFirstRow SqlLastRow Buffer_Size_Input Buffer_Status_Label ClearAuthorInformationo Previous_Button Next_Button Previous_Button_Click Next_Button_ClickW Buffer_Status_Label_Click QueryActive Row_Selected_Label' LoadAuthorInformation Buffer_Size_Edit_Change0 Form_UnloadP Cancel SQLFillBuffeZ About_Formq Update_Button SqlUpdConnG @ Select_Button_Click Select_Button\ Author_ID_Edit2 Name_Editf Phone_Edit Address_Edit City_Edit State_Edit Zip_Edit Contract_Edit Author_ID_Edit_Change Name_Edit_Change Phone_Edit_Change Address_Edit_Change City_Edit_ChangeB State_Edit_Change Zip_Code_Edit_Change Contract_Edit_Change' NOMORERESULTS uthor_ID_Edit Zip_Code_Edit State_Code_EditF ElseCancel_Query_Button Cancel_Query; MousePointer Update_Button_Click Update_Botton QualA SqlQual Author_ID_Label9 First_Name_Edit_Change Last_Name_Edit_Change Last_Name_Edit First_Name_Edit contract SqlUpdCmd SqlUpdExecO BeginF Logon Logi% Loging InitializeAppliation InitializeApplication DisplayDBLIBError DisplaySQLErrorC MessageStr PrimaryWindow ExitApplication\ CheckForTimestampColumn ExecuteSQLCommand Table_Found Database CheckForImageTable SUCCEED PrimaryWindowTitlez ChangePrimaryWindowCaption CheckTableForTimestampColumn SqlUse Servername2 alter table authors timestamp update: au_id Timestamp_Found GetDatabaseName FALSE DisplayResultRow UpdateArray TableNameArray LoadArrays LoadTableNameArray ProcessResultRow UpdateValueArray au_lname Label2_Click InitializeUpdateArray DatabaseName SqlNameH VBSQL1_Error VBSQL1_Message Command3_Click Form_Load Browse Mode Example" Cancel_Query_Button_Click Cancel Queryc ClearAuthorInformation Next_Button_Click No more rows in table. Command1_Click Select_Button_Click Send Query to SQL Serverl Select * from authors for browse Phone_Edit_Change not changed" Address_Edit_Change not changed" City_Edit_Change not changed" State_Edit_Change not changed" Zip_Code_Edit_Change not changed" Contract_Edit_Change not changed" Update_Button_Click update authors set " not changed" Replace final comma with space before adding qual string Now add qual string First_Name_Edit_Change not changed" Last_Name_Edit_Change not changed" CheckForTimestampColumn Change context to pubs sample database The SQL Server you have logged into ( ) does not contain the Pubs sample database." Check to see if sample authors table has a timestamp column If 'timestamp' in (select c.name from syscolumns c, sysobjects o where c.id = o.id and o.name = 'authors') " select -1 else select 0 Add timestamp columni alter table authors add timestamp timestamp null " Now initialize the timestamp values update authors set au_id = au_id Form_Unload LoadTableNameArray au_lname au_fname phone" address" state" contract ProcessResultRow Get Qual String authors" InitializeUpdateArray not changed"