Problem displaying formatted text in DBEdit

[topcat01]

Evening,

I am working with D7 with SQL Server 2005, a form with DBNavigator and some DBEdit boxes.

I would like one of the DBedit boxes to display the new reference number when the insert button is pressed on the dbnavigator (increments after each new record 000124, 000125 and so on). I have used the following line of code to ensure the format of the reference remains consistent:

Temp:=Format('%.6d', NewIssue);   // this works ok

However when the insert button is pressed the new issue number is displayed as ‘124’ in the DBedit. I have tried the following:

frmMain.DBEdit1.Text := Temp;

IssueTable.FieldByName('IssueNo').AsString := Temp;

Neither option seems to work. The format string is working (tested with showmessage) but I am doing something wrong after that. I have called the above in the Event 'BeforePost' from ADOTable.

As ever any pointers in the right direction would be welcome!

 

[TonHu]

Looks like you need something like a DBMaskEdit control. A Google search should probably get you one quickly.

HTH
TonHu

 

[DjangMan]

Use the TField.OnGetText to format the value.

 

[topcat01]

Thanks, the following code worked fine:

if Sender.IsNull then
    Text := Format('%.6d', [NextIssue.FieldByName('NewIssue').AsInteger])
  else
    Text := Sender.AsString;