Liren Large Software Subsidy 5

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

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

Wrap

Visual Basic Form | 1992-03-12 | 6.8 KB | 275 lines

RPCFORM Remote Stored Procedure Form1 Frame1 Connection Label1 &Server Name: SERVER_COMBO Combo1 Label4 &Database Name: DBNAME_FIELD Text2 Label5 &Owner: OWNER_FIELD Text3 NEW_QUERY_BUTTON &New Procedure SEND_QUERY_BUTTON E&xecute Proc CLOSE_BUTTON Close Frame2 Procedure Sampler Label3 &Procedure Name: PROCNAME_COMBO Label6 Para&meter Names: PARAMNAME_FIELD Text2 Label7 Parameter &Values: PARAMVALUE_FIELD Text1 Label2 &Results: RESULT_FIELD Text1 Courier Form_Click VBSQL1 VBSQL1_Error SqlConn Severity ErrorNum OSError ErrorStr OSErrorStr RetCode ErrStr VBSQL1_Message3 Message@ State} MsgStr SQLErrors/ SQLErrors_Errorb SQLErrors_Message Command1 Connect" Connect_Click Serverw SqlOpenConnection\ SqlInitc SqlCmd SqlExec SqlResults SqlNextRowF NOMOREROWSW numcolu SqlNumColsB DataV SqlData SqlClose SqlWinExitK Form1x Continue DataStr CLOSE_BUTTON_Click QUERYFORM* QUERY_FIELD_Change SEND_QUERY_BUTTON_Click QUERY_FIELD rowdata RESULT_FIELD RESULTS_FIELD@ ClearFields Form_GotFocus NEW_QUERY_BUTTON_Click^ @ Form_Load RESULTS_FIELD_Change coldata5 collengths SqlColLen colnameO SqlColName actuallen colline TABKEY DETAIL_FIELD rowlen SqlCancel ResultsG tmplen colvalue nextline underline rowcntj tmplenx templenh RESULTS_LIST_Clicke Result_list RESULTS_list4 ListCount Check GotFocus FocusC ResultP REGROW: NOMORERESULTS Process_SQL_queryt SubProcess_SQL_query- WhileResult RowProcess owProcess VALUE SqlAData] Calculate length colpositions colwidth index altcolZ SqlAltColId db_nameF dbidR sysusagesS order7 computer colnum altop SqlAltOp} numalts SqlNumAltsL number columnsp altstring} SqlPrType altvalue psychology SqlDatLen SqlCount coluline$ SqlGetAltColInfo* AltColDetail Status AltColumnDataO colid aggopname ColInfod SqlGetColumnInfo ColDetails Collen] ColDetailq ColumnData numcompy SqlNumCompute numorder SqlNumOrders ResultProcess ordercol SqlOrderColK RemColName even^ withl column? headings displays program anyway would; Form_KeyDown KeyCode Shift Form_DragOver Sourcew Process_SQL_query1 OutputData) ClearResultArray HEADING_LABEL HEADINGS_LABEL Captions HEADINGS_FIELD DataLine numrows PROCNAME_FIELD DBNAME_FIELD\ OWNER_FIELD procname SERVER_COMBO SqlRpcInitZ SQLRPCRECOMPILE SUCCEEDL Label7_Click PARAMNAME_FIELDH PARMAVALUE_FIELD Param_Names) Param_Values8 Parse_Namesk Parse_Values PARAMVALUE_FIELD Parse_Param Rulename Start endpos ParamIn ParamOut inParam RPCFORM SqlRpcParam PARAM_NAME SQLRPCRETURN< Param_types PROCNAME_COMBO- PARAMNAME_FIELD_Change SQLVARCHAR PARAM_VALUE Parse_Params SqlRpcSend PROCNAME_COMBO_Change PROCNAME_COMBO_Click ThenParse_Params GetDatabases Database_Control ExecuteSQLCommand ComboBox GetServers Server_Control databases CLOSE_BUTTON_Click SEND_QUERY_BUTTON_Click Assemble the procedure name Get the parameter names Get the parameter values Initialize the stored proc. Fill the parameters sp_who( sp_help"( sp_addlogin"( Clear the result array, and result controls first Fill the result array with the data Fill the results field ClearFields NEW_QUERY_BUTTON_Click Form_Load Call routine to clear the fieldsy Fill in the procedure names comboboxb sp_help" sp_addlogin" sp_who Parse_Params This routine takes the comma delimeted Parameter names/values PROCNAME_COMBO_Click sp_who( sp_help"( @objname sp_addlogin"( GetServers This routine gets the name of all the remote serversr Fill each element in the combobox or list box which is passed into this procedure execute the command. Get each server name and fill the combobox. Select srvname from master..sysservers where srvid != 0" If this is a combobox we are filling, then display the first database in the list to start with