unit_dm_contract_z.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit Unit_dm_contract_z;

interface

uses
  SysUtils, Windows, Classes, Graphics, Controls,
  Forms, Dialogs, DB, DBTables, ADODB;

type
  Tdm_contract_z = class(TDataModule)
    ds_contract_z: TDataSource;
    ds_contract_machine: TDataSource;
    Query_contract_machine: TQuery;
    Query_contract_money: TQuery;
    ds_contract_money: TDataSource;
    Query_contract_moneyBDEDesigner: TIntegerField;
    Query_contract_moneyBDEDesigner2: TDateTimeField;
    Query_contract_moneyBDEDesigner3: TStringField;
    Query_contract_moneyBDEDesigner5: TFloatField;
    Query_contract_moneyBDEDesigner6: TStringField;
    Query_contract_moneyBDEDesigner4: TStringField;
    Table_contract111: TTable;
    Table_contract111BDEDesigner2: TStringField;
    Table_contract111BDEDesigner3: TStringField;
    Table_contract111BDEDesigner4: TStringField;
    Table_contract111BDEDesigner5: TStringField;
    Table_contract111BDEDesigner6: TStringField;
    Table_contract111BDEDesigner7: TStringField;
    Table_contract111BDEDesigner8: TStringField;
    Table_contract111BDEDesigner9: TStringField;
    Table_contract111BDEDesigner10: TStringField;
    Table_contract111BDEDesigner11: TStringField;
    Table_contract111BDEDesigner12: TStringField;
    Table_contract111BDEDesigner13: TStringField;
    Table_contract111BDEDesigner14: TStringField;
    Table_contract111BDEDesigner15: TFloatField;
    Table_contract111BDEDesigner16: TStringField;
    Table_contract111BDEDesigner17: TStringField;
    Table_contract111BDEDesigner18: TFloatField;
    Table_contract111BDEDesigner19: TStringField;
    Table_contract111BDEDesigner20: TFloatField;
    Table_contract111BDEDesigner21: TStringField;
    Table_contract111BDEDesigner22: TStringField;
    Table_contract111_: TStringField;
    Table_contract111_2: TStringField;
    Table_contract111BDEDesigner23: TFloatField;
    Table_contract111BDEDesigner24: TStringField;
    Table_contract111_3: TStringField;
    Table_contract111_4: TStringField;
    Table_contract111_5: TStringField;
    Table_contract111_6: TStringField;
    Table_contract111_7: TStringField;
    Table_contract111_8: TStringField;
    Table_contract111_9: TStringField;
    Table_contract111_10: TStringField;
    Table_contract111_11: TStringField;
    Table_contract111_12: TFloatField;
    Table_contract111BDEDesigner25: TFloatField;
    Table_contract111BDEDesigner26: TFloatField;
    Table_contract111BDEDesigner27: TDateTimeField;
    Table_contract111BDEDesigner28: TStringField;
    Table_contract111BDEDesigner29: TStringField;
    Table_contract111BDEDesigner30: TDateTimeField;
    Table_contract111BDEDesigner31: TStringField;
    Table_contract111BDEDesigner32: TStringField;
    Table_contract111BDEDesigner33: TStringField;
    Table_contract111_13: TStringField;
    Table_contract111BDEDesigner34: TStringField;
    Table_contract111_14: TStringField;
    Table_contract111_15: TStringField;
    Table_contract111_16: TStringField;
    Table_contract111_17: TStringField;
    Table_contract111_18: TStringField;
    Table_contract111_19: TStringField;
    Table_contract111BDEDesigner35: TStringField;
    Table_contract111BDEDesigner36: TStringField;
    Table_contract111BDEDesigner37: TIntegerField;
    Table_contract111BDEDesigner38: TDateTimeField;
    Table_contract111BDEDesigner39: TFloatField;
    Table_contract111BDEDesigner40: TStringField;
    Table_contract111BDEDesigner41: TFloatField;
    Table_contract111BDEDesigner42: TFloatField;
    Table_contract111BDEDesigner43: TStringField;
    Table_contract111BDEDesigner44: TStringField;
    Table_contract111BDEDesigner45: TStringField;
    Table_contract111BDEDesigner46: TMemoField;
    Table_contract111BDEDesigner47: TFloatField;
    Table_contract111BDEDesigner48: TStringField;
    Table_contract111BDEDesigner49: TStringField;
    Table_contract111BDEDesigner50: TMemoField;
    Table_contract111BDEDesigner51: TStringField;
    Table_contract111BDEDesigner52: TStringField;
    Table_contract111BDEDesigner53: TStringField;
    Table_contract111BDEDesigner54: TStringField;
    Table_contract111BDEDesigner55: TStringField;
    Table_contract111BDEDesigner56: TStringField;
    Table_contract111BDEDesigner57: TStringField;
    Table_contract111BDEDesigner58: TStringField;
    Table_contract111BDEDesigner59: TStringField;
    Table_contract111BDEDesigner60: TStringField;
    Table_contract111BDEDesigner61: TStringField;
    Table_contract111BDEDesigner62: TStringField;
    Table_contract111BDEDesigner63: TStringField;
    Table_contract111BDEDesigner64: TStringField;
    Table_contract111BDEDesigner65: TStringField;
    Table_contract111BDEDesigner66: TStringField;
    Table_contract111BDEDesigner67: TStringField;
    Table_contract111BDEDesigner68: TStringField;
    Table_contract111BDEDesigner69: TDateTimeField;
    Table_contract111BDEDesigner70: TDateTimeField;
    Table_contract111BDEDesigner71: TDateTimeField;
    Table_contract111BDEDesigner72: TIntegerField;
    Table_contract111BDEDesigner73: TIntegerField;
    Table_contract111BDEDesigner74: TDateTimeField;
    Table_contract111BDEDesigner75: TIntegerField;
    Table_contract111BDEDesigner76: TStringField;
    Table_contract111BDEDesigner77: TStringField;
    Table_contract111BDEDesigner78: TStringField;
    Table_contract111BDEDesigner79: TStringField;
    Table_contract111BDEDesigner80: TFloatField;
    Table_contract111BDEDesigner81: TDateTimeField;
    Table_contract111BDEDesigner82: TStringField;
    Table_contract111BDEDesigner83: TStringField;
    Table_contract111BDEDesigner84: TBooleanField;
    Table_contract111BDEDesigner85: TMemoField;
    Table_contract111BDEDesigner86: TMemoField;
    Table_contract111BDEDesigner87: TDateTimeField;
    Table_contract111BDEDesigner88: TMemoField;
    Table_contract111BDEDesigner89: TBooleanField;
    Table_contract111BDEDesigner90: TStringField;
    Table_contract111BDEDesigner91: TFloatField;
    Table_contract111BDEDesigner92: TFloatField;
    Table_contract55555555: TADOQuery;
    Table_contract: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure Table_contract111BeforeInsert(DataSet: TDataSet);
    procedure Table_contract111NewRecord(DataSet: TDataSet);
    procedure Table_contract111BeforeScroll(DataSet: TDataSet);
    procedure Table_contract111AfterScroll(DataSet: TDataSet);
    procedure Table_contract555AfterScroll(DataSet: TDataSet);
    procedure Table_contract55555555AfterScroll(DataSet: TDataSet);
    procedure Table_contractAfterScroll(DataSet: TDataSet);
  private
    { private declarations }
     procedure query2select;
  public
    { public declarations }
    Max: Integer;
    procedure ComputeMax;
    //根据客户号，过虑客户标；
    procedure fillkhh(khh:string);
    procedure query2filter();

  end;

var
  dm_contract_z: Tdm_contract_z;

implementation

uses contract, wxp_dm;

{$R *.DFM}
//dm_contract_z.Table_contract.
 //过虑用的
procedure Tdm_contract_z.query2select();
begin
  //if query1.recordcount<1 then exit;
  with Query_contract_machine do
   begin
    if active then close;
    unprepare;
     parambyname('hth').AsString:=Table_contract.fieldbyname('合同号').asstring;
   prepare;
    open;
  end;

   with Query_contract_money do
   begin
    if active then close;
    unprepare;
     parambyname('hth').AsString:=Table_contract.fieldbyname('合同号').asstring;
   prepare;
    open;
  end;
end;



procedure Tdm_contract_z.ComputeMax;
var
  Bookmark: TBookmark;
begin
  // save a bookmark
 
  Bookmark := Table_contract.GetBookmark;
  try
    Table_contract.DisableControls;
    Max := 0;
    try
      Table_contract.First;
      while not Table_contract.EOF do
      begin
      //  if Table_contractNo.AsInteger > Max then
         // Max := Table_contractNo.AsInteger;
          Table_contract.Next;
      end;
    finally
      Table_contract.EnableControls;
    end;
  finally
    // return to the bookmark
    Table_contract.GotoBookmark (Bookmark);
    Table_contract.FreeBookmark (Bookmark);
   end;
end;


procedure Tdm_contract_z.DataModuleCreate(Sender: TObject);
begin
//  Table_client.Open;
  Table_contract.Open;
end;

procedure Tdm_contract_z.Table_contract111BeforeInsert(DataSet: TDataSet);
begin
//ComputeMax;
end;

procedure Tdm_contract_z.Table_contract111NewRecord(DataSet: TDataSet);
begin
//Table_contractNo.Value := Max + 1;
end;

procedure Tdm_contract_z.query2filter();
begin
 //
end;

//根据客户号，过虑客户标；
procedure Tdm_contract_z.fillkhh(khh:string);
//
begin

end;


////让一表随着另一表变化而变化；
procedure Tdm_contract_z.Table_contract111BeforeScroll(DataSet: TDataSet);
begin
//
end;

procedure Tdm_contract_z.Table_contract111AfterScroll(DataSet: TDataSet);
begin
   query2select;
end;

procedure Tdm_contract_z.Table_contract555AfterScroll(DataSet: TDataSet);
begin
 query2select;
end;

procedure Tdm_contract_z.Table_contract55555555AfterScroll(DataSet: TDataSet);
begin
//query2select;
end;


procedure Tdm_contract_z.Table_contractAfterScroll(DataSet: TDataSet);
begin
query2select;
end;

end.