checkdata.pas

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

    Exit;
  end;
  Result := True;
end;

//檢查客戶類別編號
function CheckCustomerTypeID(CustomerTypeID: String): Boolean;
begin
  if Trim(CustomerTypeID) = '' then
  begin
    NullWarning('客户类别编号');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT CustomerTypeID ');
    SQL.Add('FROM CustomerType ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND CustomerTypeID = :CustomerTypeID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('CustomerTypeID').AsString := CustomerTypeID;
    Open;
  end;
  if DM.qyCheck.FieldByName('CustomerTypeID').AsString = '' then
  begin
    NotFoundWarning('客户类别编号', CustomerTypeID);
    Result := False;
    Exit;
  end;
  Result := True;
end;

//檢查客戶地址編號
function CheckAddressID(CustomerID, AddressID: String): Boolean;
begin
  if Trim(AddressID) = '' then
  begin
    NullWarning('客户地址编号');
    Result := False;
    Exit;
  end;
  if AddressID = '00' then
  begin
    Result := True;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT AddressID ');
    SQL.Add('FROM CustomerAddress ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND CustomerID = :CustomerID AND AddressID = :AddressID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('CustomerID').AsString := CustomerID;
    ParamByName('AddressID').AsString := AddressID;
    Open;
  end;
  if DM.qyCheck.FieldByName('AddressID').AsString = '' then
  begin
    NotFoundWarning('客户地址编号', AddressID);
    Result := False;
    Exit;
  end;
  Result := True;
end;

//檢查客戶編號
function CheckCustomerID(CustomerID: String): Boolean;
begin
  if Trim(CustomerID) = '' then
  begin
    NullWarning('客户编号');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT CustomerID ');
    SQL.Add('FROM CustomerMaster ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND CustomerID = :CustomerID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('CustomerID').AsString := CustomerID;
    Open;
  end;
  if DM.qyCheck.FieldByName('CustomerID').AsString = '' then
  begin
    NotFoundWarning('客户编号', CustomerID);
    Result := False;
    Exit;
  end;
  Result := True;
end;

//檢查部门編號
function CheckDepartmentID(DepartmentID: String): Boolean;
begin
  if Trim(DepartmentID) = '' then
  begin
    NullWarning('部门编号');
    Result := False;
  end;
    Exit;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT DepartmentID ');
    SQL.Add('FROM Department ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND DepartmentID = :DepartmentID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('DepartmentID').AsString := DepartmentID;
    Open;
  end;
  if DM.qyCheck.FieldByName('DepartmentID').AsString = '' then
  begin
    NotFoundWarning('部门编号', DepartmentID);
    Result := False;
    Exit;
  end;
  Result := True;
end;

//检查员工编号
function CheckEmployeeID(EmployeeID: String): Boolean;
begin
  if Trim(EmployeeID) = '' then
  begin
    NullWarning('员工编号');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT EmployeeID ');
    SQL.Add('FROM Employee ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND EmployeeID = :EmployeeID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('EmployeeID').AsString := EmployeeID;
    Open;
  end;
  if DM.qyCheck.FieldByName('EmployeeID').AsString = '' then
  begin
    NotFoundWarning('员工编号', EmployeeID);
    Result := False;
    Exit;
  end;
  Result := True;
end;


//檢查倉庫編號
function CheckWarehouseID(WarehouseID: String): Boolean;
begin
  if Trim(WarehouseID) = '' then
  begin
    NullWarning('仓库编号');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT WarehouseID ');
    SQL.Add('FROM Warehouse ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND WarehouseID = :WarehouseID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('WarehouseID').AsString := WarehouseID;
    Open;
  end;
  if DM.qyCheck.FieldByName('WarehouseID').AsString = '' then
  begin
    NotFoundWarning('仓库编号', WarehouseID);
    Result := False;
    Exit;
  end;
  Result := True;
end;

//檢查商品編號
function CheckProductID(ProductID: String): Boolean;
begin
  if Trim(ProductID) = '' then
  begin
    NullWarning('商品编号');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ProductID ');
    SQL.Add('FROM Product ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND ProductID = :ProductID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('ProductID').AsString := ProductID;
    Open;
  end;
  if DM.qyCheck.FieldByName('ProductID').AsString = '' then
  begin
    NotFoundWarning('商品编号', ProductID);
    Result := False;
    Exit;
  end;
  Result := True;
end;

function CheckSupplierTypeID(SupplierTypeID: String): Boolean;
begin
  if Trim(SupplierTypeID) = '' then
  begin
    NullWarning('供应商类别');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SElECT SupplierTypeID');
    SQL.Add('FROM SupplierType');
    SQL.Add('WHERE CompanyID = :CompanyID AND SupplierTypeID = :SupplierTypeID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('SupplierTypeID').AsString := SupplierTypeID;
    Open;
  end;
  if DM.qyCheck.FieldByName('SupplierTypeID').AsString = '' then
  begin
    NotFoundWarning('供应商类别', SupplierTypeID);
    Result := False;
    Exit;
  end;
  Result := True;
end;

function CheckBankID(BankID: String): Boolean;
begin
  if Trim(BankID) = '' then
  begin
    NullWarning('银行编号');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SElECT BankID ');
    SQL.Add('FROM Bank ');
    SQL.Add('WHERE CompanyID = :CompanyID AND BankID = :BankID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('BankID').AsString := BankID;
    Open;
  end;
  if DM.qyCheck.FieldByName('BankID').AsString = '' then
  begin
    NotFoundWarning('银行编号', BankID);
    Result := False;
    Exit;
  end;
  Result := True;
end;

//檢查供應商編號
function CheckSupplierID(SupplierID: String): Boolean;
begin
  if Trim(SupplierID) = '' then
  begin
    NullWarning('供应商编号');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT SupplierID ');
    SQL.Add('FROM Supplier ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND SupplierID = :SupplierID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('SupplierID').AsString := SupplierID;
    Open;
  end;
  if DM.qyCheck.FieldByName('SupplierID').AsString = '' then
  begin
    NotFoundWarning('供应商编号', SupplierID);
    Result := False;
    Exit;
  end;
  Result := True;
end;

//檢查庫存異動編號
function CheckChangeCode(ChangeCode: String): Boolean;
begin
  if Trim(ChangeCode) = '' then
  begin
    NullWarning('库存异动编号');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ChangeCode ');
    SQL.Add('FROM InventoryChange ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND ChangeCode = :ChangeCode ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('ChangeCode').AsString := ChangeCode;
    Open;
  end;
  if DM.qyCheck.FieldByName('ChangeCode').AsString = '' then
  begin
    NotFoundWarning('库存异动编号', ChangeCode);
    Result := False;
    Exit;
  end;
  Result := True;
end;

//檢查程式編號
function CheckProgramID(ProgramID: String): Boolean;
begin
  if Trim(ProgramID) = '' then
  begin
    NullWarning('程式编号');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT ProgramID ');
    SQL.Add('FROM Programs ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND ProgramID = :ProgramID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('ProgramID').AsString := ProgramID;
    Open;
  end;
  if DM.qyCheck.FieldByName('ProgramID').AsString = '' then
  begin
    NotFoundWarning('程式编号', ProgramID);
    Result := False;
    Exit;
  end;
  Result := True;
end;
 //檢查计量单位編號
function CheckUnitID(UnitID: String): Boolean;
begin
  if Trim(UnitID) = '' then
  begin
    NullWarning('计量单位编号');
    Result := False;
    Exit;
  end;
  with DM.qyCheck do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT UnitID ');
    SQL.Add('FROM Unit ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    SQL.Add('AND UnitID = :UnitID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('UnitID').AsString := UnitID;
    Open;
  end;
  if DM.qyCheck.FieldByName('UnitID').AsString = '' then
  begin
    NotFoundWarning('计量单位编号', UnitID);
    Result := False;
    Exit;
  end;
  Result := True;
end;

end.