Nech Artikel Buat Lock Table ADo Dan UnlocK Table ADO. Sumber www.delphi3000.com Tempat diriku main bareng kang cyber.....wakakaka
Fungsi LockDownload lengkap artikel disini http://www.geocities.com/saysansay/Lock.docFungsi Unlock Fungsi UnlockTable
function lock(ds:TAdoConnection;LckTable:TAdodc;const s:string; rec,CurrentUserId:longint):boolean; var fnd:boolean; s1:string; begin s1:=format(s,[trim(inttostr(rec))]); LckTable.ConnectionString:=ds.ConnectionString; LckTable.CursorLocation:=2; LckTable.LockType:=2; LckTable.CommandType:=2; LckTable.RecordSource='Lock'; fnd:=false; Try LckTable.refresh; if LckTable.Recordset.RecordCount>0 then begin LckTable.Recordset.MoveFirst; LckTable.Recordset.Find('lockid='''+s1+'''',0,1,1); end; if LckTable.Recordset.RecordCount>0 then if not (LckTable.Recordset.EOF) then if LckTable.Recordset.Fields['lockid'].value=s1 then fnd:=true; if not fnd then LckTable.Recordset.AddNew('lockid',s1); LckTable.Recordset.Fields['fldEdt'].Value:=CurrentUserId; result:=true; except result:=false; end; end;
Syntax Highlighted with https://pascal-id.org/syntax
function Unlock(const s:string;rec:longint;LckTable:TAdodc):boolean; var s1:string; begin s1:=format(s,[trim(inttostr(rec))]); try LckTable.Recordset.Cancel; LckTable.Recordset.Find('lockid='''+s1+'''',0,1,0); LckTable.Recordset.Delete(1); result:=true; except result:=false; end; end;
Syntax Highlighted with https://pascal-id.org/syntax
Moga bermanfaat Wakakakakaka
Random Articles
- Mendeteksi drive baru /removable drive
- Mengetahui semua printer yg ter-install
- Membaca Ukuran TaskBar Windws
- Cara mendapatkan printer pada suatu komputer (di jaringan yang di share tentunya
- Menutup Aplikasi Internet Explorer
- Yang Tidak Bisa Dilakukan Turbo Pascal #2
- Windows services - Checking status
- Project Group dalam Lazarus
- DisabledTaskManger Dgn Delphi
- Thxvidfwin sebuah component video sederhana
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago