sudo vim /etc/modprobe.d/blacklist

chen412 發表在 痞客邦 留言(0) 人氣()

建立 database links
If you have same user with same password on
both databases (9i and 10G),
then you can create a public database link as

CREATE PUBLIC DATABASE LINK dblink USING 'dbalias';

Note: dbalias is the value from your TNSNAMES.ORA. The database from which you
are creating the db link has to have the entry in TNS for other database.

Other method is to create a private db link

CREATE DATABASE LINK dblink CONNECT TO user IDENTIFIED by pwd using 'dbalias';

chen412 發表在 痞客邦 留言(1) 人氣()

轉自https://life.iiietc.ncu.edu.tw/xms/forum/show.php?id=3337
以下範例使用SQL*Plus登入本機oracle做練習:
1.login user: system
  (1) --建立一個user名稱test01(CREATE USER test01)密碼預設為test01(語法:IDENTIFIED BY test01)
      CREATE USER TEST01 IDENTIFIED BY test01 ;
  (2) --賦予test01可以連接資料庫的權限
      GRANT CREATE SESSION TO test01;
  (3) --建立一個user test02,且賦予連線權限
      CREATE USER TEST02 IDENTIFIED BY test02 ;
      GRANT CREATE SESSION TO test02;

chen412 發表在 痞客邦 留言(0) 人氣()

文傳自 https://big5.webasp.net/article/21/20246.htm
 
SQL中的單記錄函數
1.ASCII
返回與指定的字符對應的十進制數;
SQL> select ascii('A') A,ascii('a') a,ascii('0') zero,ascii(' ') space from dual;
        A         A      ZERO     SPACE
--------- --------- --------- ---------
       65        97        48        32
2.CHR
給出整數,返回對應的字符;
SQL> select chr(54740) zhao,chr(65) chr65 from dual;
ZH C
-- -
趙 A
3.CONCAT
連接兩個字符串;
SQL> select concat('010-','88888888')||'轉23'  高乾競電話 from dual;
高乾競電話
----------------
010-88888888轉23
4.INITCAP
返回字符串並將字符串的第一個字母變為大寫;
SQL> select initcap('smith') upp from dual;
UPP
-----
Smith
5.INSTR(C1,C2,I,J)
在一個字符串中搜索指定的字符,返回發現指定的字符的位置;
C1    被搜索的字符串
C2    希望搜索的字符串
I     搜索的開始位置,默認為1
J     出現的位置,默認為1
SQL> select instr('oracle traning','ra',1,2) instring from dual;
 INSTRING
---------
        9
6.LENGTH
返回字符串的長度;
SQL> select name,length(name),addr,length(addr),sal,length(to_char(sal)) from gao.nchar_tst;
NAME   LENGTH(NAME) ADDR             LENGTH(ADDR)       SAL LENGTH(TO_CHAR(SAL))
------ ------------ ---------------- ------------ --------- --------------------
高乾競            3 北京市海錠區                6   9999.99                    7
 
7.LOWER
返回字符串,並將所有的字符小寫
SQL> select lower('AaBbCcDd')AaBbCcDd from dual;
AABBCCDD
--------
aabbccdd
8.UPPER
返回字符串,並將所有的字符大寫
SQL> select upper('AaBbCcDd') upper from dual;
UPPER
--------
AABBCCDD
 
9.RPAD和LPAD(粘貼字符)
RPAD  在列的右邊粘貼字符
LPAD  在列的左邊粘貼字符
SQL> select lpad(rpad('gao',10,'*'),17,'*')from dual;
LPAD(RPAD('GAO',1
-----------------
*******gao*******
不夠字符則用*來填滿
10.LTRIM和RTRIM
LTRIM  刪除左邊出現的字符串
RTRIM  刪除右邊出現的字符串
SQL> select ltrim(rtrim('   gao qian jing   ',' '),' ') from dual;
LTRIM(RTRIM('
-------------
gao qian jing
11.SUBSTR(string,start,count)
取子字符串,從start開始,取count個
SQL> select substr('13088888888',3,8) from dual;
SUBSTR('
--------
08888888
12.REPLACE('string','s1','s2')
string   希望被替換的字符或變量
s1       被替換的字符串
s2       要替換的字符串
SQL> select replace('he love you','he','i') from dual;
REPLACE('H
----------
i love you
13.SOUNDEX
返回一個與給定的字符串讀音相同的字符串
SQL> create table table1(xm varchar(8));
SQL> insert into table1 values('weather');
SQL> insert into table1 values('wether');
SQL> insert into table1 values('gao');
SQL> select xm from table1 where soundex(xm)=soundex('weather');
XM
--------
weather
wether
14.TRIM('s' from 'string')
LEADING   剪掉前面的字符
TRAILING  剪掉後面的字符
如果不指定,默認為空格符
15.ABS
返回指定值的絕對值
SQL> select abs(100),abs(-100) from dual;
 ABS(100) ABS(-100)
--------- ---------
      100       100
16.ACOS
給出反餘弦的值
SQL> select acos(-1) from dual;
 ACOS(-1)
---------
3.1415927
17.ASIN
給出反正弦的值
SQL> select asin(0.5) from dual;
ASIN(0.5)
---------
.52359878
18.ATAN
返回一個數字的反正切值
SQL> select atan(1) from dual;
  ATAN(1)
---------
.78539816
19.CEIL
返回大於或等於給出數字的最小整數
SQL> select ceil(3.1415927) from dual;
CEIL(3.1415927)
---------------
              4
20.COS
返回一個給定數字的餘弦
SQL> select cos(-3.1415927) from dual;
COS(-3.1415927)
---------------
             -1
21.COSH
返回一個數字反餘弦值
SQL> select cosh(20) from dual;
 COSH(20)
---------
242582598
22.EXP
返回一個數字e的n次方根
SQL> select exp(2),exp(1) from dual;
   EXP(2)    EXP(1)
--------- ---------
7.3890561 2.7182818
23.FLOOR
對給定的數字取整數
SQL> select floor(2345.67) from dual;
FLOOR(2345.67)
--------------
          2345
24.LN
返回一個數字的對數值
SQL> select ln(1),ln(2),ln(2.7182818) from dual;
    LN(1)     LN(2) LN(2.7182818)
--------- --------- -------------
        0 .69314718     .99999999
25.LOG(n1,n2)
返回一個以n1為底n2的對數
SQL> select log(2,1),log(2,4) from dual;
 LOG(2,1)  LOG(2,4)
--------- ---------
        0         2
26.MOD(n1,n2)
返回一個n1除以n2的餘數
SQL> select mod(10,3),mod(3,3),mod(2,3) from dual;
MOD(10,3)  MOD(3,3)  MOD(2,3)
--------- --------- ---------
        1         0         2
27.POWER
返回n1的n2次方根
SQL> select power(2,10),power(3,3) from dual;
POWER(2,10) POWER(3,3)
----------- ----------
       1024         27
28.ROUND和TRUNC
按照指定的精度進行捨入
SQL> select round(55.5),round(-55.4),trunc(55.5),trunc(-55.5) from dual;
ROUND(55.5) ROUND(-55.4) TRUNC(55.5) TRUNC(-55.5)
----------- ------------ ----------- ------------
         56          -55          55          -55
29.SIGN
取數字n的符號,大於0返回1,小於0返回-1,等於0返回0
SQL> select sign(123),sign(-100),sign(0) from dual;
SIGN(123) SIGN(-100)   SIGN(0)
--------- ---------- ---------
        1         -1         0
30.SIN
返回一個數字的正弦值
SQL> select sin(1.57079) from dual;
SIN(1.57079)
------------
           1
31.SIGH
返回雙曲正弦的值
SQL> select sin(20),sinh(20) from dual;
  SIN(20)  SINH(20)
--------- ---------
.91294525 242582598
32.SQRT
返回數字n的根
SQL> select sqrt(64),sqrt(10) from dual;
 SQRT(64)  SQRT(10)
--------- ---------
        8 3.1622777
33.TAN
返回數字的正切值
SQL> select tan(20),tan(10) from dual;
  TAN(20)   TAN(10)
--------- ---------
2.2371609 .64836083
34.TANH
返回數字n的雙曲正切值
SQL> select tanh(20),tan(20) from dual;
 TANH(20)   TAN(20)
--------- ---------
        1 2.2371609
 
35.TRUNC
按照指定的精度截取一個數
SQL> select trunc(124.1666,-2) trunc1,trunc(124.16666,2) from dual;
   TRUNC1 TRUNC(124.16666,2)
--------- ------------------
      100             124.16
 
36.ADD_MONTHS
增加或減去月份
SQL> select to_char(add_months(to_date('199912','yyyymm'),2),'yyyymm') from dual;
TO_CHA
------
200002
SQL> select to_char(add_months(to_date('199912','yyyymm'),-2),'yyyymm') from dual;
TO_CHA
------
199910
37.LAST_DAY
返回日期的最後一天
SQL> select to_char(sysdate,'yyyy.mm.dd'),to_char((sysdate)+1,'yyyy.mm.dd') from dual;
TO_CHAR(SY TO_CHAR((S
---------- ----------
2004.05.09 2004.05.10
SQL> select last_day(sysdate) from dual;
LAST_DAY(S
----------
31-5月 -04
38.MONTHS_BETWEEN(date2,date1)
給出date2-date1的月份
SQL> select months_between('19-12月-1999','19-3月-1999') mon_between from dual;
MON_BETWEEN
-----------
          9
SQL>selectmonths_between(to_date('2000.05.20','yyyy.mm.dd'),to_date('2005.05.20','yyyy.mm.dd')) mon_betw from dual;
 MON_BETW
---------
      -60
39.NEW_TIME(date,'this','that')
給出在this時區=other時區的日期和時間
SQL> select to_char(sysdate,'yyyy.mm.dd hh24:mi:ss') bj_time,to_char(new_time
  2  (sysdate,'PDT','GMT'),'yyyy.mm.dd hh24:mi:ss') los_angles from dual;
BJ_TIME             LOS_ANGLES
------------------- -------------------
2004.05.09 11:05:32 2004.05.09 18:05:32
40.NEXT_DAY(date,'day')
給出日期date和星期x之後計算下一個星期的日期
SQL> select next_day('18-5月-2001','星期五') next_day from dual;
NEXT_DAY
----------
25-5月 -01
 
41.SYSDATE
用來得到系統的當前日期
SQL> select to_char(sysdate,'dd-mm-yyyy day') from dual;
TO_CHAR(SYSDATE,'
-----------------
09-05-2004 星期日
trunc(date,fmt)按照給出的要求將日期截斷,如果fmt='mi'表示保留分,截斷秒
SQL> select to_char(trunc(sysdate,'hh'),'yyyy.mm.dd hh24:mi:ss') hh,
  2  to_char(trunc(sysdate,'mi'),'yyyy.mm.dd hh24:mi:ss') hhmm from dual;
HH                  HHMM
------------------- -------------------
2004.05.09 11:00:00 2004.05.09 11:17:00
 
42.CHARTOROWID
將字符數據類型轉換為ROWID類型
SQL> select rowid,rowidtochar(rowid),ename from scott.emp;
ROWID              ROWIDTOCHAR(ROWID) ENAME
------------------ ------------------ ----------
AAAAfKAACAAAAEqAAA AAAAfKAACAAAAEqAAA SMITH
AAAAfKAACAAAAEqAAB AAAAfKAACAAAAEqAAB ALLEN
AAAAfKAACAAAAEqAAC AAAAfKAACAAAAEqAAC WARD
AAAAfKAACAAAAEqAAD AAAAfKAACAAAAEqAAD JONES
43.CONVERT(c,dset,sset)
將源字符串 sset從一個語言字符集轉換到另一個目的dset字符集
SQL> select convert('strutz','we8hp','f7dec') "conversion" from dual;
conver
------
strutz
44.HEXTORAW
將一個十六進制構成的字符串轉換為二進制
45.RAWTOHEXT
將一個二進制構成的字符串轉換為十六進制
 
46.ROWIDTOCHAR
將ROWID數據類型轉換為字符類型
 
47.TO_CHAR(date,'format')
SQL> select to_char(sysdate,'yyyy/mm/dd hh24:mi:ss') from dual;
TO_CHAR(SYSDATE,'YY
-------------------
2004/05/09 21:14:41
 
48.TO_DATE(string,'format')
將字符串轉化為ORACLE中的一個日期
49.TO_MULTI_BYTE
將字符串中的單字節字符轉化為多字節字符
SQL>  select to_multi_byte('高') from dual;
TO
--

50.TO_NUMBER
將給出的字符轉換為數字
SQL> select to_number('1999') year from dual;
     YEAR
---------
     1999
51.BFILENAME(dir,file)
指定一個外部二進制文件
SQL>insert into file_tb1 values(bfilename('lob_dir1','image1.gif'));
52.CONVERT('x','desc','source')
將x字段或變量的源source轉換為desc
SQL> select sid,serial#,username,decode(command,
  2  0,'none',
  3  2,'insert',
  4  3,
  5  'select',
  6  6,'update',
  7  7,'delete',
  8  8,'drop',
  9  'other') cmd  from v$session where type!='background';
      SID   SERIAL# USERNAME                       CMD
--------- --------- ------------------------------ ------
        1         1                                none
        2         1                                none
        3         1                                none
        4         1                                none
        5         1                                none
        6         1                                none
        7      1275                                none
        8      1275                                none
        9        20 GAO                            select
       10        40 GAO                            none
53.DUMP(s,fmt,start,length)
DUMP函數以fmt指定的內部數字格式返回一個VARCHAR2類型的值
SQL> col global_name for a30
SQL> col dump_string for a50
SQL> set lin 200
SQL> select global_name,dump(global_name,1017,8,5) dump_string from global_name;
GLOBAL_NAME                    DUMP_STRING
------------------------------ --------------------------------------------------
ORACLE.WORLD                   Typ=1 Len=12 CharacterSet=ZHS16GBK: W,O,R,L,D
54.EMPTY_BLOB()和EMPTY_CLOB()
這兩個函數都是用來對大數據類型字段進行初始化操作的函數
55.GREATEST
返回一組表達式中的最大值,即比較字符的編碼大小.
SQL> select greatest('AA','AB','AC') from dual;
GR
--
AC
SQL> select greatest('啊','安','天') from dual;
GR
--

56.LEAST
返回一組表達式中的最小值
SQL> select least('啊','安','天') from dual;
LE
--

57.UID
返回標識當前用戶的唯一整數
SQL> show user
USER 為"GAO"
SQL> select username,user_id from dba_users where user_id=uid;
USERNAME                         USER_ID
------------------------------ ---------
GAO                                   25
 
58.USER
返回當前用戶的名字
SQL> select user from  dual;
USER
------------------------------
GAO
59.USEREVN
返回當前用戶環境的信息,opt可以是:
ENTRYID,SESSIONID,TERMINAL,ISDBA,LABLE,LANGUAGE,CLIENT_INFO,LANG,VSIZE
ISDBA  查看當前用戶是否是DBA如果是則返回true
SQL> select userenv('isdba') from dual;
USEREN
------
FALSE
SQL> select userenv('isdba') from dual;
USEREN
------
TRUE
SESSION
返回會話標誌
SQL> select userenv('sessionid') from dual;
USERENV('SESSIONID')
--------------------
                 152
ENTRYID
返回會話人口標誌
SQL> select userenv('entryid') from dual;
USERENV('ENTRYID')
------------------
                 0
INSTANCE
返回當前INSTANCE的標誌
SQL> select userenv('instance') from dual;
USERENV('INSTANCE')
-------------------
                  1
LANGUAGE
返回當前環境變量
SQL> select userenv('language') from dual;
USERENV('LANGUAGE')
----------------------------------------------------
SIMPLIFIED CHINESE_CHINA.ZHS16GBK
LANG
返回當前環境的語言的縮寫
SQL> select userenv('lang') from dual;
USERENV('LANG')
----------------------------------------------------
ZHS
TERMINAL
返回用戶的終端或機器的標誌
SQL> select userenv('terminal') from dual;
USERENV('TERMINA
----------------
GAO
VSIZE(X)
返回X的大小(字節)數
SQL> select vsize(user),user from dual;
VSIZE(USER) USER
----------- ------------------------------
          6 SYSTEM
 
60.AVG(DISTINCT|ALL)
all表示對所有的值求平均值,distinct只對不同的值求平均值
SQLWKS> create table table3(xm varchar(8),sal number(7,2));
語句已處理。
SQLWKS>  insert into table3 values('gao',1111.11);
SQLWKS>  insert into table3 values('gao',1111.11);
SQLWKS>  insert into table3 values('zhu',5555.55);
SQLWKS> commit;
SQL> select avg(distinct sal) from gao.table3;
AVG(DISTINCTSAL)
----------------
         3333.33
SQL> select avg(all sal) from gao.table3;
AVG(ALLSAL)
-----------
    2592.59
61.MAX(DISTINCT|ALL)
求最大值,ALL表示對所有的值求最大值,DISTINCT表示對不同的值求最大值,相同的只取一次
SQL> select max(distinct sal) from scott.emp;
MAX(DISTINCTSAL)
----------------
            5000
62.MIN(DISTINCT|ALL)
求最小值,ALL表示對所有的值求最小值,DISTINCT表示對不同的值求最小值,相同的只取一次
SQL> select min(all sal) from gao.table3;
MIN(ALLSAL)
-----------
    1111.11
63.STDDEV(distinct|all)
求標準差,ALL表示對所有的值求標準差,DISTINCT表示只對不同的值求標準差
SQL> select stddev(sal) from scott.emp;
STDDEV(SAL)
-----------
  1182.5032
SQL> select stddev(distinct sal) from scott.emp;
STDDEV(DISTINCTSAL)
-------------------
           1229.951
 
64.VARIANCE(DISTINCT|ALL)
求協方差
SQL> select variance(sal) from scott.emp;
VARIANCE(SAL)
-------------
    1398313.9
65.GROUP BY
主要用來對一組數進行統計
SQL> select deptno,count(*),sum(sal) from scott.emp group by deptno;
   DEPTNO  COUNT(*)  SUM(SAL)
--------- --------- ---------
       10         3      8750
       20         5     10875
       30         6      9400
 
66.HAVING
對分組統計再加限制條件
SQL> select deptno,count(*),sum(sal) from scott.emp group by deptno having count(*)>=5;
   DEPTNO  COUNT(*)  SUM(SAL)
--------- --------- ---------
       20         5     10875
       30         6      9400
SQL> select deptno,count(*),sum(sal) from scott.emp having count(*)>=5 group by deptno ;
   DEPTNO  COUNT(*)  SUM(SAL)
--------- --------- ---------
       20         5     10875
       30         6      9400
67.ORDER BY
用於對查詢到的結果進行排序輸出
SQL> select deptno,ename,sal from scott.emp order by deptno,sal desc;
   DEPTNO ENAME            SAL
--------- ---------- ---------
       10 KING            5000
       10 CLARK           2450
       10 MILLER          1300
       20 SCOTT           3000
       20 FORD            3000
       20 JONES           2975
       20 ADAMS           1100
       20 SMITH            800
       30 BLAKE           2850
       30 ALLEN           1600
       30 TURNER          1500
       30 WARD            1250
       30 MARTIN          1250
       30 JAMES            950

chen412 發表在 痞客邦 留言(0) 人氣()

開起oracle10g client oem出現OutOfMemoryError
java.lang.reflect.InvocationTargetExceptionjava.lang.OutOfMemoryError
無法啟動應用程式 oracle.sysman.vt.console.app.Console
用法: oemapp <應用程式名稱>
安裝的應用程式為: lmviewer, jdbctest, console, esm, dbastudio, sdoadvisor, oemut
il, worksheet, ocmcli, ocm, txtmgr, opm, dataguard

chen412 發表在 痞客邦 留言(0) 人氣()

CODE改自 https://blog.ez2learn.com/2009/08/15/lat-lon-to-twd97/
==========================================================
void TFormWhole::TMToLatLon(double x, double y)
{
        double dTmp1, dTmp2;
        double dx = 250000;
        double dy = 0;
        double lon0 = 121;
        double k0 = 0.9999;
        double a = 6378137.0;
        double b = 6356752.314245;
        lon0 = 121 * M_PI / 180;    //toRadians
        double e = pow((1- pow(b,2)/pow(a,2)), 0.5);
        x -= dx;
        y -= dy;
        // Calculate the Meridional Arc
        double M = y/k0;
        // Calculate Footprint Latitude
        double mu = M/(a*(1.0 - pow(e, 2)/4.0 - 3*pow(e, 4)/64.0 - 5*pow(e, 6)/256.0));
        double e1 = (1.0 - pow((1.0 - pow(e, 2)), 0.5)) / (1.0 + pow((1.0 - pow(e, 2)), 0.5));
        double J1 = (3*e1/2 - 27*pow(e1, 3)/32.0);
        double J2 = (21*pow(e1, 2)/16 - 55*pow(e1, 4)/32.0);
        double J3 = (151*pow(e1, 3)/96.0);
        double J4 = (1097*pow(e1, 4)/512.0);
        double fp = mu + J1*sin(2*mu) + J2*sin(4*mu) + J3*sin(6*mu) + J4*sin(8*mu);
        // Calculate Latitude and Longitude
        double e2 = pow((e*a/b), 2);
        double C1 = pow(e2*cos(fp), 2);
        double T1 = pow(tan(fp), 2);
        double R1 = a*(1-pow(e, 2))/pow((1-pow(e, 2)*pow(sin(fp), 2)), (3.0/2.0));
        double N1 = a/pow((1-pow(e, 2)*pow(sin(fp), 2)), 0.5);
        double D = x/(N1*k0);
        // lat
        double Q1 = N1*tan(fp)/R1;
        double Q2 = (pow(D, 2)/2.0);
        double Q3 = (5 + 3*T1 + 10*C1 - 4*pow(C1, 2) - 9*e2)*pow(D, 4)/24.0;
        double Q4 = (61 + 90*T1 + 298*C1 + 45*pow(T1, 2) - 3*pow(C1, 2) - 252*e2)*pow(D, 6)/720.0;
        double lat = fp - Q1*(Q2 - Q3 + Q4);
        // long
        double Q5 = D;
        double Q6 = (1 + 2*T1 + C1)*pow(D, 3)/6;
        double Q7 = (5 - 2*C1 + 28*T1 - 3*pow(C1, 2) + 8*e2 + 24*pow(T1, 2))*pow(D, 5)/120.0;
        double lon = lon0 + (Q5 - Q6 + Q7)/cos(fp);
        lat = (lat * 180) / M_PI; //緯
        lon = (lon * 180) / M_PI; //經
        LabeledEdit_lon->Text = lon;
        LabeledEdit_lat->Text = lat;
}

chen412 發表在 痞客邦 留言(1) 人氣()

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
    TEdit *ed = (TEdit *)Sender;
    AnsiString txt = ed->Text;
    int tag = ed->Tag;
    int len=txt.Length();
    if(len >= 1 && txt != "-" && txt != ".")
    {
        if(!isNumber(txt))
        {
            Beep();
            ShowMessage("輸入的字元不合法!");
            ed->Text = oldText;
            ed->Perform(WM_KEYDOWN,VK_END,0);
            ed->Perform(WM_KEYUP,VK_END,0);
        }else{
            oldText = ed->Text;
        }
    }
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::isNumber(const AnsiString nStr)
{
    AnsiString chkStr="0123456789.-";
    bool rc=true;
    for(int i=1; i<=nStr.Length(); i++)
    {
        if(chkStr.Pos(nStr.SubString(i,1)) == 0)
        {
            rc=false;
            break;
        }
    }
    return rc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
        TEdit *ed = (TEdit *)Sender;
        int err = 0;
        AnsiString txt = ed->Text;
        int tag = ed->Tag;
        int len=txt.Length();
        if(len >= 1 && txt != "-" && txt != ".")
        {
            if(isNumber(txt))
            {
                double f=double(StrToFloat(txt));
                if (f < -100 || f > 100) err=2;
            }else{
                err = 1;
            }
        }
        if(err > 0)
        {
            AnsiString msg;
            if (err == 1)
            {
                msg = "輸入的字元不合法!";
            }else{
                msg = "數值超過範圍!";
            }
            Beep();
            ShowMessage(msg);
            ed->SetFocus();
            ed->Perform(WM_KEYDOWN,VK_END,0);
            ed->Perform(WM_KEYUP,VK_END,0);
        }
}

chen412 發表在 痞客邦 留言(0) 人氣()

文章轉自 https://blog.cemcl.com.tw/?p=233
網芳 設定
以下為XP pro方法,Xp home某些項目沒有提供
我的電腦右鍵->管理->電腦管理(本機)->服務及應用程式->服務:
*Computer Browser 自動, 已啟動. (如未能啟動請檢查防火牆設定:檔案及印表機共用要打勾、開啟)
  DNS Client 自動, 已啟動
  DHCP Client 自動, 已啟動
  Routing & Remote Access 自動, 已啟動
*Server 自動, 已啟動
*Terminal Service 自動, 已啟動
*Workstation 自動, 已啟動

chen412 發表在 痞客邦 留言(0) 人氣()

1.當一個人畏懼調職的時候,他忘了提升自已是一種習慣。
2.當一個人溝通障礙的時候,他忘了真誠傾聽是一種習慣。
3.當一個人沮喪失意的時候,他忘了檢討改進是一種習慣。
4.當一個人誌得意滿的時候,他忘了謙衝為懷是一種習慣。
5.當一個人渾噩度日的時候,他忘了閱讀好書是一種習慣。
6.當一個人業績消退的時候,他忘了積極行動是一種習慣。
7當一個人覺得人生乏味的時候,他忘了培養幽默是一種習慣。
8.當一個人體力日差的時候,他忘了運動建身是一種習慣。
9.當一個人工作疲憊的時候,他忘了認真休息是一種習慣。
11.當一個人孤傲狂放的時候,他忘了感恩惜福是一種習慣。
12.當一個人生活枯燥的時候,他忘了用心體會是一種習慣。
13.當一個人忙於工作的時候,他忘了安排休閒是一種習慣。
14.當一個人目中無人的時候,他忘了不斷學習是一種習慣。
15.當一個人服務不佳的時候,他忘了讓顧客滿意是一種習慣。
16.當一個人錢不夠用的時候,他忘了投資理財是一種習慣。
17.當一個人覺得工作低迷的時候,他忘了激勵自己是一種習慣。
18.當一個人懷疑自己的時候,他忘了建立自信是一種習慣。
19當一個人忽略家人的時候,他忘了愛與關懷是一種習慣。
20.當一個人慌張失措的時候,他忘了萬全準備是一種習慣。
21.當一個人推諉責任的時候,他忘了勇於承擔是一種習慣。
22.當一個人腸枯思竭的時候,他忘了轉型思考是一種習慣。

chen412 發表在 痞客邦 留言(0) 人氣()

form開始前先設定地圖的大小位置。
void __fastcall TForm1::FormShow(TObject *Sender)
{
        Map1->ScrollBars = false;
        IMoRectanglePtr rec;
        rec = (IDispatch*)CreateOleObject("MapObjects2.Rectangle");
        rec->Left=246034;
        rec->Right=257148;
        rec->Top=2745620;
        rec->Bottom=2738197;
        Map1->ControlInterface->Extent = rec;
}

chen412 發表在 痞客邦 留言(0) 人氣()

副檔名aux、jgw、jpg、rrd要放在同一層資料夾,才讀得到座標!
若只load圖檔的話則會一直往上覆蓋。
 
void TForm1::LoadPictures(void)
{
        IMoLayersPtr lyrs(Map1->Layers);
        IMoImageLayerPtr ilyr;
        ilyr = (IDispatch*)CreateOleObject("MapObjects2.ImageLayer");
        ilyr->File = WideString("D:\\SIAP_MAP\\test\\aerialPhoto1.jpg");
        if (ilyr->Valid){
            lyrs->Add(ilyr);
        }
}

chen412 發表在 痞客邦 留言(0) 人氣()

讀cad-.DWG圖到MapObject裡,主要分四層[CADArea]、[CADLine]、[CADPoint] 、[CADText]
在讀text時主要在lbrend->set_Field(WideString("TEXT"));這一行,是讀field。
========================================================== 
        AnsiString CADType[4];
        CADType[0] = "[CADArea]";
        CADType[1] = "[CADLine]";
        //CADType[2] = "[CADPoint]";
        CADType[2] = "[CADText]";
        for (unsigned short int i=0 ; i<3 ; i++)
        {
            IMoDataConnectionPtr dc;
            IMoGeoDatasetPtr GeoData;
            IMoMapLayerPtr lyr;
            IMoLayersPtr lyrs(Map1->Layers);
            IMoSymbolPtr sym;
            dc = (IDispatch*)CreateOleObject("MapObjects2.DataConnection");
            dc->Database = WideString(CADType[i]+"D:\\map\\").Detach();
            if(!(bool)dc->Connect())
                return;
            GeoData = dc->FindGeoDataset(WideString("SIPA97.DWG").Detach());
            lyr = (IDispatch*)CreateOleObject("MapObjects2.MapLayer");
            lyr->GeoDataset = GeoData;
            if (i==2)
            {
                IMoLabelRendererPtr lbrend;
                lbrend = (IDispatch*)CreateOleObject("MapObjects2.LabelRenderer");
                lbrend->set_HeightField(WideString("HeightText"));
                lbrend->set_Field(WideString("TEXT"));
                TFont* ft = new TFont();
                _di_IFontDisp  oleFt;
                ft->Name = "Times New Romans";
                GetOleFont(ft, oleFt);
                IMoTextSymbolPtr tsym(lbrend->get_Symbol(0));
                tsym->Font = (IFontDisp**)(IDispatch*)oleFt;
                lyr->set_Renderer(lbrend);
                lbrend.Release();
                ft->Free();
            }
            lyrs->Add(lyr);
            lyr.Release();
        }

chen412 發表在 痞客邦 留言(0) 人氣()

1
Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲,請立即離開。

已滿十八歲者,亦請勿將內容提供給未成年人士。