datamodule.pas

电子充值系统:全球通的充值卡通过POS机传到销售点.

begin
  tbInput.FieldByName('BeginSupplierTypeName').AsString :=
          GetSupplierTypeName(tbInput.FieldByName('BeginSupplierTypeID').AsString);
end;

procedure TDM.tbInputEndSupplierTypeIDValidate(Sender: TField);
begin
   tbInput.FieldByName('EndSupplierTypeName').AsString :=
          GetSupplierTypeName(tbInput.FieldByName('EndSupplierTypeID').AsString);
end;

procedure TDM.tbInputBeginChangeCodeValidate(Sender: TField);
begin
tbInput.FieldByName('BeginChangeName').AsString :=
        GetChangeName(tbInput.FieldByName('BeginChangeCode').AsString);
end;

procedure TDM.tbInputEndChangeCodeValidate(Sender: TField);
begin
 tbInput.FieldByName('EndChangeName').AsString :=
          GetChangeName(tbInput.FieldByName('EndChangeCode').AsString);
end;

procedure TDM.tbInputBeginWarehouseIDValidate(Sender: TField);
begin
tbInput.FieldByName('BeginWarehouseName').AsString :=
        GetWarehouseName(tbInput.FieldByName('BeginWarehouseID').AsString);
end;

procedure TDM.tbInputEndWarehouseIDValidate(Sender: TField);
begin
tbInput.FieldByName('EndWarehouseName').AsString :=
          GetWarehouseName(tbInput.FieldByName('EndWarehouseID').AsString);
end;

procedure TDM.qyBankBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qyRegionBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qySalesManBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qyEmployeeBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qyCustomerTypeBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qySupplierTypeBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qyInventoryChangeBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qyWarehouseBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qyUnitBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qyDepartmentBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qyProductTypeBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qySaleBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.DataModuleCreate(Sender: TObject);
begin
// qyCompany.Open;
end;

procedure TDM.qyProductBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qyCustomerMasterBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.qyUsersBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.tbInputNewRecord(DataSet: TDataSet);
var
  i : Integer;
begin
  for i := 0 to tbInput.FieldCount - 1 do
  begin
    if (tbInput.Fields[i] is TBooleanField) then
      tbInput.Fields[i].AsBoolean := True;
    if (tbInput.Fields[i] is TBCDField) then
      tbInput.Fields[i].AsFloat := 0;
    if (tbInput.Fields[i] is TStringField) then
      tbInput.Fields[i].AsString := Space(tbInput.Fields[i].Size);
  end;
  tbInput.FieldByName('AllWarehouseID').AsBoolean := True;
end;

procedure TDM.tbInputAllSalesManIDValidate(Sender: TField);
begin
  if tbInput.FieldByName('AllSalesManID').AsBoolean then
  begin
    tbInput.FieldByName('BeginSalesManID').AsString := '0000';
    tbInput.FieldByName('EndSalesManID').AsString := 'ZZZZ'
  end;
end;

procedure TDM.tbInputAllRegionIDValidate(Sender: TField);
begin
  if tbInput.FieldByName('AllRegionID').AsBoolean then
  begin
    tbInput.FieldByName('BeginRegionID').AsString := '0000';
    tbInput.FieldByName('EndRegionID').AsString := 'ZZZZ'
  end;
end;

procedure TDM.tbInputAllCustomerTypeIDValidate(Sender: TField);
begin
  if tbInput.FieldByName('AllCustomerTypeID').AsBoolean then
  begin
    tbInput.FieldByName('BeginCustomerTypeID').AsString := '00';
    tbInput.FieldByName('EndCustomerTypeID').AsString := 'ZZ'
  end;
end;

procedure TDM.tbInputAllSupplierTypeIDValidate(Sender: TField);
begin
  if tbInput.FieldByName('AllSupplierTypeID').AsBoolean then
  begin
    tbInput.FieldByName('BeginSupplierTypeID').AsString := '00';
    tbInput.FieldByName('EndSupplierTypeID').AsString := 'ZZ'
  end;
end;

procedure TDM.tbInputAllChangeCodeValidate(Sender: TField);
begin
  if tbInput.FieldByName('AllChangeCode').AsBoolean then
  begin
    tbInput.FieldByName('BeginChangeCode').AsString := '00';
    tbInput.FieldByName('EndChangeCode').AsString := 'ZZ'
  end;
end;

procedure TDM.tbInputAllWarehouseIDValidate(Sender: TField);
begin
  if tbInput.FieldByName('AllWarehouseID').AsBoolean then
  begin
    tbInput.FieldByName('BeginWarehouseID').AsString := '0000';
    tbInput.FieldByName('EndWarehouseID').AsString := 'ZZZZ'
  end
  else
  begin
    tbInput.FieldByName('BeginWarehouseID').AsString := tbInput.FieldByName('WarehouseID').AsString;
    tbInput.FieldByName('EndWarehouseID').AsString := tbInput.FieldByName('WarehouseID').AsString;
  end;
end;

procedure TDM.tbInputAllBankIDValidate(Sender: TField);
begin
  if tbInput.FieldByName('AllBankID').AsBoolean then
  begin
    tbInput.FieldByName('BeginBankID').AsString := '0000000';
    tbInput.FieldByName('EndBankID').AsString := 'ZZZZZZZ'
  end;
end;

procedure TDM.tbInputAllSupplierIDValidate(Sender: TField);
begin
  if tbInput.FieldByName('AllSupplierID').AsBoolean then
  begin
    tbInput.FieldByName('BeginSupplierID').AsString := '00000000';
    tbInput.FieldByName('EndSupplierID').AsString := 'ZZZZZZZZ'
  end;
end;

procedure TDM.tbInputAllCustomerIDValidate(Sender: TField);
begin
  if tbInput.FieldByName('AllCustomerID').AsBoolean then
  begin
    tbInput.FieldByName('BeginCustomerID').AsString := '00000000';
    tbInput.FieldByName('EndCustomerID').AsString := 'ZZZZZZZZ'
  end;
end;

procedure TDM.tbInputAllProductIDValidate(Sender: TField);
begin
  if tbInput.FieldByName('AllProductID').AsBoolean then
  begin
    tbInput.FieldByName('BeginProductID').AsString := '0000000000';
    tbInput.FieldByName('EndProductID').AsString := 'ZZZZZZZZZZ'
  end;
end;

procedure TDM.tbInputBeginProductIDValidate(Sender: TField);
begin
  tbInput.FieldByName('BeginProductName').AsString :=
          GetProductName(tbInput.FieldByName('BeginProductID').AsString);
end;

procedure TDM.tbInputEndProductIDValidate(Sender: TField);
begin
  tbInput.FieldByName('EndProductName').AsString :=
          GetProductName(tbInput.FieldByName('EndProductID').AsString);
end;

procedure TDM.tbInputProductIDValidate(Sender: TField);
begin
  tbInput.FieldByName('ProductName').AsString :=
          GetProductName(tbInput.FieldByName('ProductID').AsString);
end;

procedure TDM.tbInputChangeCodeValidate(Sender: TField);
begin
  tbInput.FieldByName('ChangeName').AsString :=
          GetChangeName(tbInput.FieldByName('ChangeCode').AsString);
end;

procedure TDM.tbInputSalesManIDValidate(Sender: TField);
begin
  tbInput.FieldByName('SalesManName').AsString :=
          GetSalesName(tbInput.FieldByName('SalesManID').AsString);
end;

procedure TDM.tbInputWarehouseIDValidate(Sender: TField);
begin
  tbInput.FieldByName('WarehouseName').AsString :=
          GetWarehouseName(tbInput.FieldByName('WarehouseID').AsString);
  tbInput.FieldByName('BeginWarehouseID').AsString := tbInput.FieldByName('WarehouseID').AsString;
  tbInput.FieldByName('EndWarehouseID').AsString := tbInput.FieldByName('WarehouseID').AsString;
end;

procedure TDM.tbInputBeginBankIDValidate(Sender: TField);
begin
  tbInput.FieldByName('BeginBankAttribName').AsString :=
          GetBankAttribName(tbInput.FieldByName('BeginBankID').AsString);
end;

procedure TDM.tbInputEndBankIDValidate(Sender: TField);
begin
  tbInput.FieldByName('EndBankAttribName').AsString :=
          GetBankAttribName(tbInput.FieldByName('EndBankID').AsString);
end;

procedure TDM.tbInputBeginSupplierIDValidate(Sender: TField);
begin
  tbInput.FieldByName('BeginSupplierAttribName').AsString :=
          GetSupplierAttribName(tbInput.FieldByName('BeginSupplierID').AsString);
end;

procedure TDM.tbInputEndSupplierIDValidate(Sender: TField);
begin
  tbInput.FieldByName('EndSupplierAttribName').AsString :=
          GetSupplierAttribName(tbInput.FieldByName('EndSupplierID').AsString);
end;

procedure TDM.tbInputBeginCustomerIDValidate(Sender: TField);
begin
  tbInput.FieldByName('BeginCustomerAttribName').AsString :=
          GetCustomerAttribName(tbInput.FieldByName('BeginCustomerID').AsString);
end;

procedure TDM.tbInputEndCustomerIDValidate(Sender: TField);
begin
  tbInput.FieldByName('EndCustomerAttribName').AsString :=
          GetCustomerAttribName(tbInput.FieldByName('EndCustomerID').AsString);
end;

procedure TDM.qyProgramBeforeOpen(DataSet: TDataSet);
begin
  DataSetOpen(DataSet);
end;

procedure TDM.tbInputBeginUserIDValidate(Sender: TField);
begin
  tbInput.FieldByName('BeginUserName').AsString :=
          GetUsersName(tbInput.FieldByName('BeginUserID').AsString);
end;

procedure TDM.tbInputEndUserIDValidate(Sender: TField);
begin
  tbInput.FieldByName('EndUserName').AsString :=
          GetUsersName(tbInput.FieldByName('EndUserID').AsString);