dm.pas

药品进销存系统 delphi V6开发,入门级参考源代码

unit dm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TFrmdm = class(TDataModule)
    Database: TDatabase;
    Query_gettime: TQuery;
    Query_czy: TQuery;
    Query_bm: TQuery;
    DataSource_bm: TDataSource;
    Query_bhb: TQuery;
    DataSource_ghs: TDataSource;
    Query_ghs: TQuery;
    Query_ywy: TQuery;
    DataSource_ywy: TDataSource;
    Query_ywyywy_bh: TStringField;
    Query_ywyywy_xm: TStringField;
    Query_ywyxb: TStringField;
    Query_ywynl: TStringField;
    Query_ywybm_bh: TStringField;
    Query_ywybm_mc: TStringField;
    Query_dbdw: TQuery;
    DataSource_dbdw: TDataSource;
    DataSource_khxx: TDataSource;
    Query_khxx: TQuery;
    Query_kc: TQuery;
    DataSource_kc: TDataSource;
    Query_ckxx: TQuery;
    Query_db: TQuery;
    DataSource_db: TDataSource;
    Query_xs: TQuery;
    DataSource_xs: TDataSource;
    Query_ckd: TQuery;
    Query_bs: TQuery;
    DataSource_bs: TDataSource;
    Query_dbdb_bh: TStringField;
    Query_dbcd: TStringField;
    Query_dbpm: TStringField;
    Query_dbgg: TStringField;
    Query_dbdw2: TStringField;
    Query_dbjj: TFloatField;
    Query_dbph: TStringField;
    Query_dbdbsl: TFloatField;
    Query_dbdbrq: TDateTimeField;
    Query_dbdbdw: TStringField;
    Query_dbfpph: TStringField;
    Query_dbck_bh: TStringField;
    Query_dbwp_bm: TStringField;
    Query_xsxs_bh: TStringField;
    Query_xswp_bm: TStringField;
    Query_xskh_mc: TStringField;
    Query_xspm: TStringField;
    Query_xsdw: TStringField;
    Query_xsgg: TStringField;
    Query_xsjj: TFloatField;
    Query_xsdj: TFloatField;
    Query_xssl: TFloatField;
    Query_xsph: TStringField;
    Query_xsxsrq: TDateTimeField;
    Query_xsck_bh: TStringField;
    Query_xsbm_mc: TStringField;
    Query_xsywy_xm: TStringField;
    Query_xscd: TStringField;
    Query_xscb: TFloatField;
    Query_xssj: TFloatField;
    Query_xsml: TFloatField;
    Query_xslr: TFloatField;
    Query_xsck_mc: TStringField;
    Query_dbck_mc: TStringField;
    Query_dbje: TFloatField;
    Query_xsje: TFloatField;
    Query_xsfp_ph: TStringField;
    DataSource_ckxx: TDataSource;
    Query_xssb: TStringField;
    Query_xspzwh: TStringField;
    procedure DataModuleCreate(Sender: TObject);
    procedure Query_xsCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    Function GetServerTime:TDateTime;
    { Public declarations }
  end;

var
  Frmdm: TFrmdm;

implementation

{$R *.DFM}

procedure TFrmdm.DataModuleCreate(Sender: TObject);
begin
  try
    database.Connected:=true;
  except
    application.MessageBox('数据库连接错误!请检查网络','警告',MB_OK+MB_ICONWARNING);
    halt;
  end;
end;

function TFrmdm.GetServerTime: TDateTime;
begin
  Query_GetTime.close;
  Query_GetTime.UnPrepare;
  Query_GetTime.sql.Clear;
  Query_GetTime.sql.Add('select getdate() as datetime');
  Query_GetTime.Prepare;
  Query_GetTime.open;
  result:=Query_GetTime.fieldbyname('datetime').asdatetime;
end;

procedure TFrmdm.Query_xsCalcFields(DataSet: TDataSet);
  var cb,sj:real;
begin
  cb:=Query_xs.FieldByName('jj').asfloat*Query_xs.FieldByName('sl').asfloat;
  Query_xs.FieldByName('cb').asfloat:=cb;
//  Query_xs.FieldByName('ml').asfloat:=Query_xs.FieldByName('je').asfloat-cb;
  Query_ckxx.close;
  Query_ckxx.UnPrepare;
  Query_ckxx.sql.Clear;
  Query_ckxx.sql.Add('select * from ckxxb');
  Query_ckxx.sql.Add(' where ck_bh='''+Query_xs.FieldByName('ck_bh').asstring+'''');
  Query_ckxx.Prepare;
  Query_ckxx.open;
  sj:=Query_xs.FieldByName('je').asfloat/(1+Query_ckxx.fieldbyname('sl').asfloat)*Query_ckxx.fieldbyname('sl').asfloat;
  Query_xs.FieldByName('sj').asfloat:=sj;
  Query_xs.FieldByName('lr').asfloat:=Query_xs.FieldByName('je').asfloat-cb-sj;
end;

end.