VB para Delphi

[anabon]

Olá pessoal boa tarde....

Tenho usado esse forum a algum tempo para tirar minhas duvidas em VB6, a duas semana tenho tentado passar meus aplicativo em vb para delphi... tudo estava indo muito bem até que chequei em contas a pagar e a receber...

Em vb para dar baixa em uma conta não paga uso o seguinte codigo?

If baixar.Text = "" Then

If MsgBox("Tem certeza que deseja dar baixa nesse lançamento ?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then

RS.Close

RS.Open "Select * from a_pagar where codigo = " & Me.txtcodigo & "", con, adOpenKeyset, adLockOptimistic

With RS

.Update

.Fields("data_pagamento") = Date

.Update

End With

MsgBox ("Seu lançamento foi dado baixa com sucesso !!"), vbInformation, "Sucesso !"

Else

Exit Sub

End If

Else

MsgBox ("Esse lançamento já foi dado baixa em: " & baixar.Text & " !!"), vbCritical, "Erro ao tentar dar baixa"

End If

Unload Me

no delphi coloquei o seguinte codigo no evento on click do botão "dar baixa"

If baixa.Text := '' then //nada foi digitado

if Application.MessageBox('Deseja dar baixa no registro atual?','Confirme',

MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDYES then

Tab_apagar.Append; // inclui um novo registro na tabela

Tab_apagar.Post;

if Tab_caixa.State in [dsInsert,dsEdit] then

Tab_apagar.Post;

If baixa.Text := Date;

Só que não passa dessa linha: If baixa.Text := '' then //nada foi digitado

Alguém sabe me dizer onde ta o erro????

Desde já agradeço.....

[Jhonas]

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
   if baixar.Text = '' Then
      begin
         If MessageDlg('Tem certeza que deseja dar baixa nesse lançamento ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
            begin
               Query1.Close;
               Query1.SQL.Clear;
               s := ' Select * from a_pagar where codigo = ' + Me.txtcodigo;
               Query1.SQL.Append(s);
               Query1.Open; 

               With Query1 do
               begin
                Update;
                FieldByName('data_pagamento'):= Date;
                Update;
               end;
               MessageDlg('Seu lançamento foi dado baixa com sucesso !', mtinformation, [mbyes], 0);
            end
         else
            Exit
      end
   else
      MessageDlg('Esse lançamento já foi dado baixa em: '+ baixar.Text + #13+#13+
                    'Erro ao tentar dar baixa!', mterror, [mbno], 0);

end;

abraço

[anabon]

Olá Jhonas boa noite....

Fiz conforme me indicou coloquei a Query e configurei ela... estou usando o banco acess por isso coloquei uma ADOquery, mas o codigo não passa dessa linha:

ADOQuery_apagar.SQL.Append(s)

Oque a de errado?

Desde já agradeço

abraço!!!!

[Jhonas]

estou usando o banco acess por isso coloquei uma ADOquery, mas o codigo não passa dessa linha:

voce deve sempre colocar o erro que aparece na tela, caso contrario fica dificil ajudar...

abraço

[anabon]

Olá boa tarde desculpe a demora.....

o erro que da é esse:

[Error]Contas_apagar.pas(75): Incompatible types: 'String' and 'TDBEdit'

[Error] Contas_apagar.pas(76): Missing operator or semicolon

[Error] Contas_apagar.pas(80): Left side cannot be assigned to

[Error] Contas_apagar.pas(89): Undeclared identifier: 'baixar'

[Error] Contas_apagar.pas(90): Statement expected, but expression of type 'TCaption' found

[Error] Contas_apagar.pas(98): Undeclared identifier: 'Query1'

[Fatal Error] Mecanicasoft.dpr(13): Could not compile used unit 'Contas_apagar.pas'

a linha que aponta o erro é :

ADOQuery_apagar.SQL.Append(s)

[Jhonas]

[Erro]Contas_apagar.pas (75): tipos incompatíveis: 'String' e 'TDBEdit'

[Erro] Contas_apagar.pas (76): operador ausente ou ponto e vírgula

[Erro] Contas_apagar.pas (80): O lado esquerdo não pode ser atribuído a

[Erro] Contas_apagar.pas (89): identificador não declarado: 'baixar'

[Erro] Contas_apagar.pas (90): Declaração de espera, mas a expressão de tipo 'TCaption' encontrado

[Erro] Contas_apagar.pas (98): identificador não declarado: "Query1"

[Erro Fatal] Mecanicasoft.dpr (13): Não foi possível compilar unit usada 'Contas_apagar.pas'

OBS: traduza os erros para que fique mais facil o entendimento, para que voce possa solucioná-los

o numero dentro do parentesis (75) refere-se a linha de código onde o erro foi achado

veja que na tradução do erro, já dá pra voce ter uma idéia do que deverá fazer para resolver

tipos incompatíveis: 'String' e 'TDBEdit' procure a linha 75 do seu código e veja como está definido a sintaxe do comando

exemplo: var s : string;

// Correto
TDBEdit1.Text := s;

// Erro 
TDBEdit1 := s;

Caso tenha muitas dúvidas, sugiro procurar no forum ou na net apostilas basicas de delphi

abraço