1樓:匿名使用者
建立一個陣列,為array[0]= '零 ',array[1]= '壹 '依此類推
當edit的press事件產生時,
用strtoint將key引數轉換為integer型別i(假設i已經宣告為integer類的)
然後 將edit1.text:=edit1.text+array[i];
2樓:匿名使用者
bigmoney: array[0..9] of string=('零','壹','貳','叄','肆','伍','陸','柒','捌','玖');
implementation
procedure tform1.button1click(sender: tobject);
varmoney,tmpm,b:string;
i:integer;
begin
tmpm:='';
money:=adoquery1.fieldbyname('金額').asstring;
for i:=1 to length(money) do
begin
tmpm:=tmpm + b[strtoint(money[i])];
edit1.text:=tmpm;
end;
end;
oracle中在同資料庫裡面使用者A如何訪問使用者B建立的表啊
在雍和宮哈哈大笑的白茶 usera要有訪問userb下表的許可權 首先登陸管理員使用者 as sysdbasql grant select on usera.test1 to userb 授權成功。這樣 conn userb pwd sql select from usera.test1 主要表名前...
sqlserver在同資料庫裡如何複製表結構
輕煙談生活 1 滑鼠右擊要複製的表,選擇 編寫表指令碼為 create到 新建查詢編輯器視窗 命令。2 在查詢編輯器視窗中將要複製表的名稱修改為新表的名稱。3 修改表名稱後,單擊 執行 按鈕,即可完成新表的表結構建立。4 右擊 表 選項,選擇 重新整理 命令,即可看到新建立的表。5 右擊新建立的表,...
用SQL語言從現有的資料庫里根據性別屬性分別統計出男女相應的屬性裡各型別的數量
現過幾次 2出現過幾次 select count 1 from table1 where a 1 select count 1 from table1 where a 2 select 1 count case when a 1 then 1 else null end 2 case when a ...