【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-DataModule.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit DataModule;
interface
uses
SysUtils, Classes, DB, ADODB,Dialogs,Forms;
type
TDM = class(TDataModule)
ADOConnection: TADOConnection;
DSetHy: TADODataSet;
DSetKhdj: TADODataSet;
DSetKhlx: TADODataSet;
DSetKhly: TADODataSet;
DSetXb: TADODataSet;
DSHy: TDataSource;
DSKhdj: TDataSource;
DSKhlx: TDataSource;
DSKhly: TDataSource;
DSXb: TDataSource;
ADOQuery1: TADOQuery;
DSetKhzl: TADODataSet;
DSetRy: TADODataSet;
DSRy: TDataSource;
DSKhzl: TDataSource;
DSetKhzlkh_i: TAutoIncField;
DSetKhzlkh_mc: TStringField;
DSetKhzlkh_bm: TStringField;
DSetKhzlkh_dz: TStringField;
DSetKhzlkh_dh1: TStringField;
DSetKhzlkh_dh2: TStringField;
DSetKhzlkh_dzyj: TStringField;
DSetKhzlkh_djsj: TDateTimeField;
DSetKhzlkh_frdb: TStringField;
DSetKhzlkh_yb: TStringField;
DSetKhzlkh_cz: TStringField;
DSetKhzlkh_khdji: TIntegerField;
DSetKhzlkh_khlyi: TIntegerField;
DSetKhzlkh_khlxi: TIntegerField;
DSetKhzlkh_sshyi: TIntegerField;
DSetKhzlkh_bz: TMemoField;
DSetKhzlkh_ssry: TStringField;
DSetKhzlkh_khdj: TStringField;
DSetKhzlkh_khly: TStringField;
DSetKhzlkh_khlx: TStringField;
DSetKhzlkh_sshy: TStringField;
DSetLxjl: TADODataSet;
DSetLxfs: TADODataSet;
DSLxfs: TDataSource;
DSetLxr: TADODataSet;
DSetLxrlxr_i: TAutoIncField;
DSetLxrlxr_khi: TIntegerField;
DSetLxrlxr_bm: TStringField;
DSetLxrlxr_xm: TStringField;
DSetLxrlxr_nc: TStringField;
DSetLxrlxr_zlxr: TBooleanField;
DSetLxrlxr_xbi: TIntegerField;
DSetLxrlxr_zw: TStringField;
DSetLxrlxr_bmen: TStringField;
DSetLxrlxr_bgdh: TStringField;
DSetLxrlxr_jtdh: TStringField;
DSetLxrlxr_dzyj: TStringField;
DSetLxrlxr_qq: TIntegerField;
DSetLxrlxr_dz: TStringField;
DSetLxrlxr_yb: TStringField;
DSetLxrlxr_sr: TDateTimeField;
DSetLxrlxr_bz: TMemoField;
DSetLxrlxr_kh: TStringField;
DSLxr: TDataSource;
DSetLxjllxjl_i: TAutoIncField;
DSetLxjllxjl_sj: TDateTimeField;
DSetLxjllxjl_lxri: TIntegerField;
DSetLxjllxjl_wfryi: TIntegerField;
DSetLxjllxjl_lxfsi: TIntegerField;
DSetLxjllxjl_jl: TMemoField;
DSetLxjllxjl_fy: TBCDField;
DSetLxjllxjl_lxr: TStringField;
DSetLxjllxjl_khi: TIntegerField;
DSetLxjllxjl_kh: TStringField;
DSetLxjllxjl_wfry: TStringField;
DSetLxjllxjl_lxfs: TStringField;
DSLxjl: TDataSource;
DSetSp: TADODataSet;
DSSp: TDataSource;
DSetSpsp_i: TIntegerField;
DSetSpsp_bm: TStringField;
DSetSpsp_mc: TStringField;
DSetSpsp_jldw: TStringField;
DSetSpsp_zdxsj: TBCDField;
DSetSpsp_bzxsj: TBCDField;
DSetSpsp_ms: TMemoField;
DSetXsjl: TADODataSet;
DSetXsjlxsjl_i: TIntegerField;
DSetXsjlxsjl_khi: TIntegerField;
DSetXsjlxsjl_djbh: TStringField;
DSetXsjlxsjl_kdsj: TDateTimeField;
DSetXsjlxsjl_zdri: TIntegerField;
DSetXsjlxsjl_shri: TIntegerField;
DSetXsjlxsjl_shsj: TDateTimeField;
DSetXsjlxsjl_bz: TMemoField;
DSetXsjlxsjl_cxyy: TMemoField;
DSXsjl: TDataSource;
DSetXsjlxsjl_kh: TStringField;
DSetXsjlxsjl_zdr: TStringField;
DSetXsjlxsjl_shr: TStringField;
DSetXsxq: TADODataSet;
DSXsxq: TDataSource;
DSetXsxqxsxq_i: TAutoIncField;
DSetXsxqxsxq_xsjli: TIntegerField;
DSetXsxqxsxq_spi: TIntegerField;
DSetXsxqxsxq_dj: TBCDField;
DSetXsxqxsxq_sl: TBCDField;
DSetXsxqxsxq_spmc: TStringField;
DSetXsxqxsxq_spjldw: TStringField;
DSetXsxqxsxq_je: TCurrencyField;
DSetXsjlxsjl_jezj: TCurrencyField;
DSetLxrlxr_xb: TStringField;
DSetXdap: TADODataSet;
DSXdap: TDataSource;
DSetKhzlkh_ssryi: TIntegerField;
DSetTemp: TADODataSet;
DSetXdapxdap_wfryi: TIntegerField;
DSetXdapxdap_lxri: TIntegerField;
DSetXdapxdap_sj: TDateTimeField;
DSetXdapxdap_xq: TMemoField;
DSetXdapxdap_wc: TBooleanField;
DSetXdapxdap_i: TAutoIncField;
DSetXdapxdap_khi: TIntegerField;
DSetXdapxdap_kh: TStringField;
DSetXdapxdap_lxr: TStringField;
DSetXdapxdap_wfry: TStringField;
DSetXdapxdap_cx: TBooleanField;
DSetXdapxdap_zt: TStringField;
DSetXsjlxsjl_zt: TWordField;
DSetXsxqhz: TADODataSet;
DSetRyPer_i: TAutoIncField;
DSetRyPer_p: TIntegerField;
DSetRyPer_Name: TStringField;
DSetRyPer_Code: TStringField;
DSetRyPer_Sex: TStringField;
DSetRyPer_gw: TStringField;
DSetRyPer_zw: TStringField;
DSetRyPer_dlmz: TStringField;
DSetRyPer_dlmm: TStringField;
DSetKhWfry: TADODataSet;
DSetKhWfryper_i: TAutoIncField;
DSetKhWfryper_name: TStringField;
DSetKhWfryper_sex: TStringField;
DSetKhWfrylxr_khi: TIntegerField;
DSKhWfry: TDataSource;
procedure DSetHyBeforePost(DataSet: TDataSet);
procedure DSetKhdjBeforePost(DataSet: TDataSet);
procedure DSetKhlxBeforePost(DataSet: TDataSet);
procedure DSetKhlyBeforePost(DataSet: TDataSet);
procedure DSetXbBeforePost(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
procedure DSetKhzlBeforePost(DataSet: TDataSet);
procedure DSetLxfsBeforePost(DataSet: TDataSet);
procedure DSetSpBeforePost(DataSet: TDataSet);
procedure DSetXsjlBeforePost(DataSet: TDataSet);
procedure DSetLxrBeforePost(DataSet: TDataSet);
procedure DSetLxrBeforeDelete(DataSet: TDataSet);
procedure DSetXdapBeforePost(DataSet: TDataSet);
procedure DSetXdapCalcFields(DataSet: TDataSet);
procedure DSetXsxqCalcFields(DataSet: TDataSet);
procedure DSetXsxqAfterPost(DataSet: TDataSet);
procedure DSetXsjlxsjl_ztGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure DSetLxjlBeforePost(DataSet: TDataSet);
procedure DSetXsjlBeforeInsert(DataSet: TDataSet);
procedure DSetKhzlBeforeInsert(DataSet: TDataSet);
procedure DSetKhzlBeforeDelete(DataSet: TDataSet);
procedure DSetLxrBeforeInsert(DataSet: TDataSet);
procedure DSetLxjlBeforeInsert(DataSet: TDataSet);
procedure DSetXdapBeforeInsert(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
uses PublicModel, Variants, xsjl,IniFiles;
{$R *.dfm}
procedure TDM.DSetHyBeforePost(DataSet: TDataSet);
begin
if trim(DSetHy.FieldByName('hy_mc').AsString ) = '' then
begin
DSetHy.Delete ;
Abort ;
exit;
end;
if not showConfirmDlg('确实在行业表中增加记录吗?' + #13#10#13#10
+ '注意:记录增加之后将不能删除和编辑') then
begin
DSetHy.Delete ;
Abort ;
exit;
end;
end;
procedure TDM.DSetKhdjBeforePost(DataSet: TDataSet);
begin
if trim(DSetKhdj.FieldByName('khdj_mc').AsString ) = '' then
begin
DSetKhdj.Delete ;
Abort ;
exit;
end;
if not showConfirmDlg('确实在客户等级表中增加记录吗?' + #13#10#13#10
+ '注意:记录增加之后将不能删除和编辑') then
begin
DSetKhdj.Delete ;
Abort ;
exit;
end;
end;
proce
上一篇:
DataModu.pas
下一篇:
网络能耗监测系统管理端的研究与实现