Visual Basic 4 Power Pack

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

/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / schedvbx / samples.z / ROOMLIST.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-02-09 | 8.3 KB | 222 lines

RoomListForm Conference Room List Form15) DeleteRoom &Delete Room ChangeRoom &Change Room AddRoom &Add Room RoomList Command1 E&xit Label1 Label1 Command1_Click Form_Load Form_Activate ConferenceForm SchedVBX1c ResMax RoomList ConferecneForm ResName conferenceRoomForm ConferecneRoomForm Command2_Click2 BarsDialog iRoom9 ListIndex/ Recordsetj BarNamer m_iBarsDefault BarSize| FindCriteria' NoMatch BarOffset BarColor BarPattern- BarAdjustableO BarTextPositionR BarTextField< BarTextFormatM BarTextClip BarFontColor BarFontName BarFontSizePercent BarFontBold BarFontItalic BarBegSymbol BarBegType BarBegColor BarBegSize BarBegOffset? BarEndSymbol BarEndType BarEndColorp BarEndSizeC BarEndOffset RoomList_Click RoomList_DblClick RoomEditFormd RoomNumber` RoomDescriptionx RoomLocation ResUser1 AddRoom_Click3 BarsMax NewRoom Value ChangeRoom_Click Schedule DeleteRoom_Click. ResDelete BarDelete^ Roomsj sBarName iSize iOffset lColor iPattern iAdjustable iTextPos iTextFielde sTextFormat iTextClipL lFontColor~ sFontName iFontSize iFontBold iFontItalic' iBegSymbol iBegType lBegColor iBegSize iBegOffset iEndSymbol@ iEndType lEndColor iEndSize iEndOffset V_NULL iResult SchedVBXAddBar ResBarDefault Database= Texts conferenceRoomDescription Description User1 ChangeEmp_Click Meetings TBMax Meeting TBBeg\ TBEnd TBUser1 TBUser2H TBUser3 MeetingNotesForm Notes TBResource TBUser4 RoomListForm AddRoom_Click get next room number from Schedule/VBX increment # of resources & # of bars in Schedule/VBX set invisible controls with place holder info set control variables ChangeRoom_Click get room number from list No Conference Room is selected. set invisible controls with place holder info set control variables Command1_Click Command2_Click make sure a room is selected No Conference Room is selected. lookup bar in database [Bar Number] = Warning! No Bar record found in database. invoke bars dialog for room in Schedule/VBX control setup record update in bars databasea Bar Name Size % Offset % Color Pattern Adjustable Text Position Text Field Text Format Text Clip Font Color Font Name Font Size % Font Bold Font Italic Beg Symbol Beg Type Beg Color Beg Size % Beg Offset % End Symbol End Type End Color End Size % End Offset % DeleteRoom_Click get room number from list No Conference Room is selected. delete resource & bar from Schedule/VBX control note that ResDelete will also delete timeblocks for that resource rewrite rooms, bars and meetings tables in database DELETE FROM Bars DELETE FROM Rooms DELETE FROM Meetings write out new room record Room Number Room Name Location write out new bar recordd Bar Number Bar Name Size % Offset % Color Pattern Adjustable Text Position Text Field Text Format Text Clip Font Color Font Name Font Size % Font Bold Font Italic Beg Symbol Beg Type Beg Color Beg Size % Beg Offset % End Symbol End Type End Color End Size % End Offset % write out meetings to databaset write out new meeting record Meeting Number Room Number Begin Meeting Description Contact Equipment Needed Notes reload room list Form_Activate RoomList_DblClick User double clicked on a room call Change Room button routine