Advertisement
Guest User

Untitled

a guest
May 28th, 2017
46
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.84 KB | None | 0 0
  1. var Pid, Tele, Datum,namn: string;
  2. Objekt: BdpCommand;
  3. AnropInsert: string;
  4. T: string; //i:integer;
  5. CheckPid:boolean;//CheckDatum:boolean;
  6. begin
  7. Pid := textbox1.text;
  8. Tele := textbox2.text;
  9. Datum := textbox3.text;
  10. Namn := textbox4.text;
  11. T := '''';
  12. bolagdb.open;
  13. AnropInsert := 'Insert into personal values(' + T + Pid + T + ',' + T + tele + T + ',' + T + Datum + T + ',' + T + Namn + T + ');';
  14. try
  15. MittanstallningsNr:=textbox1.text; <------ HÄR UPPSTÅR FELET! "incompatible types: 'Tsuntrip' and 'string'" VARFÖR?
  16. checkPid:=Mittanstallningsnr.AnstallningsNr(mittanstallningsnr);
  17.  
  18. if checkpid= true then
  19. begin
  20. Objekt := BdpCommand.create(AnropInsert, bolagdb);
  21. Objekt.ExecuteNonQuery;
  22. label6.text := 'Reseledare tillagd'
  23. end
  24. else
  25. label6.text:='Fel inmatning, var god försök igen';
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement