data.~pas

一个图书批发商的通用软件

unit Data;

interface

uses
  SysUtils, Classes, DB, ADODB, ImgList, Controls;

type
  TdmData = class(TDataModule)
    adcDatabase: TADOConnection;
    qryUserPass: TADOQuery;
    qryTemp: TADOQuery;
    ImageList: TImageList;
    qryHouseSave: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure kkg(Sender: TField; var Text: String; DisplayText: Boolean);
  end;
  //Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=G:\工程\图书批发商\bin\MainBook.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=123456;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

var
  dmData: TdmData;
  sysname,sysaddress,systl,syspo,strmemo:string;  //系统名称 系统地址 系统电话 系统邮编
 
implementation

uses unSystPublic;

{$R *.dfm}

procedure TdmData.DataModuleCreate(Sender: TObject);
begin
  if adcDatabase.Connected then
  adcDatabase.Close;
end;
procedure TdmData.kkg(Sender: TField; var Text: String; DisplayText: Boolean);
var rtemp:double;
begin
  if sender.AsString<>'' then
  begin
    rtemp:=sender.AsFloat*100;
    text:=floattostr(rtemp)+'%';
  end;
end;
end.