【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-MastD.pas，希望本篇文章对您学习有所帮助。

    unit MastD;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, DBClient, MConnect, Grids, DBGrids;
    
    type
      TfrmMD = class(TForm)
        DBGrid1: TDBGrid;
        DBGrid2: TDBGrid;
        cdsOrder: TClientDataSet;
        cdsOrderOrderNo: TFloatField;
        cdsOrderCustNo: TFloatField;
        cdsOrderSaleDate: TDateTimeField;
        cdsOrderShipDate: TDateTimeField;
        cdsOrderEmpNo: TIntegerField;
        cdsOrderPO: TStringField;
        cdsOrderTerms: TStringField;
        cdsOrderPaymentMethod: TStringField;
        cdsOrderItemsTotal: TCurrencyField;
        cdsOrderTaxRate: TFloatField;
        cdsOrderFreight: TCurrencyField;
        cdsOrderAmountPaid: TCurrencyField;
        cdsOrdertbItems: TDataSetField;
        DataSource1: TDataSource;
        DCOMConnection1: TDCOMConnection;
        cdsItems: TClientDataSet;
        DataSource2: TDataSource;
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      frmMD: TfrmMD;
    
    implementation
    
    {$R *.dfm}
    
    procedure TfrmMD.FormCreate(Sender: TObject);
    begin
        cdsOrder.Active := true;
        cdsItems.Active := true;
    end;
    
    end.
    

上一篇：HolidayManDlg.cpp
下一篇：用于土木工程结构抗震的半主动调谐质量阻尼器