Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var Pid, Tele, Datum,namn: string;
- Objekt: BdpCommand;
- AnropInsert: string;
- T: string; //i:integer;
- CheckPid:boolean;//CheckDatum:boolean;
- begin
- Pid := textbox1.text;
- Tele := textbox2.text;
- Datum := textbox3.text;
- Namn := textbox4.text;
- T := '''';
- bolagdb.open;
- AnropInsert := 'Insert into personal values(' + T + Pid + T + ',' + T + tele + T + ',' + T + Datum + T + ',' + T + Namn + T + ');';
- try
- MittanstallningsNr:=textbox1.text; <------ HÄR UPPSTÅR FELET! "incompatible types: 'Tsuntrip' and 'string'" VARFÖR?
- checkPid:=Mittanstallningsnr.AnstallningsNr(mittanstallningsnr);
- if checkpid= true then
- begin
- Objekt := BdpCommand.create(AnropInsert, bolagdb);
- Objekt.ExecuteNonQuery;
- label6.text := 'Reseledare tillagd'
- end
- else
- label6.text:='Fel inmatning, var god försök igen';
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement