CN1330335A - Bidirectionally interacive multimedia service system for electrically renting or selling house and building space - Google Patents
Bidirectionally interacive multimedia service system for electrically renting or selling house and building space Download PDFInfo
- Publication number
- CN1330335A CN1330335A CN 01128001 CN01128001A CN1330335A CN 1330335 A CN1330335 A CN 1330335A CN 01128001 CN01128001 CN 01128001 CN 01128001 A CN01128001 A CN 01128001A CN 1330335 A CN1330335 A CN 1330335A
- Authority
- CN
- China
- Prior art keywords
- sql
- house
- content
- gars1
- dinowcol
- Prior art date
- Legal status (The legal status is an assumption and is not a legal conclusion. Google has not performed a legal analysis and makes no representation as to the accuracy of the status listed.)
- Withdrawn
Links
Images
Landscapes
- Processing Or Creating Images (AREA)
Abstract
A bidirectional interactive multimedia system for electronically renting or selling house or rooms in building is disclosed. Before the building begins to construct, its real profile, internal structure and ambient environment can be displayed on screen by program for allowing the custom to browse them on the screen.
Description
The present invention on the whole, relate to the transaction of computerized house lease-sell and space, more particularly, the present invention relates to a kind of program by computer and establishment, produce the method that the virtual building with three-dimensional animation effect is provided to the client of house lease-sell and space.
Along with the rapid raising of China's living standards of the people and the development of business activities, the climax of purchase, rent a house room and space is the seat Volume whole nation. Yet, no matter be house-purchase, still rent the client of space, to building profile, internal structure, style, the general layout of purchasing house or renting space, and the situations such as residing geographical position, surrounding enviroment, subdistrict greening all very are concerned about, even very fastidious. Each house developer is for adapting to different clients' needs, and is busy at putting up installations, designs different-style, different class, dissimilar commercial building thing, or building group. The house developer is in order to seize commercial opportunity, and oneself is built or also in construction, or even the commercial building thing rent and sale that is in the planning is gone out, with revitalizing the capital funds, expanding production obtains more golden eggs and launches keen competition, the expansion war of propaganda of making great efforts. Real estate developer and purchase, rent building client both sides, one side wishes the each side information of the commercial building thing of oneself exploitation is introduced away meticulously, rent, sell to promote the house, the opposing party then wishes to grasp the information relevant with building as much as possible, in order in many ways compare, the room of preferentially renting, purchase house reaches just in accordance with the wish. In addition, the real estate developer is in order to obtain optimal design, and minimum building cost and the shortest construction period adopt the bid form to carry out preferably to architectural design and construction department. At present construction department is when submitting a tender, and mainly is by oral, written information introduction or devises and draw the blueprint and show. Tenderer is fully displayed one's ability for this and strength is very undesirable, therefore loses sometimes business opportunity. Therefore real estate developer, architectural design, construction department all need a kind of strong publicity and way of presentation. Yet present publicity measures mainly are to be introduced to the client by model or sand table by the business personnel in sales office, provide photo information or do advertising by traditional media such as newspaper, radio station, TV stations to the client. There are a lot of obviously disadvantages in these propagate methods owing to being subject to the factor affecting such as peopleware and media advertisement length, time, as:
1, can not shift to an earlier date overall picture after exhibition building space and surrounding enviroment are built up to the client before space builds up, directly the working effect of (rent) space is sold in impact in advance;
2, the client can not freely carry out comprehensively careful comparison and select in numerous space units, can not make the client that developer's product is produced intuitively deep impression;
3, the actual effect after the interior and exterior finishes of the selected space of the very difficult expectation of client;
4, the developer is difficult to obtain ahead of time the market information feedback, can not in time adjust development plan with meeting the market requirement according to client's suggestion feedback, and the client also can only select on the existing product of developer basis;
5, traditional means can not reflect strictly according to the facts that space builds up the scene of rear true overall picture, often causes that the client is to developer's misunderstanding.
Usually give when purchasing (rent) space, can only take a corresponding sheet of planar schematic diagram, make the client very worried. To going on the spot to reconnoitre and not being the truth that each client can both accurately hold space, such as house type, structure, style, the best style that may decorate etc., all be the client be concerned about but can not fine assurance several aspects. (rent) space of these solution of problems of people purchase to(for) those money earned by hard toil or loans with for many years accumulation just seem very important. The product of oneself developing can not be presented in comprehensively the client for the developer makes its development and Design theory of understanding oneself at the moment, can't promote the rent and sale business to make us muddled regret with regard to more seeming.
Usually, for potential client, if want to know that the somewhere just in the details of house lease-sell, so just needs consulting sales merchant, analyze magazine advertising, various printed publications, newspaper, television advertising and the information talked about mutually etc. Sometimes must not be less than the construction unit on-the-spot investigation of each expectation in order to obtain real architecture information, this investigation has not only taken a large amount of client's time, and can not make the client before the building completion, just realize the purpose of investigating, more can prolong the time that the sales merchant finishes whole building rent and sale task.
Purpose of the present invention, it is the program that a kind of establishment is provided for the problems referred to above, browse by two-way interaction multimedia stereoscopic three-dimensional building video cartoon and virtual reality that computer system realizes, make three-dimensional or the three-dimensional space computer scene of the true effect that the real estate developer can be after the displaying merchandise building builds up on the computer screen before the commercial building thing builds up, the client puts on polarised light glasses or liquid crystal glasses and can immersively roam in the computer scene of building and browse, observing the complete building information such as house type style, architectural feature, area configuration, best decoration, external environment condition greening and surrounding enviroment, being beneficial to the real estate developer seizes commercial opportunity, strengthen rent, sell the sales promotion dynamics of space, and make the client who purchases, rents building space can purchase, rent interactive electronic multimedia house lease-sell and the space service system of well-content room or space.
Another purpose of the present invention, that above-mentioned computer software and coupled computer system are cooperated with one or more projecting apparatus, giant-screen, realization two-way interaction multimedia three-dimensional building video cartoon and virtual reality are browsed, make the 3 D stereo computer image of the true effect that the real estate developer can be after the displaying merchandise building builds up on the giant-screen before the commercial building thing builds up, the client puts on polaroid glasses or liquid crystal glasses, infrared remote control glasses, can immersively roam in the computer image of building and browse. Can also cooperate with spatical television set the virtual reality that realizes house lease-sell or space to browse.
Another object of the present invention is the three-dimensional building thing that makes Building Design department energy virtual construction, and browses by the two-way interaction solid, publicizes advantage and the designed capacity of the building achievement of oneself.
Above-mentioned purpose of the present invention realizes by following technical proposals, that is:
Interactive electronic multimedia house lease-sell and space service system, realized that multimedia technology is converted to virtual building or building group the effect of real sense organ, pass through simultaneously high intelligent computer and polarised light glasses, liquid crystal glasses, anyone can be browsed by immersively roaming in the computer scene of building on computer display or the giant-screen, profile, internal structure, geographical position, the surrounding enviroment of ornamental building; And can in virtual building, provide 3 D stereo to decorate, but the design tactics of exhibition building design department and strength. The present invention is advanced, and is unique multimedia presentation service system that is used for the rent and sale space.
Hardware components of the present invention comprises computer, display, keyboard, Genius mouse, printer, polarised light or liquid crystal glasses; Can also comprise projecting apparatus, giant-screen; Can also comprise built-in and external stereo-picture driver and spatical television set.
The keyboard special key is defined as follows:
Enter the house type information interface
Enter intelligent management and introduce the interface
LT+B returns the upper level interface
Ctrl+P prints shortcut
Ctrl+C withdraws from current interface, returns main interface
Ctrl+S suspends the current animation of broadcast
Log off
The software section of native system comprises that the electronic databank of foundation, this database comprise an inter-act three-dimensional tridimensional virtual reality multimedia presentation system program and its implementation.
A: inter-act three-dimensional tridimensional virtual reality multimedia presentation system comprises:
One, devises and draw the blueprint according to building or building colony, before not having construction, or in work progress, just can be vividly, realistically on computer screen or giant-screen show the 3-D solid structure image of true appearance and the internal structure of future architecture thing or building colony, the visitor puts on polarised light glasses or liquid crystal glasses can usually be browsed with the computer scene just like on the spot in person, increases its sense of reality and plays up power.
Two, the 3 dimensional drawing image information of the external environment condition of building or building group can be provided, browse for the client.
Three, provide the best three-dimensional image of decorating of interior of building for browsing.
Four, provide surrounding enviroment information.
Five, the 3 D stereo demonstration of design, construction behave and the skill of building, construction department is provided.
The implementation method of B, inter-act three-dimensional tridimensional virtual reality multimedia presentation system comprises that Freehandhand-drawing figure makes animation, utilizes openGL.directX to carry out d engine, establishment three-dimensional interactive browing system program. Put on polarised light glasses or liquid crystal glasses and be engaged in external environment condition, interior of building decoration information and the surrounding enviroment information that giant-screen is browsed the outside and internal structure of building, building at computer screen or with projecting apparatus.
The electronic data stock is provided with the inquiry system of establishment, and inquiry system comprises the information inquiry module, in order to electronic data is conducted interviews, realization virtual reality 3 D stereo is browsed.
Major advantage of the present invention and effect are:
(1) promotes the built and unestablished building of real estate developer's rent and sale;
(2) the auxiliary development merchant finishes building rent and sale work early, regains input, revitalizing the capital funds, develops new real estate project;
(3) before engineering is built up completion, the auxiliary development merchant provides the virtual reality information of the planning construction projects such as relevant traffic after the all-work completion, communication to client's (comprising the departments such as government, bank), allow more market target colony that impression is deeply understood, set up in developer's development and Design plan;
(4) the auxiliary development merchant building build up the forward direction client image careful introduce various facilities and service behind the Practical Completion;
(5) the auxiliary development merchant realizes the computer management of building rent and sale information, customer information, makes the corporate business activity more effective and rapid;
(6) the auxiliary development merchant sets up more effectively client and client, exchanges management means between client and the developer, makes the developer that customer demand is had more deep understanding, in order to provide the client better to serve;
(7) the auxiliary development merchant walks in the information service prostatitis in the contemporary society of network application high speed development, develops global Chinese and is desirably in the client market that China invests real estate, realizes electronics sales, network sales. Make company service more perfect, improve corporate reputation, establish corporate image;
(8) make things convenient for the client building also do not build up be delivered for use before, the unit of understand, selection being expected oneself, and to the developer cellular construction information (such as the choice of non-load bearing wall etc.) of oneself expectation is proposed, so that the developer builds the space construction that meets Customer Personality and adjusts;
(9) satisfy the client and build up the requirement that reaches the rear effect of finishing after the front and back browse unit is built up in the unit, satisfy the demand that the client carries out interactive virtual reality Decoration Design, room layout in person;
(10) can satisfy architectural design part and construction department and show the needs of own design or arrangement and method for construction and ability;
(11) the present invention can make and produce following product:
1, primary product:
A, three-dimensional indoor virtual reality fixed route animated show, roaming multimedia system software;
B, three-dimensional community virtual reality fixed route animated show, roaming multimedia system software;
Multimedia system software is browsed, showed to c, three-dimensional interactive virtual community;
Multimedia system software is browsed, showed to d, three-dimensional interactive virtual building;
2, intermediate product:
A, electronics building sales brochure;
B, virtual reality three-dimensional interactive display systems;
C, network building sale system;
3, high-grade products
Integrated each intermediate product function realizes repertoire involved in the present invention.
In a word, can make the pre-rent of client or presell to own well-content space, make the house developer improve the dynamics of its pre-house lease-sell, increase economic efficiency, meet client, developer both sides' interests. The present invention has widely market application foreground in real estate rent and sale transaction. The application of the invention can greatly improve building developer's competitiveness and operating efficiency, and the present invention will namely realize the network edition towards the future development of resource-sharing, finally realize the function of network sales.
Fig. 1 is the systems function diagram of a kind of embodiment of the present invention. Fig. 2 is that computer, display, keyboard, printer, modem, Genius mouse and the polarised light glasses of this embodiment of the present invention uses schematic diagram. Fig. 3 is computer, projecting apparatus, metal screen, the liquid crystal glasses schematic diagram of the use of another kind of embodiment of the present invention. Fig. 4 is that the inter-act electronics of this embodiment is rented, sell house room and space method logic chart. Fig. 5, Fig. 6 are the system call module diagrams. Fig. 7 is the information module functional schematic. Below the invention will be further described.
Inter-act three-dimensional tridimensional virtual animation building presentation management service system comprises hardware and software two parts.
The hardware of native system comprises main frame 1, display 2, keyboard 3, Genius mouse 4, printer 5, directed location, finger Worn type Virtual Space browsing controller 6, modem 7, internet 8, signal transmssion line 9, polarised light glasses 10, liquid crystal glasses 11, projecting apparatus 12, giant-screen 13, spatical television set 14.
The keyboard special key is defined as follows:
System uses help
After legal keeper's login system, enter client information management interface shortcut
After legal keeper's login system, enter and order house list shortcut
ALT+B returns the upper level interface
Ctrl+P prints shortcut
Ctrl+C withdraws from current interface, returns main interface
Ctrl+S suspends the current animation of broadcast
The software section of native system comprises:
1, the electronic databank that sets up;
2, define matched rule, set up query path, the method for data items;
3, utilize database programming language (sql like language) but set up the data query bank interface;
4, utilize the database manipulation interfaces such as database programming language (sql like language) and high-level programming language (VC, VB, DELPHI etc.) are set up customer information and space information updating, revised, management;
5, utilize database programming language (sql like language) and high-level programming language (VC, VB, DELPHI etc.) to set up the client and browse, inquire about space information interface and customer information collection, definite, the predetermined purchase of purchase intention and client's suggestion feedback database manipulation interface;
6, utilize database programming language (sql like language) and high-level programming language (VC, VB, DELPHI etc.) to write respectively client, service provider's end system application supervisor.
This database comprises a two-way interaction or three-dimensional tridimensional virtual reality multimedia presentation system program and its implementation.
A, two-way interaction three-dimension virtual reality multimedia presentation system comprise:
1, the building of setting or building group are not still started building, when surrounding environment or blank out, just can be vividly, show the true appearance of future architecture thing and the information of internal structure at computer screen realistically, can be for observing mode of appearance and inner 3-D solid structure, room type, the style of browsing building, such as rooms such as warm type, syntonic type, the emerging type of family, brilliant, jewel type, emerald type, dreamlike type, having literary or intellectual fame type, delicate and pretty type, ancient odor types, also have meeting room, fitness room, commercial business hall etc.
2, the external environmental information of building or building group, such as road, greening, sight spot, service facility etc.
3, building interior decoration information is such as ornaments 3 D stereo furniture, ornament, flower, grass, trees etc.
4, surrounding enviroment information, comprise that building builds up after, the relative position of its peripheral traffic, school, hospital, entertainment place etc. and building.
The preparation method of B, inter-act stereoscopic three-dimensional virtual reality multimedia presentation system comprises:
1, the developer obtains building and surrounding enviroment information take the design drawing of building as foundation, with the Freehandhand-drawing mode on computers or on the kent Fast Drawing draw out each orientation, angle perspective effect figure in kind after each building and community build up;
2, scanning Freehandhand-drawing design sketch enters computer, compiles Picture card cartoon;
The necessary informations such as scene scale, browse path, light source position when the definite making of the elementary animation three-dimensional interactive that 3, utilizes Freehandhand-drawing figure to make is browsed;
4, take the building design and construction drawing as foundation, in computer, set up the threedimensional model of each monomer in the community (single building, greening, road landscape, sculpture, fountain etc.) according to the full-size(d) of building;
5, set up the three-dimensional geographic model of community of virtual reality with community planning figure and true geography information;
6, each monomer model is placed on correspondence position according to community planning figure light source, road etc. are set, the community that finishes virtual reality builds up rear model of place;
7, the community of virtual reality is built up rear model of place and be output into the information format that the three-dimensional programming tools such as OpenGL, DirectX can pick up, establishment can according to the program of shadow condition, the real-time generating three-dimensional virtual reality of perspective relation community, be browsed module for the real-time interactive of system and call;
8, set up indoor threedimensional model according to the Building Design construction drawing, design each house type finishing and in indoor model, place mock-up funiture according to design;
9, effect model after the interior decoration is output into the information format that the three-dimensional programming tools such as OpenGL, DirectX can pick up, establishment can generate in real time according to shadow condition, perspective relation the program of effect after the interior decoration, browses module for the real-time interactive of system and calls;
10, animation path is fixedly browsed in design, according to design path play up community build up rear model of place and interior decoration after effect modelling fixed route browse animation;
11, according to developer's requirement the synthetic processing of multimedia is carried out in animation, background music and commentary etc., set up interactive user interface, for the user of system provides multimedia messages;
12, by browsing the call instruction hurdle of cartoon setting for all fixed lines in the system, the system user of allowing can directly call, browse animation, effect after the virtual reality effect after watching community to build up and each the house type interior decoration;
13, call effect program after virtual reality community or the interior decoration by the three-dimensional interactive navigation commands hurdle in the system, utilize computer to generate in real time and build up rear community and indoor three-dimension virtual reality scene, model, export at display device. Thereby so that route, visual angle that the user of system can like according to oneself, real-time interactive in virtual reality space, browse building and community's effect after building up.
14, satisfy various character introductions or the voice introduction that the developer requires according to engineering characteristic editing, the corresponding target programmed of recommended information is processed, when the user browsed arrival or chooses specific objective in the three-dimension virtual reality space, equipment was showed introduction, explainative information displaying the play.
There is various ways in access electronic databank:
1, by computer, keyboard, Genius mouse, browses in the information of the various rents of computer display demonstration database, sell house room and space with to the virtual reality 3 D stereo that Indoor environment, the external space are carried out.
2, unify by department of computer science that the Virtual Space of polarised light glasses or liquid crystal glasses, finger wearing type is directed, the location browsing controller is realized the access of various information in the database and the virtual reality 3 D stereo is carried out in the space, indoor and outdoor browse.
3, can browse by the virtual reality 3 D stereo of computer and at least one projecting apparatus and the realization larger images such as giant-screen (such as the metal giant-screen), liquid crystal glasses.
4, also can realize carrying out that to the access of database with to the space, indoor and outdoor the virtual reality 3 D stereo is browsed by computer, spatical television set (comprising the helmet-type spatical television set) etc.
Electronic databank also comprises information query system, and information query system comprises virtual reality 3 D video animation multimedia demo system calling module and information inquiry module.
Virtual reality 3 D video animation multimedia demo system comprises system control platform, clicks call buttons, calls virtual reality 3 D video animation multimedia demo system, checks that rear end withdraws from reverse side system control platform.
The part main code of program:
Private Sub Commandl_Click() Call manip_files End Sub Sub manip_files() Dim fso As New FileSystemObject，fil2 Dim Path As String SQL＝“select*from tcompany” GArs1.Open SQL，GAcnl If Not GArs1.EOF Then GScorpName＝GArs1.Fields(0) ‘ GScorpUserName＝GArs1.Fields(1) ‘ Path＝Trim(GArs1.Fields(3)) ‘ If ExistFile(Path)Then Set fil2＝fso.GetFile(“d：\Multinedia.exe”) Shell(fil2) Else MsgBox“！。” End If Else MsgBox”HomeDesign“，！” End If GArs1.Close End Sub
The information inquiry module comprises: submodule, intelligent management submodule, sales guide submodule, customer data submodule, the visitor submodule of leaving a message is introduced in house type information submodule, surrounding enviroment submodule, residential quarter.
1, house type information submodule
Can carry out detailed inquiry to the information in house, comprise house type, building number, unit, floor, whether hire out sale, house brief introduction, various view pictorial information, house the animation visit, to the house order, print the houseclearing data, meet selected house type the houseclearing list, call HOME DESING, the function such as check out.
Main code of program:
Option Explicit
Dim DShouseTypeNo As String ′
Dim DShouseFloor As String ′
Dim DShouseNo As String ′
Dim DShouseUnit As String ′
′add house floor info
Private Sub cb_house_floor_dropdownO
Dim DSoldTmp As String ′
Dim DSnowTmp As String ′
Dim sql_1 As String
cb_house floor.Clear
DShouseTypeNo＝GFgetCode(cb_house_type) ＇get house type info
DShouseNo＝GFgetCode(cb_house_no) ′get house no
DShouseUnit＝GFgetCode(cb_house_unit) ′get house unit
′add house type no at sql
sql_1＝"+DShouseTypeNo+"
′add house NO.no at sql
If DShouseNo◇""Then
sql_1＝sql_1+"AND LEFT(fNo，2)＝+DShouseNo+"
End If
′add house type unit at sql
If DShouseUnit◇""Then
sql_1＝sql_1+"AND MID(fNo，3，2)＝+DShouseUnit+"
End If
′add house floor
SQL＝"SELECT MID(fno，5，2)FROM tHomeInfo WHERE fHouseNo＝"+sql_1
SQL＝SQL+"ORDER BY mid(fno，5，2)"
GArs1.Open SQL，GAcnl
<!-- SIPO <DP n="11"> -->
<dp n="d11"/>
DSoldTmp＝-1 ′＝-1
Do While Not GArs1.EOF
DSnowTmp＝ Trim(GArs1.Fields(0)) ′
If DSnowTmp◇DSoldTmp Then
SQL＝"SELECT fName FROM tBuildInfo WHERE Len(fNo)＝6 AND
mid(fNo，5，2)＝+DSnowTmp+"
GArs2.Open SQL，GAcnl
cb_house_floor.AddItem DSnowTmp+""+GArs2.Fields(0) ′add record
to cb_house_floor
DSoldTmp＝DSnowTmp ′
GArs2.Close ′close gars2
End If
GArs1.MoveNext ′move next record
Loop
GArs1.Close
End Sub
Private Sub cb_house_no_Click()
Dim HouseNo As String
Dim Path As String
HouseNo＝GFgetCode(cb_house_no)
HouseNo＝Trim(HouseNo)
SQL＝"select*from tbuildinfo where fno＝
SQL＝SQL+HouseNo+"
GArs1.Open SQL，GAcnl
If Not GArs1.EOF Then
If Trim(GArs1.Fields(2))◇""Or Not IsNull(Trim(GArs1.Fields(2)))Then
Path＝GSimageDir+"\pic\"+Trim(GArs1.Fields(2)) ′
If ExistFile(Path)Then
<!-- SIPO <DP n="12"> -->
<dp n="d12"/>
img_house_pic.Picture＝LoadPicture(Path) ′
Else
MsgBox"！。"
End If ′
Else
Path＝GSimageDir+"\pic\"+"normal.jpg" ′
If ExistFile(Path)Then
img_house_pic.Picture＝LoadPicture(Path) ′
Else
MsgBox"！。"
End If
End If
End If
GArs1.Close
End Sub
Private Sub cb_house_no_DropDown()
Dim DSoldTmp As String ′
Dim DSnowTmp As String ′
Dim sql_1 As String
cb_house_no.Clear
DShouseTypeNo＝GFgetCode(cb_house_type) ′get house type info
DShouseFloor＝GFgetCode(cb_house_floor) ′get house floor
DShouseUnit＝GFgetCode(cb_house_unit) ′get house unit
′add house type no at sql
sql_1＝"+DShouseTypeNo+"
′add house NO.no at sql
If DShouseFloor◇"" Then
sql_1＝sql_1+"AND mid(fNo，5，2)＝+DShouscFloor+"
End If
′add house type unit at sql
If DShouseUnit◇""Then
sql_1＝sql_1+"AND MID(fNo，3，2)＝+DShouseUnit+"
End If
<!-- SIPO <DP n="13"> -->
<dp n="d13"/>
′add house floor
SQL＝"SELECT MID(fno，1，2)FROM tHomeInfo WHERE fHouseNo＝"+sql_1
SQL＝SQL+"ORDER BY mid(fno，1，2)"
GArs1.Open SQL，GAcnl
DSoldTmp＝-1 ′＝-1
Do While Not GArs1.EOF
DSnowTmp＝Trim(GArs1.Fields(0)) ′
If DSnowTmp◇DSoldTmp Then
SQL＝"SELECT fName FROM tBuildInfo WHERE Len(fNo)＝2 AND
mid(fNo，1，2)＝+DSnowTmp+"
GArs2.Open SQL，GAcnl
cb_house_no.AddItem DSnowTmp+""+GArs2.Fields(0) ′add record to
cb_house floor
DSoldTmp＝DSnowTmp ′
GArs2.Close ′close gars2
End If
GArs1.MoveNext ′move next record
Loop
GArs1.Close
End Sub
Private Sub cb_house_type_Click()
Dim DShouseType As String
′clear floor，no，unit
cb_house floor.Clear
cb_house_no.Clear
cb_house_unit.Clear
txt_house_intro.Text＝""
DShouseType＝GFgetCode(cb_house_type) ′
SQL＝"select*from thouseinfo where fno＝
<!-- SIPO <DP n="14"> -->
<dp n="d14"/>
SQL＝SQL+DShouseType+"
GArs1.Open SQL，GAcnl
If Not GArs1.EOF Then
If Not IsNull(GArs1.Fields(3))Or GArs1.Fields(3)◇""Then
txt_house_intro.Text＝GArs1.Fields(3) ′
End If
End If
GArs1.Close
End Sub
′
Private Sub cb_house_type_DropDown()
Dim tmp1 As String
Dim tmp2 As String
Dim tmp As String
Dimi As Integer
i＝0
cb_house_type.Clear ＇
SQL＝"select*from thouseinfo" ′，
SQL＝SQL+"ORDER BY fno"
GArs1.Open SQL，GAcnl
While Not GArs1.EOF
tmp1＝Trim(GArs1.Fields(0)) ′
tmp2＝Trim(GArs1.Fields(1)) ′
tmp2＝Space(1)+tmp2 ′
tmp＝tmp1+tmp2 ′
cb_house_type.AddItem tmp，i ′
i＝i+1
<!-- SIPO <DP n="15"> -->
<dp n="d15"/>
GArs1.MoveNext ＇
Wend
GArs1.Close ′
End Sub
Private Sub cb_house_unit_DropDown()
Dim DSoldTmp As String ′
Dim DSnowTmp As String ′
Dim sql_1 As String
cb_house_unit.Clear
DShouseTypeNo＝GFgetCode(cb_house_type) ′get house type info
DShouseNo＝GFgetCode(cb_house_no) ′get house no
DShouseFloor＝GFgetCode(cb_house_floor) ′get house floor
′add house type no at sql
sql_1＝"+DShouseTypeNo+"
′add house NO.atsql
If DShouseNo◇""Then
sql_1＝sql_1+"AND LEFT(fNo，2)＝+DShouseNo+"
End If
′add house type floor at sql
If DShouseFloor◇""Then
sql_1＝sql_1+"AND MID(fNo，5，2)＝+DShouseFloor+"
End If
′add house floor
SQL＝＂SELECT MID(fno，3，2)FROM tHomeInfo WHERE fHouseNo＝"+sql_1
SQL＝SQL+"ORDER BY mid(fno，3，2)"
GArs1.Open SQL，GAcnl
DSoldTmp＝-1 ′＝-1
Do While Not GArs1.EOF
<!-- SIPO <DP n="16"> -->
<dp n="d16"/>
DSnowTmp＝Trim(GArs1.Fields(0)) ′
If DSnowTmp◇DSoldTmp Then
SQL＝"SELECT fName FROM tBuildInfo WHERE Len(fNo)＝4 AND
mid(fNo，3，2)＝+DSnowTmp+"
GArs2.Open SQL，GAcnl
If Not GArs2.EOF Then
cb_house_unit.AddItem DSnowTmp+""+GArs2.Fields(0) ′add
record to cb_house_floor
Else
End If
DSoldTmp＝DSnowTmp ′
GArs2.Close ′close gars2
End If
GArs1.MoveNext ′move next record
Loop
GArs1.Close
End Sub
Private Sub cmd_content_Click()
GShouseType＝cb_house_type ′
(no+space+name)，
DShouseTypeNo＝GFgetCode(cb_house_type) ′
DShouseFloor＝GFgetCode(cb_house floor) ′
DShouseNo＝GFgetCode(cb_house_no) ′
DShouseUnit＝GFgetCode(cb_house_unit) ′
′
′
If DShouseTypeNo＝""Then
MsgBox"！"
Exit Sub
<!-- SIPO <DP n="17"> -->
<dp n="d17"/>
End If
′
GShouseInfo＝"WHERE fHouseNo＝+DShouseTypeNo+"
′
If DShouseNo◇""Then
GShouseInfo＝GShouseInfo+"AND LEFT(fNo，2)＝+DShouseNo+"
End If
′
If DShouseUnit◇""Then
GShouseInfo＝GShouseInfo+"AND MID(fNo，3，2)＝+DShouseUnit+"
End If
′
If DShouseFloor◇""Then
GShouseInfo＝GShouseInfo+"AND MID(fNo，5，2)＝+DShouseFloor+"
End If
w_house_content.Show
Unload w_house_info
End Sub
Private Sub cmd_exit_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Left＝0
Me.Top＝0
Me.Height＝6405
Me.Width＝7230
Dim SysPath As String
cb_house_type.Clear ′
cb_house_no.Clear
cb_house_unit.Clear
cb_house_floor.Clear
txt_house_infro.Text＝""
Syspath＝GSimageDir+"\pic\"+"normal.jpg"
<!-- SIPO <DP n="18"> -->
<dp n="d18"/>
If ExistFile(SysPath)Then
img_house_pic.Picture＝LoadPicture(SysPath) ′
Else
MsgBox"！。"
End If
End Sub
Option Explicit
Dim DInowRow AsInteger ′flexGrid
Dim DInowCol As Integer ′flexGrid
Dim No As String ′
Dim t1 As String ′
Dim t2 As String ′
Dim t3 As String ′
Dim t4 As String ′
Private Sub cmd_avi_Click()
Dim Flag
Dim TestFile As String
TestFile＝GSimageDir&"\Avi\home.avi"
If ExistFile(TestFile)Then
Flag＝mciExecute("play"& TestFile)
Else
MsgBox"！。"
End If
End Sub
Private Sub cmd_buy_Click()
Dim DIcol As String ′
Dim HouseNo As String ′
Dim custerNo As String ′
custerNo＝Trim(GScustomerCode) ′
DIcol＝1
FG_content.Col＝DIcol
HouseNo＝Trim(FG_content.Text)
<!-- SIPO <DP n="19"> -->
<dp n="d19"/>
SQL＝"update tHomeInfo set fBuyInfo＝
SQL＝SQL+custerNo+where left(fno，8)＝
SQL＝SQL+HouseNo+"
GArs1.Open SQL，GAcnl
FG_content.Clear
DPaddHouseInfoTitle
′add house info
DPaddHouseInfo
FG_content.Refresh
End Sub
Private Sub cmd_exit_Click()
Unload Me
End Sub
Private Sub cmd_homeDesign_Click()
Dim Path As String
SQL＝"select*from tcompany"
GArs1.Open SQL，GAcnl
If Not GArs1.EOF Then
GScorpName＝GArs1.Fields(0) ′
GScorpUserName＝GArs1.Fields(1) ′
Path＝Trim(GArs1.Fields(3)) ′Homedesign
If ExistFile(Path)Then
Shell(Path)
Else
MsgBox"！。"
End If
Else
MsgBox"HomeDesign，！"
End If
GArs1.Close
End Sub
Private Sub cmd_move_Click()
Dim HomeNo As String ′
Dim custerNo As String ′
Dim DIcol As Integer ′
<!-- SIPO <DP n="20"> -->
<dp n="d20"/>
DIcol＝1
FG_content.Col＝DIcol
HomeNo＝Trim(FG_content.Text) ′
custerNo＝Trim(GScustomerCode) ′
SQL＝"update tHomeInfo set fBuyInfo＝"where left(fBuyInfo，8)＝
SQL＝SQL+custerNo+"
SQL＝SQL+"and"
SQL＝SQL+"fno＝
SQL＝SQL+HomeNo+"
GArs1.Open SQL，GAcnl
FG_ontent.Clear
DPaddHouseInfo Title
′add house info
DPaddHouseInfo
FG_content.Refresh
End Sub
Private Sub cmd_print_Click()
Dim DIprinterHeight As Integer ′printer height
Dim DIpriinterWidth As Integer ′printer width
Dim DIpicHeight As Integer ′pic height
Dim DIpicWidth As Integer ′pic width
Dim DIpicX As Integer
Dim DIpicY As Integer
Dim DBprintFlag As Boolear ′
Dim PageSize As Integer ′
Dim PicSize As Index
Dim DIfontHeight As Integer ′
DIfontHeight＝202
Const CIpageTitleFree＝1000 ′
Const CIpageEndFree＝1000 ′
<!-- SIPO <DP n="21"> -->
<dp n="d21"/>
Const ClpageSideFree＝1000 ′
Dim DIheight As Integer ′
DBprintFlag＝True
cmd_print.Enabled＝False ′
If Not Printer.PaperSize＝9 Then
MsgBox"A4"，vbOKOnly，""
Exit Sub
End If
Printer.CurrentY＝CIpageTitleFree ′
DPprintTitle ′print title
PageSize＝Printer.Height ′
DInowRow＝0
Do While DInowRow＜FG_content.Rows-1 ′
DIheight＝Printer.CurrentY ′
If(DIheight+CIpageEndFree+DIfontHeight)＞PageSize Then
DPprintEnd ′print table end
Printer.NewPage ′
DPprint Title ′print table title
Else
DPprintContent ′print table content
End If
DInowRow＝DInowRow+1
Loop
DPprintEnd ′print table end
Printer.CurrentY＝Printer.CurrentY+1000 ′
′------------pring home pic---------------
<!-- SIPO <DP n="22"> -->
<dp n="d22"/>
′get pic info
DIpicHeight＝Img_house_pic.Height
DIpicWidth＝Img_house_pic.Width
DIprinterHeight＝Printer.Height
DIprinterWidth＝Printer.Width
′
If DIpicWidth+CIpageSideFree＜＝DIprinterWidth Then
DIpicX＝DIprinterWidth-DIpicWidth-CIpageSideFFee ′
DIpicX＝DIpicX/2
Else
MsgBox"！"，vbOKOnly，""
DBprintFlag＝False ′
End If
If Img_house_pic.Picture＞0 Then
DBprintFlag＝True ′
Else
DBprintFlag＝False ′
End If
′DBprintFlag，
If DBprintFlag Then
′
If(DIheight+CIpageEndFree+DIpicHeight)＞PageSize Then
Printer.NewPage ′
Printer.CurrentX＝CIpageTitleFree ′
End If
DIpicY＝Printer.CurrentY ′
Printer.CurrentX＝Printer.Width/2-8*202
Printer.CurrentY＝DIpicY-300
<!-- SIPO <DP n="23"> -->
<dp n="d23"/>
Printer.Print"："+No ′
Printer.PaintPicture Img_house_pic.Picture，DIpicX，DIpicY ′
End If
Printer.EndDoe ′
MsgBox"！"
cmd_print.Enabled＝True ′
End Sub
Private Sub FG_content_Click()
Dim Pic As String
Dim DIcol As Integer
Dim tmp As String
′DIcol＝1
′FG_content.Col＝DIcol
′
No＝FG_content.Text ′
No＝Trim(No)
SQL＝"select*from tbuildinfo where fno＝
SQL＝SQL+No+"
GArs1.Open SQL，GAcnl
If Not GArs1.EOF Then
If Not(Trim(GArs1.Fields(2))＝""Or IsNull(GArs1.Fields(2)))Then
Pic＝GSimageDir+"\pic\"+Trim(GArs1.Fields(2)) ′
If ExistFile(Pic)Then
Img_house_pic.Picture＝LoadPicture(Pic) ′
Else
MsgBox"！。"
End If
Else
Pic＝GSimageDir+"\pic\"+"normal.jpg"
If ExistFile(Pic)Then
Img_house_pic.Picture＝LoadPicture(Pic) ′
<!-- SIPO <DP n="24"> -->
<dp n="d24"/>
Else
MsgBox"！。"
End If
End If
End If
GArs1.Close
End Sub
′display house info
Private Sub Form_Load()
Dim DStmp As String
Me.Left＝0
Me.Top＝0
Me.Height＝7335
Me.Width＝9810
′display title
DStmp＝GFgetCode(GShouseType)
DStmp＝Right(GShouseType，Len(GShouseType)-Len(DStmp)-1)
lb_title.Caption＝DStnp+""
′
lb_title.Left＝(w_house_content.Width-lb_title.Width)/2
′add house info title
DPaddHouseInfo Title
′add house info
DPaddHouseInfo
′
If Trim(GScustomerCode)＝""Or GScustomerCode＝"00000000"Then
cmd_buy.Enabled＝False
cmd_move.Enabled＝False
End If
End Sub
′-----------------------------------
′01-sub display house infb title
′-----------------------------------
Private Sub DPaddHouseInfoTitle()
<!-- SIPO <DP n="25"> -->
<dp n="d25"/>
DInowRow＝0
DInowCol＝0
′display house info title
′
FG_ontent.Col＝DInowCol
FG_content.Row＝DInowRow
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_ontent.Col＝DInowCol
FG_ontent.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_ontent.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
<!-- SIPO <DP n="26"> -->
<dp n="d26"/>
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content，Text＝""
End Sub
′---------------------------
′02-sub add house info
′---------------------
Private Sub DPaddHouseInfo()
′display
SQL＝"SELECT*FROM tHomeInfo WHEREfBuyInfo＝+GScustomerCode+"
GArs1.Open SQL，GAcnl
Do While Not GArs1.EOF()
′
DInowRow＝DInowRow+1
′
If DInowRow＞＝FG_content.Rows Then FG_content.Rows＝FG_content.Rows+1
FG_content.Row＝DInowRow ′
′display house buy info
<!-- SIPO <DP n="27"> -->
<dp n="d27"/>
DInowCol＝0
FG_content.Col＝DInowCoI ′
FG_content.Text＝"√"
′
DPdisplayHouseInfo
GArs1.MoveNext ′
Loop
GArs1.Close
′display
SQL＝"SELECT*FROM tHomeInfo"+GShouseInfo+"and(IsNull(fBuyInfo)＝TRUE
OR LEN(TRIM(fBuyInfo))◇8)"
SQL＝SQL+"ORDER BY fno"
GArs1.Open SQL，GAcnl
Do While Not GArs1.EOF()
′
DInowRow＝DInowRow+1
DInowCol＝1
′
If DInowRow＞＝FG_content.Rows Then FG_content.Rows＝FG_content.Rows+1
FG_content.Row＝DInowRow ′
′display house info
DPdisplayHouseInfo
GArs1.MoveNext ′
Loop
GArs1.Close
End Sub
′---------------------------------
′03-sub display houseinfo
′---------------------------------
Private Sub DPdisplayHouseInfo()
<!-- SIPO <DP n="28"> -->
<dp n="d28"/>
Dim DShouseType As String ′
Dim DShouseNo As String ′
Dim DShouseUnit As String ′
Dim DShouseFloor As String ′
Dim DShomeName As String ′
Dim DSarea As String ′()
Dim DSprice As String ′()
Dim DSpriceCount As String ′()
Dim DStmp As String ′
DInowCol＝l
′
FG_content.Col＝DInowCol
FG_content.Text＝Trim(GArs1！fNo)
′
If Not GArs1.EOF Then
DStmp＝Trim(GArs1.Fields(1)) ′get no
SQL＝"select*from thouseinfo where fno＝
SQL＝SQL+DStmp+"
GArs2.Open SQL，GAcnl
If Not GArs2.EOF Then
DStmp＝GArs2.Fields(1) ′get house name
End If
GArs2.Close
Else
DStmp＝"no data"
End If
DInowCol＝DInowCol+1 ′display house no
FG_content.Col＝DInowCol
FG_content.Text＝DStmp
′
DShouseNo＝Left(Trim(GArs1！fNo)，2). ′get house no code
SQL＝"SELECT fName FROM tBuildInfo WHERE fNo＝+DShouseNo+"
GArs2.Open SQL，GAcnl
If Not GArs1.EOF Then
<!-- SIPO <DP n="29"> -->
<dp n="d29"/>
DStmp＝GArs2.Fields(0) ′get house no
Else
DStmp＝"no data"
End If
GArs2.Close
DInowCol＝DInowCol+1 ′display house no
FG_content.Col＝DInowCol
FG_ontent.Text＝DStmp
′unit
DShouseUnit＝Left(Trim(GArs1！fNo)，4) ′get unit no code
SQL＝"SELECT fName FROM tBuildInfo WHERE fNo＝+DShouseUnit+"
GArs2.Open SQL，GAcnl
If Not GArs1.EOF Then
DStmp＝GArs2.Fields(0) ′get unit no
Else
DStmp＝"no data"
End If
GArs2.Close
DInowCol＝DInowCol+1 ′display uint no
FG_content.Col＝DInowCol
FG_content.Text＝DStmp
′floor
DShouseFloor=Left(Trim(GArsl！fNo)，6) ′get floor no code
SQL="SELECT fNaTe FROM tBuildInfo WHERE fNo=+DShouseFloor+"
GArs2.Open SQL，GAcnl
If Not GArsl.EOF Then
DStmp＝GArs2.Fields(0) ′get floor no
Else
DStmp ＝"no data"
End If
GArs2.Close
DInowCol＝DInowCol+1 ′display floor no
FG_content.Col＝DInowCol
FG_content.Text＝DStmp
′home no
DShouseType＝Left(Trim(GArs1！fNo)，8) ′get home no code
SQL＝"SELECT fName FROM tBuildInfo WHERE fNo＝+DShouseType+"
GArs2.Open SQL，GAcnl
<!-- SIPO <DP n="30"> -->
<dp n="d30"/>
If Not GArs1.EOF Then
DStmp＝GArs2.Fields(0) ′get home no
Else
DStmp＝"no data"
End If
GArs2.Close
DInowCol＝DInowCol+1 ′display home no
FG_content.Col＝DInowCol
FG_content.Text＝DStmp
′area
If DSarea◇""Or Not IsNull(Trim(GArs1.Fields(2)))Then
DStmp＝Trim(GArs1.Fields(2)) ′get area no
DSarea＝Trim(CStr(Val(DStmp)))
Else
DStmp＝"no data"
End If
DInowCol＝DInowCol+1 ′display area no
FG_content.Col＝DInowCol
FG_content.Text＝DSarea
′price
DSprice＝Trim(GArs1！fhouseno) ′get house no code
SQL＝"SELECT fprice FROM thouseinfo WHERE fno＝+DSprice+"
GArs2.Open SQL，GAcn1
If Not GArs1.EOF Then
DStmp＝GArs2！fprice
DSprice＝Trim(CStr(Val(DStmp)))
Else
DStmp ＝"no data"
End If
GArs2.Close
DInowCol＝DInowCol+1 ′display price
FG_content.Col＝DInowCol
FG_content.Text＇＝DSprice
′
DInowCol＝DInowCol+1 ′display area no
FG_content.Col＝DInowCol
FG_content.Text＝CStr(Val(DSarea)*Val(DSprice))
<!-- SIPO <DP n="31"> -->
<dp n="d31"/>
End Sub
′----------------_--_---------------------
′04-sub print table title
′---------------------
Private Sub DPprintTitle()
Printer.FontName＝""
If Not Printer.PaperSize＝vbPRPSA4 Then
MsgBox"A4！" ′
End If
Printer.FontSize＝20
Printer.Print" "
Printer.Print" <paragraph id="d123">
<image width="126" height="12" src="A0112800100651.gif"/>
</paragraph> Printer.FontSize＝10
<paragraph id="d124">
<image width="504" height="193" src="A0112800100652.gif"/>
</paragraph> Printer.Print"："+GScustomerNarne+Space(30)+str(Year(Date))+""+
str(Month(Date))+""+str(Day(Date))+""
Printer.Print t1
Printer.Print t2
End Sub
′-------------------------------------------
′05-sub print table content
′-------------------------------------------
Private Sub DPprintContent()
Dim a(5)As String
<!-- SIPO <DP n="32"> -->
<dp n="d32"/>
Dim i As Integer
Dim temp(10)As String
Dimtxt(9)As Sttring
Dim tmptxt As String
Dim ln As Integer
Dim title As String
Const cline＝<paragraph id="d125">
<image width="185" height="17" src="A0112800100661.gif"/>
</paragraph>′
temp(10)＝"|"
Printer.Print t3 ′
DInowCol＝0 ′，
DInowRow＝DInowRow+1 ′
FG_content.Col＝DInowCol ′
FG_content.Row＝DInowRow
txt(0)＝FG_content.Text
ln＝GFlen(txt(0))
txt(0)＝Space(8-ln)+txt(0)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(1)＝FG_content.Text
ln＝GFlen(txt(1))
txt(1)＝Space(8-ln)+txt(1)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(2)＝FG_content.Text
ln＝GFlen(Trim(txt(2)))
txt(2)＝Space(8-ln)+txt(2)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(3)＝FG_content.Text
ln＝GFlen(Trim(txt(3)))
txt(3)＝Space(8-ln)+txt(3)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(4)＝FG_content.Text
<!-- SIPO <DP n="33"> -->
<dp n="d33"/>
ln＝GFlen(Trim(txt(4)))
txt(4)＝Space(8-ln)+txt(4)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(5)＝FG_content.Text
ln＝GFlen(Trim(txt(5)))
txt(5)＝Space(8-ln)+txt(5)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(6)＝FG_content.Text
ln＝GFlen(Trim(txt(6)))
txt(6)＝Space(8-ln)+txt(6)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(7)＝FG_content.Text
ln＝GFlen(Trim(txt(7)))
txt(7)＝Space(8-ln)+txt(7)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(8)＝FG_content.Text
ln＝GFlen(Trim(txt(8)))
txt(8)＝Sp＝ce(8-ln)+txt(8)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(9)＝FG_content.Text
ln＝GFlen(Trim(txt(9)))
txt(9)＝Space(8-ln)+txt(9)
***********************
a(3)＝temp(10)+txt(0)+temp(10)+txt(1)+temp(10)+txt(2)+temp(10)+txt(3)+
temp(10)+txt(4)+temp(10)+txt(5)+temp(10)+txt(6)+temp(10)+txt(7)+temp(10)+txt(8)
+temp(10)+txt(9)+temp(10)
Printer.Print a(3)
End Sub
2, surrounding enviroment submodule
The selection, location, brief introduction, picture, the animation that comprise surrounding enviroment are browsed the functions such as printed information. The user namely can be directly selects the surrounding enviroment forms from menu, choose and oneself want the environment title of checking, system just provides pictorial information, the detailed content of environment rapidly.
Main code of program:
Private Sub cb_env_name_Click()
Dim tmp As String
Dim tmp1 As String
Dim tmp2 As String ′
Dim envpic As String
Dim TestFile As String ′
envpic＝GSimageDir+"\pic\"+"normal.jpg"
tmp＝w_env.cb_env_name.Text
SQL＝"select*from tenv where fname＝" ′
SQL＝SQL+tmp+" ′
GArs1.Open SQL，GAcnl
If Not GArs1.EOF Then
If Trim(GArs1.Fields(3))＝""Or IsNull(Trim(GArs1.Fields(3)))Then
If ExistFile(envpic)Then
w_env.img_env_pic.Picture＝LoadPicture(envpic) ′
Elsc
MsgBox"！。"
End If
Else
tmp1＝GArs1.ields(2) ′
tmp2＝GArs1.Fields(3) ＇
tmp2＝Trim(tmp2)
w_env.txt_env_intro.Text＝tmp1 ′
TestFile＝GSimageDir+"\pic\"+tmp2
If ExistFile(TestFile)Then
w_env.img_env_pic.Picture＝LoadPicture(TestFile)′
Else
MsgBox"！。"
End If
End If
End If
GArs1.Close
End Sub
<!-- SIPO <DP n="35"> -->
<dp n="d35"/>
Private Sub cb_env_name_DropDown()
Dim i As Integer
Dim tmp As String
SQL＝"select*from tenv" ′，
SQL＝SQL+"ORDER BY fno"
GArs1.Open SQL，GAcnl
cb_env_name.Clear ＇
′GArs1.MoveFirst ′
i＝0 ′
While Not GArs1.EOF
tmp＝GArs1.Fields(1) ′
tmp＝Trim(tmp)
cb_env_name.AddItem tmp，i ′cb_env_name
i＝i+1
GArs1.MoveNext
Wend
GArs1.Close
End Sub
Private Sub Commandl_Click()
Dim Flag
Dim TestFile As String
TestFile＝GSimageDir &"\Avi\env.avi"
If ExistFile(TestFile)Then
Flag＝mciExecute("play"& TestFile)
Else
MsgBox"！。"
End If
Unload Me
End Sub
Private Sub Form_Load()
Dim envpic As String
Me.Left＝0
Me.Top＝0
Me.Height＝6405
Me.Width＝7230
envpic＝GSimageDir+"\pic\normal.jpg" ′
If ExistFile(envpic)Then
w_env.img_env_pic.Picture＝LoadPicture(envpic) ′
Else
MsgBox"！。"
End If
w_env.txt_env_intro.Text＝"" ′
w_env.cb_env_name.Clear
End Sub
3, submodule is introduced in the residential quarter
The user selects to want the animation information browsed from drop-down menu, and system just opens the animation of one section three-dimensional range.
4, Intelligent management module
The user can see the introduction of the intelligent management animation of system here, views all administrative staff's archive information.
5, sales guide submodule
Comprise animation browsing information, zone selection and pictorial information.
Main code of program:
Private Sub cb_name_Click() Dim tmp As String Dim tmp1 As Strintg Dim tmp2 As String Dim envpic As String Dim TestFile As String ′ envpic＝GSimageDir+"\pic\"+"normal.jpg" tmp＝w_AI_info.cb_name.Text tmp＝Trim(tmp) ′ SQL＝"select*from tAImanage where fname＝ ′ SQL＝SQL+tmp+" ′ GArs1.Open SQL，GAcnl If Not GArs1.EOF Then If IsNull(Trim(GArs1.Fields(3)))Or Trim(GArs1.Fields(3))＝""Then If ExistFile(ervpic)Then w_AI_info.img_ai_Manage.Picture＝Load Picture(envpic) ′ Else MsgBox"！。" End If Else tmp1＝GArs1.Fields(2) ′ tmp2＝GArs1.Fields(3) ′ tmp2＝Trim(tmp2) TestFile＝GSimageDir+"\pic\"+tmp2 w_AI_info.txt_content.Text＝tmp1 ′ If ExistFile(TestFile)Then w_AI_info.img_ai_Manage.Picture＝LoadPicture(TestFile)′ Else MsgBox"！。 End If End If End If <!-- SIPO <DP n="37"> --> <dp n="d37"/> GArs1，Close End Sub Private Sub cb_name_DropDown() Dim i As Integer Dim tmp As String SQL＝"select* from tAImanage" ′， SQL＝SQL+"ORDER BY fno" GArs1.Open SQL.GAcnl cb_name.Clear ′ i＝0 ′ While Not GArs1.EOF tmp＝GArs1.Fields(1) ′ tmp＝Trim(tmp) cb_name.AddItem tmp，i ′cb_name i＝i+1 GArs1.MoveNext Wend GArs1.Close End Sub Private Sub cmd_exit_Click() Unload Me End Sub Private Sub Form_Load() Dim envpic As String Me.Left＝0 Me.Top＝0 Me.Height＝6405 Me.Width＝7230 envpic＝GSimageDir+"\pic\"+"normal.jpg" ′ If ExistFile(envpic)Then w_AI_info.img_ai_Manage.Picture＝LoadPicture(envpic) ′ Else MsgBox"！。" End If w_AI_info.txt_ontent.Text＝"" ′ w_AI_info.cb_name.Clear End Sub
6, customer data submodule
The user of legal login by after the password authentication, is made amendment to oneself data, and the renewal of the personal information information when namely registering changes.
7, visitor's submodule of leaving a message
Allow the user who uses native system stay valuable suggestion, and deposit database in.
Claims (10)
1, interactive electronic multimedia house lease-sell and space service system, comprise the hardware and software part, it is characterized in that described software section comprises main frame (1), display (2), keyboard (3), Genius mouse (4), printer (5); Described software section comprises the electronic databank of foundation, this database comprises a two-way interaction three-dimensional tridimensional virtual reality multimedia presentation system, two-way interaction three-dimension virtual reality multimedia presentation system, comprise the building that can make setting or building group just can be vividly before still not starting building or in the hot work in progress process, show the true appearance of future architecture thing of virtual reality and the inter-act 3-D solid structure information of internal structure at computer screen or metal giant-screen realistically, and can be for observing, browsing;
The making step of interactive electronic multimedia house lease-sell and space service system comprises:
(1), the developer is take the design drawing of building as foundation, obtain building and surrounding enviroment information, with the Freehandhand-drawing mode on computers or on the kent Fast Drawing draw out each orientation, angle perspective effect figure in kind after each building and community build up:
(2), scanning Freehandhand-drawing design sketch enters computer, compiles Picture card cartoon;
The necessary informations such as scene scale, browse path, light source position when the definite making of the elementary animation three-dimensional interactive that (3), utilizes Freehandhand-drawing figure to make is browsed;
(4), take the building design and construction drawing as foundation, in computer, set up the threedimensional model of each monomer according to the full-size(d) of building;
(5), on the metope of Manufactured 3 dimensional drawing, utilize computer software, according to designing requirement, stick required building material and color by computer, and carry out shadow by computer and process;
(6), utilize synthetic three-dimensional scenic, utilize computer animation software, carry out video cartoon roaming by design route and process, realize animation effect;
(7), by browse the call instruction hurdle of cartoon setting in the system for route, the system user of allowing can directly call, browse animation, watches virtual reality effect and each the house type doors structure after building up and locates section's effect structure.
2, interactive electronic multimedia house lease-sell according to claim 1 and space service system, it is characterized in that described electronic databank also comprises the building of virtual reality or the external environmental information of building group, such as road, greening, sight spot, service facility etc., and can be for observing, browsing.
3, interactive electronic multimedia house lease-sell according to claim 1 and space service system, it is characterized in that described electronic databank also comprises the building interior decoration information of virtual reality, such as ornaments 3 D stereo furniture, ornament, flower, grass, trees etc.
4, interactive electronic multimedia house lease-sell according to claim 1 and space service system, it is characterized in that described electronic databank also comprises surrounding enviroment information, after comprising that building builds up, the relative position of its peripheral traffic, school, hospital, entertainment place etc. and building.
5, according to claim 1,2,3 or 4 described interactive electronic multimedia house lease-sell and space service systems, it is characterized in that the making step of finishing inter-act 3 D stereo multimedia presentation system also comprises:
(1), set up the three-dimensional geographic model of community of virtual reality with community planning figure and true geography information:
(2), each monomer model is placed on correspondence position according to community planning figure light source, road etc. is set, the community that finishes virtual reality builds up rear model of place;
(3), the community of virtual reality is built up rear model of place and be output into the information format that the three-dimensional programming tools such as OpenGL, DirectX can pick up, establishment can according to the program of shadow condition, the real-time generating three-dimensional virtual reality of perspective relation community, be browsed module for the real-time interactive of system and call;
(4), set up indoor threedimensional model according to the Building Design construction drawing, design each house type finishing and in indoor model, place mock-up funiture according to design;
(5), effect model after the interior decoration is output into the information format that the three-dimensional programming tools such as OpenGL, DirectX can pick up, establishment can generate in real time according to shadow condition, perspective relation the program of effect after the interior decoration, browses module for the real-time interactive of system and calls;
(6), design fixedly browses animation path, according to design path play up community build up rear model of place and interior decoration after effect modelling fixed route browse animation;
(7), according to developer's requirement animation, background music and commentary etc. are carried out that multimedia is synthetic to be processed, set up interactive user interface, for the user of system provides multimedia messages;
(8), call effect program after virtual reality community or the interior decoration by the three-dimensional interactive navigation commands hurdle in the system, utilize computer to generate in real time and build up rear community and indoor three-dimension virtual reality scene, model, export at display device, route, visual angle that system user can like according to oneself, real-time interactive in virtual reality space, browse building and community's effect after building up.
6, interactive electronic multimedia house lease-sell according to claim 1 and space service system is characterized in that described software section also comprises:
(1), the definition matched rule, set up query path, the method for data items;
(2), utilize database programming language (sql like language) but set up the data query bank interface;
(3), utilize the database manipulation interfaces such as database programming language (sql like language) and high-level programming language (VC, VB, DELPHI etc.) are set up customer information and space information updating, revised, management;
(4), utilize database programming language (sql like language) and high-level programming language (VC, VB, DELPHI etc.) to set up the client and browse, inquire about space information interface and customer information collection, definite, the predetermined purchase of purchase intention and client's suggestion feedback database manipulation interface;
(5), utilize database programming language (sql like language) and high-level programming language (VC, VB, DELPHI etc.) to write respectively client, service provider's end system application supervisor.
7, interactive electronic multimedia house lease-sell according to claim 1 and space service system is characterized in that the keyboard special key of described keyboard (3) is defined as follows:
Enter two-way interaction three-dimension virtual reality multimedia presentation system
Enter surrounding enviroment and introduce the interface
Enter the house type information interface
After legal keeper's login system, enter client information management interface shortcut
Return login interface
ALT+B returns the upper level interface
Ctrl+P prints shortcut
Ctrl+C withdraws from current interface, returns main interface
Ctrl+S suspends the current animation of broadcast
8, interactive electronic multimedia house lease-sell according to claim 1 and 2 and space service system is characterized in that the mode of accessing database comprises:
By computer, keyboard, Genius mouse, browse in the information of the various rents of computer display demonstration database, sell house room and space with to the virtual reality 3 D stereo that Indoor environment, the external space are carried out, or unify that the Virtual Space of polarised light glasses or liquid crystal glasses, finger wearing type is directed, the location browsing controller is realized the access of various information in the database and the virtual reality 3 D stereo is carried out in the space, indoor and outdoor browse by department of computer science, or browse by the virtual reality 3 D stereo of computer and at least one projecting apparatus and the realization larger images such as giant-screen (such as the metal giant-screen), liquid crystal glasses, or realize carrying out that to the access of database with to the space, indoor and outdoor the virtual reality 3 D stereo is browsed by computer, spatical television set (comprising the helmet-type spatical television set) etc.
9, interactive electronic multimedia house lease-sell according to claim 1 and space service system is characterized in that the present invention can make the following product of production:
(1), primary product:
A, three-dimensional indoor virtual reality fixed route animated show, roaming multimedia system software;
B, three-dimensional community virtual reality fixed route animated show, roaming multimedia system software;
Multimedia system software is browsed, showed to c, three-dimensional interactive virtual community:
Multimedia system software is browsed, showed to d, three-dimensional interactive virtual building;
(2), intermediate product:
A, electronics building sales brochure;
B, virtual reality three-dimensional interactive display systems;
C, network building sale system:
(3), high-grade products;
Integrated each intermediate product function realizes repertoire involved in the present invention.
10, interactive electronic multimedia house lease-sell according to claim 1 and space service system, it is characterized in that electronic databank also comprises information query system, information query system comprises the information inquiry module, and the information inquiry module comprises: submodule, intelligent management submodule, sales guide submodule, customer data submodule, the visitor submodule of leaving a message is introduced in house type information submodule, surrounding enviroment submodule, residential quarter:
(1), house type information submodule
Can carry out detailed inquiry to the information in house, comprise house type, building number, unit, floor, whether hire out sale, house brief introduction, various view pictorial information, house the animation visit, to the house order, print the houseclearing data, meet selected house type the houseclearing list, call HOME DESING, the function such as check out. Main code of program:
Option Explicit
Dim DShouseTypeNo As String ′
Dim DShouseFloor As String ′
Dim DShouseNo As String ′
Dim DShouseUnit As String ′
′add house floor info
Private Sub cb_house_floor_dropdown()
Dim DSoldTmp As String ′
Dim DSnowTmp As String ′
Dim sql_1 As String
cb_house_floor.Clear
DShouseTypeNo＝GFgetCode(cb_house_type) ′get house type info
DShouseNo＝GFgetCode(cb_house_no) ′get house no
DShouseUnit＝GFgetCode(cb_house_unit) ′get house unit
′add house type no at sql
sql_1＝"+DShouseTypeNo+"
′add house NO.no at sql
If DShouseNo◇""Then
sql_1＝sql_1+"AND LEFT(fNo，2)＝+DShouseNo+"
End If
′add house type unit at sql
If DShouseUnit◇""Then
sql_1＝sql_1+"AND MID(fNo，3，2)＝+DShouseUnit+"
End If
′add house floor
SQL＝"SELECT MID(fno，5，2)FROM tHomeInfo WHERE fHouseNo＝"+sql_+
SQL＝SQL+"ORDER BY mid(fno，5，2)"
GArs1.Open SQL，GAcnl
<!-- SIPO <DP n="5"> -->
<dp n="c5"/>
DSoldTmp＝-1 ′＝-1
Do While Not GArs1.EOF
DSnowTmp＝Trim(GArs1.Fields(0)) ′
IfDSnowTmp◇DSoldTmp Then
SQL＝"SELECT fName FROM tBuildInfo WHERE Len(fNo)＝6 AND
mid(fNo，5，2)＝+DSnowTmp+"
GArs2.Open SQL，GAcnl
cb_house_floor.AddItem DSnowTmp+""+GArs2.Fields(0) ′add record
to cb_house_floor
DSoldTmp＝DSnowTmp ′
GArs2.Close ′close gars2
End If
GArs1.MoveNext ′move next record
Loop
GArs1.Close
End Sub
Private Sub cb_house_no_Click()
Dim HouseNo As String
Dim Path As String
HouseNo＝GFgetCode(cb_house_no)
HouseNo＝Trim(HouseNo)
SQL＝"select*from tbuildinfo where fno＝
SQL＝SQL+HouseNo+"
GArs1.Open SQL，GAcnl
If Not GArs1.EOF Then
If Trim(GArs1.Fields(2))◇""Or Not IsNull(Trim(GArs1.Fields(2)))Then
Path＝GSimageDir+"\pic\"+Trim(GArs1.Fields(2)) ′
If ExistFile(Path)Then
<!-- SIPO <DP n="6"> -->
<dp n="c6"/>
img_house_pic.Picture＝LoadPicture(Path) ′
Else
MsgBox"！。"
EndIf ′
Else
Path＝GSimageDir+"\pic\"+"normal.jpg" ′
If ExistFile(Path)Then
img_house_pic.Picture＝LoadPicture(Path) ′
Else
MsgBox"！。"
End If
End If
End If
GArs1.Close
End Sub
Private Sub cb_house_no_DropDown()
Dim DSoldTmp As String ′
Dim DSnowTmp As String ′
Dim sql_1 As String
cb_house_no.Clear
DShouseTypeNo＝GFgetCode(cb_house_type) ′get house type info
DShouseFloor＝GFgetCode(cb_house_floor) ′get housefloor
DShouseUnit＝GFgetCode(cb_house_unit) ′get house unit
′add housetype no at sql
sql_1＝"+DShouse TypeNo+"
′add house NO.no at sql
If DShouseFlooF◇""Then
sql_1＝sql_1+"AND mid(fNo，5，2)＝+DShouseFloor+"
End If
′add housetype unit at sql
If DShouseUnit◇""Then
sql_1＝sql_1+"AND MID(fNo，3，2)＝+DShouseUnit+"
End If
<!-- SIPO <DP n="7"> -->
<dp n="c7"/>
′add house floor
SQL＝"SELECT MID(fno，1，2)FROM tHomeInfo WHERE fHouseNo＝"+sql_1
SQL＝SQL+"ORDER BY mid(fno，1，2)"
GArs1.Open SQL，GAcnl
DSoldTmp＝-1 ′＝-1
Do While Not GArs1.EOF
DSnowTmp＝Tim(GArs1.Fields(0)) ′
If DSnowTmp◇DSoldTmp Then
SQL＝"SELECT fName FROM tBuildInfo WHERE Len(fNo)＝2 AND
mid(fNo，1，2)＝+DSnowTmp+"
GArs2.Open SQL，GAcnl
cb_house_no.AddItem DSnowTmp+""+GArs2.Fields(0) ′add record to
cb_house_floor
DSoldTmp＝DSnowTmp ′
GArs2.Close ′close gars2
End If
GArs1.MoveNext ′move next record
Loop
GArs1.Close
End Sub
Private Sub cb_house_type_Click()
Dim DShouse Type As String
′clearfloor，no，unit
cb_house_floor.Clear
cb_house_no.Clear
cb_house_unit.Clear
txt_house_intro.Text＝""
DShouseType＝GFgetCode(cb_house_type) ＇
SQL＝"select*from thouseinfo where fno＝
<!-- SIPO <DP n="8"> -->
<dp n="c8"/>
SQL＝SQL+DShouseType+"
GArs1.Open SQL，GAcnl
If Not GArs1.EOF Then
If Not IsNull(GArs1.Fields(3))Or GArs1.Fields(3)◇""Then
txt_house_intro.Text＝GArs1.Fields(3) ′
End If
End If
GArs1.Close
End Sub
′
Private Sub cb_house_type_DropDown()
Dim tmp1 As String
Dim tmp2 As String
Dim tmp As String
Dim i As Integer
i＝0
cb_house_type.Clear ′
SQL＝"select*from thouseinfo" ′，
SQL＝SQL+"ORDER BY fno"
GArs1.Open SQL，GAcnl
While Not GArs1.EOF
tmp1＝Trim(GAs1.Fields(0)) ′
tmp2＝Trim(GArs1.Fields(1)) ′
tmp2＝Space(1)+tmp2 ′
tmp＝tmp1+tmp2 ′
cb_house_type.AddItem tmp，i ′
i＝i+1
<!-- SIPO <DP n="9"> -->
<dp n="c9"/>
GArs1.MoveNext ′
Wend
GArs1.Close ′
End Sub
Private Sub cb_house_unit_DropDown()
Dim DSoldTmp As String ′
Dim DSnowTmp As String ′
Dim sql_1 As String
cb_house_unit.Clear
DShouseTypeNo＝GFgetCode(cb_house_type) ′get house type info
DShouseNo＝GFgetCode(cb_house_no) ′get house no
DShouseFloor＝GFgetCode(cb_house_floor) ′get house floor
′add house type no at sql
sql_1＝"+DShouseTypeNo+"
′add house NO.at sql
If DShouseNo◇""Then
sql_1＝sql_1+"AND LEFT(fNo，2)＝+DShouseNo+"
End If
′add house type floor at sql
If DShouseFloor◇""Then
sql_1＝sql_1+"AND MID(fNo，5，2)＝+DShouseFloor+"
End If
′add house floor
SQL＝"SELECT MID(fno，3，2)FROM tHomeInfo WHERE fHouseNo＝"+sql_1
SQL＝SQL+"ORDER BY mid(fno，3，2)"
GArs1.Open SQL，GAcnl
DSoldTmp＝-1 ′＝-1
Do While Not GArs1.EOF
<!-- SIPO <DP n="10"> -->
<dp n="c10"/>
DSnowTmp＝Trim(GArs1.Fields(0)) ′
If DSnowTmp◇DSoldTmp Then
SQL＝"SELECT fName FROM tBuildlnfo WHERE Len(fNo)＝4 AND
mid(fNo，3，2)＝+DSnowTmp+"
GArs2.Open SQL，GAcnl
If Not GArs2.EOF Then
cb_house_unit.AddItem DSnowTmp+""+GArs2.Fields(0) ′add
record to cb_house_floor
Else
End If
DSoldTmp＝DSnowTmp ′
GArs2.Close ′close gars2
End If
GArs1.MoveNext ′move next record
Loop
GArs1.Close
End Sub
Private Sub cmd_content Click()
GShouseType＝cb_house_type ′
(no+space+name)，
DShouseTypeNo＝GFgetCode(cb_house_type) ′
DShouseFloor＝GFgetCode(cb_house_floor) ′
DShouseNo＝GFgetCode(cb_house_no) ′
DShouseUnit＝GFgetCode(cb_house_unit) ′
′
′
If DShouse TypeNo＝""Then
MsgBox"！"
Exit Sub
<!-- SIPO <DP n="11"> -->
<dp n="c11"/>
End If
′
GShouseInfo＝"WHERE fHouseNo＝+DShouseTypeNo+"
′
If DShouseNo◇""Then
GShouseInfo＝GShouseInfo+"AND LEFT(fNo，2)＝+DShouseNo+"
End If
′
If DShouseUnit ◇""Then
GShouseInfo＝GShouseInfo+"AND MID(fNo，3，2)＝+DShouseUnit+"
End If
′
If DShouseFloor◇""Then
GShouseInfo＝GShouseInfo+"AND MID(fNo，5，2)＝+DShouseFloor+"
End If
w_house_content.Show
Unload w_house_info
End Sub
Private Sub cmd_exit_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Left＝0
Me.Top＝0
Me.Height＝6405
Me.Width＝7230
Dim SysPath As String
cb_house_type.Clear ′
cb_house_no.Clear
cb_house_unit.Clear
cb_house_floor.Clear
txt_house_intro.Text＝""
SysPath＝GSimageDir+"\pic\"+"normal.jpg"
<!-- SIPO <DP n="12"> -->
<dp n="c12"/>
If ExistFile(SysPath)Then
img_house_pic.Picture＝LoadPicture(SysPath) ′
Else
MsgBox"！。"
End If
End Sub
Option Explicit
Dim DInowRow As Integer ′flexGrid
Dim DInowCol As Integer ′flexGrid
Dim No As String ′
Dimt1 As String ′
Dimt2 As String ′
Dimt3 As String ′
Dimt4 As String ′
Private Sub cmd_avi_Click()
Dim Flag
Dim TestFile As String
TestFile＝GSimageDir&"\Avi\home.avi"
If ExistFile(TestFile)Then
Flag＝mciExecute("play"& TestFile)
Else
MsgBox"！。"
End If
End Sub
Private Sub cmd_buy_Click()
Dim DIcol As String ′
Dim HouseNo As String ′
Dim custerNo As String ′
custerNo＝Trim(GScustomerCode) ′
DIcol＝1
FG_content.Col＝DIcol
HouseNo＝Trim(FG_content.Text)
<!-- SIPO <DP n="13"> -->
<dp n="c13"/>
SQL＝"update tHomeInfo setfBuyInfo＝
SQL＝SQL+custerNo+where left(fno，8)＝
SQL＝SQL+HouseNo+"
GArs1.Open SQL，GAcnl
FG_content.Clear
DPaddHouseInfoTitle
′add house info
DPaddHouseInfo
FG_content.Refresh
End Sub
Private Sub cmd_ex.it_Click()
Unload Me
End Sub
Private Sub cmd_homeDesign_Click()
Dim Path As String
SQL＝"select*from tcompany"
GArs1.Open SQL，GAcnl
If Not GArs1.EOF Then
GScorpName＝GArs1.Fields(0) ′
GScorpUserName＝GArs1.Fields(1) ′
Path＝Trim(GArs1.Fields(3)) ′Homedesign
If ExistFile(Path)Then
Shell(Path)
Else
MsgBox"！。"
End If
Else
MsgBox"HomeDesign，！"
End If
GArs1.Close
End Sub
Private Sub_cmd_move_Click()
Dim HomeNo As String ′
Dim custerNo As String ′
Dim DIcol As Integer ′
<!-- SIPO <DP n="14"> -->
<dp n="c14"/>
DIcol＝1
FG_content.Col＝DIcol
HomeNo＝Trim(FG_content.Text) ′
custerNo＝Trim(GScustomerCode) ′
SQL＝"updatet HomeInfo set fBuyInfo＝"where left(fBuyInfo，8)＝
SQL＝SQL+custerNo+"
SQL＝SQL+"and"
SQL＝SQL+"fno＝
SQL＝SQL+HomeNo+"
GArs1.Open SQL，GAcnl
FG_content.Clear
DPaddHouseInfoTitle
′add house info
DPaddHouseInfo
FG_content.Refresh
End Sub
Private Sub cmd_print_Click()
Dim DIprinterHeight As Integer ′printer height
Dim DIprinter Width As Integer ′printer width
Dim DIpicHeight As Integer ′pic height
Dim DIpicWidth As Integer ′pic width
Dim DIpicX As Integer
Dim DIpicY As Integer
Dim DBprintFlag As Boolean ′
Dim PageSize As Integer ′
Dim PicSize As Index
Dim DIfontHeight As Integer ′
DIfontHeight＝202
Const CIpageTitleFree＝1000 ′
Const CIpageEndFree＝1000 ′
<!-- SIPO <DP n="15"> -->
<dp n="c15"/>
Const CIpageSideFree＝1000 ′
Dim DIheight As Integer ′
DBprintFlag＝True
cmd_print.Enabled＝False ′
If Not Printer.PaperSize＝9 Then
MsgBox"A4"，vbOKOnly，""
Exit Sub
End If
Printer.CurrentY＝CIpageTitleFree ′
DPprintTitle ′print title
PageSize＝Printer.Height ′
DInowRow＝0
Do While DInowRow＜FG_content.Rows-1 ′
DIheight＝Printer.CurrentY ′
If(DIheight+CIpageEndFree+DIfontHeight)＞PageSize Then
DPprintEnd ′print table end
Printer.NewPage ′
DPprintTitle ′print table title
Else
DPprintContent ′print table content
End If
DInowRow＝DInowRow+1
Loop
DPprintEnd ′print table end
Printer.CurrentY＝Printer.CurrentY+1000 ′
′--------pring home pic----------
<!-- SIPO <DP n="16"> -->
<dp n="c16"/>
′get pic info
DIpicHeight＝Img_house_pic.Height
DIpicWidth＝Img_house_pic.Width
DIprinterHeight＝Printer.Height
DIprinterWidth＝Printer.Width
′
If DIpicWidth+CIpageSideFree＜＝DIprinterWidth Then
DIpicX＝DIprinterWidth-DIpicWidth-CIpageSideFree ′
DIpicX＝DIpicX/2
Else
MsgBox"！"，vbOKOnly，""
DBprintFlag＝False ′
End If
If Img_house pic.Picture＞0 Then
DBprintFlag＝True ′
Else
DBprintFlag＝False ′
End If
′DBprintFlag，
If DBprintFlag Then
′
If(DIheight+CIpageEndFree+DIpicHeight)＞PageSize Then
Printer.NewPage ′
Printer.CurrentX＝CIpageTitleFree ′
End If
DIpicY＝Printer.CurrentY ′
Printer.CurrentX＝Printer.Width/2-8*202
Printer.CurrentY＝DIpicY-300
<!-- SIPO <DP n="17"> -->
<dp n="c17"/>
Printer.Print"："+No ′
Printer.PaintPictureImg_house_pic.Picture，DIpicX，DIpicY ′
End If
Printer.EndDoc ′
MsgBox"！"
cmd_print.Enabled＝True ′
End Sub
Private Sub FG_content_Click()
Dim Pic As String
Dim DIcol As Integer
Dim tmp As String
′DIcol＝1
′FG_content.Col＝DIcol
′
No＝FG_content.Text ′
No＝Trim(No)
SQL＝"select*from tbuildinfo where fno＝
SQL＝SQL+No+"
GATs1.Open SQL，GAcnl
If Not GArs1.EOF Then
If Not(Trim(GArs1.Fields(2))＝"Or IsNull(GArs1.Fields(2)))Then
Pic＝GSimageDir+"\pic\"+Trim(GArs1.Fields(2)) ′
If ExistFile(Pic)Then
Img_house_pic.Picture＝LoadPicture(Pic) ′
Else
MsgBox"！。"
End If
Else
Pic＝GSimageDir+"\pic\"+"normal.jpg"
If ExistFile(Pic)Then
Img_house_pic.Picture＝LoadPicture(Pic) ′
<!-- SIPO <DP n="18"> -->
<dp n="c18"/>
Else
MsgBox"！。"
End If
End If
End If
GArs1.Close
End Sub
′display house info
Private Sub Form_Load()
Dim DStmp As String
Me.Left＝0
Me.Top＝0
Me.Height＝7335
Me.Width＝9810
′display title
DStmp＝GFgetCode(GShouseType)
DStmp＝Right(GShouseType，Len(GShouse Type)-Len(DStmp)-1)
Ib_title.Caption＝DStmp+""
′
Ib_title.Left＝(w_house_content.Width-lb_title.Width)/2
′add house info title
DPaddHouseInfoTitle
′add house info
DPaddHouseInfo
′
If Trim(GScustomerCode)＝""Or GScustomerCode＝"00000000"Then
cmd_buy.Enabled＝False
cmd_move.Enabled＝False
End If
End Sub
′---------------------------------
′01-sub display house info title
′---------------------------------
Private Sub DPaddHouseInfoTitle()
<!-- SIPO <DP n="19"> -->
<dp n="c19"/>
DInowRow＝0
DInowCol＝0
′display house info title
′
FG_content.Col＝DInowCol
FG_ontent.Row＝DInowRow
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_cntent.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
IfDInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DlnowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+l
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DlnowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
<!-- SIPO <DP n="20"> -->
<dp n="c20"/>
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
′
DInowCol＝DInowCol+1
If DInowCol＞＝FG_content.Cols Then FG_content.Cols＝FG_content.Cols+1
FG_content.Col＝DInowCol
FG_content.Text＝""
End Sub
′-----------------------------------
′02-sub add house info
′-------------------------------------
Private Sub DPaddHouseInfo()
′display
SQL＝"SELECT*FROM tHomeInfo WHEREfBuyInfo＝+GScustomerCode+"
GArs1.Open SQL，GAcnl
Do While Not GArs1.EOF()
′
DInowRow＝DInowRow+1
′
If DInowRow＞＝FG_content.Rows Then FG_content.Rows＝FG_content.Rows+1
FG_content.Row＝DInowRow ′
′display house buy info
<!-- SIPO <DP n="21"> -->
<dp n="c21"/>
DInowCol＝0
FG_content.Col＝DInowCol ′
FG_content.Text＝"√"
′
DPdisplayHouseInfo
GArs1.MoveNext ′
Loop
GArs1.Close
′display
SQL＝"SELECT*FROM tHomeInfo"+GShouseInfo+"and(IsNull(fBuyInfo)＝TRUE
OR LEN(TRIM(fBuyInfo))◇8)"
SQL＝SQL+"ORDER BY fno"
GArs1.Open SQL，GAcnl
Do While Not GArs1.EOF()
′
DInowRow＝DInowRow+1
DInowCol＝1
′
If DInowRow＞＝FG_content.Rows Then FG_content.Rows＝FG_content.Rows+1
FG_content.Row＝DInowRow ′
′display house info
DPdisplayHouseInfo
GArs1.MoveNext ′
Loop
GArs1.Close
End Sub
′---------------
′03-sub display house info
′----------------
Private Sub DPdisplayHouseInfo()
<!-- SIPO <DP n="22"> -->
<dp n="c22"/>
Dim DShouseType As String ′
Dim DShouseNo As String ′
Dim DShouseUnit As String ′
Dim DShouseFloor As String ′
Dim DShomeName As String ′
Dim DSarea As String ′()
Dim DSprice As String ′()
Dim DSpriceCount As String ′()
DInowCol＝1
Dim DStmp As String ′
′
FG_content.Col＝DInowCol
FG_content.Text=Trim(GArs1！fNo)
′
If Not GArs1.EOF Then
DStmp＝Trim(GArs1.Fields(1)) ′get no
SQL＝"select*from thouseinfo where fno＝
SQL＝SQL+DStmp+"
GArs2.Open SQL，GAcnl
If Not GArs2.EOF Then
DStmp＝GArs2.Fields(1) ′get house name
End If
GArs2.Close
Else
DStmp＝"no data"
End If
DInowCol＝DInowCol+1 ′display house no
FG_ontent.Col＝DInowCol
FG_content.Text＝DStmp
′
DShouseNo＝Left(Trim(GArs1！fNo)，2) ′get house no code
SQL＝"SELECT fName FROM tBuildInfo WHERE fNo＝+DShouseNo+"
GArs2.Open SQL，GAcnl
If Not GArs1.EOF Then
<!-- SIPO <DP n="23"> -->
<dp n="c23"/>
DStmp＝GArs2.Fields(0) ′get house no
Else
DStmp＝"no data"
End If
GArs2.Close
DInowCol＝DInowCol+1 ′display house no
FG_content.Col＝DInowCol
FG_content.Text＝DStmp
′unit
DShouseUnit＝Left(Trim(GArs1！fNo)，4) ′get unit no code
SQL＝"SELECT fName FROMtBuildInfo WHERE fNo＝+DShouseUnit+"
GArs2.Open SQL，GAcnl
If Not GArs1.EOF Then
DStmp＝GArs2.Fields(0) ′get unit no
Else
DStmp＝"no data"
End If
GArs2.Close
DInowCol＝DInowCol+1 ′display uint no
FG content.Col＝DInowCol
FG_content.Text＝DStmp
′floor
DShouseFloor＝Left(Trim(GArs1！fNo)，6) ＇get floor no code
SQL＝"SELECT fName FROM tBuildInfo WHEREfNo＝+DShouseFloor+"
GArs2.Open SQL，GAcnl
If Not GArs1.EOF Then
DStmp＝GArs2.Fields(0) ′get floor no
Else
DStmp＝"no data"
End If
GArs2.Close
DInowCol＝DInowCol+1 ′display floor no
FG_content.Col＝DInowCol
FG_content.Text＝DStmp
′home no
DShouseType＝Left(Trim(GArs1！fNo)，8) ′get home no code
SQL＝"SELECT fName FROM tBuildInfo WHEREfNo＝+DShouseType+"
GArs2.Open SQL，GAcnl
<!-- SIPO <DP n="24"> -->
<dp n="c24"/>
If Not GArs1.EOF Then
DStmp＝GArs2.Fields(0) ′get heme no
Else
DStmp＝"no data"
End If
GArs2.Close
DInowCol＝DlnowCol+1 ′display home no
FG_content.Col＝DlnowCol
FG_content.Text＝DStmp
′area
If DSarea◇""Or Not IsNull(Trim(GArs1.Fields(2)))Then
DStmp＝Trim(GArs1.Fields(2)) ′get area no
DSarea＝Trim(CStr(Val(DStmp)))
Else
DStmp＝"no data"
End lf
DInowCol＝DInowCol+1 ′display area no
FG_content.Col＝DInowCol
FG_content.Text＝DSarea
′price
DSprice＝Trim(GArs1！fhouseno) ′get house no code
SQL＝"SELECT fprice FROM thouseinfo WHERE fno＝+DSprice+"
GArs2.Open SQL，GAcnl
If Not GArs1.EOF Then
DStmp＝GArs2！fprice
DSprice＝Trim(CStr(Val(DStmp)))
Else
DStmp＝"no data"
End If
GArs2.Close
DInowCol＝DInowCol+1 ′display price
FG_content.Col＝DInowCol
FG_content.Text＇＝DSprice
′DInowCol＝DInowCol+1 ′display area no
FG_content.Col＝DInowCol
FG_cortent.Text＝CStr(Val(DSarea)*Val(DSprice))
<!-- SIPO <DP n="25"> -->
<dp n="c25"/>
End Sub
′---------------------------------------------
′04-sub print table title
′-------------------------------------------
Private Sub DPprintTitle()
Printer.FontName＝""
If Not Printer.PaperSize＝vbPRPSA4 Then
MsgBox"A4！" ′
End If
Printer.FontSize＝20
Printer.Print" "
Printer.Print" <paragraph id="c60">
<image width="126" height="6" src="A0112800100271.gif"/>
</paragraph> Printer.FontSize＝10
<paragraph id="c61">
<image width="507" height="182" src="A0112800100272.gif"/>
</paragraph> Printer.Print"："+GScustomerName+Space(30)+str(Year(Date))+""+
str(Month(Date))+""+str(Day(Date))+""
Printer.Print t1
Printer.Print t2
End Sub
′-------------------------------------------
′05-sub print table content
′-------------------------------
Private Sub DPprintContent()
Dim a(5)As String
<!-- SIPO <DP n="26"> -->
<dp n="c26"/>
Dim i As Integer
Dimtemp(10)As String
Dimtxt(9)As String
Dim tmptxt As String
Dim ln As Integer
Dim title As String
Const cline＝<paragraph id="c62">
<image width="185" height="14" src="A0112800100281.gif"/>
</paragraph> ′
temp(10)＝"|"
Printer.Print t3 ′
DInowCol＝0 ′，
DInowRow＝DInowRow+1 ′
FG_content.Col＝DInowCol ′
FG_content.Row＝DInowRow
txt(0)＝FG_content.Text
ln＝GFlen(txt(0))
txt(0)＝Space(8-ln)+txt(0)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(1)＝FG_content.Text
ln＝GFlen(txt(1))
txt(1)＝Space(8-ln)+txt(1)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(2)＝FG_content.Text
ln＝GFlen(Trim(txt(2)))
txt(2)＝Space(8-ln)+txt(2)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(3)＝FG_content.Text
ln＝GFlen(Trim(txt(3))
txt(3)＝Space(8-ln)+txt(3)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(4)＝FG_content.Text
<!-- SIPO <DP n="27"> -->
<dp n="c27"/>
ln＝GFlen(Trim(txt(4)))
txt(4)＝Space(8-ln)+txt(4)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(5)＝FG_content.Text
ln＝GFlen(Trim(txt(5)))
txt(5)＝Space(8-ln)+txt(5)
DInowCol＝DInowCol+1
FG_content.Col＝DInowCol
txt(6)＝FG_content.Text
ln＝GFlen(Trim(txt(6)))
txt(6)＝Space(8-ln)+txt(6)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(7)＝FG_content.Text
ln＝GFlen(Trim(txt(7)))
txt(7)＝Space(8-ln)+txt(7)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(8)＝FG_content.Text
ln＝GFlen(Trim(txt(8)))
txt(8)＝Space(8-ln)+txt(8)
DInowCol＝DInowCol+1 ′
FG_content.Col＝DInowCol
txt(9)＝FG_content.Text
ln＝GFlen(Trim(txt(9)))
txt(9)＝Space(8-ln)+txt(9)
′***********************
a(3)＝temp(10)+txt(10)+temp(10)+txt(1)+temp(10)+txt(2)+temp(10)+txt(3)+
temp(10)+txt(4)+temp(10)+txt(5)+temp(10)+txt(6)+temp(10)+txt(7)+temp(10)+txt(8)
+temp(10)+txt(9)+temp(10)
Printer.Print a(3)
End Sub
(2). the surrounding enviroment submodule
The selection, location, brief introduction, picture, the animation that comprise surrounding enviroment are browsed the functions such as printed information. The user namely can be directly selects the surrounding enviroment forms from menu, choose and oneself want the environment title of checking, system just provides pictorial information, the detailed content of environment rapidly.
Main code of program:
Private Sub cb_env_name_Click()
Dim tmp As String
Dim tmp1 As String
Dim tmp2 As String ′
Dim envpic As String
Dim TestFile As String ′
envpic＝GSimageDir+"＼pic\"+"normal.jpg"
tmp＝w_env.cb_env_name.Text
SQL＝"select*from tenv where fname＝" ′
SQL＝SQL+tmp+" ′
GArs1.Open SQL，GAcnl
If Not GArs1.EOF Then
If Trim(GArs1.Fields(3))＝"Or IsNull(Trim(GArs1.Fields(3)))Then
If ExistFile(envpic)Then
w_env.img_env_pic.Picture＝LoadPicture(envpic)′
Else
MsgBox"！。
End If
Else
tmp1＝GArs1.Fields(2) ′
tmp2＝GArs1.Fields(3) ′
tmp2＝Trim(tmp2)
w_env.txt_env_intro.Text＝tmp1 ′
TestFile＝GSimageDir+"\pic\"+tmp2
If ExistFile(TestFile)Then
w_env.img_env_pic.Picture＝LoadPictLure(TestFile)′
Else
MsgBox"！。"
End If
End If
End If
GArs1.Close
End Sub
<!-- SIPO <DP n="29"> -->
<dp n="c29"/>
Private Sub cb_env_name_DropDown()
Dim i As Integer
Dim tmp As String
SQL＝"select*from tenv" ′，
SQL＝SQL+"ORDER BY fno"
GArs1.Open SQL，GAcnl
cb_env_name.Clear ′
′GArs1.MoveFirst ′
i＝0 ′
While Not GArs1.EOF
tmp＝GArs1.Fields(1) ′
tmp＝Trim(tmp)
cb_env_name.AddItem tmp,i ′cb_env_name
i＝i+1
GArs1.MoveNext
Wend
GArs1.Close
End Sub
Private Sub Commandl_Click()
Dim Flag
Dim TestFile As String
TestFile＝GSimageDir &"\Avi\env.avi"
If ExistFile(TestFile)Then
Flag＝mciExecute("play"& TestFile)
Else
MsgBox"！。"
End If
Unload Me
End Sub
Private Sub Form_Load()
Dim envpic As String
Me.Left＝0
Me.Top＝0
Me.Height＝6405
Me.Width＝7230
envpic＝GSimageDir+"\pic\normal.jpg" ′
If ExistFile(envpic)Then
w_env.img_env_pic.Picture＝LoadPicture(envpic) ′
Else
MsgBox"！。"
End If
w_env.txt_env_intro.Text＝"" ′
w_env.cb_env_name.Clear
End Sub
(3). submodule is introduced in the residential quarter
The user selects to want the animation information browsed from drop-down menu, and system just opens the animation of one section three-dimensional range.
(4). Intelligent management module
The user can see the introduction of the intelligent management animation of system here, views all administrative staff's archive information.
(5). sales guide submodule
Comprise animation browsing information, zone selection and pictorial information.
Main code of program:
Private Sub cb_name_Click() Dim tmp As String Dim tmp1 As String Dim tmp2 As String Dim envpic As String Dim TestFile As String ′ envpic＝GSimageDir+"\pic\"+"normal.jpg" tmp＝w_AI_info.cb_name.Text tmp＝Trim(tmp) ′ SQL＝"select*from tAImanage where fname＝ ′ SQL＝SQL+tmp+" ′ GArs1.Open SQL，GAcnl If Not GArs1.EOF Then If IsNull(Trim(GArs1.Fields(3)))Or Trim(GArs1.Fields(3))＝""Then If ExistFile(envpic)Then w_AI_info.img_ai_Manage.Picture＝LoadPicture(envpic) ′ Else MsgBox"！。" End If Else tmp1＝GArs1.Fields(2) ′ tmp2＝GArs1.Fields(3) ′ tmp2＝Trim(tmp2) TestFile＝ GSimageDir+"\pic\"+tmp2 w_AI_info.txt_content.Text＝tmp1 ′ If ExistFile(TestFile)Then w_AI_info.img_ai_Manage.Ricture＝LoadPicture(TestFile)′ Else MsgBox"！。′ End If End If End If <!-- SIPO <DP n="31"> --> <dp n="c31"/> GArs1.Close End Sub Private Sub cb_name_DropDown() Dim i As Integer Dim tmp As String SQL＝"select*from tAImanage" ′， SQL＝SQL+"ORDER BY fno" GArs1.Open SQL，GAcnl cb_name.Clear ′ i＝0 ′ While Not GArs1.EOF tmp＝GArs1.Fields(1) ′ tmp＝Trim(tmp) cb_name.AddItem tmp，i ′cb_name i＝i+1 GArs1.MoveNext Wend GArs1.Close End Sub Private Sub cmd_exit_Click() Unload Me End Sub Private Sub Form_Load() Dim envpic As String Me.Left＝0 Me.Top＝0 Me.Height＝6405 Me.Width＝7230 envpic＝GSimageDir+"\pic\"+"normal.jpg" ′ If ExistFile(envpic)Then w_AI_info.img_ai_Manage.Picture＝LoadPicture(envpic)′ Else MsgBox"！。" End If w_AI_info.txt_content.Text＝"" ′ w_AI_info.cb_name.Clear ′End Sub
(6). the customer data submodule
The user of legal login by after the password authentication, is made amendment to oneself data, and the renewal of the personal information information when namely registering changes.
(7). visitor's submodule of leaving a message
Allow the user who uses native system stay valuable suggestion, and deposit database in.
Priority Applications (1)
| Application Number | Priority Date | Filing Date | Title |
|---|---|---|---|
| CN 01128001 CN1330335A (en) | 2001-08-03 | 2001-08-03 | Bidirectionally interacive multimedia service system for electrically renting or selling house and building space |
Applications Claiming Priority (1)
| Application Number | Priority Date | Filing Date | Title |
|---|---|---|---|
| CN 01128001 CN1330335A (en) | 2001-08-03 | 2001-08-03 | Bidirectionally interacive multimedia service system for electrically renting or selling house and building space |
Publications (1)
| Publication Number | Publication Date |
|---|---|
| CN1330335A true CN1330335A (en) | 2002-01-09 |
Family
ID=4667904
Family Applications (1)
| Application Number | Title | Priority Date | Filing Date |
|---|---|---|---|
| CN 01128001 Withdrawn CN1330335A (en) | 2001-08-03 | 2001-08-03 | Bidirectionally interacive multimedia service system for electrically renting or selling house and building space |
Country Status (1)
| Country | Link |
|---|---|
| CN (1) | CN1330335A (en) |
Cited By (18)
| Publication number | Priority date | Publication date | Assignee | Title |
|---|---|---|---|---|
| CN101178817B (en) * | 2007-12-25 | 2010-06-02 | 王鹏勃 | Demonstration document realization method based on three-dimensional information in three-dimensional scene |
| CN102436621A (en) * | 2011-11-08 | 2012-05-02 | 莫健新 | Systems and methods for displaying housing estate landscape data and generating housing estate landscape display data |
| CN102750397A (en) * | 2011-04-21 | 2012-10-24 | 北京七十二炫信息技术有限公司 | System capable of automatically generating colorful three-dimensional scene construction drawing |
| CN103930914A (en) * | 2011-08-09 | 2014-07-16 | 欧特克公司 | Method and system for generating occupant schedules |
| CN104112212A (en) * | 2013-04-19 | 2014-10-22 | 佛山筋斗云科技有限公司 | Display system enabling digital experience |
| CN104751515A (en) * | 2015-04-03 | 2015-07-01 | 福建省纳金网信息技术有限公司 | Real estate building exhibition method |
| CN105741194A (en) * | 2016-01-28 | 2016-07-06 | 赵云 | Unreal engine technology-based home decoration system |
| CN105809742A (en) * | 2016-03-11 | 2016-07-27 | 南京大学 | Data-driving indoor scene coloring method |
| CN106530404A (en) * | 2016-11-09 | 2017-03-22 | 大连文森特软件科技有限公司 | Inspection system of house for sale based on AR virtual reality technology and cloud storage |
| CN106970940A (en) * | 2017-02-16 | 2017-07-21 | 安徽新安爱房资讯有限公司 | A kind of new house property medium information management system |
| CN107272897A (en) * | 2017-06-14 | 2017-10-20 | 成都智建新业建筑设计咨询有限公司 | Building interactive system based on virtual reality technology |
| CN107301679A (en) * | 2016-04-15 | 2017-10-27 | 孙万霖 | Virtual reality house viewing system |
| CN107798722A (en) * | 2016-08-31 | 2018-03-13 | 宅妆股份有限公司 | Virtual reality and augmented reality building system and method |
| CN107909446A (en) * | 2017-12-04 | 2018-04-13 | 神州租屏(厦门)网络技术有限公司 | A kind of trade managing system for screen rent and sale |
| US10453005B2 (en) | 2011-08-09 | 2019-10-22 | Autodesk, Inc. | Method and system for generating occupant schedules |
| CN111932954A (en) * | 2020-08-20 | 2020-11-13 | 湖南浩海九汇数字科技有限公司 | Sand table visual intelligent interactive display method and system |
| CN113157158A (en) * | 2021-04-15 | 2021-07-23 | 浪潮卓数大数据产业发展有限公司 | Community global analysis large-screen interaction method and system |
| CN116485164A (en) * | 2023-06-25 | 2023-07-25 | 深圳市睿拓新科技有限公司 | BIM-based electrical construction task distribution management system and method |
-
2001
- 2001-08-03 CN CN 01128001 patent/CN1330335A/en not_active Withdrawn
Cited By (23)
| Publication number | Priority date | Publication date | Assignee | Title |
|---|---|---|---|---|
| CN101178817B (en) * | 2007-12-25 | 2010-06-02 | 王鹏勃 | Demonstration document realization method based on three-dimensional information in three-dimensional scene |
| CN102750397A (en) * | 2011-04-21 | 2012-10-24 | 北京七十二炫信息技术有限公司 | System capable of automatically generating colorful three-dimensional scene construction drawing |
| CN103930914B (en) * | 2011-08-09 | 2018-07-31 | 欧特克公司 | Method and system for generating occupant's timetable |
| CN103930914A (en) * | 2011-08-09 | 2014-07-16 | 欧特克公司 | Method and system for generating occupant schedules |
| US10515322B2 (en) | 2011-08-09 | 2019-12-24 | Autodesk, Inc. | Method and system for generating occupant schedules |
| US10453005B2 (en) | 2011-08-09 | 2019-10-22 | Autodesk, Inc. | Method and system for generating occupant schedules |
| CN102436621A (en) * | 2011-11-08 | 2012-05-02 | 莫健新 | Systems and methods for displaying housing estate landscape data and generating housing estate landscape display data |
| CN104112212A (en) * | 2013-04-19 | 2014-10-22 | 佛山筋斗云科技有限公司 | Display system enabling digital experience |
| CN104751515A (en) * | 2015-04-03 | 2015-07-01 | 福建省纳金网信息技术有限公司 | Real estate building exhibition method |
| CN105741194A (en) * | 2016-01-28 | 2016-07-06 | 赵云 | Unreal engine technology-based home decoration system |
| CN105809742B (en) * | 2016-03-11 | 2018-08-21 | 南京大学 | A kind of indoor scene color method of data-driven |
| CN105809742A (en) * | 2016-03-11 | 2016-07-27 | 南京大学 | Data-driving indoor scene coloring method |
| CN107301679A (en) * | 2016-04-15 | 2017-10-27 | 孙万霖 | Virtual reality house viewing system |
| CN107798722A (en) * | 2016-08-31 | 2018-03-13 | 宅妆股份有限公司 | Virtual reality and augmented reality building system and method |
| CN106530404A (en) * | 2016-11-09 | 2017-03-22 | 大连文森特软件科技有限公司 | Inspection system of house for sale based on AR virtual reality technology and cloud storage |
| CN106970940A (en) * | 2017-02-16 | 2017-07-21 | 安徽新安爱房资讯有限公司 | A kind of new house property medium information management system |
| CN107272897A (en) * | 2017-06-14 | 2017-10-20 | 成都智建新业建筑设计咨询有限公司 | Building interactive system based on virtual reality technology |
| CN107909446A (en) * | 2017-12-04 | 2018-04-13 | 神州租屏(厦门)网络技术有限公司 | A kind of trade managing system for screen rent and sale |
| CN107909446B (en) * | 2017-12-04 | 2021-03-09 | 朱莉 | Transaction management system for screen renting and selling |
| CN111932954A (en) * | 2020-08-20 | 2020-11-13 | 湖南浩海九汇数字科技有限公司 | Sand table visual intelligent interactive display method and system |
| CN113157158A (en) * | 2021-04-15 | 2021-07-23 | 浪潮卓数大数据产业发展有限公司 | Community global analysis large-screen interaction method and system |
| CN116485164A (en) * | 2023-06-25 | 2023-07-25 | 深圳市睿拓新科技有限公司 | BIM-based electrical construction task distribution management system and method |
| CN116485164B (en) * | 2023-06-25 | 2023-12-15 | 深圳市睿拓新科技有限公司 | BIM-based electrical construction task distribution management system and method |
Similar Documents
| Publication | Publication Date | Title |
|---|---|---|
| CN1330335A (en) | Bidirectionally interacive multimedia service system for electrically renting or selling house and building space | |
| Degen et al. | Producing place atmospheres digitally: Architecture, digital visualisation practices and the experience economy | |
| Statham | Use of photogrammetry in video games: a historical overview | |
| Rattenbury | This is not architecture: Media constructions | |
| Laseau | Graphic thinking for architects and designers | |
| Lunenfeld | Snap to grid: a user's guide to digital arts, media, and cultures | |
| Jiang et al. | An empirical study on digital media technology in film and television animation design | |
| KR20170051019A (en) | Method for 3d virtual gallery management and recording medium storing program for executing the same, and recording medium storing program for executing the same | |
| CN1335968A (en) | Housing space-related commodity sale assisting system and method program for assisting housing space-related commodity sale, and computer-readable recorded medium on which program for the same is | |
| Li et al. | Key technology of virtual roaming system in the museum of ancient high-imitative calligraphy and paintings | |
| JP7274769B2 (en) | Spatial design coordinating system, spatial design coordinating method and program | |
| CN115552472A (en) | System and method for providing a relational landscape for a social world | |
| CN106447786A (en) | Parallel space establishing and sharing system based on virtual reality technologies | |
| CN115578510A (en) | Method for constructing unmovable text element universe | |
| Cudworth | Virtual world design | |
| Spacca et al. | Promoting industrial cultural heritage by augmented reality: Application and assessment | |
| Lv | Research on the Digital Dissemination of Non-heritage Traditional Culture in the Context of the Meta-universe | |
| Chen | Application and Challenges of Virtual Reality (VR) in Art Exhibition Planning | |
| Ross | Picturing the Profession: The View from Above and the Civic Imaginary in Burnham's Plans | |
| Eloy et al. | Tools for the co-designing of housing transformations: a study on interaction and visualization modes | |
| Tuck | Commercial Photography Handbook: Business Techniques for Professional Digital Photographers | |
| KR101676357B1 (en) | 3d virtual gallery system | |
| Dalsgaard et al. | Designing Media Architecture: Methods and Tools | |
| Graham | Applications of digitization to museum collections management, research and accessibility | |
| Tribe et al. | New Media Art-Introduction |
Legal Events
| Date | Code | Title | Description |
|---|---|---|---|
| C06 | Publication | ||
| PB01 | Publication | ||
| C04 | Withdrawal of patent application after publication (patent law 2001) | ||
| WW01 | Invention patent application withdrawn after publication |