udm.pas

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

//  **********************************
//  *    Module name : udm           *
//  *    AUTHOR      : Guo xuliang   *
//  *    Date        : 2005/05/12    *
//  **********************************
unit udm;

interface

uses
  SysUtils, Classes, DB, DBTables,Dialogs,forms;

type
  Tdm = class(TDataModule)
    connection: TDatabase;
    pub1: TQuery;
    pub2: TQuery;
    pub3: TQuery;
    pub4: TQuery;
    p_update1: TQuery;
    p_update2: TQuery;
    p_update3: TQuery;
    p_update4: TQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

uses uglobal_var,uglobal_fun;

{$R *.dfm}

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
  try
    if not connection.Connected then
       begin
         //connection.AliasName:='DT2_MPSS_0304';
         //connection.params.add('USER NAME=DBAUSER');
         //connection.params.add('PASSWORD=dba');

         connection.AliasName:='JXC_CSD';
         connection.params.add('USER NAME=sa');
         connection.params.add('PASSWORD=admin');

         connection.LoginPrompt:=false;
         //connection.DatabaseName:='DT2MPSS';
         connection.DatabaseName:='JXC_CSD';
         connection.Connected:=true;
       end;
  except
    messagedlg('Can not open the Database!',mtinformation,[mbok],0);
    application.Terminate;
  end;
   pub1.DatabaseName:=connection.DatabaseName;
   pub2.DatabaseName:=connection.databasename;
   pub3.DatabaseName:=connection.DatabaseName;
   pub4.DatabaseName:=connection.DatabaseName;
   p_update1.DatabaseName:=connection.DatabaseName;
   p_update2.DatabaseName:=connection.DatabaseName;
   p_update3.DatabaseName:=connection.DatabaseName;
   p_update4.DatabaseName:=connection.DatabaseName;
end;

procedure Tdm.DataModuleDestroy(Sender: TObject);
begin
  pub1.close;
  pub2.close;
  pub3.close;
  pub4.Close;
  p_update1.Close;
  p_update2.Close;
  p_update3.Close;
  p_update4.Close;
  if connection.InTransaction then  connection.Rollback;
  if connection.Connected then connection.Connected:=false;
end;

end.