بررسی جدول که در حالت ویرایش هست یا خیر
if users.State =dsEdit then
get memo line Memo1.Lines.Strings[i]
دریافت یک خط خاص از یک memo در دلفی
get listbox item text ListBox1.ItemIndex:=1; tt:= ListBox1.Items.Strings[ListBox1.ItemIndex];
دریافت یک خط خاص از لیست باکس در دلفی
if datamodule3.users.State =dsEdit then
آیا یک adoquery در حالت ویرایش هست یا خیر
تشخیص در حالت ویرایش بودن
host: time.windows.com Label1.Caption := DateToStr(IdSNTP1.DateTime) + ' - ' + TimeToStr(IdSNTP1.DateTime); Label2.Caption := IdSNTP1.Host;
get server time date delphi
باید در uses از StrUtils,math استفاده شود
function Bet(S: string; Thousands: Boolean;Sender: TObject): string;
var
I, MaxSym, MinSym, Group: Integer;
IsSign: Boolean;
begin
for I :=1 to Trunc(Length(S)/3) do
Delete(S,Pos(ThousandSeparator,S),1);
Result := '';
MaxSym := Length(S);
IsSign := (MaxSym > 0) and (AnsiChar(S[1]) in ['-', '+']);
if IsSign then MinSym := 2
else MinSym := 1;
I := Pos(DecimalSeparator, S);
if I > 0 then MaxSym := I - 1;
I := Pos('E', UpperCase(S));
if I > 0 then MaxSym := Min(I - 1, MaxSym);
Result := Copy(S, MaxSym + 1, MaxInt);
Group := 0;
for I := MaxSym downto MinSym do
begin
Result := S[i] + Result;
Inc(Group);
if (Group = 3) and Thousands and (I > MinSym) then
begin
Group := 0;
Result := ThousandSeparator + Result;
end;
end;
if IsSign then Result := S[1] + Result;
if (Sender is TEdit) then
TEdit(sender).Perform(WM_KeyDown,VK_End,0)
end;
///////////////////
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Text:=bet(Edit1.Text,true,Sender);
end;
function IsNumber(N : String) : Boolean;
var
I : Integer;
begin
Result := True;
if Trim(N) = '' then
Exit(False);
if (Length(Trim(N)) > 1) and (Trim(N)[1] = '0') then
Exit(False);
for I := 1 to Length(N) do
begin
if not (N[I] in ['0'..'9']) then
begin
Result := False;
Break;
end;
end;
var avalue:string;
isn:boolean;
begin
avalue:=inputbox ('test1','test2','');
isn:=isnumber(avalue);
if isn=true then
showmessage('yes')
else
showmessage('no');
end;
سلام
با این کد می تونید با کلیک بر روی تایتل دی بی گرید ، همون فیلد رو سورت کنید.
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var cFieldName:string;
begin
cFieldName:= DBGrid1.Columns[Column.Index].FieldName;
Adoquery1.Sort:=cFieldName;
end;
راه دوم
var KindSotr1:Boolean;
if KindSotr1 then
datamodule3.customers.Sort:=Column.FieldName+' DESC'
else
datamodule3.customers.Sort:=Column.FieldName;
KindSotr1:=not(KindSotr1);
ساخت کاربر sa در sql server
CREATE LOGIN [sa] WITH PASSWORD=N'', DEFAULT_DATABASE=[master], CHECK_EXPIRATION=OFF, CHECK_POLICY=OFF
از داخل رجیستری مراحل زیر را انجام می دهید .به مسیر زیر داخل رجیستری می رویم.
Hekey_current_user…..software…..microsoft…..windows NT…….current version….windows
حال روی پوشه ویندوز کلیک راست کرده و گزینه permision را انتخاب می کنیم و از داخل کادر گزینه add و سپس advance و سپس find now را می زنیم و every one را انتخاب می کنیم تا به لیست اضافه شود .سپس permision آن را از نوع full control انتخاب می کنیم .
سپس از سمت راست گزینه device را انتخاب می کنیم و روی device کلیک راست می کنیم و گزینه modify را انتخاب می کنیم و در قسمت value data قبل از عبارت ,winspool,UDC هر چه نوشته پاک می کنیم و نام پرینتر پیش فرض را که کپی کرده بودیم را در اینجا وارد می کنیم .