شماره کارمندی که درج شده چه بوده است؟ ثبت نمی شود؟

[ali_abbasi22145]

سلام
من دستور زیر را در AfterInsert جدول نوشتم اما

procedure TMainForm.ADOTable1AfterInsert(DataSet: TDataSet);
begin
MainForm.LogDBTable.Insert;
MainForm.LogDBTable.FieldByName('user_name').AsStr ing := User_Name;
MainForm.LogDBTable.FieldByName('date').AsDateTime := Now;
MainForm.LogDBTable.FieldByName('action').AsString := 'insert';

MainForm.LogDBTable.FieldByName('employee_number') .AsString :=
MainForm.ADOTable1.FieldByName('employee_number'). AsString;


اما نام کاربر User_Name وتاریخ درج را همان روز یا NOW ,عمل درج Insert را ثبت می کن.
اما شمار کارمندی یا employee_numer را ذخیره نمی کند ! اشکال از چی می تواند باشد یا کد را چگونه تغییر دهم که شماره کارمندی که درج شده چه بوده است؟

[hossein_h62]

سلام
اگر فیلد employee_number از نوع عددی هست بجای AsString از AsInteger استفاده کنید.

[Mask]

کد هاتون رو در بلاک قرار بدید.
این سوال مربوط به بخش بانک اطلاعاتیه.
در نوشتن سوالتون دقت کنید.

procedure TMainForm.ADOTable1AfterInsert(DataSet: TDataSet);
begin
MainForm.LogDBTable.Insert;
MainForm.LogDBTable.FieldByName('user_name').AsStr ing := User_Name;
MainForm.LogDBTable.FieldByName('date').AsDateTime := Now;
MainForm.LogDBTable.FieldByName('action').AsString := 'insert';

MainForm.LogDBTable.FieldByName('employee_number') .AsString :=
MainForm.ADOTable1.FieldByName('employee_number'). AsString;

برای ارسال اطلاعاتتون در بانک از دستور post استفاده کنید.