delphi转bcb ( 积分: 38 )

B

BBM011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-15

• #1

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
s1:tstringlist;
data_froms:string;
card_nos:string;
attend_dates,create_dates:string;
begin
s1:=tstringlist.Create ;
try
s1.LoadFromFile('RecvAll.txt');
progressbar1.Max:=s1.Count;
progressbar1.Position:=0;
for i:=0 to s1.Count-1do
begin
with ADOQuery1do
begin
data_froms:='007';
card_nos:=copy(s1,17,6);
attend_dates:=copy(s1,24,10)+' '+copy(s1,35,8);
close;
sql.Clear;
sql.Add('insert into sys_timecard values ('''+card_nos+''','''+attend_dates+''','''+data_froms+''',''1'',getdate())');
Edit1.Text:=sql.CommaText;
execsql;
end;
end;
except
//
end;
end;

 

B

BBM011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-15

• #2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
s1:tstringlist;
data_froms:string;
card_nos:string;
attend_dates,create_dates:string;
begin
s1:=tstringlist.Create ;
try
s1.LoadFromFile('RecvAll.txt');
progressbar1.Max:=s1.Count;
progressbar1.Position:=0;
for i:=0 to s1.Count-1do
begin
with ADOQuery1do
begin
data_froms:='007';
card_nos:=copy(s1,17,6);
attend_dates:=copy(s1,24,10)+' '+copy(s1,35,8);
close;
sql.Clear;
sql.Add('insert into sys_timecard values ('''+card_nos+''','''+attend_dates+''','''+data_froms+''',''1'',getdate())');
Edit1.Text:=sql.CommaText;
execsql;
end;
end;
except
//
end;
end;

 

S

sunly999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-15

• #3

看不懂

 

B

BBM011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-15

• #4

就是把他转为:C++ Builder

 

A

axcom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-15

• #5

Delphi to C++Builder v1.5 注册码：ovmfSdsilo
http://www.thinkershome.com/d2c/index.htm

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-16

• #6

INT i;
STRING s1;
... ...
progressbar1->Max=s1->Count;
progressbar1->Position=0;
... ...

 

B

BBM011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-16

• #7

怎么没人啊, C++ builder copy 函数怎么用啊

 

P

pascal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-19

• #8

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *s1 = new TStringList;
try
{
s1->LoadFromFile("RecvAll.txt"
ProgressBar1->Max = s1->Count;
ProgressBar1->Position = 0;
for (int i=0;s1->Count;i++)
{
AnsiString data_froms = '007';
AnsiString card_nos = s1->Strings.SubString(17,6);
AnsiString attend_dates = s1->Strings.SubString(24,10)+' '+s1->Strings.SubString(35,8);
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("insert into sys_timecard values ('"+card_nos+"','"+attend_dates+"','"+data_froms+"','1',getdate())"
Edit1->Text = ADOQuery1->SQL->CommaText;
ADOQuery1->ExecSQL();
}
}
catch (...){}
}
//---------------------------------------------------------------------------

 

H

haizhu1983

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-19

• #9

copy(@,@,;;

 

D

dxiaoliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-20

• #10

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *s1 = new TStringList;
try
{
s1->LoadFromFile("RecvAll.txt"
ProgressBar1->Max = s1->Count;
ProgressBar1->Position = 0;
for (int i=0;s1->Count;i++)
{
AnsiString data_froms = '007';
AnsiString card_nos = s1->Strings.SubString(17,6);
AnsiString attend_dates = s1->Strings.SubString(24,10)+' '+s1->Strings.SubString(35,8);
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("insert into sys_timecard values ('"+card_nos+"','"+attend_dates+"','"+data_froms+"','1',getdate())"
Edit1->Text = ADOQuery1->SQL->CommaText;
ADOQuery1->ExecSQL();
}
}
catch (...){}
delete s1;
}