clientform.pas

来自「source for card readers」· PAS 代码 · 共 74 行

unit ClientForm;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, MConnect, DBCtrls, StdCtrls, ExtCtrls, Grids,
  DBGrids;

type
  TForm3 = class(TForm)
    DCOMConnection1: TDCOMConnection;
    cdsEMP: TClientDataSet;
    cdsEMP_ACT: TClientDataSet;
    cdsEMP_PHOTO: TClientDataSet;
    cdsEMP_RESUME: TClientDataSet;
    dsEMP: TDataSource;
    dsEMP_ACT: TDataSource;
    dsEMP_PHOTO: TDataSource;
    dsEMP_RESUME: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBGrid2: TDBGrid;
    DBMemo1: TDBMemo;
    DBImage1: TDBImage;
    cdsEMPEMPNO: TStringField;
    cdsEMPFIRSTNME: TStringField;
    cdsEMPMIDINIT: TStringField;
    cdsEMPLASTNAME: TStringField;
    cdsEMPWORKDEPT: TStringField;
    cdsEMPPHONENO: TStringField;
    cdsEMPHIREDATE: TDateField;
    cdsEMPJOB: TStringField;
    cdsEMPEDLEVEL: TSmallintField;
    cdsEMPSEX: TStringField;
    cdsEMPBIRTHDATE: TDateField;
    cdsEMPSALARY: TBCDField;
    cdsEMPBONUS: TBCDField;
    cdsEMPCOMM: TBCDField;
    cdsEMPSQLtblEMP_RESUME: TDataSetField;
    cdsEMPSQLtblEMP_PHOTO: TDataSetField;
    cdsEMPSQLtblEMP_ACT: TDataSetField;
    btnApplyUpdates: TButton;
    procedure btnApplyUpdatesClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
{$R *.dfm}

procedure TForm3.btnApplyUpdatesClick(Sender: TObject);
begin
  cdsEMP.ApplyUpdates(0)
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  cdsEMP.Active := True
end;

procedure TForm3.FormDestroy(Sender: TObject);
begin
  if cdsEMP.ChangeCount > 0 then
    cdsEMP.ApplyUpdates(0)
end;

end.