sdm.pas

来自「一个动画抽奖程序」· PAS 代码 · 共 87 行

unit sDm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, Provider, ABSMain, dxmdaset;

type
  TDM = class(TDataModule)
    DBF: TABSDatabase;
    User: TABSQuery;
    dspUser: TDataSetProvider;
    cdUser: TClientDataSet;
    cdUserName: TStringField;
    cdUserHandPhone: TStringField;
    cdUserUnitName: TStringField;
    dsUser: TDataSource;
    dsJX: TDataSource;
    cdJX: TClientDataSet;
    cdJXID: TIntegerField;
    cdJXJXName: TStringField;
    cdJXUser: TIntegerField;
    dspJX: TDataSetProvider;
    JX: TABSQuery;
    cdUserUnitPhone: TStringField;
    cdUserID: TAutoIncField;
    OPData: TdxMemData;
    OPDataHP: TStringField;
    cdUserJX: TBooleanField;
    GetTS: TABSQuery;
    TS: TdxMemData;
    TSHP: TStringField;
    TSTS: TBooleanField;
    OPDataTS: TBooleanField;
    NT: TdxMemData;
    NTHP: TStringField;
    NTTS: TBooleanField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function GetKJRS: integer;
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

uses sPublic;

function tdm.GetKJRS: Integer;
begin
  result := 0;
  dm.cdJX.First;
  while not dm.cdJX.Eof do
  begin
    result := result + dm.cdJXUser.Value;
    dm.cdJX.Next;
  end;
end;

procedure TDM.DataModuleCreate(Sender: TObject);
begin
  try
    dm.DBF.Connected := False;
    dm.DBF.DatabaseFileName := AppPath + 'Data.abs';
    dm.DBF.Password := 'tw';
    dm.DBF.Connected := True;
    dm.cdUser.Active := True;
    dm.cdJX.Active := True;
    KJRS := GetKJRS;
    dm.OPData.Active := True;
    dm.TS.Active := True;
    DataInitOK := True;
  except
    DataInitOK := False;
  end;
end;

end.