maindm.pas

自己看把！

unit MainDM;

interface

uses
  SysUtils, Classes, DB, ADODB, Variants;

type
  TdmMain = class(TDataModule)
    ADOConnection1: TADOConnection;
    dsMain: TDataSource;
    tblMain: TADOTable;
    qryForAll: TADOQuery;
    tblHy: TADOTable;
    dsHy: TDataSource;
    tblMainDSDesigner: TSmallintField;
    tblMainDSDesigner2: TDateTimeField;
    tblMainDSDesigner3: TDateTimeField;
    tblMainDSDesigner4: TDateTimeField;
    tblMainDSDesigner5: TBCDField;
    tblMainDSDesigner6: TBCDField;
    tblMainDSDesigner7: TWideStringField;
    tblMainDSDesigner8: TWideStringField;
    tblMainField: TStringField;
    qryCheckHy: TADOQuery;
    tblHyDSDesigner: TWideStringField;
    tblHyDSDesigner2: TWideStringField;
    tblHyDSDesigner3: TWideStringField;
    tblHyDSDesigner4: TWideStringField;
    tblHyDSDesigner5: TWideStringField;
    tblHyDSDesigner6: TDateTimeField;
    tblHyDSDesigner7: TBCDField;
    tblHyDSDesigner8: TBCDField;
    tblHyDSDesigner9: TBooleanField;
    tblHyDSDesigner10: TWideStringField;
    tblSpSell: TADOTable;
    tblSpBuy: TADOTable;
    dsSpSell: TDataSource;
    dsSpBuy: TDataSource;
    qryBuy: TADOQuery;
    tblBuyCheck: TADOTable;
    tblMainDSDesigner9: TBooleanField;
    tblSpSellDSDesigner: TWideStringField;
    tblSpSellDSDesigner3: TBCDField;
    tblSpSellDSDesigner5: TWideStringField;
    tblSpBuyDSDesigner: TSmallintField;
    tblSpBuyDSDesigner2: TWideStringField;
    tblSpBuyDSDesigner4: TIntegerField;
    tblSpBuyDSDesigner3: TBCDField;
    tblSpSellDSDesigner2: TBCDField;
    tblSpBuyField: TCurrencyField;
    tblSpBuyDSDesigner5: TBooleanField;
    dsMrjs: TDataSource;
    tblMrjs: TADOTable;
    tblMrjsDSDesigner: TDateTimeField;
    tblMrjsDSDesigner2: TBCDField;
    tblMrjsDSDesigner3: TBCDField;
    tblMrjsDSDesigner4: TWideStringField;
    tblMrjsField: TCurrencyField;
    qryTime: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure tblSpBuyCalcFields(DataSet: TDataSet);
    procedure BtnEnable(DataSet: TDataSet);
    procedure tblMrjsCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmMain: TdmMain;

implementation

uses MainFrm;

{$R *.dfm}

procedure TdmMain.DataModuleCreate(Sender: TObject);
begin
  ADOConnection1.Connected := True;
end;

procedure TdmMain.tblSpBuyCalcFields(DataSet: TDataSet);
begin
  with dmMain.tblSpBuy do
  begin
    FieldByName('合计').Value := (FieldByName('售价').Value) * (FieldByName('数量').Value)
  end;
end;

procedure TdmMain.BtnEnable(DataSet: TDataSet);
begin
  frmMain.SetInfoPanel;
  with tblMain do
  begin
    {******上机、修改、附加********}
    if FieldByName('上机时间').Value = null then
    begin
      frmMain.actBeginComputer.Enabled := True;
      frmMain.actEditMoney.Enabled := False;
      frmMain.actFuJia.Enabled := False;
    end
    else
    begin
      frmMain.actBeginComputer.Enabled := False;
      frmMain.actEditMoney.Enabled := True;
      frmMain.actFuJia.Enabled := True;
    end;

    {******下机********}
    if FieldByName('下机时间').Value = null then
      if FieldByName('上机时间').Value <> null then
        frmMain.actEndComputer.Enabled := True
      else
        frmMain.actEndComputer.Enabled := False;
    if FieldByName('下机时间').Value <> null then
    begin
      frmMain.actEndComputer.Enabled := False;
      frmMain.actFuJia.Enabled := False;
    end;
  end;
end;

procedure TdmMain.tblMrjsCalcFields(DataSet: TDataSet);
begin
  with dmMain.tblMrjs do
  begin
    FieldByName('合计').Value := FieldByName('网费').AsFloat
      + FieldByName('商品').AsFloat
  end;
end;

end.