Archive
Getting the space left on the DEFAULT_TABLESPACE of the logged user
SELECT
ts.tablespace_name,
TO_CHAR(SUM(NVL(fs.bytes,0))/1024/1024, '99,999,990.99') AS MB_FREE
FROM
user_free_space fs,
user_tablespaces ts,
user_users us
WHERE
fs.tablespace_name(+) = ts.tablespace_name
AND ts.tablespace_name(+) = us.default_tablespace
GROUP BY
ts.tablespace_name;Shrink Log FIle SQL Server 2000
EXEC sp_dboption ‘vcr’, ‘trunc. log on chkpt.’, ‘TRUE’
go
use vcr
checkpoint
go
DBCC SHRINKDATABASE (vcr, 10)
Delphi Excel Ole Variant
uses
ComObj;
var
ExcelApp: OleVariant;
implementation
procedure TForm1.Button1Click(Sender: TObject);
const
// SheetType
xlChart = -4109;
xlWorksheet = -4167;
// WBATemplate
xlWBATWorksheet = -4167;
xlWBATChart = -4109;
// Page Setup
xlPortrait = 1;
xlLandscape = 2;
xlPaperA4 = 9;
// Format Cells
xlBottom = -4107;
xlLeft = -4131;
xlRight = -4152;
xlTop = -4160;
// Text Alignment
xlHAlignCenter = -4108;
xlVAlignCenter = -4108;
// Cell Borders
xlThick = 4;
xlThin = 2;
var
ColumnRange: OleVariant;
// Function to get the number of Rows in a Certain column
function GetLastLine(AColumn: Integer): Integer;
const
xlUp = 3;
begin
Result := ExcelApp.Range[Char(96 + AColumn) + IntToStr(65536)].end[xlUp].Rows.Row;
end;
begin
{ Start Excel }
// By using GetActiveOleObject, you use an instance of Word that’s already running,
// if there is one.
try
ExcelApp := GetActiveOleObject(‘Excel.Application’);
except
try
// If no instance of Word is running, try to Create a new Excel Object
ExcelApp := CreateOleObject(‘Excel.Application’);
except
ShowMessage(‘Cannot start Excel/Excel not installed ?’);
Exit;
end;
end;
// Add a new Workbook, Neue Arbeitsmappe öffnen
ExcelApp.Workbooks.Add(xlWBatWorkSheet);
// Open a Workbook, Arbeitsmappe öffnen
ExcelApp.Workbooks.Open(‘c:\YourFileName.xls’);
// Rename the active Sheet
ExcelApp.ActiveSheet.Name := ‘This is Sheet 1’;
// Rename
ExcelApp.Workbooks[1].WorkSheets[1].Name := ‘This is Sheet 1’;
// Insert some Text in some Cells[Row,Col]
ExcelApp.Cells[1, 1].Value := ‘SwissDelphiCenter.ch’;
ExcelApp.Cells[2, 1].Value := ‘http://www.swissdelphicenter.ch’;
ExcelApp.Cells[3, 1].Value := FormatDateTime(‘dd-mmm-yyyy’, Now);
// Setting a row of data with one call
ExcelApp.Range[‘A2’, ‘D2’].Value := VarArrayOf([1, 10, 100, 1000]);
// Setting a formula
ExcelApp.Range[‘A11’, ‘A11’].Formula := ‘=Sum(A1:A10)’;
// Change Cell Alignement
ExcelApp.Cells[2, 1].HorizontalAlignment := xlright;
// Change the Column Width.
ColumnRange := ExcelApp.Workbooks[1].WorkSheets[1].Columns;
ColumnRange.Columns[1].ColumnWidth := 20;
ColumnRange.Columns[2].ColumnWidth := 40;
// Change Rowheight / Zeilenhöhe ändern:
ExcelApp.Rows[1].RowHeight := 15.75;
// Merge cells, Zellen verbinden:
ExcelApp.Range[‘B3:D3’].Mergecells := True;
// Apply borders to cells, Zellen umrahmen:
ExcelApp.Range[‘A14:M14’].Borders.Weight := xlThick; // Think line/ Dicke Linie
ExcelApp.Range[‘A14:M14’].Borders.Weight := xlThin; // Thin line Dünne Linie
// Set Bold Font in cells, Fettdruck in den Zellen
ExcelApp.Range[‘B16:M26’].Font.Bold := True;
// Set Font Size, Schriftgröße setzen
ExcelApp.Range[‘B16:M26’].Font.Size := 12;
//right-aligned Text, rechtsbündige Textausrichtung
ExcelApp.Cells[9, 6].HorizontalAlignment := xlright;
// horizontal-aligned text, horizontale Zentrierung
ExcelApp.Range[‘B14:M26’].HorizontalAlignment := xlHAlignCenter;
// left-aligned Text, vertikale Zentrierung
ExcelApp.Range[‘B14:M26’].VerticallyAlignment := xlVAlignCenter;
{ Page Setup }
ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape;
// Left, Right Margin (Seitenränder)
ExcelApp.ActiveSheet.PageSetup.LeftMargin := 35;
ExcelApp.ActiveSheet.PageSetup.RightMargin := -15;
// Set Footer Margin
ExcelApp.ActiveSheet.PageSetup.FooterMargin := ExcelApp.InchesToPoints(0);
// Fit to X page(s) wide by Y tall
ExcelApp.ActiveSheet.PageSetup.FitToPagesWide := 1; // Y
ExcelApp.ActiveSheet.PageSetup.FitToPagesTall := 3; // Y
// Zoom
ExcelApp.ActiveSheet.PageSetup.Zoom := 95;
// Set Paper Size:
ExcelApp.PageSetup.PaperSize := xlPaperA4;
// Show/Hide Gridlines:
ExcelApp.ActiveWindow.DisplayGridlines := False;
// Set Black & White
ExcelApp.ActiveSheet.PageSetup.BlackAndWhite := False;
// footers
ExcelApp.ActiveSheet.PageSetup.RightFooter := ‘Right Footer / Rechte Fußzeile’;
ExcelApp.ActiveSheet.PageSetup.LeftFooter := ‘Left Footer / Linke Fußzeile’;
// Show Excel Version:
ShowMessage(Format(‘Excel Version %s: ‘, [ExcelApp.Version]));
// Show Excel:
ExcelApp.Visible := True;
// Save the Workbook
ExcelApp.SaveAs(‘c:\filename.xls’);
// Save the active Workbook:
ExcelApp.ActiveWorkBook.SaveAs(‘c:\filename.xls’);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
// Quit Excel
if not VarIsEmpty(ExcelApp) then
begin
ExcelApp.DisplayAlerts := False; // Discard unsaved files….
ExcelApp.Quit;
end;
end;
Istilah – Istilah TI
Ham dalam istilah Internet berarti lawan dari spam. Suatu surat elektronik yang dikira spam (dan dihapus atau dimasukkan ke folder bulk) oleh mesin penyaring (spam control software, sepert spamAssassin) ternyata bukan spam.
HSDPA
High-Speed Downlink Packet Access (HSDPA) adalah sebuah jaringan yang diperuntukkan bagi telepon seluler yang populer dengan nama teknologi 3,5G. Teknologi ini menyediakan kemampuan download yang cepat dan merupakan sambungan dari asynchronous digital subcriber line (ADSL) yang digunakan pada sambungan layanan internet untuk daerah perumahan dan mencegah melambatnya koneksi pada telepon seluler.
High-Speed Downlink Packet Access (HSDPA) adalah sebuah jaringan yang diperuntukkan bagi telepon seluler yang populer dengan nama teknologi 3,5G. Teknologi ini menyediakan kemampuan download yang cepat dan merupakan sambungan dari asynchronous digital subcriber line (ADSL) yang digunakan pada sambungan layanan internet untuk daerah perumahan dan mencegah melambatnya koneksi pada telepon seluler
Phising
Dalam komputer, pengelabuan (Inggris: phishing) adalah suatu bentuk penipuan yang dicirikan dengan percobaan untuk mendapatkan informasi peka, seperti kata sandi dan kartu kredit, dengan menyamar sebagai orang atau bisnis yang tepercaya dalam sebuah komunikasi elektronik resmi, seperti surat elektronik atau pesan instan. Istilah phishing dalam bahasa Inggris berasal dari kata fishing (‘memancing’), dalam hal ini berarti memancing informasi keuangan dan kata sandi pengguna.
Scam adalah berita elektronik dalam Internet yang membohongi dan bersifat menipu, sehingga pengirimnya akan mendapat manfaat dan keuntungan tertentu. Contoh scam yang sering kita jumpai adalah surat berantai dan pengumuman lotre. Dalam hal ini akibat dari berita scam ini bagi penerimanya akan lebih serius, jika dibandingkan dengan spam.
Dalam bahasa Inggris, scam diartikan juga sebagai confidence trick or confidence game, sehingga pada awalnya penerima berita merasa yakin dan tidak mencurigai bahwa hal ini merupakan bentuk penipuan.
Spam atau bisa juga berbentuk junk mail adalah penyalahgunaan sistem pesan elektronik (termasuk media penyiaran dan sistem pengiriman digital) untuk mengirim berita iklan dan keperluan lainnya secara massal. Umumnya, spam menampilkan berita secara bertubi-tubi tanpa diminta dan sering kali tidak dikehendaki oleh penerimanya. Pada akhirnya, spam dapat menimbulkan ketidaknyamanan bagi para pengguna situs web. Orang yang menciptakan spam elektronik disebut spammers.
Tsunami mentawai akibat gempa 7,2 scala richter
Tsunami yang menghantam Pagai Utara Selatan terjadi 15 menit setelah gempa 7,2 scala richter. Kawasan resort makaroni dilaporkan rusak berat akibat di terjang tsunami, kapal pesiar yang ditumpangi turis asin juga dilaporkan masih hilang kontak.
Tsunami mentawai sudah tewaskan lebih dari 100 orang dan yang hilang lebih dari 500 orang
mendeteksi negara lewat ip address
source : http://www.phptutorial.info/iptocountry/the_script.html
Mendeteksi asal negara pengunjung website kita melalui ip address.
berikut ini adalah codenya:
download ip_files.
<?php
$two_letter_country_code=iptocountry($_SERVER[“REMOTE_ADDR”]);
function iptocountry($ip) {
$numbers = preg_split( “/\./”, $ip);
include(“ip_files/”.$numbers[0].”.php”);
$code=($numbers[0] * 16777216) + ($numbers[1] * 65536) + ($numbers[2] * 256) + ($numbers[3]);
foreach($ranges as $key => $value){
if($key<=$code){
if($ranges[$key][0]>=$code){$country=$ranges[$key][1];break;}
}
}
if ($country==””)
{
$country=”unkown”;}
return $country;
}
if ($two_letter_country_code== “ID”)
{ echo “Hi Indonesia”; }
?>
F-117A Nighthawk – 2006 Chicago Air Show
Vodpod videos no longer available.
Bay Notes 