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 / CONFEREN.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-03-18 | 27.9 KB | 537 lines

ConferenceRoomForm Conference Room Scheduler Form15 SchedVBX1 SchedVBX SchedVBX1 INTLSHORTDATE INTLTIME' %D %lds %H %lhs %M %lns) 5Arial Arial ?Arial Arial INTLSHORTDATE INTLTIMEORed Bar Green Bar Yellow Bar Black Bar White Bar Purple Bar Bright Red Bar Bright Blue Bar ZArial Arial Arial Arial Arial Arial Arial Arial oArial zConference\nRoom Meet-\nings INTLSHORTDATE INTLTIME INTLSHORTDATE INTLTIME %D Days %H Hours %M Mins Meeting\nBegins Meeting\nEnds Meeting\nDuration Group\n# Arial Conference Rooms %k (%d %t) Page %p Meetings% CONFEREN.MDB Meetings Meetings Bars% CONFEREN.MDB Rooms% CONFEREN.MDB Rooms Rooms ConferenceRoomView wwwwwwwwwx pwwwp wwwwwwwwwx DailyView wwwwwwwwwx wwwwwwwwwx WeeklyView wwwwwwwwwx wwwwwwwwwx MonthlyView wwwwwwwwwx wwwwwwwwwx Drag30Min wwwwpwwwwx wwywp wwyww wwwwwwwwwx wwwwpwwwwx wwwwwwwwwx . Drag30Min Drag15Min wwwwpwwwwx wwywwwywwx wwyww wwwwwwwwwx wwwwpwwwwx wwwwwwwwwx . Drag15Min Trash wwwwwwwwwwp wwwwwwwwwwp MeetingInfo wwwwwwwwwwp wwwwwwwwwwp MeetingNotes wwwwwwwwwwp wwwwwwwwwwp Drag60Min wwwwpwwwwx wwwwwwwwwx wwwwpwwwwx wwwwwwwwwx . Drag60Min Drag45Min wwwwpwwwwx wwyww wwwwwwwwwx wwwwpwwwwx wwwwwwwwwx . Drag45Min mnuRooms Rooms... mnuMeetings Meetings... Command1_Click SchedVBX1) BarsDialog SchedVBX1_DisplayModeChangedb DisplayMode Picture1_Click Picture5_Click Picture5_DragDrop Source Control, Picture5_DragOver state DragIcon SchedVBX1_MouseDown Button- Shift SchedVBX1PointToResource DragMode~ SchedVBXPointToResource Screen0 TwipsPerPixelX TwipsPerPixelY SchedVBX1_DragOver SchedVBXPointToBar= iPointOnBar SchedVBX1_BarMidSingleClick} TimeBlock BarAdjustable ResBarDefault SCHED_BARADJUSTABLE_NONE iBar} Form_Load Form_Activate TBResource+ TBBeg TBEnd ResName SCHED_BARADJUSTABLE_FULL SchedVBX TBBare Meetings Meeting MeetingFormV picDropIcone picDragIconw picBaeDropIcon picBarDropIconS picBarDragIcon Redraw! RedrawNoPaint SchedVBX1_MouseUp SchedVBX1_DragDrop Picture6_Click? Picture6_DragOver Picture3_ClickN MeetingInfo_Clickd MeetingInfo_DragOver% MeetingNotes_Click, MeetingNotes_DragOverg Trash_Click@ Trash_DragOver Picture2_Click sTime iResource LegendSelection iResult SchedVBXPointToTime TBMaxK iNextTB TBNextEmptyF VacationDescForm\ VacDesc Text[ User1 User2 SchedVBXAddTimeBlock Trash_DragDrop iNumberOfRoomsv Rooms Recordset RecordCount ResMax iRecN iRoom iNumberOfBarsZ BarsMax2 BarNameg BarSize2 iSize iOffset lColor iPattern iAdjustable iTextPoso iTextField iTextPosition TextFormat' bTextClips lFontColor FontName iFontSize@ bFontBold bFontItalic iBegSymbol& iBegType lBegColor iBegSize[ iBegOffset iEndSymbolg iEndType+ lEndColor iEndSize iEndOffset PASCAL+ export loadds SchedVBXAddBar iIndex LPCSTR szName< iSizePercent iOffsetPercent szTextFormat iTextClipL szFontName^ iFontSizePercent iFontBold iFontItalicn iBegSizePercent iBegOffsetPercent iEndSizePercent iEndOffsetPercent sFontName sTextFormat| sBarName V_NULLC mnuRooms_Click3 RoomForm Rooms_Validate[ Action Savey ResUser1 RoomListFormq mnuDepartments_Click DepartmentListForm mnuMeetings_Click MeetingsListForm MeetingListForm RoomName RoomLocation ValtypeV ConferenceRoomQ conferenceRoomForm ListIndexE Picture4_Click8 TSMinor SCHED_DAY SCHED_DISPLAYMODE_RESOURCE Width7 VacationForm Height ConferenceRoomView_Click SCHED_HOURS TSMinorFormat Form_Resizen SCHED_HOUR MonthlyView_Click SCHED_DISPLAYMODE_MONTHLYHORZ WeeklyView_ClickO SCHED_DISPLAYMODE_WEEKLYVERT% DailyView_Click SCHED_DISPLAYMODE_DAILYVERT SCHED_YEAR iNumberOfTBs iNumberOfMeetings@ iMeetingj MeetingName TBUser1 Contact TBUser2 Equip TBUser35 iRoomNumber SchedVBX1_TBChanged) RoomNumber FindCriteria NoMatcho ResLineHeight SCHED_BARTEXTFIELD_TBUSER1 ResFontSizePercent MeetingsList TBDelete/ Database TBDurb enceRoomForm BarTextField SCHED_BARTEXTFIELD_NONEx MeetingNotes_DragDropN MeetingEditForm TBNumber MeetingBeg@ MeetingDur Notes MeetingNotesFormV MeetingDescription MeetingInfo_DragDrop MeetingInfoFormz DescriptionL Begins Duration DefaultDateTimeFormat default dates DefDateFormat TSNumMinorTicks TSDateTimeBeg ViewDate TSDateTimeView SchedVBX1_BarDoubleClick years TSMajorFontOrient0 SCHED SCHED_FONTORIENT_DOWN6 BegDate` EndDate TSDateTimeEnd TSMajorFontSizePercentP TSMinorFontSizePercent TSSize TSSizeToTickU TSMajorPercent SCHED_DISPLAYMODE_YEARHORA EndSelect TBUser4J sRoomName sLocation SchedVBXAddResource SchedVBX1AddTimeBlock& User3 User4 sUser4 sUser3 sUser2 sDescription sContact sEquipy sNotes Form_Unload Cancel Unload Command1_Click ConferenceRoomView_Click Change TSMinor of Primary Timescale to hours turn on bar text for resource view Resize Schedule/VBX to form sizeo Change DisplayMode to Resource Mode DailyView_Click Change TSMinor of Primary Timescale y set primary timescale to just show 8am - 5pmB mm/dd/yy 8:00 am turn on bar text for daily view Resize Schedule/VBX to form sizew Change DisplayMode to Daily ViewM Form_Activate turn off bar text for monthly vieww turn off bar text for monthly vieww Form_Load Warning! # of Room Records does not match # of Bar Records! Bar Name Size % Offset % Color Pattern Adjustable Text Position 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 % Room Name Location load meetings table into timeblocks in Schedule/VBX Room Number Meeting Description Contact Equipment Needed Notes Begin Form_Resize Resize the Schedule/VBX control based on new form sizeR MeetingInfo_Click Hold down the shift key and drag a bar on top of this button for more info on a meeting. MeetingInfo_DragDrop set default date format for long dates INTLLONGDATE INTLTIME put back default date formatg MeetingInfo_DragOver leave bardrag.ico enter bardrop.ico MeetingNotes_Click Hold down the shift key and drag a bar on top of this button for notes on a meeting. MeetingNotes_DragDrop Timeblock for meeting was not found! get notes from database find record in meetings table [Meeting Number] = Warning! No Meeting record found in database. update database Notes MeetingNotes_DragOver leave bardrag.ico enter bardrop.ico mnuDepartments_Click mnuMeetings_Click mnuRooms_Click MonthlyView_Click turn off bar text for monthly viewR Resize Schedule/VBX to form sizeo Change DisplayMode to Resource Mode Picture4_Click Picture5_DragDrop MeetingEditForm.Show (1)) A$ = Str(iTB) MsgBox "Dropped: " + A$ Picture5_DragOver leave c:\schedvbx.dev\bardrag.ico enter c:\schedvbx.dev\bardrop.ico Picture6_DragOver leave c:\schedvbx.dev\bardrag.ico enter c:\schedvbx.dev\bardrop.ico SchedVBX1_BarDoubleClick get notes from database find record in meetings table [Meeting Number] = Warning! No Meeting record found in database. Notes SchedVBX1_DragDrop convert drag/drop coordinates from twips to pixelsC get resource # of coord from Schedule/VBX DLL CallC if coord not on resource, then check to see if a legend item is selected by user get date/time of coord from Schedule/VBX into sTime add a new timeblock in the Schedule/VBX control get timeblock # of newly added timeblockc Select which control is being dragged onto us set Dur$ string to duration based on source Drag15Min 15 Min Drag30Min 30 Mins Drag45Min 45 Mins Drag60Min 1 Hour Add new timeblock to Schedule/VBX using DLL Calld draw new timeblocko update meetings table in database Meeting Number Room Number Begin Meeting Description Contact Equipment Needed SchedVBX1_MouseDown bardrag.ico SchedVBX1_TBChanged update meetings table in database find record in meetings table [Meeting Number] = Warning! No Meeting record found in database. setup meetings table for a record updatea Meeting Number Room Number Begin Meeting Description Contact Equipment Needed Trash_Click Hold down the shift key and drag a bar on top of this button to delete a meeting. Trash_DragDrop delete time block Timeblock for meeting was not found! delete timeblock from Schedule/VBX control rewrite meetings table in database DELETE FROM Meetings write out new meeting recorde Meeting Number Room Number Begin Meeting Description Contact Equipment Needed Notes Trash_DragOver leave bardrag.ico enter bardrop.ico WeeklyView_Click set secondary timescale to just show 8am - 5pm mm/dd/yy 8:00 am mm/dd/yy 5:00 pm turn off bar text for weekly view Resize Schedule/VBX to form sizeo Change DisplayMode to Weekly View