testdelta_p.pas

该程序可用于com+中delphi组件的交易控制

unit testDelta_p;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, ExtCtrls, Db, DBClient, MConnect, DBCtrls,
  ADODB;

type
  TForm1 = class(TForm)
    ClientDataSet1: TClientDataSet;
    DCOMConnection1: TDCOMConnection;
    ClientDataSet2: TClientDataSet;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    DataSource2: TDataSource;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    DBNavigator1: TDBNavigator;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Panel4: TPanel;
    Button6: TButton;
    Button7: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    ADOConnection1: TADOConnection;
    Button8: TButton;
    writeDCom: TDCOMConnection;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure  saveData;
  end;

var
  Form1: TForm1;

implementation

uses MyDeltaToSql;

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
begin
  clientDataSet1.close;
  clientDataSet1.DataRequest('select  cusno custno,cusname custname,modifyman,modifytime from customerinfo');
  clientDataSet1.open;
  self.DCOMConnection1.Connected:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  clientDataSet1.CheckBrowseMode;
  clientDataSet2.data:=clientDataset1.Delta
end;

procedure TForm1.Button3Click(Sender: TObject);
var str1:string;
begin
 str1:='none';
 case  clientdataset1.UpdateStatus of
  usUnmodified : str1:='unmodified';
  usModified : str1:='modify';
  usInserted : str1:='insert';
  usDeleted : str1:='delete';
 end;
 showmessage('client1='+str1);
end;

procedure TForm1.Button4Click(Sender: TObject);
var str1:string;
begin
 str1:='none';
 case  clientdataset2.UpdateStatus of
  usUnmodified : str1:='unmodified';
  usModified : str1:='modify';
  usInserted : str1:='insert';
  usDeleted : str1:='delete';
 end;
 showmessage(str1);
end;

procedure TForm1.Button5Click(Sender: TObject);
var str1:string;
begin
  str1:='fieldname='+clientdataset1.Fields[1].FieldName+
       ';displaytext='+clientdataset1.Fields[1].Displaytext+
       ';displayname='+clientdataset1.Fields[1].DisplayName+
       ';displaylabel='+clientdataset1.Fields[1].DisplayLabel+
       ';value='+clientdataset1.Fields[1].AsString;
  showmessage(str1);
  showmessage('oldvalue='+datetimetostr(clientdataset1.Fields[3].oldvalue));
  showmessage('newvalue='+datetimetostr(clientdataset1.Fields[3].newvalue));

end;

procedure TForm1.Button6Click(Sender: TObject);
var str1:string;
begin
  str1:='fieldname='+clientdataset2.Fields[1].FieldName+
       ';displayname='+clientdataset2.Fields[1].DisplayName+
       ';displaylabel='+clientdataset2.Fields[1].DisplayLabel+
       ';value='+clientdataset2.Fields[1].AsString;
  showmessage(str1);

  showmessage('oldvalue='+datetimetostr(clientdataset2.Fields[3].oldvalue));
  showmessage('newvalue='+datetimetostr(clientdataset2.Fields[3].newvalue));
 // if (clientdataset2.Fields[1].IsNull) then
 //   showmessage('is null');
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  if application.FindComponent('MyDeltaToSqlForm')<>nil then
    MyDeltaToSqlForm:=TMyDeltaToSqlForm.create(application);

  clientDAtaset1.CheckBrowseMode;
  MyDeltaToSqlForm.deltaArr[1]:=clientDATASet1.Delta;
  MyDeltaToSqlForm.modifyInfo[1]:=edit1.Text;
  MyDeltaToSqlForm.dataSetArr[1]:=clientDataSet1;
  MyDeltaToSqlForm.clientNum:=1;
  MyDeltaToSqlForm.myChToSql;
  memo1.Lines.Assign(MyDeltaToSqlForm.sqlLst);

  
end;
procedure TForm1.saveData;
var errmsg:string;
begin
  if application.FindComponent('MyDeltaToSqlForm')<>nil then
    MyDeltaToSqlForm:=TMyDeltaToSqlForm.create(application);
  MyDeltaToSqlForm.myAddInfo(clientDataSet1,edit1.text);
  errmsg:=MyDeltaToSqlForm.myWriteData(writeDcom,'N');
  if (comparetext(errmsg,'noerror')=0) then
    showmessage('save ok')
  else
  begin
    showmessage('玂