22-10-2017, 03:37 AM
طيب لنبدأ:
كود :
if ADOTable1.Locate('yourfield1;yourfield2;yourfield3',VarArrayOf([DBLookupComboBox1.Field.Value,DBLookupComboBox2.Field.Value,DBLookupComboBox3.Field.Value]),[loCaseInsensitive]) then
ShowMessage('Already Exist!')
else
begin
///method 1
ADOCommand1.CommandText:='insert into table ........';
ADOCommand1.Execute;
///or method 2
ADOTable1.Append;
ADOTable1.FieldByName('yourfield1').Value:=DBLookupComboBox1.Field.Value;
ADOTable1.FieldByName('yourfield2').Value:=DBLookupComboBox2.Field.Value;
ADOTable1.FieldByName('yourfield3').Value:=DBLookupComboBox3.Field.Value;
ADOTable1.Post;
end;