u_dm.pas

相关的销售服务管理行业的一个软件

unit U_DM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ADODB, Db,Gys_Kh_TLB, ComObj;

type
  TDM = class(TDataModule)
    ADOTableFHP: TADOTable;
    ADOTableZHXD: TADOTable;
    ADOTableWTS: TADOTable;
    ADOQueryBGDChild: TADOQuery;
    ADOQueryZHXDCX: TADOQuery;
    ADOQueryWTDCX: TADOQuery;
    ADOQueryFPCX: TADOQuery;
    ADOQueryBGDCX: TADOQuery;
    ADOQueryMXDCX: TADOQuery;
    ADOQueryDDCX1: TADOQuery;
    ADOQueryDDCX2: TADOQuery;
    ADOQueryDDCX3: TADOQuery;
    ADOQueryDDCX4: TADOQuery;
    ADOTableDD1: TADOTable;
    ADOTableDD4: TADOTable;
    ADOTableDD2: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOTableDD3: TADOTable;
    ADOTableJS: TADOTable;
    DataSourceJS: TDataSource;
    ADOTableBGD: TADOTable;
    ADOTableMXD: TADOTable;
    ADOQueryJS1: TADOQuery;
    ADOQueryJS2: TADOQuery;
    ADOQueryJS3: TADOQuery;
    ADOQueryJS4: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    ADOTable2: TADOTable;
    ADOTableDDTJ: TADOTable;
    ADOTableDD1OrderNo: TWideStringField;
    ADOTableDD1OrderDate: TDateTimeField;
    ADOTableDD1CoName: TWideStringField;
    ADOTableDD1intype: TWideStringField;
    ADOQueryddtj1: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuerySGOODS: TADOQuery;
    DataSourceBGJC: TDataSource;
    ADOTableBGJC: TADOTable;
    ADOQueryBGJC: TADOQuery;
    PubQry: TADOQuery;
    ADOTableBGDchild: TADOTable;
    ADOQueryDD2: TADOQuery;
    ADOQueryDD3: TADOQuery;
    ADOQKC: TADOQuery;
    ADOQueryTemp: TADOQuery;
    ADOQuerySize: TADOQuery;
    ADO_Order3: TADOQuery;
    ADOQreport: TADOQuery;
    ADO_Color: TADOQuery;
    ADOConnection: TADOConnection;
    FrmFxShop: TADOQuery;
    //procedure DataSourceFHPDataChange(Sender: TObject; Field: TField);
    procedure ADOTableBGDAfterPost(DataSet: TDataSet);
    //procedure DataSourceBGDDataChange(Sender: TObject; Field: TField);
    procedure ADOTableMXDAfterPost(DataSet: TDataSet);
    procedure ADOTableZHXDAfterPost(DataSet: TDataSet);
    procedure DataSourceBGDChildDataChange(Sender: TObject; Field: TField);
    procedure ADOQueryBGDChildAfterPost(DataSet: TDataSet);
    procedure ADOQueryBGDCXAfterPost(DataSet: TDataSet);
    procedure ADOQuery1AfterPost(DataSet: TDataSet);
    procedure DataSourceBGJCDataChange(Sender: TObject; Field: TField);
    procedure ADOConnectionAfterConnect(Sender: TObject);
   {
    procedure ADOQueryBGDCXAfterPost(DataSet: TDataSet); }
  private
    { Private declarations }
  public
          Imy:IBaseInfo;
    { Public declarations }
  end;

var
  DM: TDM;
  Tmxd:boolean;
implementation

uses  U_BGD,U_BGDChild, U_FHP,U_MXD, U_WTD,Uorder,U_BGJC,U_BZHFF,
  SYS_DataModal, SellDailyFrm;

{$R *.DFM}

procedure TDM.ADOTableBGDAfterPost(DataSet: TDataSet);
begin
  FlagBGD:=True;
end;

procedure TDM.ADOTableMXDAfterPost(DataSet: TDataSet);
begin
  FlagMXD:=True;
end;

{*******************************************************************************}

procedure TDM.ADOTableZHXDAfterPost(DataSet: TDataSet);
begin
  FlagMXD:=True;
end;

{*******************************************************************************}
procedure TDM.DataSourceBGDChildDataChange(Sender: TObject; Field: TField);
begin
  FlagBGDChild:=False;
end;

procedure TDM.ADOQueryBGDChildAfterPost(DataSet: TDataSet);
begin
  FlagBGDChild:=True;
end;

procedure TDM.ADOQueryBGDCXAfterPost(DataSet: TDataSet);
begin
  FlagBGD:=true;
end;



procedure TDM.ADOQuery1AfterPost(DataSet: TDataSet);
var
 field:array[1..4] of variant;
 i:integer;
begin
 DM.ADOQuery1.EnableControls;
 DM.ADOQuery1.Open;
 for i:=0 to DM.adoquery1.FieldCount-1 do
 begin
   if DM.adoquery1.Fields[i].Value =0 then
   field[1+i]:=null
   else field[1+i]:=DM.ADOQuery1.Fields[i].Value;
 end;
 DM.ADOQuery1.Close;
 with DM.ADOTable2 do
 begin
   edit;
   fieldbyname('R_name').value:=field[1];
   fieldbyname('shoesno').value:=field[2];
   fieldbyname('color').value:=field[3];
   fieldbyname('size').value:=field[4];
  // fieldbyname('amount').value:=field[5];
   post;
 end;
end;

procedure TDM.DataSourceBGJCDataChange(Sender: TObject; Field: TField);
begin
  FlagBGJC:=False;
end;

procedure TDM.ADOConnectionAfterConnect(Sender: TObject);
begin
 Imy:=CreateComObject(CLASS_BaseInfo) as IBaseInfo;
 Imy.Init(dm.ADOConnection.ConnectionString,dm1.ADOCon1.ConnectionString,application.handle);

end;

end.