Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 788

•  TDictionary Custom Sort  5 902

•  Fast Watermark Sources  5 703

•  3D Designer  8 478

•  Sik Screen Capture  6 036

•  Patch Maker  6 480

•  Айболит (remote control)  6 473

•  ListBox Drag & Drop  5 338

•  Доска для игры Реверси  94 947

•  Графические эффекты  6 677

•  Рисование по маске  5 801

•  Перетаскивание изображений  4 861

•  Canvas Drawing  5 235

•  Рисование Луны  4 958

•  Поворот изображения  4 505

•  Рисование стержней  3 186

•  Paint on Shape  2 433

•  Генератор кроссвордов  3 307

•  Головоломка Paletto  2 619

•  Теорема Монжа об окружностях  3 403

•  Пазл Numbrix  2 249

•  Заборы и коммивояжеры  2 909

•  Игра HIP  1 879

•  Игра Go (Го)  1 795

•  Симулятор лифта  2 131

•  Программа укладки плитки  1 860

•  Генератор лабиринта  2 296

•  Проверка числового ввода  1 984

•  HEX View  2 294

•  Физический маятник  1 958

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Передача параметров ADO запросу




CONECT_STR='Provider=Microsoft.Jet.OLEDB.4.0;Password=" " ;User ID=Admin;'+{Data Source=D:\ExBd\ТЕРМО\Bd0.mdb;}
   'Data Source=%s; Mode=Read|Write|Share Deny None;Extended Properties=" " ;'+
   'Locale Identifier=1049;Persist Security Info=True;Jet OLEDB:System database=" " ;'+
   'Jet OLEDB:Registry Path=" " ;Jet OLEDB:Database Password=" " ;Jet OLEDB:Engine Type=4;'+
   'Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;'+
   'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=" " ;'+
   'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+
   'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

function TdmR3.GetCountForPeriod(LastDate: TDateTime; IsPlan: boolean): Integer;
 var qu: TADOQuery;
   S: String;
begin
 qu:=TADOQuery.Create(nil);
 try
   S:=FormatDateTime('dd.mm.yy',LastDate);
   qu.ConnectionString:=WideString(Format(CONECT_STR,[db_file]));
   qu.SQL.Text:='select count(*) from DecadaVal as d where d.LastDate=:LastDate and IsPlan=:IsPlan';
   qu.Parameters[0].Value:=LastDate;
   qu.Parameters[1].Value:=IsPlan;
   qu.Open;
   Result:=qu.Fields[0].AsInteger;
 finally
   qu.Free;
 end;
end;





Похожие по теме исходники

Передача видео по сети

Передача удаленного экрана по сети (Remote Screen)

Создание таблиц в Paradox




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте