Access高手请进~
ACCESS\u9ad8\u624b\u8bf7\u8fdb\uff01\uff08\u5173\u4e8e\u4f7f\u7528\uff09\u67e5\u8be2\u8d77\u6765\u5e94\u8be5\u4f1a\u6bd4excel\u65b9\u4fbf
\u4f46\u662f\u6bd4\u8f83\u8d77\u6765access\u4e0d\u5bb9\u6613\u4e0a\u624b
\u4e0d\u77e5\u9053\u4f60\u5de5\u4f5c\u4e2d\u5230\u5e95\u9700\u8981\u5e72\u4ec0\u4e48\uff0c\u6240\u4ee5\u5230\u5e95\u54ea\u4e2a\u65b9\u4fbf\u8fd8\u4e0d\u592a\u597d\u8bf4
\u5982\u679c\u53ea\u662f\u7b80\u5355\u7684\u7edf\u8ba1\u6211\u89c9\u5f97\u8fd8\u662fexcel\u5427\uff0c\u5982\u679c\u505a\u4e00\u4e9b\u590d\u6742\u7684\u7edf\u8ba1\u7684\u8bdd\u5efa\u8bae\u7528access
\u4e0d\u8fc7\u56e0\u4e3a\u6570\u636e\u91cf\u51e0\u4e07\u7684\u8bdd\uff0c\u6548\u7387\u53ef\u80fd\u4f1a\u6709\u6240\u4e0b\u964d
The City Public Traffic Query System of GuangZhou city proper
Summary
With the development of the city,more and more people pay attention to the traffic information and the outgoing of people is becoming more and more frequent.But the bus route and subway route are keep growing as the citizens' mainest traffic tools.People oftern have the demand of quick check of bus routes and Correspondance.At the same time,in order to combine the network and city bus information,it's important to design a pollingsystem based on the network.
This system completely study and analyse city bus system,at the same time,this system have some analysises on the bus system integrated with practice.It uses ASP,WML skills combine Access through programing realize the bus pollingsystem based on B/S model under the environment of Windows' tool exploitation of Dreamweaver and EditPlus.And it is used in solving the problems of GuangZhou bus inquiry to the travellers which makes them make use of the network to check the newest bus information quickly.The system mainly offers some functions of check according to the route,check according to stops and check according to change and so on.The system makes every effort to simple and practical which makes people of different ages easily use and the system runs steadily and fast response of check and no errors of the sata.The system will develop the WAP edition adapt to mobil phones'visit except the WEB edition.Same datas will fulfill the requests of home computers and outer mobile phone users.
The work need based on the above,the treatise's structures will be divided into:front cover,preface,system's key technologies and introductions,requirements analysis,preliminary design,detailed design,ending words,acknowledgement,reference documents,addenda.
Key words:bus inquiry,ASP\uff08\u6d3b\u52a8\u670d\u52a1\u5668\u7f51\u9875\uff09,Access(\u6570\u636e\u5e93\uff09
\u5e0c\u671b\u80fd\u5e2e\u4e0a\u4f60\uff01\uff01
自己创建窗体，其中文本框名称为text0，四季按钮名称为Command1，
其全部代码如下：
Option Compare Database
Dim i As Integer '定义模块级变量
Private Sub Command1_Click()
'按钮单击事件
Dim seasons As Variant
Dim fc As Variant
Dim fn As Variant
seasons = Array("春", "夏", "秋", "冬")
fc = Array(RGB(0, 255, 0), RGB(255, 255, 0), RGB(0, 0, 255), RGB(255, 0, 0))
fn = Array("宋体", "仿宋体", "楷体", "黑体")
Me.Text0 = seasons(i)
Me.Text0.ForeColor = fc(i)
Me.Text0.FontName = fn(i)
i = i + 1
i = IIf(i > 3, 0, i)
End Sub
Private Sub Form_Load()
'窗体加载事件
Me.Text0 = "春"
Me.Text0.ForeColor = RGB(0, 255, 0)
Me.Text0.FontName = "宋体"
i = 1
End Sub
祝你成功！
另外，仿宋体和楷体没有体现出来，因为我的系统中没有这两个字体（我的是新宋体、宋体-PUA、楷体_GB2312...），只要你有就完全没问题，或者可以通过修改fn = Array("宋体", "仿宋体", "楷体", "黑体")变为其他字体！
绛旓細浣犲厛褰曞叆鏁版嵁锛岀劧鍚庤繍琛屼竴涓媢pdate SQL璇彞锛屽皢<50鐨勬暟璁句负50锛屽皢澶т簬50灏忎簬100鐨勬暟璁句负100灏辫浜 update SQL璇彞鍙互杩欐牱鍐欙細UPDATE tablename AS a SET a.fee = 50 WHERE a.fee <=50 UPDATE tablename AS a SET a.fee = 100 WHERE a.fee >50 AND a.fee <=100 娉細tablename鏄...
绛旓細5.0 鐒跺悗鍦ㄧ獥浣撲腑娣诲姞宸﹁竟宸ュ叿鏍忕殑 DATA 鍜孌BGRID 鎺т欢 閫夋嫨DBGRID 灏嗗睘鎬ATASOURCE 璁剧疆涓篋ATA鎺т欢鐨勫悕瀛楋紙濡侱ATA1锛夌劧鍚庨夋嫨DATA 灏嗗睘鎬ONNECT璁剧疆涓ACCESSS 2000 璁剧疆DATABASENAME 閫夋嫨鏁版嵁搴撶殑瀛樻斁璺緞 鏈鍚庤缃甊ECORDSET 涓洪渶瑕佽繛鎺ョ殑琛ㄧ殑鍚嶅瓧 杩愯灏卞彲浠ョ湅鍒 DATAGRID涓樉绀轰簡鏁版嵁搴撶殑淇℃伅 ...
绛旓細鑰佸紵锛佷綘杩樹笉濡傛妸access杩欎釜鏁版嵁搴撴斁涓摼鎺ワ紝澶у涓嬭浇鍚庝竴鐪嬪氨鐭ラ亾鎬庝箞鍥炰簨浜嗭紒A3绾告槸 420 x 297 mm 锛屼綘閫夋嫨 385*256鐨勬牸寮忔墦鍗帮紒锛佷竴妗舵按锛屼綘鐢ㄦ澂瀛愭潵瑁咃紝澶氫綑鐨勬按灏辨孩鍑轰簡鍚э紒浣犺繖涓姤琛ㄦ暣涓嶅ソ鏄氦鍙夋姤琛ㄣ備綘瀵煎嚭涓簑ord 杩涜鎵撳嵃锛屽苟鏀瑰ぇ灏忓惂锛佽嚦浜庡埆鐨勫師鍥狅紝涔熸湁鍙兘鏄湰鏈虹殑鎵撳嵃椹卞姩涓嶆敮鎸佷綘...
绛旓細浣犵殑浠ｇ爜鏄庢樉鏈夎锛佺湅鏉ヤ綘瀵逛唬鐮佽繕涓嶇啛鎮夊憖銆傘係ub 涓 End Sub 锛汧unction 涓 End Function 鏄厤瀵瑰嚭鐜扮殑銆傘備竴銆侀鍏堬紝鎶婁綘浠ｇ爜涓渶涓婇潰鐨勯偅琛屻愬嵆锛歅rivate Sub 澶у啓閲戦_BeforeUpdate(Cancel As Integer)銆戝拰鏈涓嬮潰鐨勯偅琛屻愬嵆锛欵nd Function銆戝幓鎺夈備簩銆佺劧鍚庯紝浣犻変腑绐椾綋涓愬ぇ鍐欓噾棰:銆戝悗闈㈡樉绀...
绛旓細鑷繁寤轰竴涓獥浣擄紝涓変釜鎺т欢鍒嗗埆鏄細鏂囨湰妗唗ext0锛屽紑濮嬫寜閽瓹md_Start锛屽仠姝㈡寜閽瓹md_End锛屼唬鐮佸涓嬶細Private Sub Cmd_End_Click()Me.OnTimer = ""End Sub --- Private Sub Cmd_Start_Click()Me.OnTimer = "[浜嬩欢杩囩▼]"Me.TimerInterval = 500 End Sub --- Private Sub Form_Load()With Me.T...
绛旓細璇存槑杩欎釜access鏁版嵁搴鐨勫埗浣滅幆澧冨氨鏄湪Microsoft Jet 4.0 Service Pack 8涓 鐜板湪閮藉湪浣跨敤access鏁版嵁搴撻珮鐗堟湰 鏈鏂扮殑鐗堟湰 鎻愰珮浜嗘暟鎹簱鐨勬ц兘鍜屽畨鍏ㄦ 濡傛灉杩欎釜琛ヤ竵娌″畨瑁呮槸涓嶈兘鎵撳紑缂栬緫鐨
绛旓細鏌ヨ璧锋潵搴旇浼氭瘮excel鏂逛究 浣嗘槸姣旇緝璧锋潵access涓嶅鏄撲笂鎵 涓嶇煡閬撲綘宸ヤ綔涓埌搴曢渶瑕佸共浠涔堬紝鎵浠ュ埌搴曞摢涓柟渚胯繕涓嶅お濂借 濡傛灉鍙槸绠鍗曠殑缁熻鎴戣寰楄繕鏄痚xcel鍚э紝濡傛灉鍋氫竴浜涘鏉傜殑缁熻鐨勮瘽寤鸿鐢╝ccess 涓嶈繃鍥犱负鏁版嵁閲忓嚑涓囩殑璇濓紝鏁堢巼鍙兘浼氭湁鎵涓嬮檷
绛旓細1銆丏 2銆丅 3銆丏 4銆丏 5銆丆 6銆丏 7銆丏 8銆丏 9銆丄 10銆丆 浠呬緵鍙傝
绛旓細浣犵殑鎻愰棶鏂瑰紡鎻忚堪寰楀緢涓嶆竻妤氥傚缓璁綘涓婁紶鏁版嵁搴撳埌 http://access911.net/csdn 鍐嶇粰涓浜涘叾浠栫寽娴嬬殑寤鸿锛氫綘鍙互鐩存帴鍦ㄧ獥浣撲腑缂栫▼锛屾潵淇敼鍑犲垪鐨勬暟鎹 鎵嬪姩澶嶅埗瀛愮獥浣撲腑鐨勫琛屾暟鎹箞锛熸棤娉曞疄鐜般備綘鍙互閫夊畾涓鏉″鍒朵竴鏉★紝鑰屼笖杩樿瀹氫箟 ID 鍒楋紝鎵嶈兘瀹炵幇澶嶅埗銆
绛旓細(澶氶夐) A锛汢锛汦锛汫 A.妯悜绐椾綋 B.绠娲佺獥浣 C.鏁版嵁琛ㄧ獥浣 D.缁嗚妭绐椾綋 E.涓/瀛愮獥浣 F.绾垫爮寮忕獥浣 G.杈撳叆绐椾綋 H.琛ㄦ牸寮忕獥浣 灏辫繖涔堝锛岀儲璇楂樻墜缁欒В绛斾笅锛岃阿璋紒杈撳叆鍐呭宸茬粡杈惧埌闀垮害闄愬埗 杩樿兘杈撳叆 9999 瀛 鎻掑叆鍥剧墖鍒犻櫎鍥剧墖鎻掑叆鍦板浘鍒犻櫎鍦板浘鎻掑叆瑙嗛瑙嗛鍦板浘 ...
