ساده تر کردن INsert و Update

سلام

!با عرض پوزش!

وقتی از کاربر اطلاعاتی میگیریم مثلا یک برنامه انبار داری اول چک می کنیم اگر وجو داره که باید Update کنیم و در غیر اینصورت Insert باید بشه.در کد زیر ما هر دو حالت با هم ممزوج کردیم در صورتی که وجود نداشته باشه اینسرت میشه در غیر اینصورت Update.

INSERT INTO TABLE (ID, NAMEkala,Number) VALUES (1,'CPU', 10) ON DUPLICATE KEY UPDATE number=number + 10

چون کدها مشخصصه توضیح نمیدم!

Lingoes 2.9.1

نسخه 2.9.1  از دیکشنری قدرمند lingoes با قابلیت ترجمه متن البته بصورت انلاین جایگزینی تقریبا خوبی برای بابیلون.

دانلود

balloon tooltip

یک balloon tooltib زیبا و کاربردی در دلفی یک تابع برای نمایش است که شما را از استفاده کامپوننت بی نیاز می کند!

USES commctrl;

procedure BalloonTip(Control: TWinControl; Icon: integer; Title: pchar; Text: PWideChar;
BackCL, TextCL: TColor);
const
  TOOLTIPS_CLASS = 'tooltips_class32';
  TTS_ALWAYSTIP = $01;
  TTS_NOPREFIX = $02;
  TTS_BALLOON = $40;
  TTF_SUBCLASS = $0010;
  TTF_TRANSPARENT = $0100;
  TTF_CENTERTIP = $0002;
  TTM_ADDTOOL = $0400 + 50;
  TTM_SETTITLE = (WM_USER + 32);
  ICC_WIN95_CLASSES = $000000FF;
type
  TOOLINFO = packed record
    cbSize: Integer;
    uFlags: Integer;
    hwnd: THandle;
    uId: Integer;
    rect: TRect;
    hinst: THandle;
    lpszText: PWideChar;
    lParam: Integer;
  end;
var
  hWndTip: THandle;
  ti: TOOLINFO;
  hWnd: THandle;
begin
  hWnd    := Control.Handle;
  hWndTip := CreateWindow(TOOLTIPS_CLASS, nil,
    WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP,
    0, 0, 0, 0, hWnd, 0, HInstance, nil);
  if hWndTip <> 0 then
  begin
    SetWindowPos(hWndTip, HWND_TOPMOST, 0, 0, 0, 0,
      SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    ti.cbSize := SizeOf(ti);
    ti.uFlags := TTF_CENTERTIP or TTF_TRANSPARENT or TTF_SUBCLASS;
    ti.hwnd := hWnd;
    ti.lpszText := Text;
    GetClientRect(hWnd, ti.rect);
    SendMessage(hWndTip, TTM_SETTIPBKCOLOR, BackCL, 0);
    SendMessage(hWndTip, TTM_SETTIPTEXTCOLOR, TextCL, 0);
    SendMessage(hWndTip, TTM_ADDTOOL, 1, Integer(@ti));
    SendMessage(hWndTip, TTM_SETTITLE, Icon mod 4, Integer(Title));
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   BalloonTip(Button1, 2, 'SS',
  'http://lear4u.blogsky.com', clRed, clYellow);
end