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;
    Adoxsrbm: TADOQuery;
    adoxsrbd: TADOQuery;
    ADOQuery4: TADOQuery;
    adoclient: TADOQuery;
    adoxsbm: TADOQuery;
    ADOStoredProc1: TADOStoredProc;
    adock: TADOQuery;
    Adoxsrbmckname: TStringField;
    AdoxsrbmnBillid: TWideStringField;
    AdoxsrbmnDateRk: TWideStringField;
    AdoxsrbmnCkCode: TWideStringField;
    AdoxsrbmnXsDept: TWideStringField;
    AdoxsrbmnYwMan: TWideStringField;
    AdoxsrbmnYwType: TWideStringField;
    AdoxsrbmnCusNo: TWideStringField;
    AdoxsrbmnGysNo: TWideStringField;
    AdoxsrbmnShMan: TWideStringField;
    AdoxsrbmnJsMan: TWideStringField;
    AdoxsrbmnCzMan: TWideStringField;
    AdoxsrbmnSfTtype: TWideStringField;
    AdoxsrbmnSfType_DbPd: TWideStringField;
    AdoxsrbmtiisCg_xs: TBooleanField;
    AdoxsrbmnRedBlue: TBooleanField;
    AdoxsrbmnCgDdId: TWideStringField;
    AdoxsrbmnBillDb: TWideStringField;
    AdoxsrbmnMemo: TMemoField;
    AdoxsrbmnDdID: TWideStringField;
    AdoxsrbmnJzMan: TWideStringField;
    adoxsrbdnId: TAutoIncField;
    adoxsrbdnGoodCode: TWideStringField;
    adoxsrbdnGdAddCode: TWideStringField;
    adoxsrbdnGoodName: TWideStringField;
    adoxsrbdnBillid: TWideStringField;
    adoxsrbdnfsprice: TBCDField;
    adoxsrbdnFsCount: TBCDField;
    adoxsrbdnFsJine: TBCDField;
    adoxsrbditax: TIntegerField;
    adoxsrbdnUnit: TWideStringField;
    adoxsrbdnGg: TWideStringField;
    adoxsrbdnMemo: TWideStringField;
    adoxsrbdnbatch: TWideStringField;
    adoxsrbdnPosition: TWideStringField;
    adoxsrbdnColor: TWideStringField;
    adoxsrbdfOod: TFloatField;
    adoxsrbdnCus1: TWideStringField;
    adoxsrbdnCus2: TWideStringField;
    adoxsrbdnCus3: TWideStringField;
    adoxsrbdnCus4: TWideStringField;
    adoxsrbdnCus5: TWideStringField;
    adoxsrbdnCus6: TWideStringField;
    adoxsrbdnCus7: TWideStringField;
    adoxsrbdnCus8: TWideStringField;
    adoxsrbdnCus9: TWideStringField;
    adoxsrbdnCus10: TWideStringField;
    adoxsrbdnCus11: TWideStringField;
    adoxsrbdnCus12: TWideStringField;
    adoxsrbdnCus13: TWideStringField;
    adoxsrbdnCus14: TWideStringField;
    adoxsrbdnCus15: TWideStringField;
    //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 adoxsrbdBeforePost(DataSet: TDataSet);
    procedure adoxsrbdsgoodnoSetText(Sender: TField; const Text: String);
   {
    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, Uxsrb;

{$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;

procedure TDM.adoxsrbdBeforePost(DataSet: TDataSet);
begin
 dm.adoxsrbd.FieldByName('nbillid').asstring:=Trim(frmxsrb.DBEdit1.text);
end;

procedure TDM.adoxsrbdsgoodnoSetText(Sender: TField; const Text: String);
var
   tempquery:TADOQuery;
begin
   if (Text<>'') then
   begin
       tempquery:=TADOQuery.Create(nil);
       tempquery.Connection := dm.ADOConnection  ;
       with tempquery do
       begin
           close;
           sql.clear;
           sql.add('select * from   s_goods where nGdCode='+''''+Trim(Text)+'''');
           open;
           if recordcount<=0 then
           begin
               Application.MessageBox('原材料编码不存在！','错误提示',0+16);
               sender.Value :=NULL;
           end
           else
           begin
               dm.adoxsrbd.edit;
               dm.adoxsrbd.FieldByName('sgoodno').AsString:=Trim(Text);;
              // adostoredproc1.Close  ;
              // adostoredproc1.Parameters.ParamByName('@nGDCode').value:=Trim(Text);
              // adostoredproc1.ExecProc;
               //jhquery.FieldByName('Kucun').AsString:=adostoredproc1.Parameters.ParamByName('@stocks').value;
           end;
       end;
   end
   else
      sender.Value :=NULL;

end;

end.