开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
data.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

data.pas：源码内容
  1. unit data;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBTables, Db;
  9. type
  10.   TdmData = class(TDataModule)
  11.     spDelEmployee: TStoredProc;
  12.     EmpDS: TDataSource;
  13.     EmpUpdate: TUpdateSQL;
  14.     qryEmployee: TQuery;
  15.     qryEmployeeEMP_NO: TSmallintField;
  16.     qryEmployeeFIRST_NAME: TStringField;
  17.     qryEmployeeLAST_NAME: TStringField;
  18.     qryEmployeeDEPARTMENT: TStringField;
  19.     qryEmployeeJOB_TITLE: TStringField;
  20.     qryEmployeeSALARY: TFloatField;
  21.     AppDB: TDatabase;
  22.     qryDepartment: TQuery;
  23.     DepDS: TDataSource;
  24.     qryEmployeeDEPT_NO: TStringField;
  25.     qryJob: TQuery;
  26.     JobDS: TDataSource;
  27.     qryEmployeeJOB_CODE: TStringField;
  28.     qryEmployeeJOB_GRADE: TSmallintField;
  29.     qryEmployeeJOB_COUNTRY: TStringField;
  30.     procedure qryEmployeeUpdateRecord(DataSet: TDataSet;
  31.       UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
  32.     procedure EmpDSUpdateData(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  39. var
  40.   dmData: TdmData;
  42. implementation
  44. uses main;
  46. {$R *.DFM}
  48. procedure TdmData.qryEmployeeUpdateRecord(DataSet: TDataSet;
  49.   UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
  50. begin
  51.   // when deleting the record, use the Stored Procedure
  52.   if UpdateKind = ukDelete then
  53.   begin
  54.     // assign emp_no value
  55.     with dmData do
  56.       spDelEmployee.Params[0].Value := qryEmployeeEMP_NO.OldValue;
  57.     try
  58.       // invoke stored proc that tries to delete employee
  59.       dmData.spDelEmployee.ExecProc;
  60.       UpdateAction := uaApplied; // success
  61.     except
  62.       UpdateAction := uaFail;
  63.     end;
  64.   end
  65.   else
  66.   try
  67.     // apply updates
  68.     dmData.EmpUpdate.Apply(UpdateKind);
  69.     UpdateAction := uaApplied;
  70.   except
  71.     UpdateAction := uaFail;
  72.   end;
  73. end;
  75. procedure TdmData.EmpDSUpdateData(Sender: TObject);
  76. begin
  77.   MainForm.btnApply.Enabled := True;
  78. end;
  80. end.