В киосках моб. операторов ничего не предлагаютТак запросите возможные варианты у Ростелекома.
В будущей версии параметр SQL Server ANSI_NULLS будет иметь значение ON, а приложения, явно присваивающие ему значение OFF, будут вызывать ошибку. Избегайте использования этого компонента в новых разработках и запланируйте изменение существующих приложений, в которых он применяется.
Произошла ошибка при подключении интерфейса. Маршрутизатор вызовов по требованию попытался подключиться через порт, который зарезервирован только для клиентов удаленного доступа.Затем этот текст полностью помещаете в поисковый запрос.
SELECT number_obj, COUNT(number_obj)
FROM table_w
WHERE `delete`='0' AND date BETWEEN '$date_from' AND '$date_to'
GROUP BY number_obj
HAVING COUNT(number_obj) > 1unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
var fl: String;
tr: TSome;
begin
fl := ExtractFilePath( Application.ExeName ) + GUIDToString( TGUID.NewGuid ) + '.thr';
tr := TSome.Create( fl );
ListBox1.Items.Add( fl );
end;
end.unit Unit2;
interface
uses System.Classes, System.SysUtils;
type
TSome = class(TThread)
private { Private declarations }
FFile: String;
FMess: String;
procedure UpdateForm;
protected
procedure Execute; override;
public { Public declarations }
constructor Create( sFile: String );
end;
implementation
uses Unit1;
constructor TSome.Create( sFile: String );
begin
FFile := sFile;
inherited Create( False );
end;
procedure TSome.Execute;
var outfile: TextFile;
tr: String;
begin
while not Self.Terminated do begin
tr := IntToStr( Self.Handle ) + ' - '+ DateTimeToStr( Now ());
AssignFile( outfile, FFile );
Rewrite( outfile );
Writeln( outfile, tr );
CloseFile( outfile );
Self.FMess := tr;
Synchronize( UpdateForm );
Sleep( 1000 );
end;
end;
procedure TSome.UpdateForm;
begin
Form1.ListBox1.Items.Add( Self.FMess );
end;
end.FOR вычисляется один раз перед циклом. Если в основном потоке меняется form1.sListBox1, то может не оказаться нужного Items[i]. Или проверяйте его наличие. Или используйте цикл WHILE, в котором сравнение счётчика с условием будет проверяться каждый раз.FOR.TMyThread должен быть свой TStrings, в который нужно передать form1.sListBox1.Items.
shutdown.exe удалённо.
INSERT и DELETE в одном запросе не получится, нужна процедуре. В ней можно сделать всё, как у вас написано: удалить из таблицы, добавить отсутствующие.
date, id и SUM(часы).SELECT date, user_id, SUM(hours) FROM user_dolg GROUP BY date, user_idSELECT buy.nomenclature_id,
SUM ( buy.summa )
- (SELECT ISNULL(SUM( sale.summa ),0)
FROM sale WHERE sale. nomenclature_id = buy. nomenclature_id)
FROM buy
GROUP BY buy.nomenclature_id
UNION
SELECT nomenclature_id, - SUM(summa)
FROM sale
GROUP BY nomenclature_id
HAVING (NOT (nomenclature_id IN (SELECT DISTINCT nomenclature_id FROM buy)))uTorrent ходил через прокси. Мало того только для t-ru.org.
Back to the future!
Just like the '90s, good things have to come to an end. If you want to switch to the current site, you'll find the option here.