Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 4.02 » View Incident Report |
Serious |
Reported By: Bruce Vander Werf Reported On: 1/6/2004 For: Version 4.01 Build 1 |
procedure TForm1.BitBtn1Click(Sender: TObject); var FD: TDBISAMFieldDef; begin with tblSongs do begin TableName := 'WASongs'; DatabaseName := ''; if ((UserMajorVersion = 3) and (UserMinorVersion = 0)) then begin FieldDefs.Update; with FieldDefs do begin FD := Find('USER1'); if (FD <> nil) then FD.Size := 30; FD := Find('USER2'); if (FD <> nil) then FD.Size := 30; FD := Find('USER3'); if (FD <> nil) then FD.Size := 30; FD := Find('ROADMAP'); if (FD <> nil) then FD.Size := 30; Insert(23, 26, 'FILELINK1', ftString, 80, false); Insert(24, 27, 'FILELINK2', ftString, 80, false); end; IndexDefs.Update; AlterTable (0, 3, 1); end; if ((UserMajorVersion = 3) and (UserMinorVersion = 1)) then begin FieldDefs.Update; with FieldDefs do begin FD := Find('ROADMAP'); if (FD <> nil) then FD.Size := 80; Insert(25, 28, 'UPDATED', ftDateTime, 0, false); end; IndexDefs.Update; AlterTable (0, 3, 2); end; end; end;
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |