دخول

anter2016

السلام عليكم ورحمة الله وبركاته
اريد كتابته على شكل

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Query1 do
  begin
    Active:=False;
    SQL.Clear;
    SQL.Add('Insert into OPERATIONS(TYPE,DATE) values(''SALE'', ''DATE'')');
    ExecSQL;
  end;
  Table1.Refresh;
end;


في الحقيقة انا لم استعمل جمل SQL ابدا واريد طريقة عمل AUTOINC و الادخال ب EDIT.TEXT 

كود :
procedure TForm1.Button4Click(Sender: TObject);
begin
   with Query1 do
begin
 SQL.Clear;
 SQL.Add('INSERT INTO OPERATIONS (TYPE,OP_DATE)');
 SQL.Add('VALUES(:TYPE, :DATE)');
 params.ParamByName('TYPE').Value := edtType.Text;
 params.ParamByName('OP_DATE').Value := edtDate.Text;
 ExecSQL;
 SQL.Clear;
 SQL.Text := 'SELECT * FROM OPERATIONS ';
 Open;
end;
end;

هنا ينقص الادخال AUTOINC

PHP كود :
procedure TForm1.Button4Click(Sender: TObject);
begin
with ABSQuery1 do
begin
 SQL.Clear;
 SQL.Add('INSERT INTO OPERATIONS  (CustomersID,SupplierID,TYPE, OP_DATE)');
 SQL.Add(' VALUES (:CustomersID,:SupplierID,:TYPE, :OP_DATE)');
 Params.ParamByName('CustomersID').Value := edtCUST.Text;
 Params.ParamByName('SupplierID').Value := edtSUPPL.Text;
 Params.ParamByName('TYPE').Value := edtTYPE.Text;
 Params.ParamByName('OP_DATE').Value := edtOP_DATE.Text;
 ExecSQL;
 SQL.Clear;
 SQL.Text := 'SELECT * FROM OPERATIONS ';
 Open;
end;
end; 

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة