Manage

The manage step provides data management functionality for your application and/or process.

Below is the code for Manage():

procedure TForm1.Manage();

begin

    // delete any existing records

    Delete_Records();

    // populate the table with data

    Add_CustomerMaster_Records();

    // display contents of table

    Display_Records();

end;

procedure TForm1.btmUpdateClick(Sender: TObject);

begin

    // update a record under locking control

    Update_CustomerMaster_Record();

    // display again after update and effects of lock

    Display_Records();

end;


procedure TForm1.Add_CustomerMaster_Records;

const

    data : array [1..4] of string = (

        '(''1000'', ''92867'', ''CA'', ''1'', ''Bryan Williams'', ''2999 Regency'', ''Orange'')',

        '(''1001'', ''61434'', ''CT'', ''1'', ''Michael Jordan'', ''13 Main'', ''Harford'')',

        '(''1002'', ''73677'', ''GA'', ''1'', ''Joshua Brown'', ''4356 Cambridge'', ''Atlanta'')',

        '(''1003'', ''10034'', ''MO'', ''1'', ''Keyon Dooling'', ''19771 Park Avenue'', ''Columbia'')'

    );

    nRecords : integer = 4;

var

    i : integer;

    str : string;

begin

    try

        SQLConnection1.StartTransaction(td);

        for i := 1 to nRecords do

        begin

            // add one record at time to table

            str := 'INSERT INTO custmast VALUES ' + data[i];

            SQLConnection1.ExecuteDirect(str);

        end;

        SQLConnection1.Commit(td);

    except on E: Exception do Handle_Exception(E);

    end;

end;

procedure TForm1.Delete_Records;

begin

    try

        SQLConnection1.ExecuteDirect('DELETE FROM custmast');

    except on E: Exception do Handle_Exception(E);

    end;

end;

procedure TForm1.Display_Records;

begin

    try

        SimpleDataSet1.Active := false;

        SimpleDataSet1.DataSet.CommandType := ctQuery;

        SimpleDataSet1.DataSet.CommandText := 'SELECT * FROM custmast';

        SimpleDataSet1.Active := true;

    except on E: Exception do Handle_Exception(E);

    end;

end;

procedure TForm1.Update_CustomerMaster_Record;

var

  str : string;

begin

    try

        SQLConnection1.StartTransaction(td);

        str := 'UPDATE custmast SET cm_custname = ''KEYON DOOLING'' where cm_custnumb = ''1003''';

        SQLConnection1.ExecuteDirect(str);

        Application.MessageBox('Click OK to unlock', '', 0);

        SQLConnection1.Commit(td);

    except on E: Exception do Handle_Exception(E);

    end;

end;