dbm.pas

书籍类别（种类编号

unit DBM;

interface

uses
  SysUtils, Classes, ADODB, DB;

type
   TDM = class(TDataModule)
    POSADOConn: TADOConnection;
    CONQuery: TADOQuery;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    LogADOQuery: TADOQuery;
    HumanResQuery: TADOQuery;
    ADOQuery3: TADOQuery;
    UserADOQuery: TADOQuery;
    DataSource2: TDataSource;
    AddClassADOQuery: TADOQuery;
    ADOQuery4: TADOQuery;
    StructADOQuery: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery5: TADOQuery;
    ADOStoredProc1: TADOStoredProc;
    ADOQuery6: TADOQuery;
    vADOQuery: TADOQuery;
    ADOQuery7: TADOQuery;
    detail: TADOQuery;
    DataSource4: TDataSource;
    ADOQuery_h: TADOQuery;
    gengxin_h: TADOQuery;
    ADOQuery8: TADOQuery;
    ADOQuery9: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure ADOQuery2AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation
 uses inc, main;
{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);

begin
 if ConnStr='' then Exit;//设置ADO连接的属性，并尝试连接
  with DM do begin
    //POSADOConn.ConnectionString :='Provider=SQLOLEDB.1;Password=usa911;Persist Security Info=True;User ID=sa;Initial Catalog=bargain;Data Source=342-8E4FB7A2EEC';
    POSADOConn.ConnectionString :=ConnStr;
    POSADOConn.LoginPrompt :=false;
    POSADOConn.Connected :=true;
  end;
end;

procedure TDM.ADOQuery2AfterScroll(DataSet: TDataSet);
begin
with mainForm do try
     begin
     statusBar1.Panels.Items[2].Text :='第 '+IntToStr(DataSet.RecNo)+'/'+IntTOStr(Dataset.RecordCount)+' 条记录';
     m_RecNum:=DataSet.RecNo;
     end;
      except
end;
end;

end.