Web Report 開發模組

讓Desktop程式設計人員快速上雲端(範例一)

以框架開發出第一個員工資料管理系統
第一步 : module 命名
module=employee
開啟 employee 資料夾
並建立 index.php



$maintable = 'EMPLOYEE';
$mainkey = 'EMPLOYEE_ID';
$mainkey_value = $employee_id;
$columns = array(EMPLOYEE_ID,EMPLOYEE_NAME,DEPART_ID,DEPART_NAME,EMAIL,MOBILE_PHONE,TEL,MSN,SKYPHONE,ADDRESS,JOB_TITLE,PASS_WD,ORG_ID,ORG_NAME,CHG_DATETIME,CHG_USER,WUID);
$displays = array('員工代號','員工名稱','部門代號','部門名稱','電子信箱','行動電話','電話','MSN','SKYPE','地址','職稱','密碼','組織層級','層級名稱','異動日期','異動人員','WUID');
$action = 'browse';
if (isset($_REQUEST['action'])){
$action = $_REQUEST['action'];
}
if (isset($_REQUEST['ordcol'])){
$ordcol = $_REQUEST['ordcol'];
} else {
$ordcol = $mainkey;
}
if ($action=='confdelete'){
$query1 = new adoquery();
$query1->connection($db);
$query1->sql = "delete from ".$maintable." where $mainkey = '".$mainkey_value."'";
$query1->execute();
}

switch ($action) {
case ($action=='browse' || $action=='confdelete' || $action==''):
$sql = "select * from ".$maintable." ;
$query1 = new adoquery();
$query1->connection($db);
sql = "delete from ".$maintable." where $mainkey = '".$mainkey_value."'";
$query1->execute();
}

switch ($action) {
case ($action=='browse' || $action=='confdelete' || $action==''):
/**begin**/
$sql = "select * from ".$maintable."
$query1 = new adoquery();
$query1->connection($db);
$query1->sql = $sql;
$query1->open();
$total_count = $query1->recordcount();
$query1->sql = "select * from ".$maintable."
$query1->SelectLimit($page_size,$skip);
$rs = $query1->rs();

$grid1 = new dbgrid();
$grid1->datasource($rs);

$grid1->addcolumn[0] = 'EMPLOYEE_ID,編號';
$grid1->addcolumn[1] = 'EMPLOYEE_NAME,名稱';
$grid1->addcolumn[2] = 'DEPART_ID,部門代號';
$grid1->addcolumn[3] = 'DEPART_NAME,部門名稱';

$grid1->mainkey = $mainkey;
$grid1->showsearch='true';
$grid1->show();

$sub_pages=10;
$pageCurrent=$_GET["p"];
if(!$pageCurrent){ $pageCurrent=1;}
$subPages=new SubPages($page_size,$total_count,$pageCurrent,$sub_pages,$_SERVER["PHP_SELF"]."?module=$module&sys=$sys&action=browse$urlwhere&p=",0);
echo '
'. $subPages->subPageCss1();
echo ''. $subPages->subPageCombo();
/**end**/

break;

case 'delete':
include_once('insert.php');
break;

case 'insert':
include_once('insert.php');
break;
case 'edit':
include_once('insert.php');
break;

case 'post':
include_once('insert.php');
break;
default:

}


瀏覽頁完成如圖


接下來新增 insert.php


if ($action=='post'){
//存檔程序處理----
}
//讀取資料
$adoquery1 = new adoquery();
$adoquery1->connection($db);
$adoquery1->sql="select * from $maintable where $mainkey ='".$mainkey_value."'";
$adoquery1->open();
$rs=$adoquery1->rs();
for($i=0; $i < $rs->FieldCount(); $i++) {
$fields = $rs->FetchField($i);
$columns[] = $fields->name;
}

for ($i=0;$ifields[$columns[$i]];
}



" method="post" id="myform" enctype="multipart/form-data">

編輯項目

$input = new input();
$input->label = '員工編號';
$input->name = 'employee_id';
$input->id="employee_id";
$input->value = $employee_id;
$input->size = '10';
if ($action=='edit'){
$input->readonly=true;
}
$input->show();

$input = new input();
$input->label = '員工姓名';
$input->name = 'employee_name';
$input->id="employee_name";
$input->value = $employee_name;
$input->size = '30';
$input->show();
nextline(); //換行

$input = new input();
$input->label = '部門代號';
$input->name = 'depart_id';
$input->id = 'depart_id';
$input->value = $depart_id;
$input->size = '10';
$input->show();

$input = new input();
$input->label = '部門名稱';
$input->name = 'depart_name';
$input->id = 'depart_name';
$input->value = $depart_name;
$input->size = '20';
$input->searchmodule = 'depart';
$input->show();
nextline();

$input = new input();
$input->label = '電子信箱';
$input->name = 'email';
$input->id = 'email';
$input->value = $email;
$input->size = '70';
$input->show();

$input = new input();
$input->label = '行動電話';
$input->name = 'mobile_phone';
$input->id = 'mobile_phone';
$input->value = $mobile_phone;
$input->size = '20';
$input->show();

$input = new input();
$input->label = '聯絡電話';
$input->name = 'tel';
$input->id = 'tel';
$input->value = $tel;
$input->size = '20';
$input->show();

$input = new input();
$input->label = 'MSN';
$input->name = 'msn';
$input->id = 'msn';
$input->value = $msn;
$input->size = '50';
$input->show();

$input = new input();
$input->label = 'SKYPE';
$input->name = 'skyphone';
$input->id = 'skyphone';
$input->value = $skyphone;
$input->size = '50';
$input->show();

$input = new input();
$input->label = '地址';
$input->name = 'address';
$input->id = 'address';
$input->value = $address;
$input->size = '70';
$input->show();

$input = new input();
$input->label = '職稱';
$input->name = 'job_title';
$input->id = 'job_title';
$input->value = $job_title;
$input->size = '50';
$input->show();

$input = new input();
$input->label = '密碼';
$input->name = 'pass_wd';
$input->id = 'pass_wd';
$input->value = $pass_wd;
$input->size = '10';
$input->show();

$combobox1 = new combobox();
$combobox1->label = '組織層級';
$combobox1->id = 'org_id';
$combobox1->name = 'org_id';
$query1 = new adoquery();
$query1->connection($db);
$query1->sql="SELECT ORG_ID, ORG_NAME FROM ORG_ITEM order by ORG_ID "; $query1->open();
$rs1 = $query1->rs();
$iCurr=0;
$i=0;
while (!$rs1->EOF) {
$combobox1->items[] = $rs1->fields['ORG_NAME']."".$rs1->fields['ORG_ID']."]";
$combobox1->values[] = $rs1->fields['ORG_ID'];
if ($rs1->fields['ORG_ID']== $org_id ) {
$iCurr = $i;
}
$i=$i+1;
$rs1->MoveNext();
}
$combobox1->itemindex = $iCurr;
$combobox1->show();
?>



完成輸入畫面


$input->searchmodule = 'depart'; 的部分產生關聯查詢按鈕
效過如下

後山最美麗的公園-台東森林公園

台東休閒森林公園是一大片面積遼的木麻黃防風保安林地，由於木麻黃顏色較深，遠遠望去林相黝黑，因此又稱為黑森林。台東縣政府將黑森林與海濱公園綠意連成一片，規劃而成一處市區休閒森林公園，連串的綠地，成為台東市區最大型的公園，以及鄰近海域最完整的生態區，是運動休閒的最佳場所，也是台東市近郊炙手可熱的遊憩景點。
至於如何去google一下就知道了,
公園很大, 風景更是漂亮, 到台東醫一定要去體會一下

都蘭山-阿美族的藍寶石故鄉

台灣小百岳之一的「都蘭山」
都蘭山，台東縣縣山，台灣小百岳之一，海拔1190公尺，一等三角點，為海岸山脈南段最高峰。山勢崔巍，雍容華貴，是岳界朋友必登的中級名山。

台11線海岸公路151.5K，靠山路邊的大石塊上，刻著「都蘭山」醒目的紅色字樣，是步道入山口。沿山路蜿蜒西上四公里見林務局新建二層式觀景平台，即本步道起登點，海拔590公尺。由於步道起登點離台11線約4公里之譜，且產業道路陡坡彎折，故以自行開車為宜。

享受悠閒的黃昏美景-池上大坡池

大坡池原名「大陂池」，池水來源為新武呂溪的伏流，及人工灌溉水田的溢流水，池水向北出口流 出，成為秀姑巒溪的源頭，是花東縱谷平原主要之溼地，因風景優美而遠近馳名。目前園區共規劃有公共設施區、服務設施區、運動公園區、自然公園區、休閒農業 區及田園景觀區等六大設施，遊客可先行租用自行車，沿著池上鄉環圳自行車道，悠閒地享受大坡池豐富的自然生態景觀及沿途阡陌縱橫的田園風光。　

• 復古的竹筏



• 環湖步道
  
  
  
  
  

更多的美景需要您親身體會, 千萬別大太陽下來喔!　

都蘭月光小棧去過沒

1. 台東去過多次也沒去過, 這次發願要深入之旅, 沿海岸線一定會經過都蘭這個村莊,但從不曾進去過 ..路邊剛好有月光小棧的標誌,進去看看了

台東遊記之-蝴蝶谷初體驗

開始台東LongStay的第一天, 經民宿主人告知台東鹿野蝴蝶谷, 這個罕有人知的美麗地方,一家人很興奮的往那從未去過的綠色天堂出發了,果然溪水清澈見底,在都市裡很少有這種地方了.
赤腳浸泡在溪水的感覺,真的是涼透心理.

讓Desktop程式設計人員快速上雲端(首部曲)

一般mis或程式設計師習慣了desktop 的開發工具如delphi vb...等 , DOS 就不用說了,
要開發web 系統必須從新學習 html , css ,javascrip , 更必須了解
W3C Document Object Model 等等 , 光 HTML 等全部學會, 那不知要過多久
為此, 特已過來人的身分, 開發依簡易系統環境, 可讓其他人可快速進入 WEB 化的世界



系統架構如上圖:
adodb :為 ADOdb Database Abstraction Library for PHP資料庫連結
class :自訂函數庫
sysadmin :為主要程式模組設計區
theme : web 視覺化設計樣板區
upload : client 端檔案上傳區


sysadmin 資料架構如上圖 主要模組皆放置於module資料夾內
系統展示畫面如下:

不熟悉W3C的您是否心動了呢?

首先介紹的是最簡單的Table list的寫作方式
以往要開發出如下表格要如何做大家應該都知道


一般直覺得方法大慨如上以 html的方法處理
但在框架中的產生方式如下





$query1 = new adoquery();
$query1->connection($db);
$query1->sql = "select * from depart";
$query1->open();
$rs = $query1->rs();
$grid1 = new dbgrid();
$grid1->datasource($rs);
$grid1->addcolumn[0] = 'DEPART_ID,編號';
$grid1->addcolumn[1] = 'DEPART_NAME,名稱';
$grid1->addcolumn[2] = 'CHG_DATE,異動日期';
$grid1->mainkey = 'DEPART_ID';
$grid1->showsearch='true';
$grid1->show();

完全沒看到HTML嗎? 沒錯是不是很容易呢?

善用ClientDataSet的ThinkClient特性

再delphi 中的ClientDataSet除了可連接DataProvider外更可獨立運用

aCDS := TClientDataset.Create(aCDS);
aCDS.Close;
aCDS.Fields.Clear;
if aCDS.FieldCount = 0 then
begin
  with aCDS do
  begin
    for i := 0 to 12 do
    begin
      with FieldDefs.AddFieldDef do
      begin
        DataType := ftString;
        Size := 50;
        Name     := 'Field'+inttostr(i);
      end;
    end;
    createDataSet;
  end;
end;

可快速產生本地端的資料表
aCDS.SavetoFile()更可將資料儲存
aCDS.LoadFromFile()更可將資料讀回
基本上若要簡單的資料應用,使用相當方便
分發時只要一個midas.dll就可以了
簡單吧！
若將遠端資料讀出再放到clientdataset就是一個簡易的離線式功能的
速度快又不占空間

用心,創新,突破自我 以php+jquery 為開發工具