Liren Large Software Subsidy 5

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

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

Wrap

Visual Basic Form | 1992-03-12 | 12.3 KB | 297 lines

PrimaryWindow ffffffffffffffff ffffffffffffffffffffffffffffffffoo ooffofoof fofoo ofoof ofofffffffffffffof ffffffffffffff offfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff fffffffffffffo ffffffffffffff fffffffoo ffffffffffffffffffffffffffffffffff ffffffffffffffff Form1* Title_Edit Label1 Databases: Label2 Text file title: Database_List Label3 File: Text_File_Label (none) Drive_Combo Text_File_List *.txt Label4 Titles in database: Dir_Tree_Combo Titles_List VBSQL1 VBSQL SQL Err/Msg Label5 Text in database: Text_Edit * Menu_File &File Logon_Selection &Logon Log_Off_Selection Log &Off Exit_Selection &Exit Options_Menu &Options View_Selection &View Text Insert_Selection &Insert Text Delete_Selection &Delete Text About_Menu &About Logon_Selection_Click Load_Logon_Form Logon_Form LoadLogon_FormJ Log_Off_Selection_Click! SqlClose SqlConn SqlWinExit Form_Click FALSE# Logon_Selectionx Enabled Log_Off_Selections Exit_Selection View+ View_Selection Insert_Selection Delete_Selection Exit_Selection_ClickN Form_Load SqlUpdConn UpdSqlConn Msg3 SqlInit Bitmap_Filef View_Selection_ClickP Insert_Selection_Click6 Insert_Bitmap_Form& Delete_Selection_Click: Delete_Bitmap_Form Temp_Bitmap_File Close_And_Exit Close_Connections View_Form View_Bitmap_Formx Bitmap_Picture_Clickx About_Menu_Click About_Formk SqlDead View_Text_Form View_Textd Insert_Text_Form Delete_Text_Formy Loginu Main_Menu_Form Logoff ExitApplication InitializeApplication PrimaryWindow CheckForTextTable Database_Selection_Click< ChangePrimaryWindowCaption Database_List_Click ResultsD SqlUse Database_list GetDatabaseName( ListIndex SqlCmd SqlExecg SqlResultsz SqlNextRow3 NOMOREROWS' Text_List SqldataX ExecSQLCommand ChangePrimaryWindow Text_Edit_Change VBSQL1_Error SeverityS ErrorNum ErrorStr> RetCode DisplayDBLIBError ErrNum ErrMsg VBSQL1_Message MessageF State; MsgStr~ DisplaySQLError ErrorMsg Title_Edit_Change Title_Edit_KeyPressh KeyAscii Title_Edito Drive_Combo_ChangeW Insert_Text_Button Text_File_LabelY Caption Dir_Tree_Combo` Drive_Combo Drive Dir_Tree_Combo_Change Text_File_List Text_File_List_Click Filename0 Text_File TitleJ Prepare_String MousePointer: Insert_Text. Load_Text ExecuteSQLCommand Text_Title Response Text_EditY Combo1_Change Combo1_Click Database_List_Changep Text_List_Click4 DatabaseItem DatabaseSelectionH CheckServerConnectione PrimaryWindowTitleh SUCCEED List1~ ListCount RetrieveTextTitles LoadText InsertText PrepareStringf Titles_List Text_Edit_KeyPress Table_FoundU Database> NOMORERESULTS SqlPointer* SqlTxPtr SqlTimestamp SqlTxTimeStamp DataPartLimit FileLen FileData DataPart TableI DataPos DataLeno SqlWriteText SQLTXPLEN SqlOk SqlMoreText TextLen Offset LoadSizeLimit LoadSize String_In String_Out ClearTextTitles Titles Text_TitlesE Msg_Box Titles_List_Click Titles_List_DblClick DBLIB_VERSION Label4_Click DatabaseName SqlName RemRem primary window DoubleQuotes GetDatabases Logon_Selection_Click Log_Off_Selection_Click Exit_Selection_Click Form_Load Text Example Insert_Selection_Click (none) Please select a text file to insert. Please enter a title for the text file you wish to insert. Delete_Selection_Click You must first select a title. Delete " Delete from text_table where title = ' Delete aborted." View_Selection_Click You must first select a title. About_Menu_Click VBSQL1_Error VBSQL1_Message Title_Edit_KeyPress Drive_Combo_Change (none) Dir_Tree_Combo_Change (none) Text_File_List_Click Database_List_Click Get the database user wants to open If it doesn't have the text table in it, see if user wants to create onee If it does exist, get all the text titles Display the current database in the title windowi clear the text fieldf Text_Edit_KeyPress RetrieveTextTitles This routine will get all the text titles from the tablet Put them in the list box as they are retrieved. Select title from text_table CheckForTextTable Check to see if sample table exits Select count(*) from sysobjects where name = 'text_table'" Text table not found in database. Do you wish to create the table? If sample table does not exist, create it create table text_table (title varchar(30) not null, text_col text null) InsertText This routine will insert the text data into the table Insert new row with title and token text valueo Insert into text_table values (' ','none')" Get identifier for text column in current row select text_col from text_table where title = '" Open text file to load into SQL Server tablew This application cannot display text files greater than 64K. Begin inserting text into text column in DatePartLimit& size chunks text_table.text_col" Text inserted. LoadText This routine will read the text field from the tablet Clear Text_Edit box on primary window Get length of text in text column select datalength(text_col) from text_table where title = '" Set size limit on chunks of text data Set size of text returned to LoadSizeLimit& set textsize " Begin reading text column in LoadSizeLimit& size chunks Declare @val varbinary(30) Select @val = textptr(text_col) from text_table where title = '" READTEXT text_table.text_col @val Retrieve text data in result rows and place in text_edit box Load text data into edit box on primary window PrepareString This routine will double up the single quotation mark tor avoid syntax errors ClearTextTitles Clear all text titles out of list box Titles_List_Click Titles_List_DblClick