Question My old Delphi code to VB2010

metaxx

New member
Joined
Apr 11, 2012
Messages
1
Programming Experience
Beginner
Hello all!I have an old program from 2002, which was coded in Delphi 7. Now i would like to rewrite the whole program, and expand in Visual Basic. But, i am just learning the language, and it is very difficult to me after Delphi, so i would like a little help. Can you help me, to convert my old code to VB2010? The code is very simple. I fill a database with Comboboxes and TextBoxes .Text.

My original D7 code is:

procedure TForm1.BtnAddNewLineClick(Sender:TObject);
begin
If(ComboBox1.Text='')or// Check empty
(ComboBox2.Text='')or
(ComboBox3.Text='')or
(ComboBox4.Text='')ThenBegin
ShowMessage('Nem adhatsz hozzá üres sorokat!');
Exit;
end
else

with
table1 do// Opening table
begin
Edit;
Last;

Append;
FieldByName('Date').AsString:=FormatDateTime('ddddd',date);
FieldByName('Time').AsString:=ComboBox1.Text+':'+ComboBox2.Text;
FieldByName('Partner').AsString:=ComboBox3.Text;// Filling the table specified Field with specified combobox.text
FieldByName('Client').AsString:=ComboBox4.Text;
FieldByName('City').AsString:=ComboBox5.Text;
FieldByName('Street').AsString:=ComboBox6.Text+', '+Edit1.Text;
FieldByName('Patrol').AsString:=ComboBox7.Text;
FieldByName('Save').AsString:='0';
Post;

ComboBox3.Text:='';// clear combos
ComboBox4.Text:='';
ComboBox5.Text:='';
ComboBox6.Text:='';
ComboBox7.Text:='';
Edit1.Text:='';
Table1.Refresh;
end;
end;

The database in VB2010, is based on the video I made of.

[video=youtube;3w2JkLcp-UA]http://www.youtube.com/watch?v=3w2JkLcp-UA&feature=related[/video]

Thank you in advance for any help.
 
Back
Top