http://www.4shared.com/zip/mZdLnQCK/ProcessExplorer.html?
File handle search de calisan dosyayı ve bulunca cift tıkla kapat ve sağ tıkla o isme ve close de
Author: semt20
Cxgrid filter by code
procedure TForm1.Button3Click(Sender: TObject);
var
AItemList: TcxFilterCriteriaItemList;
begin
drIlaclistesiDBTableView1.DataController.Filter.BeginUpdate;
try
drIlaclistesiDBTableView1.DataController.Filter.Root.Clear;
AItemList := drIlaclistesiDBTableView1.DataController.Filter.Root.AddItemList(fboAnd);
AItemList.AddItem(drIlaclistesiDBTableView1ILACADI, foLike, '*%', '*%');
AItemList.AddItem(drIlaclistesiDBTableView1MIKTARI, foGreater, '0', '0');
finally
drIlaclistesiDBTableView1.DataController.Filter.EndUpdate;
drIlaclistesiDBTableView1.DataController.Filter.Active := true;
end;
end;
Flash objemizi baslangıc pozisyonuna alma
kare1_mc.addEventListener(MouseEvent.MOUSE_DOWN, surukle);
var ybaspos:Number;//başlangıç pozisyonunun tanımı
function surukle(e:MouseEvent) //sürükle fonksiyonumuz
{
var ypos:Number = e.currentTarget.y;
var xpos:Number = e.currentTarget.x;
ybaspos=e.target.y;
kare1_mc.startDrag(false,new Rectangle(xpos,ypos,0,100));
}
kare1_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
function birak(e:MouseEvent) //sürükle fonksiyonumuz
{
kare1_mc.y=ybaspos;
kare1_mc.stopDrag();
kare1_mc.y=ybaspos;
}
LOGO GECIS
version guncellemelerdinde server enteriprise açıp database sağ tık attach de. eski versionda yedeklenmiş veritabanını ekle ve sonra
LKS2 den GO ya geçmek için herhangi bir veri aktarımı-geri yükleme, yedek alma-yükleme işlemine ihtiyaç yoktur.
1) Öncelikle kullanılan veri tabanını öğrenmek için ;
C:\Program Files\LOGO\LKS2 klasöründe LGCONFIG dosyasını açalım.
[Resim: Resim-01.jpg]
User Name : LKSUSER
Password : USERPASS
(Vista veya 7 de Yönetici olarak çalıştırın.)
[Resim: Resim-02.jpg]
Çıkan menüde Database Name : LKSDB (Farklı isimde olabilir. Veri tabanımızın ismini LKSDB olduğunu öğrendik.
2) Gelelim GO ya geçiş meselesine,
Bilgisayarınızda olan Logo GO programınızın yüklü olduğu klasöre girelim.
C:\Program Files\LOGO\GO klasöründe LGCONFIG dosyasını açalım.
User Name : GOUSER
Password : USERPASS
Server Name :
Database Name : GODB olduğunu gördük. (Farklıda olabilir.)
Database Name deki GODB yi LKSDB olarak değiştirelim. OK ile kaydedip çıkalım.
3) GOSYS ye girelim. Yönetim menüsünden firmalara girelim ve çalıştığımız firmaların kayıtlı olduğunu göreceğiz. Firmaların üzerinde iken mausenin sağ tuşu ile çılan ekrandan toplu firma güncelleme yaparak çalıştığımız firmaları güncelliyoruz.
(Logo programlarında alt versiyondan üst versiyona geçişte veritabanı güncellemesinde sıkıntı olmamaktadır. Ama Üst versiyondan alt versiyona bu şekilde geçişlerde veritabanı hataları alınmaktadır. Program modüllerinde arızalara sebep olur.)
Firma güncellemelerini yaptıktan sonra Yönetim menüsünden Genel Tablo Yönetimi ne girip ekran içerisinde çıkan mevcut satırları Güncelle seçeneği ile güncelliyoruz. Yine Yönetim menüsünden Ağ Dosya Kontrolü seçeneği ile Ağ Dosyasını temizliyoruz.
4) GOSYS den çıktıktan sonra GO programına girerek önceki LKS2 de çalıştığımız veritabanından GO da çalışmaya devam edebiliriz.
ÖNEMLİ NOT : Bu işlemi yapmadan önce mutlaka yedek alınız.nı
logo
foxpro
Flash action script 3 oynat durdur ve ses çalma
//oynatilacak ses dosyamiz icin kodlarımız
var my_sound:Sound = new Sound();var my_channel:SoundChannel = new SoundChannel();my_sound.load(new URLRequest(“E:/media/mzk/a.mp3”));//dugme olacak nesnelerimizoynat_mc.addEventListener(MouseEvent.MOUSE_DOWN, oynatfonkstion);durdur_mc.addEventListener(MouseEvent.MOUSE_DOWN, durdurfonksiyon);function oynatfonkstion(e:MouseEvent){play();my_channel = my_sound.play(); //ses dosyamızı calistiran komut}function durdurfonksiyon(e:MouseEvent){stop();}
FLASH Tek sayfada -> SURUKLE BIRAK SES ÇAL
//Action Script 3 olmasi gerek
//sürüklenecek objelerin en üstte olmasına dikkat etki kareye sürüklendiğinde arkasına geçmesin
var dogrucevap_sound:Sound = new Sound();
var yanliscevap_sound:Sound = new Sound();
var my_channel:SoundChannel = new SoundChannel();
dogrucevap_sound.load(new URLRequest(“C:/Users/Public/Documents/Activ Software/Inspire/Sesler/Efektler/sihir 01.mp3”));
yanliscevap_sound.load(new URLRequest(“C:/Users/Public/Documents/Activ Software/Inspire/Sesler/Efektler/patlama 02.mp3”));
cevap1_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
cevap2_mc.addEventListener(MouseEvent.MOUSE_DOWN, surukle);
cevap3_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
cevap4_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
cevap5_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
cevap6_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
cevap7_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
cevap8_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
cevap9_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
cevap10_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
cevap11_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
cevap12_mc.addEventListener(MouseEvent.MOUSE_DOWN,surukle);
//aşağıda dairelerin gidecegi doğru cevaplar yani kareler taınmlanır
cevap1_mc.yer=soru1_mc;
cevap2_mc.yer=soru1_mc;
cevap3_mc.yer=soru4_mc;
cevap4_mc.yer=soru2_mc;
cevap5_mc.yer=soru3_mc;
cevap6_mc.yer=soru3_mc;
cevap7_mc.yer=soru4_mc;
cevap8_mc.yer=soru3_mc;
cevap9_mc.yer=soru1_mc;
cevap10_mc.yer=soru2_mc;
cevap11_mc.yer=soru1_mc;
cevap12_mc.yer=soru4_mc;
//aşağıda dairelerin ilk yerleri tanımlanır çunku cevap yanlışsa geri oraya gidecek
//armut_mc.ilkyerx=armut_mc.x;
//elma_mc.ilkyerx=elma_mc.x;
//muz_mc.ilkyerx=muz_mc.x;
//ananas_mc.ilkyerx=ananas_mc.x;
//armut_mc.ilkyery=armut_mc.y;
//elma_mc.ilkyery=elma_mc.y;
//muz_mc.ilkyery=muz_mc.y;
//ananas_mc.ilkyery=ananas_mc.y;
//bir üstteki kodun aynısı ama daha kısa yani yanlış cevaba surukleynce daireyi geri ilk pozisyonuna götürecek (x=dikey pozisyon, y yatay pozisyon)
var xyeri:Number;
var yyeri:Number;
function surukle(e:MouseEvent)
{
xyeri=e.target.x;//suruklemeye basladıgındaki x poz
yyeri=e.target.y;//suruklemeye basladıgındaki y poz
e.target.startDrag();
}
cevap1_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap2_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap3_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap4_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap5_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap6_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap7_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap8_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap9_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap10_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap11_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
cevap12_mc.addEventListener(MouseEvent.MOUSE_UP, birak);
function birak(e:MouseEvent)
{
e.target.stopDrag();
if (e.target.hitTestObject(e.target.yer))
{
e.target.mouseEnabled=false;//cevap doğruysa dairenin hareket etmesini engeller
my_channel = dogrucevap_sound.play(); //ses dosyamızı calistiran komut
// e.target.x=e.target.yer.x; //cevap dogruysa ortasına alır bunlar açık olursa
//e.target.y=e.target.yer.y;
}
else
{
my_channel = yanliscevap_sound.play(); //ses dosyamızı calistiran komut
e.target.x=xyeri; //cevap yanlışsa daireyi sürüklemeye başladığın yere atar
e.target.y=yyeri;
}
}
Döviz Kurlarını alma
- Önce IDHTTP ekle ve Uses kısmına clipbrd ekle
procedure TForm9.cxButton4Click(Sender: TObject);
var
DolarAlis,EuroAlis,Sterlinalis,merkezbankasisite,mesaj:String;
dolarint,euroint,sterlinint:integer;
begin
try
Merkezbankasisite:=IDHTTP.Get('http://www.tcmb.gov.tr/kurlar/today.html');
except
ShowMessage('Üzgünüm Merkez Bankasına Bağalanamadım.');
exit;
end;
Dolaralis:=Trim( copy( Merkezbankasisite,835,14) );
EuroAlis:=Trim( copy( Merkezbankasisite,1139,4) );
Sterlinalis:=Trim( copy( Merkezbankasisite,1237,4) );
Dolaralis:=StringReplace(dolaralis,'.','',[rfReplaceAll]);
EuroAlis:=StringReplace(euroalis,'.','',[rfReplaceAll]);
Sterlinalis:=StringReplace(sterlinalis,'.','',[rfReplaceAll]);
dolarint:=StrToInt(DolarAlis)-2;
euroint:=StrToInt(Euroalis)-2;
sterlinint:=StrToInt(Sterlinalis)-2;
mesaj:=DateToStr(Date)+' Döviz kurları: Dolar-'+inttostr(dolarint)+' /Euro-'+inttostr(euroint)+' /Sterlin-'+inttostr(sterlinint)+' .İyi çalışmalar...';
Clipboard.AsText:=mesaj;
ShowMessage(mesaj+' Kopyalandı!');
end;
Cxgrid to excel
Önce uses kısmına cxgridexportlink ekle
SaveDialog1.DefaultExt:=’xls’;
If SaveDialog1.Execute then
begin
ExportGridToExcel(savedialog1.filename,cxgrid1,true,true,true,’xls’);
Cxgrid master detail ilişkisi
* Start new application
* Add a CxGrid to the form
* Add a ADOConnection and connect it to my Access Database (*.mdb)
* Add 2 ADOTables and 2 Datasources, connect the 2 datasources to their
ADOTable..
* Set the Connection for the ADOTables to the ADOConnection component
* Set the ‘Tablename’ property of the ADOTable components to the table
‘Master’ for ADOTable1 and to ‘Detail’ for ADOTable2
* Set the ‘IndexFieldName’ property of both ADOTables to ‘ID’
* Set both ADOTables ‘Active’ property to ‘True’
* Create a new ‘level’ in the grid and add a tableview to it
* Link the first view to Datasource1
* Link the second view to Datasource 2
* Use the ‘Create All Columns’ option on both levels to add the columns
* Set the ‘Detailkeyfield’ , ‘KeyfieldName’ and ‘MasterKeyFieldName’
properties for both levels everything to ‘ID’
Delphi’de excel dosyası yaratmak
- Önce aşağıdakileri excel.pas olarak kaydet ve projeyi kaydet;
unit Excel;
interface
uses Windows, Activex;
// originally from Excel97.pas
// XlFileFormat constants
type
XlFileFormat = TOleEnum;
const
xlAddIn = $00000012;
xlCSV = $00000006;
xlCSVMac = $00000016;
xlCSVMSDOS = $00000018;
xlCSVWindows = $00000017;
xlDBF2 = $00000007;
xlDBF3 = $00000008;
xlDBF4 = $0000000B;
xlDIF = $00000009;
xlExcel2 = $00000010;
xlExcel2FarEast = $0000001B;
xlExcel3 = $0000001D;
xlExcel4 = $00000021;
xlExcel5 = $00000027;
xlExcel7 = $00000027;
xlExcel9795 = $0000002B;
xlExcel4Workbook = $00000023;
xlIntlAddIn = $0000001A;
xlIntlMacro = $00000019;
xlWorkbookNormal = $FFFFEFD1;
xlSYLK = $00000002;
xlTemplate = $00000011;
xlCurrentPlatformText = $FFFFEFC2;
xlTextMac = $00000013;
xlTextMSDOS = $00000015;
xlTextPrinter = $00000024;
xlTextWindows = $00000014;
xlWJ2WD1 = $0000000E;
xlWK1 = $00000005;
xlWK1ALL = $0000001F;
xlWK1FMT = $0000001E;
xlWK3 = $0000000F;
xlWK4 = $00000026;
xlWK3FM3 = $00000020;
xlWKS = $00000004;
xlWorks2FarEast = $0000001C;
xlWQ1 = $00000022;
xlWJ3 = $00000028;
xlWJ3FJ3 = $00000029;
xlExcel12 =50;
xlExcel8 = 56;
xlHtml = 44;
xlOpenXMLAddIn = 55;
xlOpenXMLTemplate = 54;
xlOpenXMLTemplateMacroEnabled = 53;
xlOpenXMLWorkbook = 51;
xlOpenXMLWorkbookMacroEnabled = 52;
xlTemplate8 = 17;
xlUnicodeText = 42;
xlWebArchive = 45;
xlWorkbookDefault = 51;
xlXMLSpreadsheet = 46;
implementation
end.
sonra usesa : comobj,excel ve buttona ;
procedure TForm1.Button1Click(Sender: TObject);
var
Excel: OleVariant;
begin
Excel := CreateOleObject('EXCEL.Application');
Excel.Application.Workbooks.Add;
Excel.Application.Workbooks[1].SaveAs('c:\test.xlsx', xlWorkbookDefault); // or xlOpenXMLWorkbook (51)
Excel.Application.Quit;
end;


