dtconnects.pas

IC卡饭堂售饭管理系统源码,内有相关说明,

unit DTConnects;

interface

uses
  SysUtils, Classes, forms,DB, ADODB;

type
  TDTConnect = class(TDataModule)
    ADOConnection1: TADOConnection;
    QryICCard: TADOQuery;
    DsICCard: TDataSource;
    QryUser: TADOQuery;
    ADOCommand1: TADOCommand;
    QryCheck: TADOQuery;
    QryBadCard: TADOQuery;
    DsBadCard: TDataSource;
    QryUserInfo: TADOQuery;
    QryUse: TDataSource;
    DSmoney: TDataSource;
    QrySellMoney: TADOQuery;
    QryDay: TADOQuery;
    DSDay: TDataSource;
    QryAdd: TADOQuery;
    DSAdd: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
    procedure QryUserInfoBeforeDelete(DataSet: TDataSet);
    procedure QryUserInfoAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DTConnect: TDTConnect;

implementation

uses MainFRMS;

{$R *.dfm}

procedure TDTConnect.DataModuleCreate(Sender: TObject);
 var connstr:string;
     INFile:textFile;
begin
  if FileExists('DbConn.ini')=false then begin
    Application.MessageBox('找不到系统配置文件','系统退出',0+64);
    //winexec('Link.exe',1);
    MainFrm.Close;
    abort;
  end;
  AssignFile(infile,'DbConn.ini');
  reset(INFile);
  readln(INFile,connstr);
  ADOConnection1.Connected:=false;
  ADOConnection1.ConnectionString:=connstr;
  ADOConnection1.Connected:=true;
  ADOConnection1.Open;
  closefile(infile);
end;

procedure TDTConnect.QryUserInfoBeforeDelete(DataSet: TDataSet);
begin
  if Application.MessageBox('真的要进行删除吗?','操作提示',1+48)=2 then
    Abort;
end;

procedure TDTConnect.QryUserInfoAfterInsert(DataSet: TDataSet);
begin
  QryUserInfo.FieldByName('ICCardNo').AsString:='00000';
  qryUserInfo.FieldByName('AddCount').AsCurrency:=0; 
end;

end.