Liren Large Software Subsidy 5

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

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

Wrap

Visual Basic Form | 1992-03-12 | 12.2 KB | 312 lines

PrimaryWindow Image ffffffffffffffff ffffffffffffffffffffffffffffffffoo ooffofoof fofoo ofoof ofofffffffffffffof ffffffffffffff offfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff fffffffffffffo ffffffffffffff fffffffoo ffffffffffffffffffffffffffffffffff ffffffffffffffff Form1 Title_Edit Label1 Databases: Label2 Image file title: Database_List Label3 File: Image_File_Label (none) Drive_Combo Image_File_List *.bmp Label4 Titles in database: Dir_Tree_Combo Titles_List Label5 Image in database: VBSQL1 VBSQL SQL Err/Msg Image_Control D Menu_File &File Logon_Selection &Logon Log_Off_Selection Log &Off Exit_Selection &Exit Options_Menu &Options View_Selection &View Image Insert_Selection &Insert Image Delete_Selection &Delete Image 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 SqlResults 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_Change Text_List_Click4 DatabaseItem DatabaseSelectionH CheckServerConnectionU PrimaryWindowTitleh SUCCEEDE List1~ ListCountn RetrieveTextTitles LoadText InsertText PrepareStringf Titles_List Text_Edit_KeyPress Table_Found. 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 ClearTextTitlesX Titles Text_Titles Msg_Box Titles_List_Click Titles_List_DblClick DBLIB_VERSION Temp_Image_Filev CheckForImageTable RetrieveImageTitles ClearImageTitles Image_ControlJ Picture Image_Title LoadImage Image_File_Label Image_File_List Image_File_List_Click Image_File InsertImage[ DataPartSize ImageLen fileposk DatabaseName SQLName Database_List_DblClick Image_Control_Click GetDatabases Logon_Selection_Click Log_Off_Selection_Click Exit_Selection_Click Form_Load c:\image.tmp Image Example" Insert_Selection_Click This routine will insert the image from the file into the databasea (none) Please select a bitmap to insert." Please enter a title for the bitmap you wish to insert." Delete_Selection_Click You must first select a title. Delete " Delete from image_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) Database_List_Click This procedure gets the chosen database.b Checks to see if the image table is there If it's not, then clear the images field, and disable other fieldst If it is, then get the list of images, display the list and enable other fields. Change the primary window title to show the database name Clear the image control PrepareString Titles_List_Click Clear the picture Titles_List_DblClick Get the image image selected from the server0 Display the image Image_File_List_Click CheckForImageTable Check to see if sample table exitse If it's not there, then see if they want to create it Select count(*) from sysobjects where name = 'image_table' Text table not found in database. Do you wish to create the table? create table image_table (title varchar(30) not null, image_col image null)" InsertImage This routine inserts an image into the SQL Server Insert new row with title and image token datal Insert into image_table values ('" ',0x80)" Get identifier for image column in current rowl select image_col from image_table where title = '" Open bitmap file to load into SQL Server tablet Begin inserting bitmap into image column in DatePartLimit& size chunkse image_table.image_col" Image inserted." LoadImage This routine reads an image from the SQL Server Get length of bitmap image in image columna select datalength(image_col) from image_table where title = '" Set LoadSizeLimit to 8K Set size of image returned to LoadSizeLimit&v set textsize " Begin reading image column in LoadSizeLimit& size chunks Declare @val varbinary(30) Select @val = textptr(image_col) from image_table where title = '" image_table.image_col" READTEXT " @val Retrieve image data in result rows and write to temporary bitmap file ClearImageTitles Clear all text titles out of list box RetrieveImageTitles Retrieve text titles from SQL Server into list boxm Select title from image_table"